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The Scientific Subroutine Package (SSP) is a collection of 
over 250 FORTRAN subroutines divided, for the sake of 
presentation, into two groups: statistics and mathematics. 
Also, over 200 subroutines are presented in both single and 
double precision mode. SSP is a collection of input/output- 
free computational building blocks that can be combined with 
a user's input, output, or computational routines to meet 
his needs. The package can be applied to the solution of 
many problems in industry, science, and engineering. 

Version 3 of the Scientific Subroutine Package for 
System/360 incorporates and extends the capabilities of 
the original SSP/360. This version provides over 40 new 
mathematical and statistical subroutines 24 of which are in 
both single- and double-precision FORTRAN. Examples of 
the new capabilities are the use of the QR iteration for 
obtaining eigenvalues of a matrix, and the nonparametric 
test of KoLmogorov-Smirnov. 

This manual contains sufficient information to permit the 
reader to understand and use all of the subroutines of the 
Scientific Subroutine Package, 
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This programming package has been developed with the cooperation and 
assistance of IBM Germany and IBM France. 



PURPOSE AND OBJECTIVES OF THE PACKAGE 



The Scientific Subroutine Package is a set of basic 
computational subroutines intended to aid the user in 
the development of his own FORTRAN subroutine 
library. While this package may provide many of 
the tools necessary to solve the more commonly 
encountered problems in engineering and science, 
there is no intent to imply that these subroutines 
represent the current state of the art in statistics 
or numerical analysis. As with all tools, the user 
should understand their capabilities and their appli- 
cation to his functional requirements before de- 
ciding to use them. 

AREAS OF APPLICATION 

Individual subroutines, or a combination of them, 
can be used to carry out the listed fimctions in the 
following areas: 

Statistics 



• Fourier analysis of given or tabulated 
functions 

• Bessel and modified Bessel function 
evaluation 

• Gamma function evaluation 

• Jacobian elliptic functions 

• Elliptic, exponential, sine cosine, Fresnel 
integrals 

• Finding real roots of a given function 

• Finding real and complex roots of a real 
polynomial 

• Polj^nomial arithmetic (addition, division, etc.) 

• Polynomial evaluation, integration, 
differentiation 

• Chebyshev, Hermite, Laguerre, Legendre 
polynomials 

• Minimum of a function 

• Approximation, interpolation, and table 
construction 



• Probit analysis 

• Analysis of variance (factorial design) 

• Correlation analysis 

• Multiple linear regression 

• Stepwise regression 

• Polynomial regression 

• Canonical correlation 

• Factor analysis (principal components, 
varimax) 

• Discriminant analysis (many groups) 

• Time series analysis 

• Data screening and analysis 

• Nonpar ametric tests 

• Random number generation (imiform, normal) 

• Distribution functions 

Mathematics 

• Inversion 

• Eigenvalues and eigenvectors 

• Simultaneous linear algebraic equations 

• Transpositions 

• Matrix arithmetic (addition, product, etc. ) 

• Matrix partitioning 

• Matrix tabulation and sorting of rows or 
columns 

• Elementary operations on rows or columns of 
matrices 

• Matrix factorization 

• Integration and differentiation of given or 
tabulated functions 

• Solution of systems of first-order differential 
equations 



CHARACTERISTICS 

Some of the characteristics of the Scientific Sub- 
routine Package are: 

• All subroutines are free of input/output 
statements . 

• Subroutines do not contain fixed maximum 
dimensions for the data arrays named in their 
calling sequences. 

• All subroutines are written in FORTRAN. 

• Many matrix manipulation subroutines handle 
S3mimetric and diagonal matrices (stored in 
economical, compressed formats) as well as 
general matrices. This can result in con- 
siderable saving in data storage for large 
arrays . 

• The use of the more complex subroutines (or 
groups of them) is illustrated in the program 
documentation by sample main programs with 
input /output. 

• All subroutines are documented uniformly. 
The subroutines in SSP have been programmed in 

the subset of the FORTRAN IV language, which is 
compatible with all of the FORTRAN processors 
announced for System/360. Many of the larger 

functions such as those in statistics have been pro- 
grammed as a series or sequence of subroutines. 

An example of the use of sequences of subroutines 
is the statistical function called factor analysis. 
Factor analysis is a method of analyzing the inter- 
correlations within a set of variables. It deter- 
mines whether the variance in the original set of 
variables can be accounted for adequately by a 
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smaller number of basic categories; namely, fac- 4. LOAD - to compute a factor matrix 

tors. In the Scientific Subroutine Package, factor 5. VARMX - to perform varimax rotation of the 

analysis is normally performed by calling the fol- factor matrix 

lowing five subroutines in sequence: ' The multiple use of subroutines is illustrated by 

1. CORRE - to find means, standard deviations, the fact that subroutine CORRE is also utilized in 
and correlation matrix the multiple linear regression and canonical corre- 

2. EIGEN - to compute eigenvalues and asso- lation. Subroutine EIGEN is used in canonical cor- 
ciated eigenvectors of the correlation matrix relation as a third-level subroutine. 

3. TRACE - to select the eigenvalues that are 
greater than or equal to the control value specified 
by the user 



2 Purpose and Objectives of the Application 



OVERALL RULES OF USAGE 



GENERAL RULES 

All subroutines in the Scientific Subroutine Package 
(SSP) are entered by means of the standard 
FORTRAN CALL statement. These subroutines are 
purely computational in nature and do not contain 
any references to input/output devices. The user 
must therefore furnish, as part of his program, what- 
ever input/output and other operations are necessary 
for the total solution of his problem. In addition, the 
user must define by DIMENSION statements all 
matrices to be operated on by SSP subroutines as 
well as those matrices utilized in his program. The 
subroutines contained in SSP are no different from 
any user-supplied subroutine. All of the normal 
rules of FORTRAN concerning subroutines must 
therefore be adhered to, with the exception that the 
dimensioned areas in the SSP subroutine are not 
required to be the same as those in the calling 
program. 

The CALL statement transfers control to the sub- 
routine and replaces the dummy variables in that 
subroutine with the value of the actual arguments that 
appear in the CALL statement if the argument is a 
constant or a variable. When the argument is an ar- 
ray or function subprogram name, the address of 
the array or subprogram is transmitted to the called 
subroutine. 

The arguments in a CALL statement must agree 
in order, number, and type with the corresponding 
arguments in the subroutine. A number may be 
passed to a subroutine either as a variable name in 
the argument list or as a constant in the argument 
list. For example, if the programmer wishes to add 
matrix ARl to matrix AR2 in order to form matrix 
AR3 using the SSP subroutine GMADD, and if ARl 
and AR2 are both matrices with ten rows and twenty 
columns, either of the two following methods can 
be used: 

Method 1 

CALL GMADD(AR1, AR2, AR3, 10, 20) 



Method 2 



N= 10 
M=20 
CALL GMADD(AR1,AR2,AR3,N, M) 



Many of the subroutines in SSP require the name 
of a user function subprogram or a FORTRAN- 
supplied function name as part of the argument list 



in the CALL statement. If the user's program con- 
tains such a CALL, the function name appearing in 
the argument list must also appear in an EXTERNAL 
statement at the beginning of that program. 

For example, the SSP subroutine RK2 integrates 
a function furnished by the user. The user must 
therefore program the function and give the name 
of the function to RK2 as a parameter in the CALL 
statement. If the user wishes to integrate the func- 
tion g^ = 3. X + 2. OY, his main program may 
appear as: 

EXTERNAL DERY 

CALL RK2(DERY, ) 

RETURN 

END 

His function subprogram can be: 

FUNCTION DERY (X, Y) 

DERY=3.0*X+2.0*Y 

RETURN 

END 

The user's main program gives the name of the 
programmed function to RK2 by including that name 
in the CALL statement and in an EXTERNAL state- 
ment. RK2, in turn, goes to the function DERY 
each time it requires a value for the derivative. The 
subroutine RK2 is not modified by the programmer. 
The dummy function name FUN in subroutine RK2 is, 
in effect, replaced by the name appearing in the user's 
CALL statement during execution of the subroutine. 

MATRIX OPERATIONS 

Special consideration must be given to the subroutines 
that perform matrix operations. These subroutines 
have two characteristics that affect the format of the 
data in storage — variable dimensioning and data 
storage compression. 

Variable Dimensioning 

Those subroutines that deal with matrices can oper- 
ate on any size array, limited in most cases only 
by the available core storage and numerical analysis 
considerations. The subroutines do not contain fixed 
maximum dimensions for data arrays named in their 
calling sequence. The variable dimension capability 



Overall Rules of Usage 3 



has been implemented in SSP by using a vector storage 
approach. Under this approach, each column of a 
matrix is immediately followed in storage by the next 
column. Vector storage and two-dimensional Storage 
result in the same layout of data in core, so long as 
the number of rows and columns in the matrix are 
the same as those in the user's dimension statement. 
If, however, the matrix is smaller than the dimen- 
sioned area, the two forms of storage are not 
compatible. 

Consider the layout of data storage when operat- 
ing on a 5 by 5 array of numbers in an area dimen- 
sioned as 10 by 10. If the programmer has been 
using double -sub scripted variables in the normal 
FORTRAN sense, the 25 elements of data will appear 
as shown in Figure 1. FORTRAN stores double- 
subscripted data by column based on the column 
length specified in the DIMENSION statement. Thus, 
In the example, sequential core locations will con- 
tain data elements 1 to 5, five blank locations, data 
elements 6 to 10, five blank locations, and so on. 
The matrix subroutines take a vector approach in 
storing arrays by column, which means that they 
assume the data is stored as shown in Figure 2. 
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Figure 1. Double-subscripted data storage 



(1) (11) 


(21) 


(2) (12) 


(22) 


(3) (13) 


(23) 


(4) (14) 


(24) 


(5) (15) 


(25) 


(6) (16) 




(7) (17) 




(8) (18) 




(9) (19) 




(10) (20) 





Figure 2. Vector storage 



As stated previously, if the dimensioned area is 
the same as the matrix size, the two approaches 
will have the same data storage layout, and the user 
can proceed in a regular double -subscripted fashion. 
If, however, he is operating in a mode where the 
dimensioned area is larger than the arrays, and if 
he wishes to use the SSP subroutines, he must be 
certain that his data is stored in the vector fashion 
illustrated by Figure 2. A subroutine called 
ARRAY is available in SSP to change from one form 
of storage to the other. In addition, a subroutine 
called LOG is available to assist in referencing ele- 
ments in an array stored in the vector fashion. 

Storage Compression 

Many subroutines in SSP can operate on compressed 
forms of matrices as well as on the normal form . 
By using this capability, which is called "storage 
mode", considerable savings in data storage can be 
obtained for special forms of large arrays. The 
three modes of storage are termed general, sym- 
metric, and diagonal. In this context, general mode 
is one in which all elements of the matrix are in 
storage. Symmetric mode is one in which only the 
upper triangular portion of the matrix is retained 
columnwise in sequential locations In storage. (The 
assumption is made that the corresponding elements 
in the lower triangle have the same value. ) Diagonal 
mode is one in which only the diagonal elements of 
the matrix are retained in sequential locations in 
storage. (The off-diagonal elements are assumed 
to be zero. ) This capability has been implemented 
using the vector storage approach. 

Figure 3 Illustrates the effect of the storage mode 
capability. A symmetric matrix is shown in Figure 
3A. If this array is to be manipulated using the SSP 
matrix subroutines with storage mode capability, 
the array may be stored as shown in Figure 3B. 
This is the upper triangular portion of the array and 
corresponds to a storage mode code of 1. Sym- 
metric matrices of order N may be stored in a vec- 
tor of only N*(N+l)/2 locations rather than N*N 
locations. For larger matrices, this will be a 
saving of almost one half. 

The effect of storage mode when dealing with 
diagonal matrices is even more pronounced. Diago- 
nal matrices of order N may be stored in a vector 

only N locations long. Figure 3C shows a 3 by 3 

diagonal matrix. If this array is to be manipulated 
using the SSP matrix subroutines with storage mode 
capability, only the diagonal elements of the array 
need be stored. This is shovm in Figure 3D and 
corresponds to a storage mode code of 2. 

General matrices of order N by M require a 
vector N*M long and use a storage mode code of 0. 



4 Overall Rules of Usage 




1 

2 
4 
3 
5 

6 
B 



> Column 1 
} Column 2 

Column 3 



1 










1 


? Column 1 





2 







2 
3 


I Column 2 
V Column 3 








3 









D 



Figures. Storage mode 



Thus, if the programmer wishes to use SSP sub- 
routines on matrix A, which is general, matrix B, 
which is symmetric, and matrix C, which is diagonal, 
and all matrices are 10 by 10 or smaller, the di- 
mension statement in his program can be: 

DIMENSION A(IOO), B(55), C(10) 
Matrix Element References 

Subroutine LOG in the Scientific Subroutine Package 
may be used to reference elements within a matrix 
stored in a vector fashion, and may involve storage 
mode compression. The calling sequence for LOG 
is: 

GALL LOG (I, J, IJ, N, M, MS) 

The capabilities of subroutine LOG are as follows. 
If reference is required to the element at row I and 
column J of matrix A whose dimensions are N by M, 
and if the storage mode code is MS, a CALL to the 
LOG subroutine as shown above will result in the 



computation of the subscript IJ such that A(IJ) is the 
desired element. The parameters represented by I, 
J, N, M, MS can be either integer variables or 
integer constants. The parameter represented bylJ 
is an integer variable. Note that the user must di- 
mension the array A as a single-subscripted variable 
to meet the restrictions of some FORTRAN systems. 
To illustrate the use of LOG, if reference is re- 
quired to the element at row 2, column 2 of the 3 by 
3 symmetric matrix illustrated in Figure 3A and 
stored as shown in Figure 3B (storage mode code 
1), the sequence may be: 

GALL LOG (2, 2, IJ, 3, 3, 1) 
The value of IJ computed by LOG will be 3, meaning 
that the proper element is the third element in the 
specially stored symmetric matrix (Figure 3B), If 
the storage mode code is for a symmetric matrix 
where only the upper triangular portion is retained 
in storage, and if I and J refer to an element in the 
lower triangular portion, IJ will contain the sub- 
script for the corresponding element in the retained 
upper triangle. Thus if the user wanted the element 
in row 3, column 1 of the matrix shown in Figure 
3A, and the array was stored as in Figure 3B, the 
statement : 

GALL LOG (3, 1, IJ, 3, 3, 1) 

would result in IJ having the value of 4; that is, the 
fourth element in Figure 3B. If a matrix is stored 
as shown in Figure 3D (storage mode 2), and LOG 
is used to compute the subscript for an off- 
diagonal element (I not equal to J), the result in IJ 
will be zero. This is due to the fact that the ele- 
ment does not exist in storage. In this situation, 
the user must not utilize IJ as a subscript. Fol- 
lowing is an illustration of how to take care of this 
condition and also handle the case where the current 
storage mode is unknown. 

If the user wishes to set a variable X equal to the 
element in the third row and fourth column of a 10 
by 10 array named A, for either a symmetric, 
diagonal, or general matrix, the required program 
can be implemented for any storage mode MS as 
follows: 

GALL LOG (3, 4, IJ, 10, 10, MS) 

X = 0.0 

IF(IJ)20, 30, 20 

20 X = A(IJ) 



30 



(MS is assumed to have been set at 0, 1, or 2 at 
some earlier point in the program. ) This sequence 
will then set the proper value for X, given any 
storage mode that may be encountered. The second 
and third statements take care of the off -diagonal 
condition for a matrix with a storage mode of 2. 
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As a special case, LOG can be used to compute will result in IJ being set to 6. This is not only the 

the total length of an array in storage with a state- proper subscript to reference element 3, 3, but is 

ment such as: also the actual length of the vector in storage. 

CALL LOG (N, M, IJ, N, M, MS) ' '^^^ information contained in the fifth parameter 

(number of columns) in the calling sequence for 
For example, if the user has a 3 by 3 matrix whose LOG is not actually used in the calculations per- 

storage mode is 1 (Figure 3B), the statement: formed by LOG. It has been included in the calling 

sequence in case the user wishes to expand LOG to 
CALL LOG (3, 3, IJ, 3, 3, 1) cover other forms of data storage. 
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PROGRAM MODIFICATION 



ADVANCED FORTRAN FEATURES 

The user may wish to take advantage of more ad- 
vanced FORTRAN compiler features. For example, 
the larger FORTRAN systems include a subroutine 
multiple entry point capability. Some of the sub- 
routines in SSP can be combined by using this feature. 
To illustrate this, GMADD and GMSUB (addition and 
subtraction of general matrices) can be combined as 
shown in Figure 4. This will in no way affect the 
programs using these subroutines but will reduce the 
total program storage requirements. 





SUBROUTINE GMADD (A,B,R,N,M) 




DIMENSION A(1),B(1),R(1) 




K=0 




GOTO 10 




ENTRY GMSUB (A,B,R,N,M) 




K=l 


10 


NM=N*M 




DO 40 1=1, MM 




IF(K) 20,20,30 


20 


R(1)=A(I)+B(I) 




GO TO 40 


30 


R(I)=A(I)-B(I) 


40 


CONTINUE 




RETURN 




END 



Figure 4. Multiple entry point 



OPTIMIZATION OF TIME 



The subroutines in SSP are designed to conserve 
storage for data. If the user wishes to exchange 
space for time, there are several ways in which SSP 
may be modified to effect this end. For example, 
many of the subroutines in SSP make use of the LOG 
subroutine to handle vector storage and storage mode 
referencing. The execution time of these sub- 
routines can be substantially reduced by implement- 
ing LOO in Assembler Language. (The distributed 
version of LOG is implemented in FORTRAN. ) 
Another approach is to incorporate the function of 



LOO within each subroutine and thus avoid the "set- 
up" costs of repeated calls to LOG. This has the 
effect of reducing execution time but at some cost 
in subroutine storage and in the ease with which other 
modes of storage, such as triangular matrix storage 
or storage by row rather than by column, can be 
implemented. Figure 5 shows how matrix addition 
and the LOG capabilities can be implemented within 
the same subroutine. 
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Figure 5. Inline LOG 
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DOUBLE PRECISION 

The accuracy of the computations in many of the SSP 
subroutines is highly dependent upon the number of 
significant digits available for arithmetic operations. 
Matrix inversion, integration , and many of the statis- 
tical subroutines fall into this category. The user 
may, therefore, wish to use double-precision 
versions of these subroutines. 

Many of the subroutines in SSP have been provided 
in both single- and double -precis ion versions. In 
others, instructions for converting to double preci- 
sion are included as part of the subroutine descrip- 
tion. FORTRAN double-precision statements have 
been included in each of these subroutines in the form 
of a comments card. In most cases, the double- 
precision version of the subroutine can be obtained 
merely by removing the C from column 1 of the 
double-precision statement card(s) before compila- 
tion. In a few cases, additional instructions are 
given for changing references to FORTRAN-furnish- 
ed functions; for example, 9QRT to DSQRT and ABS 
to DABS; in other cases, new constants are given. 

The use of double-precision subroutines requires a 
detailed knowledge of the FORTRAN rules concerning 
double precision. A few of the more basic ones are 
as follows: 

1. Any real variable, vector, or array name 
contained in the argument list of a CALL to a double- 
precision subroutine must be declared as double 
precision in the calling program. For example, if 
the SSP matrix inversion subroutine MINV has been 
modified for double precision, and if the user's pro- 
gram contains the statement: 



CALL MINV (ARl, N, DET, MYl, MY2) 



where : 



ARl is the array name (real, double-precision 

array) 

N is the dimension (Integer variable) 



DET is the determinant (real, double-precision 

variable) 

MYl is a work vector (integer array) 

MY2 is a work vector (integer array) 

then the program must also have at its beginnii^ the 
specification statement: 

DOUBLE PRECISION ARl, DET 

The other variables are integer variables and should 
not be included in the specification statement. 

2. Any user-supplied function named in the CALL 
statement for a double-precision SSP subroutine must 
be programmed as a double-precision function. For 
example, the sample program for Runge-Kutta inte- 
gration performs the integration on a sample function 
called FUN using subroutine RK2. This function is 
programmed as: 

FUNCTION FUN (X, Y) 

FUN = 1. 1*X 

RETURN 

END 

If a double-precision version of RK2 is used, the 
fimction must also be double precision. The sample 
function will then be: 

DOUBLE PRECISION FUNCTION FUN (X, Y) 

DOUBLE PRECISION X, Y 

FUN = 1.1*X 

RETURN 

END 
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FORMAT OF THE DOCUMENTATION 



The major portion of this manual consists of the 
documentation for the individual subroutines and 
the sample programs. 

SUBROUTINE DESCRIPTIONS 

Subroutine and sample program guides, both categori- 
al and alphabetic, designed to aid in locating any 
particular subroutine are given in the pages that follow . 

Each of the subroutine descriptions consists of a 
program listing and, in some cases, a mathematical 
description. The first part of the program listing 
is a set of comment cards containing the subroutine 
name, its calling sequence, description of param- 
eters, remarks, names of other subroutines re- 
quired, and method. References to books and 
periodicals will be found under the method section of 
the description. The mathematical description 
pages do not, in most cases, indicate the derivation 
of the mathematics. They are intended to indicate 
what mathematical operations are actually being 
performed in the subroutines. Some of the major 
statistical functions are performed by a sequence of 
SSP subroutines. An explanation of this sequence 
wiU be found just before the description of the first 
subroutine that is specific to this function. 

SAMPLE PROGRAM DESCRIPTIONS 

The sample program listings are given in Appendix 
B. 

Each sample program consists of a detailed 
description including information on the problem, 
the program, input, output, program modification, 
operating instructions, error messages, timing and 
machine listings of the programs , input data and 
output results. The sample programs have been 



chosen to (1) illustrate a sequence of SSPeubroutines, 

(2) illustrate the use of a complex subroutine, or 

(3) show the way in which one member (such as 
matrix addition) of a large set of simple subroutines 
might be used. 

As part of the development of the sample programs , 
some special sample subroutines have been imple- 
mented that may prove useful to the programmer. 
These include: 

HIST - print a histogram of frequencies 

MATIN - read an input matrix into storage in 
vector form for use by SSP matrix 
subroutines 

PLOT - plot several variables versus a base 
variable 

MXOUT - print a matrix stored in the SSP 
vector format 

Listings of the above subroutines are included after the 
sample program documentation in this manual. The 
source decks are part of the sample program source 
decks on the distributed magnetic tape. 

The sample programs have been implemented for 
execution on a 32K byte (8K word) System/360 using 
Basic Programming Support FORTRAN (Tape). 
Instructions for modifying the sample programs for 
different data capacities are included in the docu- 
mentation. In addition, those sample programs that 
illustrate potentially double-precision subroutines 
include double-precision statements in the form of 
comment cards. These comment cards are con- 
tained in the sample program source decks. 



Format of the Documentation 



OPERATING NOTES 



ft is recommended that those SSP subroutines that 
will be frequently used in an installation be compiled 
and the relocatable decks placed on the FORTRAN 
system's residence device. In the case of Basic 
Programming Support FORTRAN (Tape), this will 
be the library portion of the system tape. Informa- 
tion on the method for updating the system to include 



user-supplied subroutines will be found in the 
appropriate FORTRAN programmer's guide. SSP 
subroutines are handled in the same manner as user- 
supplied subroutines. If the subroutines are not 
placed on the FORTRAN system's residence device, 
those required by a particular program will have to 
be included in that program each time it is run. 
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CATEGORIAL GUIDE TO SUBROUTINES AND 
SAMPLE PROGRAMS 



(Subroutines added in Version III are marked with 
an asterisk) 

STATISTICS 

Data Screening 

TALLY — totals, means, standard 

deviations, minimums, and 
maximums 

BOUND — selection of observations within 
bounds 

SUBST — subset selection from observation 
matrix 

ABSNT — detection of missing data 

TABl- -tabulation of data (one variable) 

TAB2 — tabulation of data (two variables) 

SUBMX — building of subset matrix 

Correlation and Regression (See Smoothing, 
Factorization) 

CORRE— means, standard deviations, and 
correlations 

*MISR — means, standard deviations, third 
and fourth moments, correlations, 
sim^ple regression coefficients and 
their standard errors; considers 
that data may be missing 

ORDER — rearrangement of intercorrela- 
tions 

MULTR— multiple linear regression 

GDATA — data matrix generation for 
poljmomial regression 

*STPRG — stepwise multiple linear 
regression 

*PROBT— probit analysis 

CANOR — canonical correlation 



27 

27 

28 

28 
29 
30 
31 



32 



33 



36 

37 
39 

41 

44 
47 



Design Analysis (See Smoothing, Regression, 
Factorization) 

AVDAT — data storage allocation 49 

AVCAL — L and A operation 50 

MEANQ — mean square operation 57 

Discriminant Analysis 

DMA TX- -means and dispersion matrix 52 

DISCR- -discriminant functions 53 

Factor Analysis (See Elgenanalysis) 

TRACE — cumulative percentage of 55 

eigenvalues 

LOAD — factor loading 56 

VARMX — varimax rotation 56 

Time Series (See Smoothing) 

AUTO — autocovariances 59 

CROSS — cross covariances 60 

SMO--application of filter coefficients 61 

(weights) 

EXSMO — triple exponential smoothing 62 

Nonparametric Statistics 

*KOLMO — Kolmogorov-Sraimov one- 63 

sample test 

*KOLM2 — Kolraogorov-Smirnov two- 65 

sample test 

*SMIRN — Kolmogorov-Smlrnov limiting 66 

distribution values 

2 
CHISQ — X test for contingency tables 68 

KRANK — Kendall rank correlation 69 

*MPAIR~Wilcoxin's signed ranks test 70 
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QTEST— Cochran Q-test 

RANK — rank observations 

*SIGNT~sigii test 

SRANK — Spearman rank correlation 

TIE — calculation of ties in ranked obser- 
vations 

TWOAV — Friedman two-way analysis of 
variance statistic 

UTEST— Mann-Whitney U-test 

WTEST— Kendall coefficient of 
concordance 

Generation of Random Varlates - 
Distribution Functions 

RANDU — uniform random deviates 

GAUSS — normal deviates 

*NDTR — normal distribution function 

*BDTR — beta distribution function 

2 
*CDTR — X distribution function 

*NDTRI — inverse of normal distribution 
function 

Elementary Statistics and Miscellany 

MOMEN— first four moments 

TTEST — test on population means 

*BISER — biserial correlation coefficient 

*PHI — phi coefficient 

*POINT--point-biserial correlation 
coefficient 

*TETRA — tetrachoric correlation 
coefficient 

*SRATE— survival rates 

Matrices: Storage 

MCPY--matrix copy 



71 
71 
72 
73 

74 

74 

75 
76 



77 
77 
78 
78 
81 
83 



85 
86 
87 
88 
89 

90 

92 

94 



RCPY — copy row of matrix into vector 94 

CCPY — copy column of matrix into vector 95 

DCPY — copy diagonal of matrix into vector 95 

XCPY — copy submatrix from given matrix 96 

MSTR — storage conversion 96 

LOG— location in compressed-stored 97 
matrix 

CONVT — single-precision/double-precision 97 
conversion 

ARRAY — vector storage/double-dimensioned 98 
storage conversion 

Matrices: Operations 

GMADD — add two general matrices 98 

GMSUB — subtract two general matrices 99 

GMPRD — product of two general matrices 99 

GMTRA — transpose of a general matrix 100 

GTPRD — transpose product of two general 100 
matrices 

MADD — add two matrices 101 

MSUB — subtract two matrices 101 

MPRD — matrix product (row into column) 102 

MTRA — transpose a matrix 102 

TPRD — transpose product 103 

MATA — transpose product of matrix by 103 
itself 

SADD — add scalar to matrix 104 

SSUB — subtract scalar from a matrix 104 

SMPY — matrix multiplied by a scalar 105 

SDIV — matrix divided by a scalar 105 

SOLA — matrix clear and add scalar 106 

DCLA — replace diagonal with scalar 106 
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RADD — add row of one matrix to row of 
another matrix 



107 



• CADD — add column of one matrix to column 107 
of another matrix 

SRMA — scalar multiply row and add to 108 
another row 

SCMA — scalar multiply column and add to 108 
another column 

RINT — interchange two rows 109 

CINT — interchange two columns 109 

RSUM — sum the rows of a matrix no 

CSUM — sum the columns of a matrix no 

RTAB — tabulate the rows of a matrix m 

CTAB — tabulate the columns of a matrix 112 

RSRT — sort matrix rows 112 

CSRT — sort matrix columns 113 

RCUT — partition by row 113 

CCUT — partition by column 114 

RTIE — adjoin two matrices by row 114 

CTIE — adjoin two matrices by column 115 

*MPRC, DMPRC— permute rows or I15 
columns 

MFUN — matrix transformation by a 117 
function 

RECP — reciprocal function for MFUN 117 

Matrices: Inversion, Systems of Linear 
Equations and Related Topics 

MINV — matrix inversion 118 

*SINV, DSINV — invert a symmetric 119 
positive definite matrix 

SIMQ — solution of simultaneous linear, 120 
algebraic equations 

GELG, DGELG— system of general simul- 121 
taneous linear equations 
by Gauss elimination 



*RSLMC--solution of simultaneous linear 124 
equations with iterative refine- 
ment 

*FACTR — triangular factorization of a 126 

nonsingular matrix 

MFGR, DMFGR— matrix factorization and 127 
rank determination 

GELS, DGELS— system of general simul- 133 
taneous linear equations 
with symmetric coeffi- 
cients 

GELB, DGELB — system of general simul- 137 
taneous linear equations 
with band-structured 
coefficients 

*MTDS, DMTDS—divide a matrix by a 142 

triangular matrix 

*MLSS, DMLSS — solution of simultaneous 145 
linear equations with 
symmetric positive 
semidefinite matrix 

*MCHB, DMCHB— triangular factorization 148 
of a S5rmmetric positive 
definite band matrix 



*MFSS, DMFSS— triangular factorization 152 
and rank determination of 
a symmetric positive 
semidefinite matrix 

*MFSD, DMFSD— triangular factorization 158 
of a symmetric positive 
definite matrix 

LLSQ, DLLSQ— solution of linear least- 160 

squares problems 

Matrices: Eigenanalysis and Related Topics 

EIGEN — eigenvalues and eigenvectors of a 164 
real, symmetric matrix 

NROOT— eigenvalues and eigenvectors of a igg 
special nonsymmetric matrix 

*ATEIG — eigenvalues of a real almost 

triangular matrix 167 

*HSBG— reduction of a real matrix to 169 

almost triangular form 
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Pol3Tiomials: Operations 

PADD--add two polynomials 



171 



PSUB — subtract one polynomial from '■'^ 

another 



PMPY — multiply two polynomials 



172 



PDIV — divide one pol3Tiomial by another ^'^^ 

PCLA — replace one polynomial by another ^'^^ 

PADDM — multiply polynomial by constant ^"^3 
and add to another pol3momial 



PVAL — value of a polynomial 



PDER — derivative of a polymonial 
PINT — integral of a polynomial 



174 



PVSUB — substitute variable of polynomial 174 
by another pol3Tiomial 

PILD — evaluate pol3Tiomial and its first 175 

derivative 



175 
176 



PQSD — quadratic synthetic division of a ^"^^ 

pol5Tiomial 

PCLD — complete linear synthetic division 177 

PGCD — greatest common divisor of two 177 

polsmomials 

PNORM— normalize coefficient vector of 178 

polynomial 

PECN, DPECN— economization of a poly- 178 
nomial for symmetric 
range 

PECS, DPECS— economization of a poly- 180 
nomial for unsymmetric 
range 

Polynomials: Roots 

POLRT--real and complex roots of a real 181 
polynomial 

PRQD, DPRQD— roots of a real polynomial 183 
by QD algorithm with dis- 
placement 



*PRBM, DPRBM--roots of a real poly- 189 

nomial by Bairstow's 
algorithm 

*PQFB, DPQFB— determine a quadratic 193 

factor of a real poly- 
nomial 

Polynomials: Special T3rpes 

CNP, DCNP— value of N* Chebyshev 198 

polynomial 

CNPS, DCNPS — value of series expansion 199 
in Chebyshev polynomials 

TCNP, DTCNP — transform series expansion 200 
in Chebyshev polynomials 
to a polynomial 

CSP, DCSP—value of N*^*^ shifted Chebyshev 201 
polynomial 

CSPS, DCSPS — value of series expansion in 202 
shifted Chebyshev poly- 
nomials 

TCSP, DTCSP — transform series expansion 203 
in shifted Chebyshev poly- 
nomials to a polynomial 

HEP, DHEP — value of Hermite polynomial 205 

HEPS, DHEPS — value of series expansion in 206 
Hermite polynomials 

THEP, DTHEP — transform series expan- 207 
sion in Hermite polynomials 
to a polynomial 

LAP, DLAP — value of Laguerre polynomial 208 

LAPS, DLAPS — value of series expansion 209 
in Laguerre polynomials 

TLAP, DTLAP — transform series expan- 210 
sion in Laguerre poly- 
nomials to a polynomial 

LEP, DLEP — value of Legendre polynomial 212 

LEPS, DLEPS — value of series expansion 213 
in Legendre polynomials 



14 Categorial Guide to Subroutines 



TLEP, DTLEP — transform a series expan- 214 
sion in Legendre poly- 
nomials to a polynomieil 

Roots of Nonlinear Equations 

RTWI, DRTWI— refine estimate of root by 215 
Wegstein's iteration 

RTMI, DRTMI— determine root within a 217 

range by Mueller's iteration 

RTNI, DRTNI— refine estimate of root by 220 
Newton's iteration 

Extremum of Functions 

FMFP, DFMFP — unconstrained minimum 221 
of a function of several 
variables — Davidon 
method 

FMCG, DFMCG — unconstrained minimum 225 
of a function of several 
variables — conjugate 
gradiant method 

Permutations 

*PPRCN — composition of permutations 231 

*PERM — operations with permutations 232 

and transpositions 

Sequences: Sums and Limits 



ATSE, DATSE— table selection out of an 251 

equidistant table 



*SG13, DSG13— local least-squares 

smoothing of tabulated 
functions 



253 



*SE13, DSE13 
*SE15, DSE15 
*SE35, DSE35~local least-squares 255 

smoothing of equidistantly 

tabulated functions 

*APFS, DAPFS— solve normal equations 260 

for least-squares fit 

*APCH, DAPCH— least-squares polynomial 263 
approximation 

*ARAT, DARAT 

*FRAT. DFRAT— rational least-squares 265 

approximation 

*APLL, DAPLL — linear least-squares 271 

approximation 

FORIF — Fourier analysis of a given function 274 

FORIT — Fourier analysis of a tabulated 275 

function 

HARM, DHARM — complex three-dimensional 276 
Fourier analysis 

RHARM, DRHARM— real one-dimensional 281 
Fourier analysis 



TEAS, DTEAS—limit of a given sequence 234 

TEUL, DTEUL— sum of a given function 238 

sequence 

Interpolation, Approximation, and 
Smoothing 

ALT, DALI — Aitken-Lagrange interpolation 241 

AHI, DAHI — Aitken-Hermite interpolation 243 

ACFI, DACFI—continued fraction inter- 245 
polation 

ATSG, DATSG— table selection out of a 248 

general table 

ATSM, DATSM— table selection out of a 250 

monotonic table 



*APMM, DA PMM— linear Chebyshev 283 

approximation over a 
discrete range 

Numerical Quadrature 

QTFG, DQTFG — integration of monotonically 289 
tabulated function by 
trapezoidal rule 

QTFE, DQTFE- -integration of equidistantly 290 
tabulated function by 
trapezoidal rule 

QSF, DQSF- -integration of equidistantly 291 

tabulated function by Simpson's 
rule 

QHFG, DQHFG — integration of monotonically 293 
tabulated function with first 
derivative by Hermitian 
formula of first order 
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294 



295 



QHFE, DQHFE — integration of equidistantly 
tabulated function with first 
derivative by Hermitian 
formula of first order " 

QHSG, DQHSG—integration of monotonically 
tabulated function with first 
and second derivatives by 
Hermitian formula of first 
order 

QHSE, DQHSE—integration of equidistantly 
tabulated function with first 
and second derivatives by 
Hermitian formula of 
second order 



QATR, DQATR — integration of a given 297 

function by trapezoidal rule 
together with Romberg's 
extrapolation method 



296 



QG2-QG10, DQG4-DQG32- 



QL2-QL10, DQL4-DQL32- 



QH2-QH10, DQH8-DQH64- 



-integration of a 299 
given function by 
Gaussian quad- 
rature formulas 

-integration of a 303 
given function by 
Gaussian- 
Laguerre quad- 
rature formulas 

-integration of a 308 
given function by 
Gaussian- 
Hermite quad- 
rature formulas 



*DCAR, DD CAR- -derivative of a function 
at the center of an inter- 
val 

*DBAR, DDBAR— derivative of a function 
at the border of an 
interval 

Ordinary Differential Equations 

RKl — solution of first-order differential 
equation by Runge-Kutta method 

RK2 — tabulated solution of first-order 

differential equation by Runge-Kutta 
method 

RKGS, DRKGS— solution of system of first- 
order ordinary differential 
equations with given initial 
values by the Runge-Kutta 
method 

HPCG, DHPCG — solution of general system 
of first -order ordinary 
differential equations with 
given initial values by 
Hamming's modified 
predictor-corrector 
method 



HPCL, DHPCL- 



324 



327 



331 



332 



333 



337 



314 



QA2-QA10, DQA4-DQA32~integratlon of a 

given function by 
associated 
Gaussian- 
Laguerre quad- 
rature formulas 



Numerical Differentiation 

*DGT3, DDGT3— differentiation of a tabu- 319 
lated function by parabolic 
interpolation 

*DET3, DDET3 

*DET5, DDET5~differentiation of an 320 

equidistantly tabulated 

function 



-solution of linear system 
of first-order ordinary 
differential equations with 
given initial values by 
Hamming's modified 
predictor-corrector 
method 

LBVP, DLBVP — solution of system of 

linear first-order ordinary 
differential equations with 
linear boundary conditions 
by method of adjoint 
equations 

Special Functions 

GMMMA — gamma function 
*DLGAM — log of gamma function 

BESJ--J Bessel Imction 

BESY— Y Bessel function 
10 — I Bessel function, I 

INUE— I Bessel function 
n 

BESK— K Bessel function 



343 



350 



361 
362 

ddd 
364 
365 

366 

366 
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EXPI — exponential integral 
SICI — sine cosine integral 
CS — Fresnel integrals 



368 
370 
372 



CELl. DCELl—eomplete elliptic integral of 374 
the first kind 

CEL2, DCEL2— complete ellipticlntegral of 376 
the second kind 

ELIl, DELIl — generalized elliptic integral 378 
of the first kind 

ELI2, DELI2 — generalized elliptic integral 380 
of the second kind 

JELF, DJELF — Jacobian elliptic functions 382 



GUIDE TO SAMPLE PROGRAMS 

Data Screening 

DASCR--Sample Main Program 400 

Illustrates use of: 

SUBST- -subset selection from observa- 
tion matrix 

TAB 1— tabulation of data (one variable) 

LOG — location in compressed-stored 
matrix 

Special sample subroutines are: 

BOOL — Boolean expression 

HIST — histogram printing 

MATIN — matrix input 

Multiple Linear Regression 

REGRE— Sample Main Program 404 

Illustrates use of: 

CORRE — means, standard deviations, 
and correlations 

ORDER — rearrangement of intercorrela- 
tions 



MESTV — matrix inversion 

MULTR — multiple regression 
Special sample subroutine is: 

DATA— sample data read 
Polimomial Regression 

POLRG— Sample Main Program 408 

Illustrates use of: 

GDATA — data generation 

ORDER — rearrangement of intercorrela- 
tions 

MINV — matrix inversion 

MULTR — multiple regression 
Special sample subroutine is: 

PLOT— output plot 
♦Stepwise Multiple Regression 

*STEPR— Sample Main Program 413 

Illustrates use of: 

CORRE — means, standard deviations, and 
correlations 

MSTR — storage conversion 

*STPRG — stepwise multiple regression 

LOG — location in compressed-stored 
matrix 

Special sample subroutines used are: 

*STOUT — sample stepwise regression 
output subroutine 

DATA — sample data read subroutine 

Canonical Correlation 

MCANO— Sample Main Program 418 

Illustrates use of: 

CORRE— means, standard deviations, and 
correlations 
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CANOR — canonical correlation 

_ MINV — matrix inversion 

NROOT — eigenvalues and eigenvectors of a 
special, nonsymmetric matrix 

EIGEN — eigenvalues and eigenvectors of a 
symmetric matrix 

Special sample subroutine is: 

DATA — sample data read 
Analysis of Variance 
ANOVA — Sample Main Program 
Illustrates use of: 

AVDAT — data storage allocation 

AVCAL — L and A operations 

MEANQ — mean square operation 
Discriminant Analysis 
MDISC — Sample Main Program 
Illustrates use of: 

DMATX — means and dispersion matrix 

MINV — matrix inversion 

DISCR — discriminant functions 

Factor Analysis 

FACTO — Sample Main Program 

Illustrates use of: 

CORRE — means, standard deviations, and 
correlations 

EIGEN — eigenvalues and eigenvectors of a 
real, symmetric matrix 

TRACE — cumulative percentage of 
eigenvalues 

LOAD — factor loading 

VARMX — varimax rotation 



422 



425 



429 



Special sample subroutine is: 

DATA — sample data read 
*Kolmogorov-Smimov Test: 

*KOLM — Sample Main Program 433 

Illustrates use of: 

*KOLMO — one-sample test 

*K0LM2 — two-sample test 

*SMIRN — Kolmogorov-Smimov limiting dis- 
tribution function 

*NDTR — normal distribution function 
Triple Exponential Smoothing 

EXPON— Sample Main Program 439 

Illustrates use of: 

EXSMO — triple exponential smoothing 
Matrix Addition 

ADSAM — Sample Main Program 441 

Illustrates use of: 

MADD — matrix add 

LOG — location in compressed-stored 
matrix 

Special sample subroutines are: 

MATIN — matrix input 

MXOUT— matrix output 
Numerical Quadrature Integration 
QDINT— Sample Main Program 443 

Illustrates use of: 

QSF — numerical quadrature integration 
(Simpson's rule) 

Runge-Kutta Integration 

RKINT—Sample Main Program 445 
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Illustrates use of: 

RK2 — Runge-Kutta integration 
Special sample function is: 

FUN — definition of differential equation 

Polynomial Roots 

SMPRT— Sample Main Program 447 

Illustrates use of: 

POLRT — real and complex roots of 
polynomial 

Solution of Simultaneous Equations 

SOLN — Sample Main Program 449 

Illustrates use of: 

SIMQ — solution of simultaneous equations 

LOG — location in compressed-stored 
matrix 

Special sample subroutines are: 
MATIN — matrix input 
MXOUT— matrix output 

Special Sample Subroutines 

BOOL— Boolean expression 452 

DATA— sample data read 452 

FUN— definition of differential equation 452 

HIST— histogram printing 452 

PLOT— output plot 452 

MATIN— matrix input 453 

MXOUT— matrix output 454 

*STOUT — stepwise regression output 454 

ALPHABETIC GUIDE TO SUBROUTINES WITH 
STORAGE REQUIREMENTS 

The following table lists the number of characters 
of storage required by each of the subroutines in 



the Scientific Subroutine Package. The figures 
given were obtained by using Basic Programming 
Support FORTRAN (Tape), Version 3, Level 0. 
The use of other FORTRAN compilers on System/ 
360 may cause deviations from these figures. 

The double-precision version of the subroutines 
in the Scientific Subroutine Package are listed 
immediately following their alphabetized single- 
precision coimterparts. Main line routines are 
asterisked. 



Name (Label) 

ABSNT (ABSN) 

ACFI (ACFI) 

DACFI (DACE) 

*ADSAM (ADSA) 

AHI (AHI) 

DAHI (DAHI) 

ALI (ALI) 

DA LI (DA LI) 

* A NOVA (ANOV) 

APCH (APCH) 

DAPCH (DAPC) 

APFS (APFS) 

DAPFS (DAPF) 

APLL (APLL) 

DAPLL (DA PL) 

APMM (APMM) 

DAPMM (DAPM) 

ARAT (ARAT) 

DARAT (DARA) 

ARRAY (ARRA) 

ATEIG (ATEI) 



Storage 




Required 




(Bytes) 


Page 


428 


28 


1214 


245 


1286 


245 


13244 


443 


1084 


243 


1116 


243 


760 


241 


784 


241 


14624 


425 


1492 


263 


1548 


263 


1602 


260 


1626 


260 


836 


271 


860 


271 


4694 


283 


4728 


283 


3004 


265 


3090 


265 


670 


98 



4538 



167 
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Name 


(Label) 


Storage 

Required 

(Bytes) 


Page 


Name 


(Label) 


Storage 

Required 

(Bytes) 


Page 


ATSE 


(ATSE) 


1022 


251 


CINT 


(CINT) 


364 


109 


DATSE 


(DTSE) 


1050 


251 


CNP 


(CNP ) 


340 


198 


ATSG 


(ATSG) 


852 


248 


DCNP 


(DNP ) 


364 


198 


DATSG 


(DTSG) 


892 


248 


CNPS 


(CNPS) 


442 


199 


ATSM 


(ATSM) 


1124 


250 


DCNPS 


(DNPS) 


482 


199 


DATSM 


(DTSM) 


1148 


250 


CONVT 


(CONV) 


538 


97 


AUTO 


(AUTO) 


624 


59 


CORRE 


(CORR) 


2950 


32 


AVCAL 


(AVCA) 


802 


50 


CROSS 


(CROS) 


750 


60 


AVDAT 


(AVDA) 


926 


49 


CS 


(CS ) 


906 


372 


BDTR 


(BDTR) 


3354 


78 


CSP 


(CSP ) 


352 


201 










DCSP 


(DSP ) 


376 


201 


BESJ 


(BESJ) 


1466 


363 


CSPS 


(CSPS) 


458 


202 


BESK 


(BESIt) 


2022 


366 


DCSPS 


(DSPS) 


506 


202 


BESY 


(BESY) 


1968 


364 


CSRT 


(CSRT) 


978 


113 


BISER 


(BISE) 


1182 


87 


CSUM 


(CSUM) 


502 


110 


BOOL 


(BOOL) 


164 


452 


CTAB 


(CTAB) 


826 


112 


BOUND 


(BO UN) 


784 


27 


CTIE 


(CTIE) 


746 


115 


CADD 


(CADD) 


550 


107 


*DASCR 


(DASC) 


6848 


403 


CANOR 


(CANO) 


2836 


47 


DATA 


(DATA) 


308 


452 


COPY 


(CCPY) 


500 


95 


DEAR 


(DEAR) 


1252 


327 


CCUT 


(CCUT) 


716 


114 


DDBAR 


(DDBA) 


1354 


327 


CDTR 


(CDTR) 


3390 


81 


DCAR 


(DCAR) 


1308 


324 


CELl 


(CELl) 


544 


374 


DDCAR 


(DDCA) 


1392 


324 


DCELl 


(DCEl) 


584 


374 


DCLA 


(DCLA) 


392 


106 


CEL2 


(CEL2) 


718 


376 


DCPY 


(DCPY) 


394 


95 


DCEL2 


(DCE2) 


774 


376 


DET3 


(DET3) 


554 


320 


CHISQ 


(CHIS) 


1220 


68 


DDET3 


(DDT3) 


594 


320 
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Name 


(Label) 


Storage 

Required 

(Bytes) 


Page 


Name 


(Label) 


Storage 

Required 

(Bytes) 


Page 


DET5 


CDET5) 


752 


322 


GDATA 


(GDAT) 


1764 


39 


DDET5 


(DDT5) 


832 


322 


GELB 


(GELB) 


2640 


137 


DGT3 


(DGT3) 


738 


319 


DGELB 


(DELE) 


2674 


137 


DDGT3 


(DDGT) 


770 


319 


GELG 


(GELG) 


1882 


121 


DISCR 


(DISC) 


2532 


53 


DGELG 


(DELG) 


1920 


121 


DLGAM 


(DLGA) 


826 


362 


GELS 


(GELS) 


1990 


133 


DMATX 


(DMAT) 


1170 


52 


DGELS 


(DELS) 


2028 


133 


EIGEN 


(EIGE) 


2556 


164 


GMADD 


(GMAD) 


288 


98 


ELIl 


(ELIl) 


836 


378 


GMMMA 


(GMMM) 


826 


361 


DELIl 


(DELI) 


900 


378 


GMPRD 


(GMPR) 


570 


99 


ELI2 


(ELK) 


1254 


380 


GMSUB 


(GMSU) 


288 


99 


DELI2 


(DEL2) 


1356 


380 


GMTRA 


(GMTR) 


358 


100 


EXPI 


(EXPI) 


1032 


368 


GTPRD 


(GTPR) 


566 


100 


*EXPON 


(EXPO) 


8952 


440 


HARM 


(HARM) 


5988 


276 


EXSMO 


(EXSM) 


620 


62 


DHARM 


(DHAR) 


6070 


276 


* FACTO 


(FCTO) 


11212 


432 


HEP 


(HEP ) 


398 


205 


FACTR 


(FCTR) 


1586 


126 


DHEP 


(DHP ) 


422 


205 


FMCG 


(FMCG) 


2820 


225 


HEPS 


(HEPS) 


454 


206 


DFMCG 


(DFMC) 


2956 


225 


DHEPS 


(DHPS) 


486 


206 


FMFP 


(FMFP) 


3580 


221 


HIST 


(HIST) 


1778 


452 


DFMFP 


(DFMF) 


3702 


221 


HPCG 


(HPCG) 


5560 


337 


FORIF 


(FRIF) 


990 


274 


DHPCG 
HPCL 


(DHCG) 
(HPCL) 


5744 
5606 


337 
343 


FORIT 


(FRIT) 


946 


275 


DHPCL 


(DHCL) 


5798 


343 


FRAT 


(FRAT) 


912 


269 


HSBG 


(HSBG) 


1440 


169 


DFRAT 


(DFRA) 


944 


271 


10 


(10) 


546 


365 


FUN 


(FUN ) 


186 


452 


INUE 
JELF 


(INUE) 
(JELF) 


768 
1254 


366 
382 


GAUSS 


(GAUS) 


430 


77 


DJELF 


(DJEL) 


1416 


382 
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Name 


(Label) 


Storage 

Required 

(Bytes) 


Page 


Name 


(Label) 


Storage 

Required 

(Bytes) 


Page 


*KOLM 


(KOLM) 


7952 


438 


MFGR 


(MFGR) 


2092 


127 


KOLMO 


(KLMO) 


1704 


63 


DMFGR 


(DMGR) 


2120 


127 


KOLM2 


(KLM2) 


1514 


65 


MFSD 


(MFSD) 


904 


158 


KRANK 


(KRAN) 


1598 


69 


DMFSD 


(DMSD) 


906 


158 


LAP 


(LAP ) 


408 


208 


MFSS 


(MFSS) 


2688 


152 


DLAP 


(DAP ) 


432 


208 


DMFSS 


(DMSS) 


2664 


152 


LAPS 


(LAPS) 


472 


209 


MFUN 


(MFUN) 


446 


117 


DLAPS 


(DAPS) 


512 


209 


MINV 


(MINV) 


1874 


118 


LBVP 


(LBVP) 


8000 


350 


MISR 


(mSR) 


2856 


33 


DLBVP 


(DLBV) 


8256 


350 


MLSS 


(MLSS) 


2020 


145 


LEP 


(LEP ) 


400 


212 


DMLSS 


(DMLS) 


2004 


145 


DLEP 


(DEP ) 


424 


212 


MOMEN 


(HOME) 


1288 


85 


LEPS 


(LEPS) 


464 


213 


MPAIR 


(MPAI) 


1380 


70 


DLEPS 


(DEPS) 


496 


213 


MPRC 


(MPRC) 


810 


115 


LLSQ 


(LLSQ) 


2938 


160 


DMPRC 


(DMPR) 


822 


115 


DLLSQ 


(DLLS) 


2986 


160 


MPRD 


(MPRD) 


944 


102 


LOAD 


(LOAD) 


490 


56 


MSTR 


(MSTR) 


590 


96 


LOG 


(LOG ) 


492 


97 


MSUB 


(MSUB) 


942 


101 


MADD 


(MADD) 


942 


101 


MTDS 


(MTDS) 


1436 


142 


MATA 


(MATA) 


790 


103 


DMTDS 


(DMTD) 


1428 


142 


MATIN 


(MATI) 


1180 


453 


MTRA 


(MTRA) 


552 


102 


*MCANO 


(MCAN) 


8196 


421 


MULTR 


(MULT) 


1356 


37 


MCHB 


(MCHB) 


2286 


148 


MXOUT 


(MXOU) 


1440 


454 


DMCHB 


(DMCH) 


2270 


148 


NDTR 


(NDTR) 


488 


78 


MCPY 


(MCPY) 


410 


94 


NDTRI 


(NTRl) 


758 


83 


*MDISC 


(MDIS) 


15368 


428 


NROOT 


(NROO) 


1940 


166 


MEANQ 


(MEAN) 


1708 


51 


ORDER 


(ORDE) 


682 


36 
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Name 


(Label) 


Storage 

Required 

(Bytes) 


Page 


Name 


(Label) 


Storage 

Required 

(Bytes) 


Page 


PADD 


(PADD) 


474 


171 


PROBT 


(PROB) 


2466 


44 


PADDM 


(PDDM) 


510 


173 


PRQD 


(PRQD) 


4572 


183 


PCLA 


(PCLA) 


282 


173 


DPRQD 


(DPRQ) 


4636 


183 


PCLD 


(PCLD) 


314 


177 


PSUB 


(PSUB) 


476 


171 


PDER 


(PDER) 


350 


175 


PVAL 


(PVAL) 


302 


174 


PDIV 


(PDIV) 


794 


172 


PVSUB 


(PVSU) 


714 


174 


PECN 


(PECN) 


848 


178 


QATR 


(QATR) 


1128 


297 


DPECN 


(DPCN) 


862 


178 


DQATR 


(DQAT) 


1190 


297 


PECS 


(PECS) 


746 


180 


QA2 


(QA2 ) 


330 


314 


DPECS 


(DPCS) 


766 


180 


QA3 


(QA3 ) 


376 


314 


PERM 


(PERM) 


1024 


232 


QA4 


(QA4 ) 


422 


314 


PGCD 


(PGCD) 


566 


177 


DQA4 


(DQA4) 


462 


315 


PHI 


(PHI ) 


1390 


88 


QA5 


(QA5 ) 


468 


315 


PILD 


(PILD) 


402 


175 


QA6 


(QA6 ) 


514 


315 


PINT 


(PINT) 


344 


176 


QA7 


(QA7 ) 


560 


315 


PLOT 


(PLOT) 


2500 


452 


QA8 


(QA8 ) 


606 


316 


PMPY 


(PMPY) 


506 


172 


DQA8 


(DQA8) 


678 


316 


PNORM 


(PNOR) 


258 


178 


QA9 


(QA9 ) 


652 


316 


POINT 


(POIN) 


1144 


89 


QAIO 


(QAIO) 


698 


316 


*POLRG 


(PLRG) 


9282 


411 


DQA12 


(DAI 2) 


894 


317 


POLRT 


(PLRT) 


2086 


181 


DQA16 


(DA 16) 


1110 


317 


PPRCN 


(PPRC) 


704 


231 


DQA24 


(DA 24) 


1542 


318 


PQFB 


(PQFB) 


2252 


193 


DQA32 


(DA32) 


1974 


318 


DPQFB 


(DPQF) 


2384 


193 


+QDINT 


(QDIN) 


2916 


445 


PQSD 


(PQSD) 


382 


176 


QG2 


(QG2 ) 


442 


299 


PRBM 


(PRBM) 


2400 


189 


QG3 


(QG3 ) 


468 


299 


DPRBM 


(DPRB) 


2476 


189 


QG4 


(QG4 ) 


538 


300 
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Name 


(Label) 


Storage 

Required 

(Bytes) 


Page 


Name 


(Label) 


Storage 

Required 

(Bytes) 


Page 


DQG4 


(DQG4) 


598 


300 


DQHS 


(DQHS) 


622 


310 


QG5 


(QG5 ) 


576 


300 


QH9 


(QH9 ) 


616 


310 


QG6 


(QG6 ) 


638 


300 


QHIO 


(QHIO) 


652 


310 


QG7 


(QG7 ) 


676 


301 


DQH16 


(DH16) 


982 


311 


QG8 


(QG8 ) 


738 


301 


DQH24 


(DH24) 


1342 


311 


DQG8 


(DQG8) 


814 


301 


DQHS 2 


(DH32) 


1702 


312 


QG9 


(QG9 ) 


776 


301 


DQH48 


(DH48) 


2422 


312 


QGIO 


(QGIO) 


838 


302 


DQH64 


(DH64) 


3142 


313 


DQG12 


(DG12) 


1030 


302 


QL2 


(QL2 ) 


330 


303 


DQG16 


(DG16) 


1246 


302 


QL3 


(QL3 ) 


376 


304 


DQG24 


(DG24) 


1678 


302 


QL4 


(QI^ ) 


422 


304 


DQG32 


(DG32) 


2110 


303 


DQL4 


(DQL4) 


462 


304 


QHFE 


(QHFE) 


434 


294 


QL5 


(QL5 ) 


468 


304 


DQHFE 


(DQHE) 


482 


294 


QL6 


(QL6 ) 


514 


305 


QHFG 


(QHFG) 


414 


293 


QL7 


(QL7 ) 


560 


305 


DQHFG 


(DQHG) 


454 


293 


QL8 


(QL8 ) 


606 


305 


QHSE 


(QHSE) 


478 


296 


DQL8 


(DQL8) 


678 


305 


DQHSE 


(DQHS) 


542 


296 


QL9 


(QL9 ) 


652 


306 


QHSG 


(QHSG) 


462 


295 


QLIO 


(QLIO) 


698 


306 


DQHSG 


(DHSG) 


514 


295 


DQL12 


(DL12) 


894 


306 


QH2 


(QH2 ) 


324 


308 


DQL16 


(DL16) 


1110 


306 


QH3 


(QH3 ) 


370 


308 


DQL24 


(DL24) 


1542 


307 


QH4 


(QH4 ) 


406 


309 


DQL32 


(DL32) 


1974 


307 


QH5 


(QH5 ) 


452 


309 


QSF 


(QSF ) 


1286 


291 


QH6 


(QH6 ) 


488 


309 


DQSF 


(DQSF) 


1358 


291 


QH7 


(QH7 ) 


534 


309 


QTEST 


(QTES) 


710 


71 


QH8 


(QH8 ) 


570 


310 


QTFE 


(QTFE) 


382 


290 
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Storage 








Required 








Required 




Name 


(Label) 


(Bytes) 


Page 


Name 


(Label) 


(Bytes) 


Page 


DQTFE 


(DTFE) 


422 


290 


RTWI 


(RTWI) 


770 


215 


QTFG 


(QTFG) 


370 


289 


DRTWI 


(DRTW) 


804 


215 


DQTFG 


(DTFG) 


402 


289 


SADD 


(SADD) 


434 


104 


RADD 


(RADD) 


538 


107 


SOLA 


(SCLA) 


420 


106 


RANDU 


(RAND) 


310 


77 


SCMA 


(SCMA) 


430 


108 


RANK 


(RANK) 


672 


71 


SDIV 


(SDIV) 


470 


105 


RCPY 


(RCPY) 


500 


94 


SE13 


(SE13) 


460 


255 


RCUT 


(RCUT) 


716 


113 


DSE13 


(DE13) 


500 


255 


RECP 


(RECP) 


224 


117 


SE15 


(SE15) 


588 


256 


*REGRE 


(REGR) 


13736 


407 


DSE15 


(DE15) 


620 


256 


RHARM 


(RHAR) 


1660 


281 


SE35 


(SE35) 


564 


258 


DRHARM 


(DRAR) 


1762 


281 


DSE35 


(DSE3) 


604 


258 


RINT 


(RINT) 


376 


109 


SG13 


(SG13) 


648 


253 


RKGS 


(RKGS) 


2878 


333 


DSG13 


(DSGl) 


696 


253 


DRKGS 


(DRKG) 


3018 


333 


SI CI 


(SICI) 


1192 


370 


*RKINT 


(RKIN) 


2704 


446 


SIGNT 


(SIGN) 


1170 


72 


RKl 


(RKl ) 


1420 


331 


SIMQ 


(SIMQ) 


1286 


120 


RK2 


(RK2 ) 


770 


332 


SINV 


(SINV) 


1092 


119 


RSLMC 


(RSLM) 


1830 


124 


DSINV 


(DSM) 


1080 


119 


RSRT 


(RSRT) 


1034 


112 


SMIRN 


(SMIR) 


700 


66 


RSUM 


(RSUM) 


502 


110 


SMO 


(SMO ) 


542 


61 


RTAB 


(RTAB) 


826 


111 


*SMPRT 


(SMPR) 


1792 


449 


RTIE 


(RTIE) 


778 


114 


SMPY 


(SMPY) 


434 


105 


RTMl 


(RTMI) 


1510 


217 


*SOLN 


(SOLN) 


11754 


451 


DRTMI 


(DRTM) 


1582 


217 


SRANK 


(SRAN) 


1260 


73 


RTNI 


(RTNI) 


724 


220 


SRATE 


(SRAT) 


1534 


92 


DRTNI 


(DRTN) 


770 


220 


SRMA 


(SRMA) 


442 


108 
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Page 


Name 


(Label) 


Storage 
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(Bytes) 


Page 


SSUB 


(SSUB) 


434 


104 


DTEUL 


(DTEU) 


924 


238 


*STEPR 


(STEP) 


11584 


417 


THEP 


(THEP) 


712 


207 


STOUT 


(STOU) 


1684 


454 


DTHEP 


(DTHE) 


768 


207 


STPRG 


(STPR) 


3200 


41 


TIE 


(TIE ) 


640 


74 


SUBMX 


(SUBM) 


512 


31 


TLAP 


(TLAP) 


776 


210 


SUBST 


(SUBS) 


888 


28 


DTLAP 


(DTLA) 


820 


210 


TABl 


(TABl) 


1636 


29 


TLEP 


(TLEP) 


716 


214 


TAB2 


(TAB2) 


2806 


30 


DTLEP 


(DTLE) 


772 


214 


TALLY 


(TALL) 


1206 


27 


TPRD 


(TPRD) 


904 


103 


TCNP 


(TCNP) 


678 


200 


TRACE 


(TRAC) 


560 


55 


DTCNP 


(DTCN) 


726 


200 


TTEST 


(TTES) 


1794 


86 


TCSP 


(TCSP) 


706 


203 


TWOAV 


(TWOA) 


1108 


74 


DTCSP 


(DTCS) 


754 


203 


UTEST 


(UTES) 


1064 


75 


TEAS 


(TEAS) 


2024 


234 


VARMX 


(VARM) 


2914 


56 


DTEAS 


(DTEA) 


2096 


234 


WTEST 


(WTES) 


1488 


76 


TETRA 


(TETR) 


2038 


90 


XCPY 


(XCPY) 


670 


96 


TEUL 


(TEUL) 


844 


238 
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SUBROUTINE DESCRIPTIONS AND LISTINGS 



Listed below are the subroutines. A brief descrip- 
tion precedes those subroutines that require further 
clarification. 

STATISTICS 

Data Screening 

Subroutine TALLY 



Subroutine BOUND 



SUBDCUTIhE TALLT 

fURFGSE 

CAICUIATC TOT*!., «*N, ST*NO*PO DEVIATinN, 
FOd EACH VARUBLE IN A SET (OA A SUBSETI ni 



DBSERVAriONS 



OeSCBIPTION aF para-^eters 

« - OBSERVATION MATRIX. NO BV NV 

S - INPUT VECTOR INCICATING S08S€? Of A. ONLY THOSE 

C«$E«¥AIIO*iS WITH A NON-ZERO S<JI ARE CONSIOeRCO. 

VECTOR LENGTH IS NO. 
TCTAL - OUTPUT VECTOR OF TOTALS OF EACH VARIABLE. VfCTOR 

LENGTH IS NV. 
AVER - OUTPUT VECTOR OF AVERAGES OF EACH VARIABLE. VECTOR 

LCHGTH IS NV. 
SO - OUTPUT VECTOR Of STANDARD DEVIATIONS CF EACH 

VARIABLE. VECTOR LENGTH IS NV. 
VMIN - OUTPUT VECTOR OF NININ* Of EACH VARIABLE. VECTOR 

LENGTH IS NV. 
VfiAX - OUTPUT VECTOR OF NAXINA OF EACH VARIABLE. VECTOR 

LCNCTf IS NV. 
NO - NUMBER OF OBSERVATIONS 

*iV - NUNBER OF VARIABLES FOR EACH OBSERVATION 
lER - ZERO. IF NO ERHOR. 

- I, IP S IS NULL. VNIN--I.E75. VNAX-SD-AVER- I .F7i. 

- 2. IF S HAS ONLY ONE NON-ZERO ELEMENT. VNIM«VNAX. 

so*o.a 

RENARKS 
hCKE 

SUBRCUTINES AND FUNCTION SUePROGRANS REOUlREO 
hCkE 

PEThCC 

ALL OBSERVATIONS CORRESPONDING TO A NnN-IERO CLEHENT IN S 
VECTOR ARE ANALYZED FOR EACH VARIABLE IN NATRIK A. 
TOTALS *M ACCUKULATEO *».0 fININUfl AHO HAXINUH VALUES ARE 
FGUhO. FCLL0MIK6 THIS. PEANS AND STANDARD DEVIATIONS ARE 
CALCULATED. THE DIVISOR FOR STANDARD DEVIATION IS ONE LESS 
T^AN THE NUNeER OF oeSERVATIONS USED. 



SUeRCUTIKE TALIYIA.S,TCTAL.AVEB.SO,VNIN,VN*X,NO.NVI 
CIMNSION A(l».SUI.TOTAL(ll,«VERai,S0<II.VNIN(ll.VPAX(ll 

CLEAR OUTPUT VECTORS AND IMTIALIZE VNIN.VMAX 

iEF*0 

CO 1 K*l.NV 

TOTALfKI-C.O 

AVERIKI-I.OETS 

SCIK)«I.CE75 

Vfi|N(KI>-I.OE79 

1 VPAX(KI*t.0ET9 

TESI SUBSET VECTOR 

SCNT-D.C 
CC 7 J-l.NG 
IJ>J-NC 
IFISIJII ZwtfZ 

2 SCNT-SCNT*L.O 

CALCULATE TOTAL. MINIMA, MAXIMA 

CO 4 l*ltNV 
IJ-tJ*»iC 

TOTALdl-TGTALdi^AdJI 
IFlAIIJI-VMINmi 3.4.* 

3 vHINdl-AtlJI 

A IFIAIIJl-VHAXI 111 6.6.5 

5 VHAXdl-AdJI 

6 SD(1I"SC1IMAI 1J1*A( IJI 
T CONTINUE 

CALCULATE MEANS AND STANDABO OEVIA' JNS 

IF (sc»>Tie.a.9 
a lER-i 
6C re IS 

9 CO 10 1-1. NV 

10 AVERdl-rOTALdl/SCNT 
IF ISCKT-l.OI ii,u*ia 

11 IER-2 

00 12 1-1. NV 

12 SOdl-C.O 
GC TO 15 

13 DC lA 1-1. NV 

lA S0dl-SaRT(A6S((SO( ll-TOTALU MTOTALI I l/SCNTI/(SCNT-I .01 1 1 
IS RETURN 
END 



TALI 10 

.TALL 20 

TALL ^0 

TALL AO 

T*Ll 50 

TALL 't'l 

TALL 70 

TALL ^O 

TALL ID 

TALL ion 

TALL 110 

TALI 120 

TALL ITi 

TALI 14f> 

TALL 150 

TALL 16*1 

TALL 170 

TALI IRO 

TALL l<»0 

TALL 70O 

TALL 210 

TALI 270 

TALL 2in 

TALI 240 

TftLt 2^0 

TALI 7^9 

TALL 270 

"TAlt 7«0 

TALL a-lO 

TALI ?9I 

TALI 2«f7 

TALL ?*»! 

TALI 2*»4 

TALL ^00 

TALI 310 

TALL 3?0 

TAlt 1?0 

TALL UQ 

TALI 150 

TAIL 160 

TAIL "^TO 

TALL i«0 

TALL 390 

TALL AOO 

TAL^. -411 

TALL A20 

TAlt 430 

TALL 440 

.TAtt 450 

TALL 460 

TALL 4T0 

TALL 4B0 

TALL 490 

TALL SOO 

TALL 510 

TALL 511 

TAIL 520 

TALL 530 

TALL 540 

TALL ^50 

TALL 560 

TALI 570 

TAIL 5B0 

TALL 590 

TALL 6D0 

TALL 610 

TALI 620 

TALL 630 

TALL 640 

TAtt 650 

TALL 660 

TALL 670 

TALL 600 

TALL 690 

TALL 700 

TALL 710 

TALL 720 

TALL 710 

TALL 7*0 

TALL T50 

TALL 760 

TALL 770 

TALL 7B0 

TALL 790 

TALI 600 

TALL 801 

TALL 802 

TALL 803 

TALL 810 

TALL 820 

TALL 821 

TALL 822 

TALL 823 

TALL 824 

TALL 825 

TALL 826 

TALL 830 

TALL 840 

TALL 950 



k SuaSETl OF OflSERVATICNS THE NUMBER 
flETNEEM AND OVER TMG GIVEN SOUNOS 



SUBROUTINE BOUND 

PUR PCS E 

SELECT FROM A SET (OR 
OF CBSERVATIONS UNDER. 
FOR EACH VARIABLE 

USAGE 

CALL aOUNO UtStBLOtBHI.UNOER.BETMfOVERtHC.NV.lERt 

DESCRIPTION OF PARAMETERS 

A - OBSERVATION MATRIXt NO BY NV 

S - VECTOR INDICATING SUBSET Of A. ONLY THOSE 

CflSERVATIQNS WITH A NOM-ZERO S(JI ARE CnNSlOEREO. 

VECTOR LENGTH IS NO. 

- INPUT VECTOR OF LOUER BCUNOS ON ALL VARIABLES. 
VECTOR LENGTH IS NV. 

- INPUT VECTOR OF UPPER BOUNDS ON ALL VARIABLES. 
VECTOR LENGTH IS NV. 

UACER - OUTPUT VECTOR INDICATING, fCR EACH VAR|ABLE« hUMBER 

OF OBSERVATIONS UNDER LCIiE« BOUNDS. VECTOR LENGTH 

IS NV. 
ecu - CITPUT VECTOR lACICATIHC, «R EACH ViflABLE. NUMBER 

OF OBSERVATIONS ECUAL TO 0» BETWEEN LOMER ANO UPPER 

EOUNCS. VECTOR LENGTH IS NV. 

- CUTPUT VECTOR lAOlCATING, FCR EACH VARIABLE, NUMBER 
Of OBSERVATIONS OVER UPPER BOUNDS. VECTOR LENGTH 

IS hv. 

- AUHtlER Of CeSERVATlCHS 

- NUMBER OF VARIABLES FOR EACH OBSERVATION 

- 2ER0. IF NC ERHCR. 

- I. IF LOmER B0U»>C is GREATfR THAN TmC UPPER BOUND 
FOR SCPE VARUBLi 



50 



80 



6LQ 



Oh I 



CVEP 



IE* 



RfPAPRS 

».ChE 

SUBRCtTlNES ^NC FUNCTION SUflPROGRAMS REQUIRED 
hCh.t 

EACI- RCh ICBSEPVATIONI CF PATRIX A WITH CORRESPCNDING 
ACH-2ERC ELtPEAT IN S VECTCR IS TESTED. OflitRVATIONS ARE 
CCPPAREC VITh SPECIFtEO LOhER ANO UPPER VARMBLE BOUMOS AND 
« CCUfcT IS KEPI IN VECTCRS UNOCR. tETbEEN. ANC OVER. 



SUSRCUlIIkE ECtAC(A.S«eLC«BHl.UACER.BETU.CVER,MC.NVI 
ClPEI^SICf *a>.SUI.HCIl»«BM(ll,UNO£R»II.BETh(ll,CVERIII 

CLEAF CUTPtI VECTCRS. 

lER-C 

CC IC l>l*AV 

IF (eLCdl-fl»iI(Ill IC.lO.tl 

11 lER-1 

CC TC I! 
IC CCIttlKLE 

CC 1 R-l.NV 

IKCERIKMC.C 

BETIilKl-C.O 

1 CVERIKI-C.O 

lESI SUBSET VECTOR 

CC e j-i*Ac 

IJ-J-AC 
IFISIJJI 2.6*2 

CCPPARE CeSERVAIICNS kilTH BCUNOS 

2 CC T I-l.AV 
IJ-IJ*fC 
IftAdJl-CLCdll 5.3.3 

3 IFIAdJl-EHIdl) 4.4,« 

CCUA1 

4 (EIb.lll-EEThdl*1.0 
CC TC 1 

« U^CERI n>LNCERIll«l.C 

GC TC 1 
« CVERdl-CVERd)*l*C 
1 CCMIhLE 
I CCATIALE 

12 REIURA 
EAC 



AO<JN 
ROUN 
BOUN 
BOUN 

aouN 

BOUN 
BOUN 
90UN 
BOUN 
BOUN 100 
BOUN 110 
BOUN 120 
SOUN 150 
ROUN 140 
BOUN 150 
AOUN 160 
BOUN 170 
BQUN 180 
BOUN 190 
BOUN ZOO 
SOUN 210 
RQUN 220 
BOUN 2 30 
BOUN 240 
80UN 250 
BOUN 260 
BOUN 270 
SCUM 280 
BOUN 290 
BDUN 300 
BOUN 310 
BOUN 320 
BOUN 330 
BCUN 3)1 
BQUN 332 
BOUN 333 
BCUN 340 
BOUN 350 
BCUN 360 
BCUN 370 
BOUN 380 
BCUN 390 
BCUK 400 
BCUN 410 
BCUN 420 
eCUN 430 
eOUN 440 
BCUN 450 
BOUN 460 
.BCUN 4T0 
SOUN ABO 
BOUN 490 
BOUN 500 
BOUN 510 
eCUN 520 
BCUN 530 
BOUN 531 
BCUN 532 
BOUN 533 
BCUN 534 
BOUN 535 
BCUN 536 
BCUN 540 
BCUN 550 
BOUN 560 
BCUN 5 70 
BCUN 580 
BOUN 590 
BOUN 600 
8CUN 610 
BOUN 620 
BCUN 630 
BOUN 640 
BCUN 650 
BCUN 660 
BOUN 670 
BCUN 680 
BOUN 690 
BOUN TOO 
BCUN 710 
8GUN 720 
BOUN 730 
BCUN 740 
eOUN 750 
BCUN 760 
BCUN 770 
BCUN TBO 
BOON 790 
BOUN 800 
BOUN 810 
BOUN 820 



Statistics—Data Screening 27 



Subroutine SUBST 



Subroutine ABSNT 



SLCDCLlIOiE SliBSr 

CCniVE * SUBSET VECTOR IhOICATING hHICH CBSEii VATIOKS l*i A 
5€T h«VE S«tlSFI€0 CEftT«l^ CQNOITICNS ON THE VAftlABieS. 

USACE 

CALL SieSr (A.C«R«a<SfhC«AH(NCl 

f»»MfettR £ MLS1 6E OEflfiEC BV AN EXTEflNAL STATEMENT Ih THE 

CALLlhC mCGRAI' 

CESCRIPTICN CF PAHAMEIEHS 

A - CeSERVATICk MATRIII. tiC BV NV 

C - IM>IT HATflX. 3 BT fCi CF CQNOITICNS TG BE CONSIDERED. 
Tl-E flRST ELEMENT Cf EACH COLUMN OF C REPHESENTS THE 
hLfSEIi CF THE VARIABLE (COLUMN OF IHE HATRU Al TO BE 
TESTCCt ThE SECCNC CLENENT Of EACH CCLU»•^ IS A 
RELATIONAL CODE AS FOLLOWS 

1. FCS LT (LESS THANI 

2. FCR LC KESS THAN OR CCUAL TO) 

3. FOR EC (EQUAL (O > 

A. FCR KE (NQI ECUAL TCI 
5. FCR 6£ (GREATER THAN OR ECUAL TO) 
«. FCR CT (GREATER THANI 
IFE TKIRC ELEKEfiT CF EACH CO(.Ur(N IS A giANTITV TO BE 
USEE FCR CCNPARISCN hlTH THE OBSERVATIOh VALUES. FOR 
EXAMPLE. TfE FOLLCtiING CCLURN IN C 
2. 
S. 
12. i 
CAUSES TfE SECOND VARIABLE TO BE TESTED FOR GREATER 
IHAK CR ECUAL TO 42.9 
R - hCRKlhG VECTCR USEC TC STORE 1*.TERNE0IA1E RESULTS CF 
leCVE TESTS ON A SINGLE OeSCRVATION. IF CCNOITIQN IS 
SATISFIES. RllJ IS £ET TO 1. IF IT IS NCT, AIM IS SET 
10 C. VECICR LENGTF- IS NC. 
E - hAfE CF SLBRGUIINE TC BE SUPPLIED BV THE USER. IT 
CCNSISTS CF A BOOLEAN EXPRESSION LINKING THE 
IATER*iECIATE VALUES SIOREO IN VECTOR R. THE BOOLEAN 
CPERATCRS ARE ••• FCH'AND", ■•■ FCR 'CR*. EAANPLE 
SLBRCUTINE BCCLIR.TI 
CIHE^SICN R(3> 
T-K(II*(R(2}*R(3)) 
RETLRh 
ENC 
THE AeCVE EXPHESSICh IS TESTED FOR 
«(1) .AN0.(R(2 I .CR.RISI) 
S - CUIPUf VECTOR INDICATING. FCR EACH CBSERhATIOtt. 

NHETHER CR NCT PROPCSITION B IS SATISFIED. IF IT IS* 
Sill IS NCN-ZERO. IF IT IS NCT* Sill IS ZERO. VECTOR 
LENGTH IS NC. 
AC - HLPBER CF CBSERVAT ICkS. NO MUST BE > OR • TO 1. 
AV - NUHCER OF VARIABLE!. NV NUSI BE > OR - TC L. 
AC - AUPEER Of BASIC CCACITIONS TC BE SATISFIED. NC MUST BE 
GREATER TKAN OR EQUAL TO I. 

REPARKS 
ACAE 

SLBRCUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

e THE AAME Of ACTUAL SLCRCUTINE SUPPLIEC BV THE USER MAY 
BE DIFFERENT (E.G.. BCOLI. But SUBROUTINE SU8ST ALWAYS 
CALLS IT AS e. IN CRCER FOR SUBROUTINE SUBST TO 00 THIS, 
THE *>*P€ Cf THE USER-SUPPLIED SUBROUTIhE PUST -SE 
CEFINEC BV AN EXTERNAL STATEMENT IN THE CALLING PROGRAM. 
THE NAPE MUST ALSO BE LISTED lA THE "CALL SUBST*' 
STATEMENT. (SEE LSACE ABOVE! 

PETFCC 

IfE FCLLOhING IS 00N£ FCR EACH CBSERVATICN, 

CCACITICN MATRIX IS ANALYZED TO DETERMINE tiHICH VARIABLES 

ARE TC BE EXAMINED. INTERPECIATE VECTOR R IS FCRMEO. THE 

eCCLEAN EXPRESSION I IN SLBROUTINE fli IS THEN EVALUATED TO 

CERIVE THE ELEMENT IN SLBSEI VECTOR S CORRESPGNOING TO THE 

CeSERVATICN. 



ELCRCLTlfE SUBST ( A .C .R.I.S.NC .NV.NCI 
CIPEASICA A(l).CUI.R(tl.S(ll 

CC S 1«I.AC 

IC-I-hC 

tt'-2 

CC 8 J>1.AC 

CLEAR P VCCTCR 
l"(J»-C.C 

LCCAIE ELEPEAT lA CBSEAVATICA MATRIX AND RELATJCNAL CODE 



iO 



70 



A"A*2 










IZ>C(K) 










lA'IC^I. 


• AC 








IGC-C<K* 


11 








FCRF 


D « 


ECTCR 




C-AIIAI- 


CIK4 


21 






CC TCII. 


2.3 


A, 


i»€i 


ICO 


IF(C) ). 


£.« 








IFICI I. 


I.tl 








IF(C) (• 


1t« 








irui ). 


E*T 








IFICI E. 


1.7 








iftct e. 


ttr 








fiiji-i.C 










CCMIKLE 










CALCLLATC 


S 


VECTCP 


CALL eiR 


.511 


)) 






fCTLRA 










EAC 











SUBS 

.sues 
sues 

SUBS 
SUBS 
SUSS 
SUBS 

sues 

sues 

SUBS LOO 

SUBS 110 

SUBS L20 

SUBS ISO 

SUBS 140 

sues ISO 

SUBS 160 

sues 170 

SUBS IBO 

SUBS 190 

SUBS 200 

SUBS 210 

sues 220 

sues 290 

sues 2A0 

SUBS 2)0 

sues 260 

sues 270 
SUBS 2B0 
SUBS 290 
SUBS 300 
SUBS 310 
SUBS 320 
sues 330 
SUBS 340 
SUBS 350 
SUBS 360 
SUBS 370 
sues 3B0 
SUBS 390 
SUBS 400 
SUSS 410 
sues 420 
SUBS 430 
SUBS 440 
SUBS 4S0 
SUBS 460 
SUBS ^70 
SUBS 460 
sues 490 
SUSS SOO 
SUBS 510 
SUBS 320 

sues S30 
sues S40 

SUBS 950 
sues 560 
SUBS 570 
suss 971 

sues 900 

SUBS 590 
suss 600 

sues 610 

suss 620 
suss 630 
SUBS 640 
>SUBS 650 
suss 660 
SUBS 670 
SUBS 680 
SUBS 690 

sues TOO 

SUBS 710 
sues 720 
SUBS 730 
sues 740 
sues 750 
sues 760 
sues 770 
sues 780 
sues 790 
SUBS BOO 

sues BIO 

sues B20 

sues S30 

SUBS B40 
SUBS S50 
SUBS S60 
SUBS S70 

sues seo 

SUBS S90 

sues 900 
sues 910 

sues 920 
SUBS 930 
sues 940 
SUBS 950 
SUBS 960 
SUBS 970 
SUBS 9eo 
SUBS 990 

sueSLOoa 

SUBSIOIO 
SUBSL020 
SU8S103Q 
SUS51040 

suesioso 
suesi040 

SUeSlQ70 

suesioso 

$UBSt090 
SUASltdD 
SUBSIIIO 

suesii20 
suesti3o 
suesii40 
sues 1150 

SUBS1160 
SUBSL170 



SLenCLIlAE AGSAT 

FLRFCSE 

lEST MISSING CR ZERC VALLES FOR EACH CBSEfiVATICN IN 
M'IRII A. 

USACE 

C«LL ACSAI lA.S.NC.NVI 

CESCfilPUCA CF PARiPEIERS 

A -■ CeSERVATICK MATRIX, ftC BT NV 

S - ClTPLT vector of LEKGTH #«0 INCICATINC It'E fOLLOUING 

CCCES FCR eACf- CfiSERVATICN. 

I Tl-ERE IS NCT A PISSING CR ZERC VALUE. 

C Al LEAST CKE VALLE IS MISSING OH ZERO. 
AC ' AUPEER CF CBSERVAT ICAS. NO MLST BE > OR > TO I. 
AW - KLPEER OF VARIABLES FCR EACH CeSCRVATIOh. HV MUST BE 

CREITER It-AN OK EOL'L TC 1. 



MCI^CC 

i ItSI IS MACE FCR EACH RCM ( CBSERVATICNI OF THE MATRIX A. 
IF Tt-ERE IS NCT A MISSIAG OR ZERO VALU£« 1 IS PLACED IN 
<(Jl. IF AT LEAST CNE VALUE IS MISSING OR ZERC. O IS PLACED 
lA S(Jl. 



BO 



<UeRCLTlAE AIShKA.S 
CIMEASICA A(l I. SOI 

CC 2C J>I.AC 

IJ-J-AC 

S(JI«1.C 

CC IC I-l.NV 

IJ<IJ«AC 

IFtAllJll IC.S.IC 

: su)-c 

CC TC 2C 
IC CCMIACE 
2C CCMIKLE 

HETLAh 

EAC 



ABSN 
.A8SA 
ABSN 
ABSN 
ABSN 
ABSN 
ABSN 
ABSN 
ABSN 90 
ABSN 100 
ABSN 110 
ABSN 120 

ABSN no 

ABSN 140 
ABSN ISO 
ABSN 160 
ABSN 170 
ABSN ISO 
ABSN 190 
ABSN 200 
A8SN ZQI 
ABSN 210 
ABSN 220 
ABSh 230 
ABSN 240 
ABSN 250 
AeSN 260 
ABSN 270 
AesN zeo 

ASSN 290 
ABSN 300 
ABSN 310 
ABSN 320 

ABSN 330 
.ASSN 340 
ABSN 3Sa 
ABSN 360 
ABSN 370 
ABSN 3B0 
ABSN 390 
ABSN 400 
ABSN 4L0 
ABSN 420 
ASSN «30 
ABSN 440 
ABSN 450 
ABSN 460 
ABSN 470 
ABSK 4B0 
ABSN 490 
ABSN 500 
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Subroutine TABl 

This subroutine tabulates, for a selected variable in 
an observation matrix, the frequencies and percent 
frequencies over class intervals. Interval size is 
computed as follows: 



UBO - UBO^ 
UBO - 2 



(1) 



where UBO = given lower bound 

UBO = given number of intervals 
UBO = given upper bound 

If UBO^ = UBO3, the subroutine finds and uses the 
minimum and maximum values of the variable. 

A table lookup is used to obtain the frequency of 
the ith class interval for the variable, where 1=1, 
2, . . . , UBO„. Then each frequency is divided by 
the number of observations, n, to obtain the percent 
frequency: 



P. = 
1 



lOOFj 
n 



(2) 



In addition, the following statistics are calculated 
for the variable: 
n 



Total: T= 2 X.. 
i=l " 

where j = selected variable 

— T 

Mean: X = — 
n 



Standard deviation: 



(3) 



(4) 



s = 




n 

2 X.. 
i=l "^ 



(5) 



n 



;(.ef>CLTIhE TABl 

'^'"e'nie fCK est Y«l«tie n »« c«S£«v«llc«. mi«i« iok » 

MlilX SueSeil. IH£ f«£ai«CY »IIO ftOCINT fREOOEKCY OVER 

cilei cuss ii.iei>»»LS. ii. «ooiiic«. cicuKu fo« the s««f 



CESCDIPIlCh CF PARAfETEVS 

« - CeSERVITlG*! H«TRI)i. NO BT NV 

S - INfUI »ECIO» CIVI»6 SO»S£I OF «. ONLY thOSE 

ceSEavlTICNS kllH I COHnESFCNOINC NCN-IE«a SIJl ««E 
C0^S10t>EC. VECICK LENCIH IS NO. 
fCvaH - 1EE V««UBLE TC EE TAeULAIED. NOVM l-UST BE GREATER 
IH4k CR EOURE IC 1 RNO LESS THIN OR ECURL TO NV. 
«N0 U'PER LIHII OF VRRIRBIE TC BE TREULRTEO 
IN USCfll. U80(2I RNO UBOOI RESRECTIVELV. IF 
LCRER LINIT IS tCL«L TC OPRER UNIT. THE PROCRRH 
OSES T^E NINmUN RNC NOIROR VALUES OF THE VARIRBLE. 
NUHflER OF INTERVALS. UBCIZl. NUST INCLOOE TMO CELLS 
FOR VALLES UNCER ANO ABOVE UNITS. VECTOR LENCTH 
IS 3. 



- COIPCI VECTOR Cf fRECOENCIES. VECICR lENGTN IS 
bEC(2l. 

- QUIFUI VECTOR CF RELATIVE FREautNCIES. VECTOR 
LENCTF IS LBQCI. 

- CUTPU1 VECTOR CF SURNARV STATISTICS. I.E., TOTAL 
AVERACE, SIANOARC DEVIATION. PININUR ANO NAXINUH 
VECICR LENCTI- IS 5. IF S IS NULL THEN ICTn,*»E(l«GET«Bl 
ARC STANOARO OEVIAHON ■ C, NIN-LEIS ANO NAX v'-ETSTABl 

- N0N6CR OF CBSERVATICNS. NC RUST BE > CR • TO X 

- NLNEER CF VABIAELES FOR EACH CeJEBVAIICN. NV RUST 
EE GREATER THAN CR EQUAL TO 1. 



TABl 
TABl 
TABl 
TABl 
TABl 
TABl 



TABl 
TRBl 
TABl 
TAB! 
TABl 
TABl 
TABl 
TABl 
TABl 
TABl 

tEIECC ^*" 

\tl INTCBVAL SKE IS CAICCIATED FRCP THE GIVEN INFCRNATICN TABl 

C» CPTICNALLt FRCB ThE PIMPUN ANC PAXWLH VALUES FOR TABl 

VARIAEIE NCVAR. T^E FRECIENCIES ANO PERCENI FREOUENCIES ARE TABl 

TUN CALCUlATtC ALONG hllh SUPPARV STATISTICS. TABl 

Iff CIVISCR FLR SIAKCARC GEVIAtlCN IS CNE LESS THAN TFE TABl 

RLPEER CF CBStPVAIlCNS LSCC. '*»[ 



REPARRS 
NCRE 

SL6RCLTUES ANO FLkCTION SIBPRCGRRNS RECOUEO 
NfRE 



TABl 


10 




TABl 


JO 




TABl 


30 




TABl 


«0 




TABl 


50 




TABl 


60 


VC 


TABl 


TO 




TABl 


BO 


•n 


TABl 


ta 


ICC 


TABl 


100 


10! 


TABl 


no 




TABl 


120 




USI 


130 




TABl 


IRO 




TABl 


150 




TABl 


lAO 




TABl 


170 




TABl 


lao 




TABl 


no 




TABl 


200 




TABl 


?10 




TABl 


220 




TABl 


290 




TABl 


240 




TABl 


250 




TABl 


260 




TABl 


2T0 




TABl 


2B0 




TABl 


2«0 





cifEfcsiCK Aui.sm.ttfCtii.fKEcm.Pcmi.siAisui 

C'LCLl'It »'l^ *»<[ f*' 
hflfk-UCET:) 

ij*f>c*(Kcvitt-n 

cc 3C J-liKC 

IJ-IJ*l 

IflSlJH KtlC.lC 
IC lf(*llJI-VMM i;,2C,2C 

i; vfih>>llJi 

2C Cft«(lJl-%^*»» JC.3C.25 
3C CCkllkLE 

lF(CEC(ll-UeCI3ll *C,3«.*C 

35 iec(ii»vnh 

CtC*F CtlPLI #«€*! 

cc S% l*UUh 

F^ECd l-C.C 
4* CC11II-C.C 

CC 5C 1-1.3 
5C 5I«IS(1I-C.C 

C'LCLl'ie IKTEPVil SUE 

£iM-*«sin<t!Ci3i-ueciin/iij8Cii»-i.on 

IISI *LeStI VtCICB 

SCM-C.C 
IJ-I>C*<I'CVJR-I) 
cc 7S J'l.KC 

IJ-IJ'l 

55 SCM"JCM*i.C 

CCVCtCF ICT«L AKC FftECUE^CHS 
il^lSlll-STJISdl*'! IJI 

CC CO 1-1. IMX 

lF(*IIJl-tefP> IC.tC.ftO 
AC CCfclUCE 

IFUClJt-ierf I 15.45.«5 
61 F»iClll>fcl-FlteCliK*>l*l<0 

CC IC I! 
7C F»CCIIl*f«tCtll*l.C 
75 CCf^llfiLE 

If l!C*iin«.lC5*l« 

C#lCLt>TE |i£l.*1IV( FBECUCfcCltS 

7S CC CC i>i.if>f> 

iC FCKJI-FRECdl^lCO.C/SCM 

C#LCLl<H »'C»K 'fcC 51ANC*RC CCVIAHC^ 

IF(£C*>I-1.<]I e!.«5.SC 

<1i1S(3l-C.C 

CC U S\ 

STJlsl3l-SC«IUeS(l$I*lSlJI-SI*lSlU«SIiTS(lI/SCMI/lSCHT- 

CC ICC 1-1.3 

LCClll-kCCUl 

DCKHA 

CftC 



300 
310 
320 
33G 
340 

3 SO 
360 
36 L 
370 
380 
3«1 
3^0 
%00 
410 
420 

4 30 
440 
450 
460 
470 
400 
490 
500 
Slfl 
520 
530 
540 



T4HI 550 

TA&I 5f>0 

Tifll 570 

T*ei 5"fO 

1*61 b<iO 

T*8l 600 

i>ei 610 

Titfil 623 
T»ftl 630 
1*ei 640 
TAdl 6«0 
TABl 660 
T«6l 670 
TlBl 680 
TABl 690 
TkBl 700 
T*8l 710 
TAdl 720 
T*6l 730 
TA61 740 
T*Hl '50 
TABl 760 
T*Bl 770 
TAfll 740 
TAfll 790 
TASt 400 

T*ei aio 
T&61 820 
TASl 930 
TABl 340 
Ttei 950 
TABl 860 
TABl 970 
TABL 9110 
TA8I a90 
TABl 400 
TAMI 910 
TABl 920 
TABl 930 
TA61 940 
TABl 950 
TABL 960 
TABl 470 
TABl 9S0 
1*01 ^90 
TASllOOO 
TASIIOIO 
TAeil020 
TAB11030 
TAB11040 
TAB 11 050 
TAB11060 
1*611070 
TAfltlOflO 
T*6il090 
T AS 11 LOO 
TABllLIO 
TAB11L20 
TABl 1130 
fAB11140 
TABILISO 
TA6tLI60 
TAeillTO 
TABLLIBO 
TABIL190 
TABLL200 
TABtl20l 
TASlt2L0 
TAeil220 
TA811230 
1*811240 
TABL1250 
T*ail260 
T*B11270 
T*eil280 
TAB1129Q 
TA81130a 
TABIlJtO 
TAB11320 
r*BlI)3Q 
TAB11340 
7*811360 
TAB11360 
TAB11370 
T*Blt3a0 
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Subroutine TAB2 



Standard deviation: 



-This subroutine performs a two-way classification 
of the frequency, percent frequency, and other 
statistics over given class intervals, for two se- 
lected variables in an observation matrix. 

Interval size for each variable is computed as 
follows: 



s = 



S X^- { S X. I /n 

n - 1 

Frequency matrix 



(4) 



UBO 



k = 
J 



3j 



UBO. 



UBO 



(1) 



where UBO, . 
™2J 



2j 

given lower bound 



given number of intervals 
giver 
J = 1, 2 



UBO . = given upper bound 
3j 



If UBOii = UB03i, the subroutine finds and uses the 
minimum and maximum values of the ]*•" variable. 

A frequency tabulation is then made for each pair 
of observations in a two-way table as shown in 
Figure 6. 

Symbols - and < in Figure 6 indicate that a count 
is classified into a particular interval if the data 
point is greater than or equal to the lower limit of 
that interval but less than the upper limit of the same 
interval. 

Then, each entry in the frequency matrix, Fij, is 
divided by the number of observations, N, to obtain 
the percent frequency: 



lower < 


FU 


F22 










bound 


"^21 












< 














1 












upper 














bound ^ 








-_JV_ 








< 




^. < 






^ 



lower 
bound 



Figure 6. Frequency matrix 



upper 
bound 



Second variable 



lOOF.. 

a_ 

N 



where i = 1, 2, ... , UBO 
j = 1, 2, ..., UBO, 



(2) 



21 
22 



As data are classified into the frequency matrix, the 
following intermediate results are accumulated for 
each class internal of both variables: 

1. Number of data points, n 

n 

2. Sum of data points, .S Xj 

"^ 2 

3. Sum of data points squared, S ^j 

i= 1 

From these, the following statistics are calculated 
for each class interval: 

n 

S X. 
i=l ^ 



Mean: X= 



(3) 









TABZ 


10 








..TIB2 


70 








itei 


30 


<Lft<C».IU£ Itti 






riiB2 


40 


fL^fCtt 






T»a2 


60 


FthfCK^ » IhC-h*» CL«!:SlFIC«fICK fCft IhC Vil<a|*dLES 


IN 


AK 


r«82 


TO 


CeSEt)»ATIC^ PAIHIK (LK i filKIX SUaS£1l CF TI-£ fRtCUE^CV« 


1*82 


SO 


Fff-CtM tMCtCtftCV, AM. CIH:t» STAII&I1CS CVEft CIV€N 


ClASS 


TAe? 


90 


IMtHV^LS. 






T*a2 


100 

ito 


tS*C( 






1AB2 


120 


C'll T«lf24«.S.KljW,tGC.FHt<..PCr,$r*n,ST<lf2.^C.^V) 






1162 
T*82 


HO 
MO 


CESCOIFIICK Cf P«R4fEIE*)S 






i*e? 


IM 


t - Ceit*M*1lCK fATPlX. KC AT ^v 






TAaz 


140 


S - IfcPtT ((CCICR (itlrlKG SUBSfcT Cf *. CNLlf IMCSE 






f*82 


no 



CeSEOVATICNS kllt^ A CC«tt££PCKCIKG ^0^-ZeRC S(J} AOE TAB^ lao 

CCKSICtHt:C. VEC1CX tENCTti IS KC. TAB2 190 

V<P|A€LES 1U «E Ct^C!iS-IAeLtATfC. hCVfll IS VARIABLE T »b2 200 
It hCV<2) IS vAttlAflLE 2. WECTtft LENGTH IS 2. NCVTAB2 210 
r'CST GE GPtAUK IhAK CR CCU/L IC I ANO LESS THA^TA62 211 

CH CCLAL IC KV. rAH2 212 

3 t!V 2 *'ATt)|I CUlKG LChEH ll*<ir. ••U*'eCfl CF TAB2 220 

JhrtrDVALS. ANC LFF£)> Llfll CF BCft^ VAKrABLES TC HE TABZ 230 

lAet'LATfC (fIffSI CCLUMN FCK VARIMLt I. SECONC TAB2 2«0 

CCLUft, rCf) WAAIAeiE 21. IF LChEH LIHI1 IS EOUAL TO TAB2 2S0 

LFPLf) IIKIT fCH VAHIABLE It ThE PfiOQfAl* LSES ThE TA62 260 

PlhlfLf ANC MAKIHLP VALUE! CN EAC*- VAMIA6LE. hLJMBER TAB2 270 

Cf IKtCKVALS rest IftCLUCE IkO CELLS FCR UNOEM kttO 7AB2 290 

Ai;CVE LlfUS. TA82 290 

CLIfLI fAIfllK CF FHECUEKCICi IN It-E IbC-hAV TAt)2 100 

CLASSIFICATICK. CflCE4 CF f-AIRIIi IS IMl HV INT2. 7*02 )tO 

kt<(i)E IkTl IS tt-E hOfBED CF IKIER^'LS CF VARIABLE 1 1162 MQ 



;i« I 



AftC 1M2 IS IhE KLfBtrt CF I*iT£RMALS CF VAMIAOLE 2. 

ifkii Ai^c iKf2 r\.<t ae specified th the secono 

fCSITKK CF MLSPECriVE CQLLfN Of LiBC fAlftfK. 
CLiPUr HATMIK CF PERCEM FMECUfNCIES* SAr£ OttOER 
AS FREC. 

CtlPLT PATttll St''^ARU[^G ICIflSt ''EA^<, AND 
SIAhCAHC CCVIAIICKS FCK CAC»i CLASS I^IERVAL OF 
VAfllAtflE 1. CMltR CF ^ATHJJI IS J 0Y JKfl, 

Stt\2 - S4¥k ti SIATl liLl C*£« fcANUBLE 2. CRCE« UF HAfRK 

IS 3 ev l*.T2. 
fC - KLMIEI) CF CBSERVAIICfkS. KC f(.SI BC CREATE" THA^ 

C« ECCAL IC 1. 
K* - fcLfBEt* Of VARIAELES FC« CACi- CBSEBVAIICh, hV 

PCS! EE GfEAIER IFAK CO ECUAL tO 1. 



PCPAf«< 

IF i IS KLLL* 



CUTPCT AHEAS ARE S£ I IC ZESC 



SLCRCLIIKES AKC FLKCIIGM SiePRCGRAPS PECtlREC 



PET^CC 

lAIERVAL SUES FCR Bfll*- VARIABLES ARE CALCULATEC FROM THf 



TAB2 S90 

IAfi2 140 

TAB2 3^0 

IA62 SAO 

rAB2 )ro 

rAB2 SBO 
TAB2 )40 

TA62 ^00 

lASZ 410 
TAd2 420 
TA62 430 
TAB2 431 
IAS2 440 
rAB2 441 
TAfl2 450 
IAB2 460 
IAB2 470 
1*82 4«0 
IAB2 490 
TAB2 SOO 
1*62 SIO 
1*82 520 
7A62 SJO 



ElVth INFCRPAIICh CR CPTICkALLV FRCP It'E rihlNtP *N0 fAlinUHT*e2 540 
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CftrfLCfEC. f4l«ICCS S1«T1 «f<C SI«I2 <t*<ft*M 1/ ||.C TOTALS. 
Hik%, AkC SlikC'fiO OEVUIIONS ««E T^e». C*ICLL*1E0. 
It-C CIVISC* fC« STANCAfC CtVlATICh IS CNE LESS ThAN THE 
KLVKCti Cf CeSEKVAIlOhS tECC ■«■ EACH CLASS IMCAVAL. 



SLERCLIIAE IAe21i,S.f>av.CBC.FIICC.PCT*!l'll.*TAT2.fi|C.I^Vl > 
Clf>Ef>SICA A<ll.S(ll.)kOV(2I.U8C(3.2l,Ffl£eill.PCni>,SlATini« 
lSlA12(il,<IKltSI 

ci<<E»sjCf keco.21 



CC i 1-1*3 



II AC. tC« AC 



5 kBCd.JJ-lCCM.JI 

CiTCHIilfkE LlliIIS 

CC AC f-1.2 

If lt£C(l«II-ueC43 
IC VfU^l.CCIS 

VfAX*-l.CC7: 

IJ*AC*IACbU)-lt 

CC 3$ J-l«lkC 

IJ-IJ«1 

IFfSUII 1S.3S,IS 
IS If UCUI'VMM 2C.jS.2S 
2C V^IA-A<IJ> 
2« 1FUIU1-V»AX} IS.)?, 10 

3C vria-AiiJ) 

3S CChflhtl 

tBC(l.ll-%^IA 

ICCO.ll'^fAli 
AC CCA1lhL€ 

CJLCi.lAI£ IhTEVVAL SI2E 

A! CC SC 1*1.2 

sc siM(ii>/tisi(i.ec(3.ii-uec(i.i ti/dficw.i i-z.cti 

CLE40 CCTPLI mm 
IKTI-l.eCI2.ll 

IKT1-IAIl*IM2 

CC !S l-l.lhTT 

Ft-ECIl MC.C 
55 FCT(I)-C.C 

lhTV-3*IMt 

CC tC I'l.lKIV 
tC 5UTI I I l-C.C 

[M2-3*I»T2 

CC bi 1-1. IMZ 
t; :1AI2III-C.C 

lESI £Le<E1 kECICR 

ECKT-C.C 
lAIY-IMl-l 
IA1)i-IhT2'l 
IJ-KC« lACVI 11-1 ) 
lJ]r-AC«l»iVi;)-l} 
CC SS J-l.KC 
IJ- IJ*1 

IFtStJJI 1C.SS.K 
7C SCA1-£ChT«l.C 

C/LCLl^lt FlieCUEKCI€S 

1E»Fl>i.EC(ltl)-SIK1|ll 
CC 15 M-I.IKTY 
Uff l-TEr*'i«SiK1(l) 
IFIfriJI-IEffl) e0.7S.7S 
TS CCATIKLE 
l>-IfTl 

ec itt-»A<it-ii*i 

STATlllt>l*<TA1invvi«AIIJI 

IY*"IY*«1 

!1A11(IV>I>S1«T1II«TI*I.C 

iVY«ivy.i 

STJI1IIYYI-5IAIII1TY1*41IJI«A<|J) 

1E»f2-L£Cli.2)-SlKT(2J 

CC ti IV-l.IKTX 

IEff2*TE»F2«SIKII2l 

|F|A(IJ«]-ICfP2l fC.ES.ES 
6! CCKrihLE 

lH'IKIf 
^C Ijf-IK I1«(IJ<-1 l«IY 

fHktllJU'fUiCt IJFI'l.a 

i*>3«n*-]i«i 

SIAT2<l»l-ST«12(IXt*A(lJXJ 

II-IX41 

S1/l2(lr)-S(«12(lXl«].C 



IX 



im 



ST/l2(l»l>STAT21II|«AiIJ)'tAA( IJVt 
S; CCMIM.E 

IF iscki tsa.iii.se 

C«i;.LlATE fEPCEhl FRECUEKCIES 

Sf CC ICC I'l.lHI 
ICC fCI(U'F»tt<l 1"1CC,C/SCM 

C^LCLIAU TCIALS. ''EAhS. $1JKC«RD CtYlHICKS 



CC 12C 1-1. IMI 



IJ> 



-UY. 



.IK 



HC>lKT«l 

U^Fl'Sl«1l(lxYf 
!i.»'-:ii«t 1 1 i«Y-i J 

U I rE»'»^l-I.Cl 12C.lCt 
let SI<fni<C»<C.C 

CC ic (i; 
IK £iAii<i:c)<s(.ciiAes((i.t«ii{ isci-SL*>*su'«/TE»'pn/(T€»ri-i.ai m 

Hi £T'I1 (l>YI*!u^/l£r'Fl 
I^C CCMIfLf 
l*li--l 

Cr t^C 1-1. IM2 

ISC-I^Ji.] 
Jt^f2'< im tlKfi 
5L^>SWW(lJix-l 1 

iKiEcFi-i.cj Hc,i;;.i>c 

121 SI«I2I l<tl<C.C 

CC Tc n; 

13C SUIJdKMSCHIKEStlSTAIil ISC J - SU^'SL^/ fE^-F^ I /I Tfc^f 2- I . CI I I 
lit !T«I2CI*>I-<C*'/Itrf2 



1AS2 )50 
TAe2 )«0 
TAB2 STO 

tab; 5ao 

TAe2 )90 
TAB2 600 

..tab; 610 
tab; 620 

TAB2 630 
1*02 6A0 
TAB? 650 
TAB2 660 
TA82 6T0 
TA62 ««0 
TAb? 690 
TAB? TOO 

TA[)2 no 

TAB2 720 
TAB? 730 
TAB2 7A0 
TAH2 r50 
tab; FAC} 
I»82 T70 
T«d2 780 
TAB2 790 
TAB2 BOO 
TAB2 fllO 
tab; RZO 
TAe2 830 
TAe2 4A0 
TAB2 aw 
TAB? 860 
TAB? aTO 
TAB? a«o 
TAB2 040 
TAa2 900 
TAB? 910 
TAB2 420 
TAB2 933 
T«B? 94n 
TAP? 950 
TAR? 960 
TAB? 970 

iAe2 igf) 

TAB? 990 
TAB21000 
TAB21010 
TAfl?La20 
TAB?La30 
TAS21040 
TA821050 
TA6?ta«0 
TAd2l070 
TAB210BO 
TAB21090 
TAB2IIO0 
TAB211L0 
TAe21120 
T«e21130 
rAB2ltA0 
TAB21190 
TAB2UB0 
TAB211T0 
TABfltBO 
TAB21I90 
TAB? I 200 
TAB2L210 
TA621220 
TAe?l?30 
TAB212A0 
TA6212S0 
TAB21260 
1AB21270 
TAB21280 
TAB21290 
TAB2130O 
TAa21310 
TAe21320 
tA821l30 
TAB213A0 
TA621350 
TAe21)A0 
TAB21370 
TAB21380 
TAB21390 
rAB21A00 
TA8?tAia 
rAB2IA20 
TAB?lA)a 
TAe2lAA0 
TAe2lAM 
TAB?1A60 
TA821AT0 
TAe2LA80 
TAB21A90 
TaB21500 
TAB21SI0 
TAB?15tl 
TA82tS20 
TAe21'i30 
TAa2l5AO 
TAe215S0 
TAe21560 
rA8?1570 
1Ae21S80 
TAB21S90 
TAB21600 
TAB2U10 
rAB?16?0 
TAB21630 
TA0216AO 
TAB?lti50 
TAB21660 

TA62I6B0 
TAA21690 
TAB2I700 
TAe217lO 
TA821720 
TAB21T30 
TAB21TA0 
TAB?t7S0 
TaH?1760 
TA6217TO 
IA821Te0 
TA821790 
TAd?lft00 
TA621B10 
TAB?1820 



(AC CCAIULE 

CC ISC 1>I.2 
CC ISC J-1.2 

ISC cecd.jl-hecd.j) 

1^1 JltlCHh 



Subroutine SUB MX 



TA421B30 
TAe2UA0 
TAH?ia50 
TAB21860 
TAB?ia70 



SCfMCLIIhE C(.efl 

fCPFCJE 

tA££C LK ktCtCf S CCNIttEC FHCf* SCtiRCLT IKE SUfaSf OR AHSNT, 
ins SLCRCUIIKE COPIES FRCf A IA«G€« fATRlJt CF CBSEHVATICN 
CATA « SltiSCI fAlNIX CF IF^CSE C tiSEfivA f 1CK$ kf ICH HAVE 
<AIISFlEt CERT«lh CCKCIIKK. THIS SLBRCL1INE IS fia«fALLV 
LUC FHICH K SIATISriCAL AKALTSES lE.C, fULIIPLE R^GRES- 
£ICK. FACICti AKALYSISI. 



20 



CSACE 

CALL SLEfX 



(A.C.S.KC.K%,K) 



SUBM 

sue** 
sua* 

SUBM AO 

SUB** 50 

SU8f< 60 

SUBM TO 

SUBM 80 

StBM 90 

SUBM 100 

SUBM 110 

SUBM 120 

SUSM 130 

sufin tAO 

SU8M 190 
SUBM 160 
SUSf 170 
SUBM 180 
SUBM 190 



CEHfilFTICK CF PAIiAfET£t<S 

A - IKFLI fATRlK UF CeSEfVAI ICKS. NC ET KV. 
I - CClFLl MAIKIX QF C VSEAhAIKK! , Ik BT KV, 

S - IKFLI VECTCR CF LEKCTf- KU CCKTAIhING THE CODES OERIVCD SUBM 200 
FitC^ SLBACCTIKE SL€ST CH idSKI. Subh 210 

AC - KLfEEf) CF CfcSEHVAT ICKS. hC MlSI BE > QR - TC I. SU8H 220 

hi • KLffltP CF VAKlABLtS. KV HUSI BE > OR ■ ?C 1. SU6M 230 

K - CtlFcT WAHlAeLE CLKTAIKIKC ?»-e ftbHBEfi CF KCK-2ERC C00CSSU8M 2*0 



IK ^ECTCK S. 

AEt-AAKS 

FAI^iX C CAN fiE IN Iff 5AfE LCCATICK AS »'Afft|)i A. 

SLCFCLIiKES AKC FCKCIICK £iefRCGRAI>S AEQUIREO 
KCKE 

»'EI^CC 

IF Sill CCKTAIKS A NCK-^ERC CCOE« I-TH QBSERVAIIOf^ IS 
CCFItC FHCr TFE IhPUT rAtPIX 10 THE OLTPUT nAIRIX. 



SLEPCLIIKE StEMA I A.C , S .KQ ,hV .K ) 
CI^CKSICK AUI.CID.Sdl 

L-C 

LL-C 

CC 2C j-l.KV 

CC I* l-l.f«C 

l-L*l 

IF(S(in 15. IS, IC 
IC U-ll«t 

CULI-A(LI 
IS CCKIIhLE 
2C CCKIIKLE 

CCCK1 KCK-2ERC CCCES IN VECTCR S 

K-C 

CC 3C 1*1. KC 

IFlSdd 3C. 3C. 2i 
2S K-K*l 
3C CCKIIKLE 



AEILRK 
EKC 



SU8M 290 
SUBM 260 
SUBM 270 
SUSP 280 
SUBM 290 
SUBM 300 
SUBH 910 
SueH 320 
SUeM 330 
SUBM 3A0 
SUBH 390 
SUBM 360 
..SUBM 370 
SUBM 380 
SUBM 390 
SUBM AGO 
SUBM AlO 
SUBM 620 
SUBM 630 
SUB* AAO 
SUBM 650 
SUBM 660 
Sue*" A 70 

SUBM 680 

SUBM 690 

SUBM 500 

SUBM 510 

SUBM 520 

SU8M 930 

SUBM 560 

SUBP 550 

SUBM 960 

SUBM 570 

SUBM 5B0 

SUBM 990 

SuBM 600 

SUBH 610 

SUBM 620 
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Correlation and Regression (see Smoothing, 
Factorization) 

Subroutine CORRE 

This subroutine calculates means, standard devia- 
tions, sums of cross-products of deviations from 
means, and product moment correlation coefficients 
from input data Xj^^, where i = 1, 2, . . . , n implies ob- 
servations and j = 1, 2, . . . , m implies variables. 

The following equations are used to calculate 
these statistics. 

Sums of cross-products of deviations: 
n 



E 



> - I'^ir^ilfik-^ 



n n 



where j = 1, 2, . . . , m; k = 1, 2, . . . , m 



i=l 



X. 



m 



(2) 



(These temporary means T: are subtracted 
from the data in equation (1) to obtain compu- 
tational accuracy. ) 



11 

E 



fi(ifCS 






SIAhCARC CiVUTIChSt SfS CF C*iCSS-Pf«OOUCrS 
A*tC CCRAECA11CK CCEFf |C lENTS. 



tS«CE 

It 

IC 



IL CCROE (h.f.IC.X.xe^O.STC.RX.R.e.C, 



Tl 



cctn 

COKR 

COR* 

cc«o 
ccitfi 

CCRU 

cc«« 

COAft 
CORS 
CCRR 
CCRB 
CCRR 
CQRR 
CCR8 



Ch Cf P*R*ffT£RS 

- hktfBlR CF ca^CRVillCHS. »> fLil QE > 

- KLretR CF v*Rueti<. n t<tsi be > cb 

- tPIlCfc CCCE FCR IfPLi Oil* 
C IP CAT« ARE TC fC REAC I*. ffCP IMPLI DEVICE IK TMECCRR 

SfECHL SUBRCtlUE NAPED CATi. (SEE SUeROUIINES CGRR 
LSCC ei TtilS JteRCCTIfcC BELCb.l 
1 tP ALL CATA AH[ ALREACV Ifi CCRE. 

- If IG-C. It-E V*LIE Cf n IS C.C. 

IF IC-lf X IS ThC IhPUT r'ATDIK <*• BY »> ) CONTAINING 
CATA. 

- CLTPLF VfCICR CP tENCIH 

- CLIPtT VtCIOB CF lENGTh 
CCVIATICMS. 

- CllPi.1 PAIRIX (P t PI CChMINlhG mi*$ CF CROSS 
PftCCCCIS Cf 0t:VlA1I0f>S FAC HEAN&. 

- CtlPLT PATRIX ICMV UPPER TRIA^GUtAR PORTION OF THE CORR 
SYI'f*ETRIC f*A1Rl)i CF t* tlV f} CChTAINIhG CORRELATION CORR 
CCEfFlCIEMS. (SICRAGE HOCE CF tl 

- CLTPCl VECTCR Cf LChGTh R CCRtAINING THE OIACCNAL 
OF Ift PATRIX Of SUPS Cf CRCSS-PRCDUCIS Of 
CEVIATICftS FRC*' »EAh5. 

- .CRiClhC VECTCR Cf ^£^tiT^ P. 

- hCRKlKC VECTCR CF LENGTh P. 



CCfTAIMNG PEAKS. 
CC^1AIhI^G SIAhOARO 



CORR 
CCBR 
CORR 
CORR 
CORR 
CCRR 
CORR 
CORR 
CCRR 
CORR 



Ci:*i£ 



ClTII 
MA(i 



kILL hCT ACCEPT A CCkSIAKI VECTCR. 
ES JhC fL^CIIO^ SLeFRCCRAPS AECtlRCC 

,ci - ins SLflRCLl^^E ^uST e£ ppcvloEo ei ri-e user. 

U> If IC-C, ins SCeRGtTIKE IS fHPECTEO TC 

FLRMSf A^ CfiSERVATION l^ VECTCR fRCH AN 
EXtEkNAL ISPUT CEVICE. 

{2» If IC-1, Tt-IS SLBBCLTIKE IS ^C^ tSED fiV 

CCRRE tLi ftsi emsT ih 4pe ccck. if user 

HAS NCI iLPfLlEC A SUeXOClINF fcAfED DAIA, 
IhE FCLlChUG IS SLCCESTfO. 

SLeRC;,IIN€ CAIA 

HEILRK 

EKC 



fBCCi.Cl-PCP€fcT CCBRELATJCfc CCtFFICIENTS ABE CCRPUTED. 



X. 



Means: X. = 



where j = 1, 2, , . . , m 
Correlation coefficients: 



(3) 



^Jk 



Jk 



(4) 



4% i 



kk 



where j = 1, 2, . . . , m; k = 1, 2, .... m 
Standard deviations: 



s. 


yjn-1 


where 


j = 1, 2, 



(5) 



SbEfiCLIIhE CCI^RE (^ ,P, ICi X * xefR .S1C«RX .B tB .0. II 
CIPE(>SICf Kdl.liBARUt.SIOI l).BK<l).RIll.ei 11*0111.111) 



If A tCLELt FBICISICH VtRSICf CF IMS RCtTIKC IS CESIRCOt THE 

c l^ cCLfh 1 SHCCLC ec heccved fhc*" ii-e ooueLe precisiom 

STATE^EkT kt-ICI- FCLLChS. 

CCUELE FDECISICK xeAR t STC«RX*R (e>T 

Tt-E C PLSI ALSO EE REPCVEC FBCR OCUfiLE PRCCISION STATEMENTS 
ArP£AfI*>G Ih ClhCf RClJTlf^££ LSEO IK CCNJUKCTIOh k I TH fHIS 
BCCTIhE. 

T^E CCUBLL PRECISICh VERSICK CF THIS SUBACUTINE RUST ALSC 
CCI>T<II» CCUfiLE PRECISICN fCBIBAK flihCTJCNS. SCRT ANO ABS IN 
SIAIEPEfiT 22C MLS1 BE Ct-AhGEC 10 OSQRT AMD &«es. 



Ikll lAl WATlCh 

CC ICC J-1«P 
CI Jl-C.C 
ICC T(JI«C.C 

CC IC2 I-l.K 
IC2 Rdl-C.C 
fK*K 
L-C 

IFIICI IC:. I21t ICS 

CATA ABE ILBEACY IR CCBE 

IC; CC ICE J-l.P 
CC ICI l-l*h 

ICI KJI-TIJMXIL) 

xeAClJl-IUI 
ICE M JJ-IIJl/Ffc 

CC Hi I-l.K 

JX>C 

l-I-K 

CC lie J-l.> 

L«L*I» 

Cl.t«X(L t-ltJt 

lie eij>>eij)*c(j f 

CC II* j-l.P 
CC lit P>1.J 
JP-JB*! 
li; PIJKI-RIJKKCIJ ■•C(l< I 

CC IC let 



fidt Ce<EFViTICh< AhC CAUULAIf lEfPCAiPV 
PEAKS FfCP IhESE CAIA IK T(JI 

IF<|k-PJ I3C. 13C* Hi 

XH-K 

CC IC 1?1 

CC 14C 1-I.KK 

CALL CAIA IP.C) 

CC MC J-l.P 

T(JI-T(J)«CIJI 

L>L4l 

RXU l-C Ut 

FXX-XX 

CC 19C J't.f 

XCAdUI-l IJI 

1IJI-T( JI/fKK 



127 
13C 



13< 



CCRR 
CORR 
CCRR 

CCRR 
CORR 
CCRR 
CCRR 
CCRR 
CORR 
CCRR 

cnBB 

CORR 

CORR 
CCBR 
CCRR 
CCRR 
CCRR 
CORR 
CCBR 
CCRR 
CCRR 
CCRR 
CORR 
CCRR 
CORR 
CCRR 
CCRR 



60 
TO 
RQ 
90 
100 
110 
120 

no 

140 
150 
1«0 
ITO 
180 
190 
200 
2L0 
220 
230 
240 
250 
260 
2T0 
zao 
290 
300 
310 
320 
330 
340 
350 
360 
370 
340 
390 
400 
410 
420 
430 
440 
4»0 
460 

4 TO 
460 
490 
^00 
SIO 
520 
530 
540 
550 
560 

5 TO 



CORR 5 BO 
CCBR 590 
CORR 600 
CORR 610 
..CCBR 620 
CORA 630 
CORR 640 
CORR 650 
CCRR 660 
CORK 670 
CCRR 6R0 
CCRR 690 
CORR 700 
CQRR 710 
CCRR T20 
CORR 730 
CORR 740 
CCRR 750 
CORR 760 
CQRR 770 
•CORR r«o 

CORR 790 
CORR SCO 
CQRR 110 
CCRR A20 
CORR a 30 
CORR 840 
CORR 850 
CORR 860 
CORR 870 
CORR 860 
CORR 890 
CORR 900 
CORR 910 
CQRR 920 
CORR 930 
CORR 940 
CORR 990 
CORR 960 
CORR 970 
CCRR 980 
CORR 990 
CORRIOOO 
CORRIOIO 
CQRR 1020 
CCRR1030 
CCRR1040 
CORR 1050 
CORR 1060 
CGBRIOTO 
CCRRIOBO 
C0RRL090 
CQRRllOO 
COBRIUO 
CCRR 11 20 
C0BR1130 
CCBR1140 

cmim 

CCRR 1160 
CCRR 11 TO 
CORRIISO 
CCRB1190 
CCRR1200 
CCRRl2tO 
CCRRI220 
CCRR1230 
CCRR124a 
CCRR1250 
CORR 1260 
CCBR12T0 
CCRR 1280 
CCRR1290 
CCRBISOO 
CCRR 1310 
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CflCLL^U H.H CF CSCSS-PKCtCCIS Cf OCVI'TICtiS 
ffCP lefFCKiflV ftAhi fCR m CeSCf<«*IICf)S 

t«c 

cc lec 1-1. KK 

JK-C 

cc lie J>],f 

UC L(J)-DJi(ll-l|J| 
cc 1«C J>l,f 

cc lec K'l.j 
lac fiiJKi-»(jKi«ccjf*ciK j 



iFtF'-i'Ki ;c;, 2c; 



Iti 



C R(#C TFE 0£;i CF CBSEftVillChS CKE 41 A II^E, SU* 

C 1^£ CeStFV*IJCf, «h£ CiiCULJlTf strs Cf CUCSS- 

C FfCCLCTS Cf C£VUtKl.S FROM l£fPQRiBV HEAKS 

la; KK-h-nn 

cc ;CC I-I.KK 

Jt("C 

C«IL cut tf.CJ 

cc ISC j*l.^ 

CIJ)-CIJI-I<JI 
KC CIJ)-E(Jl*C«Jl 
cc iCQ J>1*» 
cc iCC K-]<J 

2CC i)UK)>(!lJt>)*C(J)*CfKl 

c 

C C/Lt:LL«I( *'Eih£ 

C 

2C! JK-C 

cc UC J>l.f 

ie4fi{ji*]ie>f)(jt/Fiii 

c 

: JCJLSI iCVS CF CfCSS-PftCCUCTS CF OEVIiTIChS 

: f*tP TEfFCRAft CE'NS 

cc <IC D-l.J 
JK-JKtl 
21C R(JKI-f(JKi-flJt*e(Kt/F>. 

C4LCLl'1E CCRXEL'lICh CCEFFICUfTS 

Jt<«C 

cc ;^c j'l,*- 

^«-JK«J 

HQ flt(Jt* 5(.RI1 <e5(fl|jt()ll 
cc ilC J'ltf 

cc 2;c »-j.* 

«(i-J*Iii*H-K)/2 
l«f*(J-l MR 

Pint j-KCjm 
i-r* o-i Mj 

ti» II )-fi(J(I| 

IF1STC(J>«STCIKI1 3:t, 122* 22'. 
lit fUlO-C.C 

CC 1C <JC 
22; »i|JK>-f IJKI/ISTCI J1«5IC(K)) 
2JC CCMIfCE 

CAtCLLilE SIAhCiXC CEVUTICKS 

Fh<5CPT(Fh- UC I 
cc <^C J«l,^ 
J«iC SKlJI-!ICIJl/fR 

CCPV IfE CI»GCfc»L CF TfE »'»I1'I> Cf SllfS CF CCCSS-PSCCUC TS CF 

ctviAt lc^s Ft-c*- ^'E*^s. 



cc i'.C i.i,^ 
2^c e(ii>f»a I 

Er.C 



ccaPH2o 

CCAS1130 

C0MR1)40 

CCRMH50 

CCBS1360 

CORRIITO 

CCRRiasO 

CC0R1390 

CCftRL^OO 

CGHRl^lO 

C0RH1S20 

CORitMSa 

CCRRM^O 

COBOHSO 

CQRR1460 

CORRI^TO 

CCRRt^eO 

CGARl'^90 

C0R«1500 

CCRP15I0 

CQRItLSZO 

C0IIIII)30 

CORK 1540 

CCRA1990 

C0ltRtS60 

COtt«l570 

CCRR1S«0 

CCflftlSSO 

C0RR16OO 

CCftftt610 

C0RRt620 

C0RR1630 

CQRitl640 

CCRR1650 

CCflR1660 

C0RR1670 

CCRRUSO 

CCRfll640 

C0ftR170O 

CCRRinO 

CCitiilT20 

CCRftlT30 

CCRRlTiO 

CCRR17»0 

CCRR1760 

CCRR1770 

CCftR17aO 

CCRfll790 

CGRRiaOO 

caRKisio 

CORftlSZO 
CaRRU30 
CCRRLS^O 
CCRR18&0 
CCRR1860 
CCR(tia70 

coRRiaao 

C0RR1S40 
CCRftl900 
CCRRI910 
C0RR1920 
CCRRI930 
CCRRLI^O 
CCRR1950 
CCRR1460 
CCRRlirO 
COHR19B0 
CCRR1990 
CCRR2000 
CORR23IO 
CPflR202O 
CCPR20JO 
CCRR2340 
C0RR2050 
CCRR2060 
CCRR20TO 
CCIIR20S0 
CCRR2a90 
CORRZIOO 
CCRR2I10 
CC«R2120 
CCft«2130 



Subroutine MISR 

This subroutine computes means, standard devia- 
tions, third and fourth moments, correlation coef- 
ficients, regression coefficients, and standard 
errors of regression coefficients when there is 
missing data. Effective sample sizes are also pro- 
vided. Missing observations or certain values of the 
data can be skipped at the user's option. The 
computational steps are as follows: 

1. Compute means: 



n 



^j = 



a= 1 



aj 



(1) 



where j = 1, 2 m implies variables 

n = number of nonmissing values for the jth 
variable 

2. Compute sums of cross-products of deviations 
from means for complete sets of ith and jth variables: 

n 

a= 1 



Z) (^ai-^) £ (X 



a= 1 



a= 1 



aj -^j 



Xi) 



(2) 



where x^, xj = means of ith and jth variables com- 
puted as above 
n ' = number of sets where the ith and jth 
variables are botii present 



3. Compute product-moment correlations: 



^ij 



IJ 



<3) 



4. Compute regression coefficients, intercepts, 
and standard errors of regression coefficients: 



a. ith variable as independent and jth variable 
as dependent; 



1] 



S.. 



Regression coefficient: b- • = 



(4) 



Intercept: ajj = xj - bjj x^ ' 



(5) 
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standard error regression coefficient: 



^jj " ""ij ^JJ 



'b,-i 



ij (n - 2) Sji 



(6) 



b. jth variable as independent and ith variable 
as dependent: 



ij 
Regression coefficient: b4j^=-^7^ 



n 



(7) 



■'JJ 



Intercept: a^j^ = Xj - b^j^Xj 



(8) 



Standard error of regression coefficient: 



Sbji^ 



Sii - rjj Sii 



(n ' - 2) Sjj 
5. Compute standard deviations: 






(9) 



(10) 



where n = number of nonmissing values for jth 
variable 

6. Compute skewness and kurtosis, s and k: 
n 
Let/ij.= Y) (Xq. -X.) Vn 
J cT^l J •' 

Then Sj = M3j/ (/^2j) ^^^ 

andkj = (fX4/M2j) "3 

Note: This subroutine cannot distinguish between a 
blank and a zero. Therefore, if a blank is 
specified as a missing data code in input cards, 
it win be treated as (zero). 

For reference see B. Ostle, Statistics in Re- 
search. The Iowa State College Press, 1954, 
chapter 6. 



(11) 
(12) 



Purpose 

COMPUTE MEANS, STANDARD OtVMTIOMS. StCtotNESS AND KURTOSlS, 
CCRRELATinN COtt-F ICItNTS, RtGftESSIPN COEFf ICI tNTSt *ND 
SIANOARO CRROfS OF P6GfiESSlGfi CCEFFICI€"«tS WHEN THEt^E *<>£ 
MISSING DATA POINTS. THi USER IDENIIflES THE HISSING OATA 
Br MEANS Of * NUHERIC COOe. THOSE VALUES MOVING THIS CODE 
ARt SKIPPED in COMPUTING THE STATISTICS. IN THE CASE OF 
CORRELATION COtff IC lENTS, iNV PAIR Of VALUES ARE SHIPPED 
tllHER ONE OF iMtM ARE MISSING. 



USAGE 

CALL MISR <N0< 



M,X,COOEiK6AR,STOi5<tEb,CURr,R,N.A,B,S»ieB) 



CODt 



xeAC 
SIO 



CURT 



NUMERIC 



MISk 
MISR 

MISB 

HISR 
HISR 

MISF 
MISR 
HISR 

MISP 

MtSR 
MISR 

HEMISf 

F MISR 
HISB 
MISK 
HISR 
MISR 
MISR 
HISR 
HISR 
MISR 
HISR 
HISR 



uEiCfilPriON OF PARAMETERS 

NO - NUMBER OF UBSCRVATIONS 

H - NUMBEF OF VAQIABLES 

X - INPUT DATA MATRIX OF SIZE NO X M. 

INPUT VECTOR OF LENGTH H, WHICH CONTAINS 

MISSING DATA COOE FOF^ EACH VARIABLE. ANV OBSERVATION MISR 

FOR A GIVEN VARIABLE HAVING A VALUE EQUAL TO THE COOEHISR 

UILL BE DROPPED FOR TmE COMPUTATIONS. MISR 

OUTPUT VECTOK OF LENGTH M CONTAINING MEANS MISR 

OUTPUT VECTOR Of LENGTH H COKTAINIHG STANDARD DEVI- MISR 

ATIONS 

CUTPUT VECTOP Of LENGTH H CONTAINING SKEWNESS 

OUTPUT VECTOR OF LENGTH H CONTAINING KURTOSIS 

OUTPUT MATRIX OF PRODUCT-MOMENT CORRELATION 

COfFFICIENTS. THIS WILL BE THE UPPER TRIANGULAR 

MATRIX ONLY, SINCE THE H K M MATRIX OF COEFFICIENTS 

IS SYMMETRIC. <STORAGE MODE II 

- OUTPUT MATRIX OF NUMBER OF PAIRS OF OBSERVATIONS USEDMISR 
IN COMPUTING THE CORRELATICN COEFFICIENTS. ONLY THE MISR 
UPPER TRIANGULAR PORTION OF THE MATRIX IS GIVEN. 
(STORAGE HOOE II 

- OUTPUT MATRIX (M BV M» CONTAINING INTERCEPTS OF 
REGRESSION LINES (Al OF THE FORM Y"A*BK. THE FIRST 
SUBSCRIPT OF THIS MATRIX REFERS TO THE INDEPENDENT 
VARIABLE AND THE SECOND TO THE OEPWOENI VARIABLE. 
FOR EXAMPLE, Ad, 31 CONTAINS THE INTERCEPT OF THE 
REGRESSION LINE FOR TWO VARIABLES WHERE VARUBLE I 
IS INDEPENDENT AND VARIABLE 3 IS OtPENOENT. NOTE 
THAT MATRIX A IS STORED IN A VECTOR FORM. 

- OUTPUT MATRIX IM BY Mt CONTAINING REGRESSION 
COEFFICIENTS IB) CORRESPONOI NG TO THE VALUES OF 
INTERCEPTS CONTAINED IN TME OUTPuT MATRIX A. 

- OUTPUT MATRIX IM BY MI CONTAINING STANDARD ERRORS 
OF REGRESSION COEFFICIENTS CDRRESPONDi NG TO THE 
COEFFICIENTS CONTAINED IN THE OUTPUT MATPIK B. 

NO ERROR. 

IF NUMBER Of NON-MISSING DATA ELEMfNTS FOR J-TH 
VARIABLE IS TWO OP LESS. IN THIS CASE. STOIJI. 
SKEWUI, ANO CURTIJI ARE SET TO 10»«75. ALL 



lER 



MISR 
HISR 
MISR 
HISR 
HISR 
MISR 
HISR 



MISR 
HISR 
MISR 
MISfl 
HISR 
MISR 
HISR 
HISR 
HISR 
HISR 
HISR 
MISR 
HISR 
MISR 
HISR 
HISR 
MISR 
HISR 
HISR 
MISR 



VALUES OF R, 



ANO S RELATED TO THIS VARIABLE MISR 



ARE ALSO SET TO 10**75. 
2, IF VARIANCE Of J-TH VARIABLE IS LESS THAN 

10»«I-20I. IN THIS CASE, STDIJl. SKEM(J), AND 
CUCTIJ) ARE SET TO 10»«75. ALL VALUES OF P. *i 
B. ANO S RELATED 10 THIS VARIABLE ARE ALSO SET 1 
10**75. 

REMARK S 

THIS SU6R3UIIME CANNOT DISTINGUISH A BLANK AND A ZERO. 

THEf^EFORE, If A BLANK IS SPECIFIED AS A MISSING DATA CODE 

INPUT CAROSt IT WILL BE TREATED AS (ZERO). 

SUBSOUTINES ANO FUNCTION SUBPROGRAMS PEQUlRED 

NONE 



METHOD 

LEAST SQUARES REGRESSION LINES ANO PRODUCT- 
LATION COEFFICIENTS ARE COHPUTED. 



(OMENT CORRE- 



SUfiROUTINE HISR (NO,M, R, COOE , "BAR, STO,SKE W,CURT ,R .N, A, 6, S . lER I 



DIMENSION XIU.COOEdl.XBARUI.STOd) 
DIMENSION A( 1 I ,fl< II. Sd) 



.SKEWIII .CURT(I) tRIll.Nt II 



COMPUTE 


MEANS 






lEH-O 








1 = 








DO 20 J-1. 


.H 






FN-0.0 








XBARlJI-0. 


,0 






DO 15 l-l. 


NO 






L-L»l 








IFIXILI-COOEI Jll U. 


15, 


l^ 


fN-FN*l.O 








XBAR(J)<=XBAR( JUXUI 






CONTINUE 








IFIFNI Ifc, 


, 16, 17 






XBAR( J1«0. 


,0 






60 TO 20 








).BAR(JI"KBAHIJ)/FN 






CONTINUE 








SET-UP 


WORH AREAS 


ANO 


TE 


L = 








00 55 J=l, 


tH 






LJJ=NO*(J- 


-1( 






$REWUI>0, 


.0 






CURT t J 1 = 0. 


.0 






KI=M*( J-l) 






«J=J-H 








00 5* 1=1 


,J 






Ki=M*i 









DATA IS MISSING 



TII-O.O 




TJJ=0.0 




TI J--0.0 




N1J»0 




LI«NO*M 


-11 


L J=LJJ 




L = L*I 




00 38 K= 


UNO 


LI'LI'l 




LJ«LJ»I 




IF( X(L1 1- 


-COOE 


IFIKILJI- 


-COOc 



100 
110 
120 
130 
1*0 
150 
160 
170 
180 
190 
200 
210 
220 
230 
2*.0 
250 
260 
270 
260 
290 
300 
310 
320 
330 
3*0 
350 
360 
370 
3B0 
390 
*00 
*I0 
*20 
*30 
**0 
*50 
*60 
470 
*60 
*90 
500 
510 
520 
530 
5*0 
550 
560 
570 
580 
590 
600 
610 
620 
630 
6*0 
650 
660 
670 
680 
690 
700 
710 
720 
730 
7*0 
750 
760 
770 
780 
MISR 790 
niSR 800 
HISR 810 
MISR 820 
HISR 830 
HISR 6*0 
MISR 850 
HISR 660 
MISR 870 
HISR 660 
MISR 890 
HISR 900 
HISR 910 
HISR 920 
HISR 930 
HISP 9*0 
HISR 950 
MISR 960 
MISP 970 
HISR 980 
HISR 990 
HISPIOOO 
HISRIOIO 
MISRI020 
HISR1030 
MISR10*0 
HISRIOSO 
HISP 1060 
MISR1070 
HISRIOSO 
HISB1090 
HISRllOO 
MlSRllIO 
MISFIIZO 
MI SRI 130 
H1SRI1*0 

HISR1160 
HISRtUO 
MISR1160 
MISR119fl 
HISR1200 
MISR1210 
M1SR1220 
HISRW30 
HISR12<>D 
MISR1250 
MISR1260 
MISR1270 
•^ISRUBO 
MISF 1290 
MISRiaOO 
MISR1310 



HISR 
HISR 
HISR 
HISR 
a HISR 

HISR 
HISR 
HISR 
MISR 

INHISR 
HISR 
MISR 
MISR 
NISR 
HISR 
MISR 
MISR 
MISR 
HISR 

..MISR 



34 Statistics --Correlation and Regression 



<4CiTh data ahl pRtS£Nr 

35 KX = K(I. I )-XBAa ( I I 
YY = J((l.Jl-II84R( Jl 

TJ=TJ»vy 

TJJ'iTJJtVY**^ 

I r J=IIJ*)(K«YY 

SUMX*SUnx»X(LI 1 

SUMY-SUMY*K(LJI 

1F<I-JI 30. )?. 37 
37 SKEW(J» = SREt>(J)*YY»*3 

CUPTU»-CU«T( J) •¥¥••« 
18 CONTINUE 

COMPUTE SUM Of CROS S-PfiOOUCTS Of DEVI*T10hS 

fFINIJl *0. *0, )•» 
39 FN=N(J 

B(ii«Trj-ri»rj/FN 

NIL I^NIJ 

II I-ril-TMTI /fH 
IJJsf JJ-TJ«IJ/fH 

COHPUTf STANDAPD DEVIATION, SKEUNESS. AND KU^TOSIS 

^0 If(I-Jt *7, *l, *7 
41 lftN[J-2l '.2,42,«^3 
*>i IER-1 

R(Lt=1.0eT5 

A(KI )-1.0E 75 

fl(KI»=l.Oe75 

S(KI )=:l.OE75 

GO TO *5 

*3 SIDI J»-=Rll. I 
F(LI>t.O 
AIKn=0.0 
BIK[ 1-1.0 
SIKIMO.O 



1F(ST0(J t-( i.oe 

44 iep=2 

<t5 STO( J) = U0ET5 
SKfHt J1=1.0E75 
CUPT(JI=1.0E7S 

GO TO 55 



4,i,,A',,*.b 



MISF 1320 
H ISP 1)30 
N[$A|)40 
MI5P 1350 
HISfil3«0 
HISH1370 
HISC1360 
HI SRI 390 
MISRUOO 
M15P1410 
HISPI420 

niSRi^3a 

«ISP1440 
NIS(tl4%0 
HI so 1460 
HISF1470 
HISRl'.SO 
«ISRl*90 
MlSt^lSOO 
HISftlSlO 
HISRL920 
HtSPISSO 

Mrs<ii5*o 

HIS" 1550 

HISP1560 
HISfli570 
H|Sfll5flO 
M1SR1590 
HI SO 1600 
niSfil6tO 
MISR1620 
H(SR1630 
HISR1640 
HISRIA50 
Ht&R1660 
MfSRl670 
HISftl«80 
niSR|690 
MISm700 
MISR1710 
HISftlTZO 
HESRIT30 
HI SRI 740 
MISRIT50 
KISP1760 
HISRI770 
MISRI7aQ 
MISB1790 

HtSRiaoo 

HISP1810 



46 WOP«"STOf Jl/f N 

SKEw(J) = <$KEH(J)/Fh)/(WCRK>SQRT{UOR< I I 
CU«T(JI = ((CURT(JJ/fNI/«OR(C**2)-5.0 
STO( Jl-Sttkll 5I0IJt/<FN-l.0)) 
GO TO 55 

COMPUTE R€C«tSSION COEFFICIENTS 

47 IF(N|J-2| 48,48,50 

48 lEP-I 

49 fl(L}-1.0Er5 
A(KII<l.OE75 
e<KI)>I.Of 75 
SIKI )-I.O€75 
A(KJ)=|.0E75 
BIKJ|=1.0E75 
SUJ) = l,0e75 
GO TO 54 

50 |F|TII-U.0E-20)I 52,52,51 

51 If ITJJ-C1.0E-2an 52,52,^3 

52 IER=2 

GO 10 49 

53 SUHX=SUMX/fN 
SUMV=SUHY/fN 
8(Kn=Kl.)/T 1 I 

A(KI l«SOHY-e(KI )*SUHX 

e(t(JI=RH.I/FJJ 

*(KJ)-SUMX-6(KJ1*SUMY 

COMPUTE CORkELATION COtPFICIENTS 

R(L l=RtLl/(SOftT( TIII'SORrirjJJI 

COMPUTE STANOAt-O tf-P&^S OF fEG^€SSIQN COfcFFICieNTS 

PB-P1L)**2 

SUMXi( Tjj-TJJ*Ptl/eFN-2I 

sfRn=softTisuHx/Tin 

SUMY=( TII-TII'ftPl/tFN-^l 
S(t<Jl=SOf TtSUMY/TJJI 



Mr,P1820 

M|SI'I83G 

HISPlfl4Q 

MISP1850 

M|S(tia60 

MtSP 1870 

niSt- 1880 

MISR1B90 

MU*>1<>00 

M1SB19I0 

MISP1920 

HISR1930 

H ISP 1940 

MISP1950 

H[S('|960 

HISH970 

MISK1980 

HISR1990 

HI5P2000 

MISP20I0 

MISfl2020 

HISf20i0 

MISR20A0 

HISP2050 

M ISP 2060 

HISP2070 

HISR20S0 

MISP2090 

MISR2I00 

M!SR2ilO 

MlSfi2120 

MISS2130 

HISR2140 

MISt«2l5Q 

MISP2160 

HISR2170 

MISP2iaO 

MISP2190 

HnP2200 

MISR2210 

Hrse2220 

HISR2230 

MISB2240 

MtSP2250 

HISP2260 

MJSP2270 

MISP22eO 

MI^B229Q 

MISf^230Q 
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Multiple Linear Regression 



Subroutine ORDER 



In the Scientific Subroutine Package, multiple 
linear regression is normally performed by calling 
four subroutines in sequence, 

1, CORRE - to find means, standard deviations, 
and correlation matrix 

2, ORDER - to choose a dependent variable and 
a subset of independent variables from a larger set 
of variables 

3. MINV - to invert the correlation matrix of the 
subset selected by ORDER 

4. MULTR - to compute the regression coeffi- 
cients bo, bi, b2, ...» bm, and various confidence 
measures 

The subroutine CORRE works in either of two 
ways: (1) it expects all observations in core, or 
(2) it triggers a user-provided input subroutine, 
DATA, to read one observation at a time into a work 
area. In either case, the user must provide a sub- 
routine named DATA (see "Subroutines Required" in 
the comment cards description of subroutine CORRE). 



FLFfCSE 

CChSTKCCT FfCf « L'KC£R »JI1R1K CF CCRRELATICK CCCFPICIEMS 
» SOtiSCI KAIRIJi CF lM€FiCCf)flEL*1ICh£ AKflthG IKCEPENDEN1 
ViRI^etES tKZ » V£CICR CF IKTERCCRRElAllChS Cf IKOEPEhDCKT 
V/|i|«tlES hlTh CtftHCthl V'OIASLE. ThIS £I.BRCLT1NE IS 
f'Cflf'LLV LSEt IN tl-E Pt.ffQHf*h(.t Cf fCLTIPLt AKC PCLY\CP1AL 
PECOESSICK 4<k«LVSES. 



LS'CE 

Ctll CKCEF (P. A. 



ICEP.K. I<«VE.n)(,RV> 



HCEF - 



CE^CFIFTICK Cf P*«<f£IEPS 

P - kUPBEtl CF VAHUELES ANC CROEfl Cf PaiHIll R. 

h - IhfLl PJimx CCMAIMNC CCft(tEl*TIC^ CCEFFICIEMS. 

It-lS SieOCUTlNE EXPECTS C*>LV LPPCtl TR|i^CUL&K 
fCRTICk GF TfE £V»'P£TRIC CATfUX U Hi SIOftEO (BV 
CCLtPM IK R. (£1CR*CE PCCE CF II 

T»<E SUeSCRIPT hUfl^ER CF IFE OEPEI^CENI VARIABLE. 
hLPBER CF IhCEPEfkCEM VARtAeiES IC BE IhCLUOEC 
[h THE FCRT^CCPIhE MEGRESSIOM. K PU5I et CAEATEM 
It-Ah CO ECUAL IC 1. 

lltSt - IKPUT VECTCA Cf LEhCrh K*| CCMAIMNC, IN ASCEKCINC 
CACER. Il-E SUeSCRlPI hUPUERS CF K INCEPENOENT 
VAPIAeiES TO BE lACLUOEC U T»-E fCRIfCCPl^G REGHES- 

Slc^. 

IfCK PETURMKC IC Tl-E CALLIKC RCllTINE. THIS VECTOR 

CCIilAIfcS. Ik ACCiriCK. ThE SIjBSCRIPT KUPflER OF 

^H CEfENCEhT VARIABLE JK K41 FQSITIC^. 
ft - CLIPbl tlAIRly <»> X Kl COMAIM^C I h T^MCOKRELA T IONS 

APChG IhOEPEKCEKT VARIABLES TC BE liSEC IN FnHTH- 

CCPI*<C REGR^SSIC^. 
P» - CtTPCI VECTOR Cf L£^GIt- K CCMAIfcl^C IMERCORRELA- 

TlChS CF IhOEPEKCEKI VARIABLfcS hllH CEPENOENT 

V4PIACLES. 

REPARKS 

SLERCLIIAES AfC FLhCTlCN SLEFRCGRAPS RECUIREC 

PETFCC 

F*CP I^E SLCSCPIPT MPeCS; CF tl-£ ^ARlABtfS TC BE IhCLUOED 
Ik Tl-E FCRIt-CCPIKC AECRESSICh. THE SLeROUllNE CCKSTKUCTS THE 
PAIFU RX A^C I^E VECICH RV. 



CROE 
.ORDE 
OROE 
QROE 
OROC 
ORDE 
CROE 
CROE 
CROC 
CADE 
ORDE 
OHOE 
ORDE 

CHoe 

CRDE 

onoE 

OROE 
OROE 
OROE 
OROE 
CROE 
CROE 
OROE 
C«OE 
CROE 
OROE 
CROE 
ORDE 
CROE 

naoE 

CROE 
OHOE 
CROE 
OROE 
QROE 
CODE 
0<<0E 
ORDE 
OROE 
ORDE 
OROE 
DROE 
ORDE 
OROE 
CROC 
OROE 
OROE 
CRDE 
OROE 
OROE 
OROE 
ORDE 



IQQ 
HO 
120 
130 
1*0 
150 
160 
ITO 
ISO 
ISO 
200 
210 
220 
230 
240 
250 
251 
260 
270 
280 
290 
JOO 
JLO 
120 
3 30 
340 
350 
360 
3T0 
3B0 
390 
*00 
410 
'i20 
430 



4ao 

690 
500 
510 



;ifc^CltIKt CHCER (f«H(hCEP,K,I5«VE.RX,R1l 
ClfiMlCK Kdl.lSAVEdt.RXdl.RVdl- 



IF t ECLBLE PfECISICh VERSICh CF ll-IS RCLTIhE IS CESIREO. THE 
C I^ CCLt^Pk 1 StiCULD BE REr-CVEC FRC** 1f<E OOueLE PRECISICN 
SIA1EPEM ^.^■IC^ fCLLChS. 

CCLELt (RECUICK R,R«,BY 

ll-E C PtSI AISC C£ REPUVEC FRC*' CCLELE PRECISICh STATEHEMS 
iPFE/PING iK CTHER flCUU^tE LSEC IK CC^JC^CTlC^ hlTH IHIS 
DCLTIKE. 



CCFV IMERCCHREIAT IChS CF I^CEFEKCENT VARIAELES 
.hlll- LEFEKCEfl WARIAELE 

PP«C 

CC 13C J'l.K 

1<>IS«WEUI 

IF(hCtF-Lil I2i, 123. 123 

L'hCtf «(4.2«li-t;t/2 

CC IC lit 

L-li*I^ctF•^ctf-^ctP*/^ 
Rytj)>ti ID 

CCPY A ILESET fATPtX CF INTERCCFRELAT ICKS APCNC 

[^ClF£^C£^T varIasles 

CC 13C 1-1. K, 

Ll-lSAvEIlt 

IFUl-lfl 12). 126. 12E 

l-li«ILi«L2-L2l/2 

CC TC U« 

l>L24Ui«ll-Lll/2 

► P-PHi 

FyiPPi>»lLl 

flACE TfE SCESCHIFT KUfSiH Cf I^E CEPEkCEfcT 
^'PIAElf Ih ISAVEU*!) 

JSAVE |K*l)>ikCEF' 

FETLRh 

tfC 



CROE 520 
OROE 530 
ORDE S^iO 
CROE 550 

, .OitOe b*>0 
ORDE 570 
CROE 5«Q 
ORDE 590 
CROE 600 
CROE 610 
OROE 620 
CaOE 630 
ORDE 640 
OROE 650 
CRDE 660 
CRDE 670 

.QROE 6S0 
CROE 690 
QROE 700 
ORDE 710 
CROE 720 
OROE 730 
CROE 740 
CROE 750 
CRDE 760 
OROE 770 
OROE 780 
GROE 790 
OROE 800 
CROE BIO 
OROf 020 
ORDE 930 
CRDE 840 

OROE aso 

OROE 060 
OROC 870 

CROE aso 

OROE 890 
CROC 900 
CROE 910 
OROE 920 
ORDE 9 30 
CROE 940 
OROE 950 
CROE 960 
CROE 970 
OROE 9a0 
OHOE 990 
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Subroutine MULTR 



and taking the square root of R : 



This subroutine performs a multiple regression 
analysis for a dependent variable and a set of inde- 
pendent variables. 

Beta weights are calculated using the following 
equation: 






(1) 



where r. = intercorrelation of i**^ independent 
^^ variable with dependent variable 
-1 



1] 



the inverse of intercorrelation r.. 



ij = 1,2, 

r and r.. 
ly 1] 



. . . , k imply independent variables 
are input to this subroutine. 



Then, the regression coefficients are calculated as 
follows: 



b. = /3. --^ 
' •" J 



(2) 



where s = standard deviation of dependent variable 

y th 

s. = standard deviation of j independent 

^ variable 
i = 1, 2, ..., k 
s and s are mput to this subroutine, 

y i 



The intercept is found by the following equation: 
k 



Es 



3=1 J J 



(3) 



where Y = mean of dependent variable 

X = mean of j**^ independent variable 
J 

Y and X are input to this subroutine. 
3 

Multiple correlation coefficient, R, is found first 
by calculating the coefficient of determination by the 
following equation: 



R 



= / . /3.r. 
iH ''^ 



(4) 



■ v; 



R= VR 



(5) 



The sum of squares attributable to the regression 
is found by: 



SSAR = R • D 



yy 



(6) 



where D = sum of squares of deviations from 
^ mean for dependent variable 

D is input to this subroutine. 

yy 

The sum of squares of deviations from the re- 
gression is obtained by: 

SSDR = D - SSAR (^) 

yy 

Then, the F-value for the analysis of variance is 
calculated as follows: 



SSAR/k 



SSAR(D-k-l) 



SSDR/(n-k-l) SSDR(k) 

Certain other statistics are calculated as follows 

Variance and standard error of estimate: 

2 _ SSDR 

y. 12. ..k n-k-1 

where n = number of observations 



(8) 



(9) 



^. 12. ..k J 



y. 12. ..k 
Standard deviations of regression coefficients: 



(10) 



-1 

r 
JJ 



D. 



]] 



y. 12.. -k 



(11) 



where D.. = sum of squares of deviations from 
^■' mean for jth independent variable. 
D;5 is input to this subroutine. 

j = 1, 2, ..., k 

Computed tt 

b. 



t. = e 



J 



(12) 



b. 
J 



j= 1, 2, .... k 
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SUOALUT IHt HjLiK 

PUHPQifc 

PtKfORM I. MUL(l(>Lt LlNtAK REMtSiJUh ANALYSIS FOR A 
UkPLHUtHi VAAIAaLE AND A $t\ OF INUtPENOENT VARIABLES. FHI 
iObKOO'^lNfc I^ NORMALLY USlEO IN THt PeftFOKHANCE Of NULIIPLE 
ANiy PULYNOMtAL KEGAESSION ANALYSES. 



(N,K,x6AR,sru,U,RXTRV, I SA V6 * d« SB t T (ANS I 

UtSCRiPMOH OF PARAHEFERS 

N - NUMbER UF DB^LRVAT IONS . 

K - NUM6tR OF lNl;t:PENOLNT VARIABLES IN THIS REGH£SSION. 

KtJAR - INPUT VECTOR Qf LENGTH H CONTAINING MEANS Of ALL 

VikRlABLES- H IS NUfteER Of VARIABLES IN UttSERVATIONS 
blO - INPUT VtCTUK Of LENGTH H CONTAINING STANJARO DEVI- 

ATIUNS ijF ALL YAKlAdLES. 
- INPUT VECTOR Of LENGTH H CONTAININC THt OIaCoNAL DF 

THE HAIRIX Of SUMS Uf CROSS-PRODUCTS Of JkVIATIOMS 
FRJH MEANS FUR ALL VARIABLES. 
hX - INPUT MATRIX (K X Kl CONTAINING THE |NVERS£ OF 

iNTcftCORRfcLAriLMS AMONG INOEPENOENT VARIABLES. 
R» - INPUT VECTOR OF LENGTH K CONTAINING I NTERCORRELA- 

TIJNS Of INDEPENDENT VARIA8LES Nl TH DEPENOENt 
VAKUdLE. 
ISAME - INPUT VECTOR CF LENGTH K*l CONTAINING SUSSCRtPTS Of 
INUEpEnOEnT VAftlAdLtS JN ASCENDING ORDER. THE 
SUoSCRIPT Cf THE DEPENDENT VARIASLE IS SrOfttO IN 
THE LAST. IC»1, POSITION. 
B ' GJTPUT VECTOfl Jf LENGTH K CONTAINING REGRESSION 

COiff ICIENIS. 
S8 ~ OUTPUT VECTOR Of LENdTH K CONTAINING STANOARO 

UfcVI&TIUNS Jf ftfGRESSION COEf FICIENTS. 
J - UUIPUT VECTOR OF LENGTH K CONTAINING T-VALUES. 

ANS - OUTPUT VECTOR OF LENGTH 10 CONTAINING THt FOLLOWING 

INFORMATION.. 
ANSI I) INTERCEPT 

ANSI2I MULTIPLE CORRELATION CQEFFItlENT 
ANSI 3) STANOARO ERROA Of ESTIMATE 
ANSCtl SUM OF SQUARES AT TRI SUTAtlLE TO REGRES- 
SION (SSARI 
ANSI3) DEGREES Of fREEUOM ASSOCIATED 1*1 TH SSAR 
ANSC6) MEAN SOUARE OF SSAR 
ANSCri SUM CJF SCUARtS Of DEVIATIONS fiiOH KEGRES- 

SiQN (SSOR) 
ANS<6t tEGRtti OF FREEDOM ASSOCIATED WITH SSOR 
ANS(9t MEAN SQUARE Of SSOR 
ANSdO) f-VALUE 

REMARKS 

N MUST 6£ GRtAlEft THAN K*l. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REOUIRED 
NONE 

MtlHU) 

THt GAUS5-J0R0AN MtTHOO IS USED IN THE SOLUTION Of THE 
NCRMAL IwUM luNS . MEFER TO rl. U. COULEY AND P. R. LOHNES. 
'MOLTIVARlATt PRCCtUUtttS FOR THE BEHAVIORAL SCIENCES'. 
JLHN lilLEr AND SUNS, 19bZ, CHAPTER 3i AND b. OSTLEt 
•STATISTICS IN RESEARCH", THE lOWA STATE COlLEGt PRESS, 
1954, CHAPTER 8. 



SUbRCUTlNE MULTR (N,K.t X6AR, STO, tRX.RY, 1 SA VE t S , Sf , T , ANS I 
DIMENSION XtlARdl.SrDI 1) ,C( I I .RX( 1 ) .R Y( 11 . I SAVE I 1 1 ,6(1 1 . SB 1 1 1 . 
1 TUI,A|VS(1} 



IF A uOJdLi. PA£ClSlOh VtRSIUN OF THIS ROUTINE IS DESIREUi THE 
C iN CULJMN 1 SHOULO BE REMOVED FkljA THE DOUBLE PRcCISlON 
STATEMENT itHlCH fULLOWS. 

OOUHLt PRcClSJUN X6AR. STO, D. RX. RY.B< So. T.ANStRM.BG, SSAR, SSOR, Sr. 
1 FN ,FK,SSARMiSSURn,f 

THE C MUST ALiU St REMOVED FROM OGUBLE PRECISION STATEMENTS 
APPtA.*lNG IM JTHtK ROUTINES USED IN CONJUNCTION MITH THIS 
KudT 1n£. 



jO 



60 



MULT 
MULT 
MULT 
MULT 
MULT 
MULT 
MULT 

SMULT 80 
MULT 90 
MOLT 100 
MULT lie 
HUIT 120 
MULT ISO 
MULT 1*0 
NUIT ISO 
MULT 160 
NULT 170 
MULT 180 

.Mult i9o 

NULT 200 
MULT 210 
MULT 220 
WiLT 2i0 
MULT 2*0 
MULT 2^0 
HULT 260 
MULT 2T0 
MULT 280 
NULT 290 
HULT 300 
MULT 310 
HULT 320 
MULT 330 
HULT 3*0 
MULT J50 
HULT 360 
MULT i70 
HULT J80 
MULT 390 
NULT 400 
MULT 410 
HULT 420 
MULT 430 
HULT 440 
MULT 450 
MULT 460 
MULT 4 70 

Mult 480 

MULT 490 
MULT 500 
HULT 510 
HULT 520 
HULT 530 
HULT 540 
HULT 550 
MULT 560 
HULT 5 70 
MULT 5flO 
MULT 590 
HULT 6C0 
HULT 610 
HULT 62C 
HULT 630 
MULT 640 
MULT 650 
HULT 66C 
MULT 670 

.MULT 680 
HULT 69C 
MUlT 700 
MULT 710 
HULT 720 
MULT 730 

.HULT 740 
MULT 750 
MULT 760 
HULT 770 
HULT 780 
MULT 79C 
HULT 800 
MULT 610 
MULT 8 20 
HULT 830 
HULT 840 
MULT 850 
MULT 960 



iSlU.'. V£«iluN i,F IMIS SUBKOUTINL MUST AlSo 

Pf^tHSlLA FOkI«AN FuNLTIlnS. SjRT AND A(JS 

I^u. AUl 1j5 MUSI tjE CHANGED Ti^ OSCKT AND 



DtiA WL IGHIb 

OCJ lOt, J=l,i( 
ICl b( Jt=C .0 

oQ lie J=1.K 

DO UC IM,K 



♦ I 



1 IL 



j| = 



( JI*Ky< 1 )*kxi L) 
KM=C.C 

60=I.-.L 

Ll= I !)AVt< MMI 



Lff ! 



-ItNl Ut- .JtrtKHlN 



12. 



KcORtSSU>N CUiiPF ICIENTS 



L = ISAVc( I) 

5(1 > = 6( n»ISTU(LU/iTiJ(Ll I 



dJ = rf'J.o( I l*Xt)ARlLl 
dU=X3AA(LlI-Ba 



: iUM .Jf SQUARcS ATTRloUTABLfc TO REGRESSION 

SSAK = WH»D(*.l I 

: MULTIPLE CORRELATION COtfFIClENT 

12^ «M= Sy<T( AdSIRMl 1 

; iUH UF SJUARdS Jf UiEVIflliJNS FRUM RtCtESSION 

5iDrt=iJ(Li l-SSAR 

VARiAhCt OF EjTIMATt 

Fft( = N-K-l 
SY=SiDK/Fi\ 

STANDAkJ UtVEAflONS UF REGrieSSION COEFFICIENTS 

DO no J=1,K 

L1=K»( J-ll*J 

L=ISflVc(JI 
12') SB(J)= SUrlri AbS( (KX<Ll»/»J( LI l*5Yl ) 

CUKPUTtU T-VALUfS 
130 riJI^L)lJ}/S&IJl 

STAhtlJA'tU cXRGK OF tSTIMATE 
IJ^ Sr= StfKTI flliSISYJl 

F VALUc 

Fk. = k 

iSARH^SSAK/FK 
iiURH^SSDR/FN 
F=3SARH/SSuRH 

ANSI li=BU 
ANSI2) =(<A 
ANS( JJ^SY 
AHS(4)=SSAR 
ANSI &t =FK 
ANS(61=SSAKM 
ANSI 7)=SSJK 
ANS(e) = FrJ 
ANSl'yMSSDRM 
AHU IC>=F 
RETURN 
END 



MULT 8 70 

IN MULT HbO 

OAdS.MULT 890 

MULT 900 

MULT 910 

MULT 920 

HULT 930 

MULT 94C 

MULT 950 

NULT 960 

HULT 970 

HULT 980 

MULT 990 

MULTI.,CO 

MULTIOIG 

MULT 10 2? 

MULT 10 30 

MULT 1040 

HULT 1050 

MUlT 1060 

MULTIC70 

MULT 1 080 

MULT109C 

MULTUOO 

MULTlItO 

MULTU20 

MULT1130 

MULTli40 

MULTllSO 

HOLTII60 

MULT1170 

MULTliaO 

HULT1190 

MULT1200 

MULT1210 

MULri220 

MuLri2J10 

MULTU4C 

MULT1250 

MULT1260 

HULT1270 

MULT128C 

MULT1^90 

HULTIiCO 

MULT1310 

HULT1J20 

HULT 13 30 

MULT 1340 

HULT1350 

MULT 1360 

MULTJ.*70 

MULT 1380 

MULT 1390 

HULT1400 

HULT 14 10 

MULT1420 

MULI1430 

HULTt440 

MULT1450 

MULT1460 

HULT1470 

MULT 1480 

HULT149C 

MULT 1500 

MULT1510 

MULri520 

MULT1530 

MULT1540 

MULT1550 

MULT1560 

MULTISTO 

HULTlSaO 

MULT 1590 

HULT1600 

MULT1610 

MULT1620 

MULT1630 

HULTl6*0 

NULT 1650 

HULT 1660 

MULT1670 

MULT16eO 

MULT 16 90 

HULT17C0 

HULTITIO 

HULT1720 

MULT17 30 
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Polynomial Regression 

In the Scientific Subroutine Package, polynomial 
regression is normally performed by calling the 
following four subroutines in sequence: 

1. GDATA - to generate the powers of the inde- 
pendent variable and find means, standard devia- 
tions, and correlation matrix 

2. ORDER - to choose a dependent variable and 
subset of independent variables from a larger set 
of variables 

3. MINV - to invert the correlation coefficient 

matrix 

4. MULTR - to compute the regression coeffici- 
ents bp, bj, bg, . . . , bjjj, and various confidence 
measures 

Subroutine GDATA 



Then, the following are calculated. 
Means: 



i:\ 



J n 



(2) 



where j = 1, 2, . . . , p 

Sums of cross-products of deviations from means: 



o,.=EN-^i)(''«-'^i- 



jk t 



i=l 



(3) 



E5-^))Efr^"">' 



i=l 



1=1 



This subroutine generates independent variables up 
to the ixfi^ power (the highest degree polynomial 
specified) and calculates means, standard deviations, 
sums of cross-products of deviations from means, 
and product moment correlation coefficients. 

X , denotes the i case of the independent variable; 
il 

X denotes the i case of the dependent variable, 

where i = 1, 2, . . . , n 

n = number of cases (observations) 
p = m + 1 
m = highest degree polynomial specified 



where j = 1, 2, . . . , p; k = 1, 2, . . . , p. 
Correlation coefficients: 



°ij 



where i = 1, 2, . . . , p; j = 1, 2, . . . , p. 



(4) 



Standard deviations: 



4^ 



where j = 1, 2, 



(5) 



The subroutine GDATA generates powers of the 
independent variable as follows: 






(1) 



X. -X. " X.^ 

im 1, m-l 11 



where i and m are as defined as above. 



PURPOSE 

itMtRATc IfJJfcPbNDtNf VARUBLEi UP TO THE M- IH POrfgR ( TH£ 

NlCHESr OtuRfcc POLYNOHIAC SPEClfl£t)l A**0 CQHPUTt MEANS, 

STAN^ARl^ 0£V:AtION^, AND COHRfLArin COEFFICIENrS. THIS 

SUBAJUT INE IS HCJAHALLV CALLED SEFOAC SUBftOUTINcS ORDLftt 

rtlNV ANO rULTR IN THE PEAFORNAMC& Of A POLrNOHIAL 
ReCRESSlUN. 



70 



USA&£ 



GOATA tN 



.X8Aft.sri),0« SUMSO> 



GOAT 
GOAT 
GOAT 
COAT 
GOAT 
GOAT 
GOAT 

GOAT 80 

COAT 90 

COAT 100 

COAT 110 

COAT 120 

COAT 130 

GOAT 140 

COAT ISO 

GOAT l&O 

GOAT 170 

COAT lao 

GOAT 190 

GOAT 200 

GOAT 210 



DcSLBIPTION UF PAKAHETenS 

F4 - NurfBtR Of OHSEAVATIONS. 

H - Tri^ HlwrttST OeC«tE PQLTNOMIAL TO A€ fITTfcO. 

X - ltii>ijt MATRIX (N 8Y H*it . HHEN THE 5UttH0UTINE IS 

CALL^J. OATA FOR THE INOcPEMOENT VARIAALE ARE 
ilOREO IN THt FIRST COLUNN Of HATKIX X« AND DATA FQRCOAT 220 
THt OEPENOENT VARIABLE ARE STORED IN THE LAST COAT 230 

COLUMN OF THE MATRIX. UPOM RETURNING TO THE COAT 240 

CALLiwi MOur(M£f ntHtinkito fQ^t^i Of ini. imtnmttnj^MJ 2>o 

VAR[AtlL£ AAE SrOAti) IN CQ\.mi^ I THAOUCH M. COAT lid 

XaAR - OUTPUT VECTOR 0»= LENCTri n*i CONTAININO MEANS OF GOAT 270 

INJEPtftScNT ANJ OEPcNOtNT VAAIABLES. COAT 240 

STO - UUTPJT VECTOR OF LENGTH H«^l CONTAINING STANDARO COAT 290 

UEVIATlOfiS OF INOEPENJEnT AW) OEPENOtNT VAAIAftLES. GOAT iOO 
a - OUTPUT MATRIX (ONLV UPPER TAIANGULAR PORTION OF THE GOAT ilO 

Sf'iMtrRlC MATRIX OF H^l BV N«ll CONTAINING CORRELA- GOAT 320 

riOft COEFFICIENTS. 4 STORAGf HOOC OF II 
SUNSO - OUTPJT VECTOR OF LENGTH H+l CONTAINING SUNS OF 

PROUUCrS OF UEVIATIONS FRQH MEANS OF INJEPENOENT 

AND OEPENOENT VARIASlES. 



REMARKS 

N MOST dE CAtAFER THAN M*-l. 

IF M IS EQUAL TO S OR GAEATERt SINGLE PRECISION HAv NOT lE 

SUFFICIENT TO GIVE SAriSFACTQAT CONPUTATIONAL RESULTS. 



GOAT 3iQ 

GOAT 340 

GOAT iSO 

GOAT S60 

Coat )to 

COAT >«0 
GOAT 390 

Goat 400 

GOAT 410 
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JNC I 1J\ SUbCKUO 



Ktl-c^ IJ J. JSILE, ' SfATUriC J IN HLSfcAHCH', IhE lU<^a SFflli 



iJBrtUUT I.-t uUATa <.^,M, J(,>:3AR. STl). J, SJMSUI 



IF A dJjaLt Pi^fcClSION Vl^SIlJN Jf THIS RUUIINt IS UtilKcJ, 
C IiN CjiUM.M i i:1JULD i)t rJf^JVCL) f^kU^I iHc DQUdLL PKtCISIJM 



UuduLC ?ri^tlSl 



SjmSJ, [ i,W 



rnt C j-IUal ALaO HE «£MUV£U f^OM JGU9Lt I'RLCISIUN SIAItMtNTS 
APPEARIfjj IN JTHEH ROUTINtS JStO IN CONJUNCriON WITH tHii 
RUUr INu. 

FHL (JUUilLt P.<i:C151JN VE«SIO''^ OF THli SU6RUUT1NL MUST ALSlJ 
CyNFAlN Ui.JliLi: PitLCISIJN FJKTRAN HJf^C H UN S . SQK T M^O ASS IN 
STArtMcNr 1^0 MUST ri£ CHAMGtd fJ OSgKI ANO OAbS. 



jCN£«Are JNL*tPcNiJt-\ T VARIABLE 
IF t,1~li ICi. 105, 90 

DO le-: i = ^,M 

Ud ICO J=t,.N 

L = L l* J 



: CALCULAIc ,4^AfJS 

105 ^«=M*l 
JF = N 
L=0 

DO 11 3 1= i,MN 
AOA'tt I I =0 .0 
JO U'J J-l.N 

._^L»1 

1 !>.■ HdA^I [ I -Xbiril I 1 txR I 
i !•; XbAr\( 1 l=SdAK( i 1/ JF 

13-: bIL}( i I =0.0 

CALCJLAIt SJMi Jr ^KaSS-PKuiJUCrS JF JtVUJIONS 

00 iii: i^i.L 

ISj D( 1 J=L .C 

UU 170 K^l.N 

DO 1 7C J=i,MM 
L2=N*( J-l)*K 

SIDI J) = iTu( J J ♦T2 

Od 170 1= 1, J 

1 1 = X1 L i )-AdaH( 1 I 
L=L<-1 

UC L»ll.»=DILJ'-Tl»T^ 
L=C 

DU 175 JM.MiH 
L>0 175 1=1, J 

i.73 LP(LJ=U(LI-iIJ( I ) = Srt>U)/OF 

DO idC i= I. IM 
l. = L*I 

tdC ilJ<iJ= SJKT( Ao.t^li-in 



LAlCULATl 



^fcLATI JN LDcFF ICIfcNIS 



L=0 

uo iyc j= 1 , MK 

JO 19C [=I,J 
L-Ltl 
UC D(L I =JI L)/(ilL-( f ) ♦j ful JI 1 



CAl.l,UL-tTc 



iT A 



.iU jlviaTuns 



DO 2;C/ I-- 1, MH 
<;CC STuU 1 = Slu( 1 l/L>r 



GOAf "liO 

dLtAr 'i'^O 

GJAF "VOO 

GJAI <,70 

GOAT •toD 

liDAT fc-JO 

.GtlAI SCO 

GUAI 5lQ 

GDAT 520 

GOAT 5iO 

GOAT 540 

.GDai 550 

GOAT 560 

GOAT 5^0 

GOAT !,ao 

GOAT 590 

GUAl 600 

to 



GUAT 



GOAT oJQ 

GOAT tao 

Goat dSO 

GDAT 700 

.GDAT 710 

&DAI 720 

GUAT 730 

GOAT 7'tO 

GDAr 7 5C 

GDAT 760 

GOAT 770 

GOAT laO 

GOAI 7SI0 

GDAT 800 



GOAT 



9iQ 



GOAT 620 

GDAT 630 

GOAT d-i-O 

&3AT B50 

GOAT tJ60 

Goat 870 

GOAT aeo 

GUAT 890 

GOAT 900 

GDAT 910 

GjJAT VZC 

GOAT 9J0 

GOAT 9^0 

GOAT q^o 

GOAT 960 

GOAT 9i0 

GLtAT -J 80 

GOAT 990 

oOA riOOO 

GOATIOIO 

GOATIO^O 

G0Ari03O 

GDATlO-^0 

GOATL050 

&OAT1060 

G0ATI070 

GOATiSSO 

GOATl.090 

GOATllCO 

GDATIllO 

GDATll^O 

GOAT1130 

GDATl UO 

G0Arii5C 

GDflTll60 

GOATll 70 

COATl 18C 

GOATI 190 

GUATI2CC 

GOflTliflO 

GoATl^^O 

GOAT12J0 

GOATW^-C 

GiJATl2^0 

GDAI1260 

GDAri270 

G0AT1250 

GDAT1290 

GGflTlJOO 

GUATl JlG 

CUATU20 

GOATIJJO 

GOAT li'tZ 

GOATlJiO 

GOATI ibO 

COAT 1370 

GLtATl360 

GOATI 390 

GOaTI'.lO 



Stepwise Multiple Regression 

In the Scientific Subroutine Package, stepwise mul- 
tiple regression is normally performed by calling 
the following subroutines: 

1. CORRE - to find means, standard deviations, 
sums of cross-products of deviation matrix, and 
correlation matrix 

2. MSTR - to save the matrix of sums of cross- 
products of deviations and to copy it to a workii^ 
matrix for the purpose of using the same data 
repeatedly 

3. LOG - to compute a vector subscript for an 
element in general and symmetric matrices. This 
subroutine is called by the subroutine MSTR 

4. STPRG - to compute regression coefficients 
and other statistics for each step of regression 

The subroutine CORRE works in either of two 
ways: (1) it expects all observations in core, or 
(2) it triggers a user-provided input subroutine, 
DATA, to read one observation at a time into a work 
area. In either case, the user must provide a sub- 
routine named DATA (see "Subroutines and Function 
Subprograms Required" in the comment cards 
description of the subroutine CORRE), 

The subroutine STPRG calls an output subroutine, 
STOUT, in order to print various statistics com- 
puted for each step of regression. The subroutine 
STOUT must also be provided by the user. 



40 Statistics — Correlation and Regression 



Subroutine STPRG 

This subroutine performs a stepwise multiple 
regression analysis for a dependent variable and a 
set of independent variables. In each step of the 
regression i = l, 2,..., q, where q is the number of 
independent variables, the abbreviated Doolittle 
method is used to calculate the following statistics: 

The independent variable enterli^ in the regress- 
ion is selected, first, by computing the amount of 
reduction of sum of squares for each variable: 



C. = 



jy 



a.. 
]] 



(1) 



where au is initially an element in the sums of 
cross-products of deviations matrix 
which will be modified in successive steps, 
j = 1, 2, . . . , q are independent variables 
(j ^ variables deleted and variables 
entered before the 1*^ step) 
y = dependent variable 
and, second, by finding the maximum (over j) of C. 

Set Si = Cj to indicate the sum of squares that 
will be reduced In the 1^ step. 

The proportion of Sj to the total is obtained by: 



D 



(2) 



and adjusted for degrees of freedom by 

R = Vl- (1-r2) (n-1) / (n-k) 

where there are k independent variables in the 
regression. 

The F-value for analysis of variance is given by 



F = 



S /k 

cum / 



(D-S ) / (n-k-1) 
cum / 



(6) 



The standard error of the estimated y is obtained 
by the use of the formula 



D-S 



cum 



y.l2.. .i V n-k-1 
and adjusted by 



(7) 



s = s y(n-l) / (n-k) 
c 

Then, the following is computed; 

2 
a 

ij 



a.. = a.. + 
]J J] a, 



(8) 



11 



where i = variable entered in the ith step 



j = V2,V2, . . . ,'^1-1 are the variables entered 
in the regression before the ith step, and 



where D =2^ (y. -y) 
j=l ^ 

n = number of observations 

If p is less than the constant specified by the 
user to limit independent variables, the analysis 
will be terminated without entering the last variable 
selected; otherwise, the following calculations are 
continued: 

The cumulative sum of squares reduced is ob- 
tained by 



^ik 



s = s + s. 

cum cum i 



(3) 



and the cumulative proportion reduced by 



'ik a.. 



(9) 



where k = 1, 2, , . . , m are variables including 

y (k ^ variables deleted and the variable 
entered in the ith step) . 

Regression coefficients are computed by: 



b. = g. 
1 ly 



Vl = ^(i-l)y-V(i-l)i 

^i-2 " ^(i-2)y"V(i-2)i'^i-l^(i-2)(i-l) 



(10) 



P = P +p 

cum cum 



(4) 



etc. 



The multiple correlation coefficient is computed and the value of the intercept as 



by 



R 



■A 



(5) 



^0 = y - E b.x 



j=i 



] J 



(11) 
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where k = number of independent variables in the 
regression. 

Standard errors of regression coefficients are given 
by 



J 



a., s 
JJ y. 12...i 



(12) 



where j = vj, vg, . . . .vj are variables in the 
regression, and t- values as 



J 



Perform the reduction to eliminate the variable 
entered in the ith step: 



(13) 



Jk 



— a., -a e 
jk ji^ik 



(14) 



where i = variable entered in the ith step 

j =l,2,...,m(j7^ variables deleted or 
variables in the regression) 

k = l,2,...,m(k^ variables deleted and the 
variable entered in the ith step) 



a.. 



11 



a.. 

n 

-a... 
11 



a.. 
11 



(15) 



(16) 



For reference see C. A. Bennett and N. L. 
Franklin, Statistical Analysis in Chemistry and the 
Chemical Industry . John Wiley and Sons, 1954, 
Appendix 6A. 
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CtfihLlkl VARIiULE AhO A S£l Of INOEPEhDENT uARfABLts. AT STi., „„ 
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IS IHI hUCti EKPLAIKS IhE GRER1E£I APCUhf Of VARIANCE SIPR 100 
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CSAEE 

CALL STPRC (R.A. 
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J^SiiSifr*^! l^ '^ CCfcSlC£R£0 U TH€ eouAnON STPft 320 
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Subroutine PROBT 

This subroutine obtains maximum likelihood esti- 
mates of a and b for the probit equation Y = a+bX. 
An iterative scheme is used. The input to tlie sub- 
routine consists of k different levels Xj^, X2, . . . , X. 
of a stimulus applied to Nj, N2, . . . , Nj^ objects with 
Rl, R2, . . . ,Rk responses respectively. The proce- 
dures described here assume that the distribution of 
critical values is normal. The computational steps 
are as follows: 

1. Compute the proportions of objects responding 
to various levels of a stimulus: 



P. = cimiulative normal distribution value 

corresponding to Yj^ - 5 
Q. = 1 - P. 

b. Working probit: 

For Y.S5.0 
1 



y.=Y.-^+p.-J- 

1 1 



For Y. >5.0 

1 



(6) 



R. 



N. 



(1) 



where i = 1,2, . . . ,k are levels of a stimulus. 

2. Compute the initial estimates of a and b for the 
probit equation, Y = a+bX, as follows: 






m 



m /m \ 2 

_4 , 



(2) 



S^'lS^^'i 



a = Z - bX 



(3) 



where Xj = ith level of a stimulus 

Zj = 5 plus the standard normal variable 
corresponding to Pj 

m = numiber of p values which are not equal 
to 0.0 and 1.0 
3. Compute values of expected probit using the 
initial estimates of a and b: 



Y. =a + bX. 
1 1 



(4) 



yi=^i-^5^-<i-Pi)^ 

1 i 



5. Compute: 



i=l 



i=l 



So =y] N. W.X.y. 
1=1 



k 

1 

i=l 



g^iVi &i%yi 



k 

E 

i=l 



(7) 



t 

k \ Z-/ N.W.X. / 

EN.W. 
. , i i 



X] N.W. 



i=l 



(9) 



3 -^ i i'^ i k 

1=1 v-^ 

> , N.W. 



(10) 



where i =1, 2,, ,. ,k 

4. Corresponding to each value of Y, compute 
the following: 

a. Weighting coefficient for probit analysis: 



6. Compute new estimates of a and b for the 
probit equation: 



b =- 



(11) 



D 



W. 



i P. Q 
i ^i 



(5) 



where D. = density of the normal curve corre- 
sponding to the standard normal vari- 
able Yi - 5 



2^ N Wy y^ N.W.X. 

T^ 111 .''— ' 111 



i=l 



i=l 



i=l 



k " k 

Z^NW y^ N.W. 

rrr' 1 1 ,^ 1 1 



i=l 



(12) 



44 Statistics— Correlation and Regression 



7. Compute new values of expected probit and 
compare them against the values computed in the 
previous iteration: 



Y'. = a + bX. 
1 1 



DSQ = 2 (^i - ^')' 
i=l 



(13) 



(14) 



If the difference between two consecutive values of 
DSQ is less than or equal to 10"'^, go to step 8 and 
compute X^. Otherwise, set Y. =Y.', where 
i = 1, 2, . . . , k, and go back to step 4 for another 
iteration. 

8. Compute X2 for the test of the final probit 

equation: 



k 2 

Ji (R. - N.P.) 

~4-i N.P. (1-P.) 

1=1 11 1 



(15) 



where P. = cumulative normal distribution value 
^ corresponding to zj 
z. = (a+bX.) - 5 

a and b are computed for the final probit 



equation. 
9. Degrees of freedom for X : 



d.f, =k -2 
For reference see: 

(1) M.G. Natrella, Experimental Statistics - 
NBS Handbook 91 . National Bureau of Standards, 
1963, chapter 10. 

(2) D.J. Finney, Probit Analysis (2nd ed.). 
Cambridge University Press, 1952. 



(16) 



SUSROUT Ih6 PROBT 

PUP POSE 

»0 OBTAIN MAXIMUM LIKELIHOOD ESIIMAIES FOR THE PARAMeTERS 
AND B IN THE PROBIT EQUATION V = A ♦ BX. AN ITERATIVE 
SCHEME IS USCO. THE INPUT TO THE SUB^OUTlNt CONSISTS OF K 
DIFfERENT DOSAGE LEVELS APPLIED TO K GROUPS OF SUBJECTS. 
THE NlWBtR Of SUBJECTS IN £*CH GROUf RESPONDING TO THE 
PESPECTIVE DOSAGE Of THE OCUG. 



USAGE 

CALL PCDBT tK. 



.LUG.ANS. 



PR06 

.pRoe 

pBoe 

PROB 
PROB 
PROS 
PROB 
PROB 
PROB 
ANOPROB 
PROB 
PROB 
PROB 
PROB 
PROB 
PROB 

DESCRIPTION OF PARAMETERS PROB 

K - NUMREa OF DIFFERENT OOSE LEVELS OF THE DRUG. K SHOULDPBOfl 

BE GREATER THAN 2. PROB 

K - INPUT VECTOR OF LENGTH K CONTAINING THE OOSE LEVEL OF PR06 

THE DOUG TESTED. K MUST BE NON-NEC ATI WE . PROB 

S - INPUT VtCTQR Of LENGTH ¥. CONTAINING THE NUMBER OF PROB 

SUBJECTS TESTED AT EACH DOSE LEVEL PROB 

R - INPUT VECTOR OF LENGTH ic CONTAINING THE NUMBER Of PROB 

SUBJECTS AT EACH LEVEL RESPCNDING TO THE DRUG PROB 

LOG - INPUT OPTION CODE PROB 

1- IF IT IS DESIRED TO CONVERl THE DOSE LEVELS TO PROB 

COMMON LOGARITHMS. THE OCSAGt LEVELS SHOULD BE PROB 

NON-NULL IN THIS CASE. P^OB 

0- IF NCj CONVERSION IS DESIRED PROB 

ANS - OUTPUT VECTOR OF LENGTH *» CONIAIMNG THE FOLLCHiNG PROB 

RESULTS P^OB 

ANSI II- ESTIMATE Of THE INTERCEPT CONSTANT A PROB 

ANS(21- ESTIMATE OF THE PROBIT REGRESSION COEFFICIENT PROB 

B PROB 

ANS(3)- CHI-SUU4R6U VALUE FOR A TEST OF SIGNIFICANCE PROB 

CF THE FINAL PROBIT EQUATION PROB 

ANSI*!- DEGREES OF FREEDOM FOf THE CHI-S(JU*«E PPOB 

STATISTIC PRoa 

Wl - OUTPUT VfCTCR OF LENGTH K CONTAINING THE PROPORTIONS PROfi 
OP SUBJECTS RESPONDING TO THE vaSIOUS DOSE LEVELS OF PPOB 
THE DRUG ^^^^ 

W2 - OUTPUT VECTOR OF LENGTH K CCNTAIMNG THE VALUES OF THEPROB 
EXPECTED PRC8IT F0(^ THE VAF 1 OtS LEVELS CF A DRUG PPOB 

lER - 1 IF K IS NLI GREATtR THAN 2. PROB 

2 IF SOME DOSAGE LEVEL IS NEGATIVE, 0« IF THE INPUT PROB 

OPTION CCiOE LOG IS 1 AND SUME DOSAGE LEVEL IS ZECQ. PPOB 



3 IF SOME ELEMENT OF S IS NOT POSITIVE. 

4 IF NUMBER OF SUBJECTS RESPONDING IS GREATER THAN 
NUMBEP OF SUBJECTS TESTED. 

ONLY IF ItR IS lERC IS A PROBIT ANALYSIS PERFORMED. 
OTHERWISei ANS, Wl, AND W2 ARt iET IC iERD. 



THE PROGRAM HILL ITERATE ON TnE PROBIT EQUATION UNTIL 
SUCCESSIVE SOLUTIONS P^^ODUCE CHANGES OF LESS TH«N 10* 

SUBROUTINES AND FUNCTIGN SUBPROGRAMS REQUIRED 
NDTS 
NDTRI 



METHOD 

REFER TO 0. 
1952 1 



J. FINNEV, PROBIT ANALYSIS. 2N0 fD, (CAMBRIDGE. 



SUECUUTINE PROBT ( K.X. S, R . LOG, ANSt hi ,W2, lEft I 

Ul MENS ION Xll).S(ll,Rlll,ANS(t>TMttII.H2I13 

TEST WHETHER LOG CONVERSION IS NEEDED 

IEP=0 

IF(K-2»5i 5,7 
lER = 1 
CO TO 90 
DO ft I'l.K 
If <X( I ) I 12.8,6 
CONTINUE 

IFUOG-ll 16. 10. 16 
i 00 15 1=1, K 
lF(X(i 1)12,12.14 
lEfl = 2 
GO TO 90 

XI 11= ALOGlOt X( I I ) 
CONTINUE 



PROB 
PROB 
PFOB 
PROS 
PROB 
PSQB 
PROB 
PROe 
PROfi 
PflOB 
PROB 
PHD6 
PROB 
PROB 
PROe 
PROB 
PPOB 
PROB 
-PROa 
PROB 
PROB 
PROB 
PflOB 
PROB 
PROB 
PROB 
PROS 
PROB 
PROB 
PROB 
PROB 
PROB 
PROB 
PROB 
PROB 
PROB 
PROe 
PROB 
PROB 
PROB 



100 
110 
120 
130 
I'^O 
150 
160 
170 
180 
190 
200 
210 
220 
2 JO 
2*0 
250 
260 
270 

2ao 

210 

300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 



490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
6 30 
640 
650 
660 
670 
660 
690 
700 
710 
720 
730 
740 
750 
760 
7T0 
7S0 
790 
BOO 

aio 

620 
830 
840 
850 
B60 
8T0 
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COMPUTE P«OPO«TIOhS Of OBJ£CrS H6SO0NOINC 

16 00 U l«l,K 
IFIS(I)-«1I1I 1T,18|IB 

17 lER-^ 

GO TO 90 

18 CONTINUE 

20 -00 23 I'UK 

IF(SCI 1121.21.22 

21 l€R=3 

GO in 90 
12 Kid t'OT I 1/SI II 
2 3 CONTINUE 

C0HPUT6 INITIAL ESTIMATES OF INTEFCEPT AND PROBIT PECRESSION 
CO£Ff ICIENT 

WN'O.O 

xe«R=o.o 
SNwy=o.o 
SXK=0.0 
SXY=0.0 

DO 30 1=1, K 

P>U11 I ) 

IFIPI 30. 30. 2* 
2* IF(P-l.O) 25. 30. 30 
25 HN=HN+1.0 

CALL NDTBl IP.Z.O.ieP) 

Z=Z*5.0 
XeAR«XBAP«X< I I 
bNMY"SNWY«Z 
&XXiSXX*X( I l**2 

sxY=sxr*x(i i*z 

30 CONT INUE 

B=l SXY'-(XBAR«SNHYI/WNI/(SXX-I XBAR*XfiARl /HNl 

XBAR-XBAR/MN 

SNWY = SNWY/'WN 

A=SNWY-B*X8A« 

00=0.0 

COMPUTE fcXPECTED PROBIT 

00 31 1=1. K 

31 H2n ) = A*B*X1 I ) 

33 SNW=0.0 
SNWX^O.O 
SNWy=0.0 
SNWXXi-O.O 
SNWXY=0.0 
00 50 r=l,K 

r=w2(n 

FIND A WFIGHTING COEFFICIENT FOR PROBIT ANALYSIS 

O-Y-5.0 

CALL NOTF IDtPtZ) 

U=1.0-P 
W=(Z*ZI/IP*QI 



pROB eao 
PROe 090 
PR OB 900 
PAOe 910 
PflOe 920 
PROe 930 
PROB 940 
PR06 950 
PROe 960 
PROB 970 
PROB 980 
PROB 990 
PPOBIOOO 
PROBlOtO 
PROB 1020 
PROB 10 30 

pRoeio^o 

PR0B1050 
PROBlObO 
PR061070 
PftOBlOaO 
PR0B1090 
PROBUOO 
PR06I1 10 
PROB 1120 
PRDeU30 
PROBUOO 
PR0B1150 
PR081160 
PROB t 170 
PROS U 80 
PRn8U90 
PRDBI200 
PROB1210 
PROB1220 
PROB1230 
PROei2«0 
PROBliSO 
PR0&1260 
PR0ei270 
PRQ812aO 
PR061290 
PROB I 300 
PROB 1 3 10 
PP 061320 
PROB1330 
PR0613*0 
PPO61350 
PR061360 
PROB1370 
PfiCBUflO 
PR0B1390 
PR0B1400 
PR08H10 
PR091420 
PRQB1*30 
PR0BU40 
PR061<i50 
PRQBl^fcO 
PROei^TO 
PR0B14B0 
Pft0eiA90 
PR061500 
PR0BL510 
PROB 1520 
PROB1530 
PROB 1 5*0 



Cn««PUTt WORKING PROBIT 

IFIY-5.01 35, 35, 40 
3t. WP = ( V-P/21 *wt 1 I I/Z 
5D TO « 

*iO t«p-( Y^Q/ii-d.o-wm M /z 

SUM INTEFMEOIATE deSUCTS 

AS *.N=H*S( I 1 
SNM=SNM*WN 
SNMX = SNWX*HN«XI I 1 

ShWY=SNfciY»WN«WP 
SNUXX=SNMXKtHN*X( 1 )«>2 

50 SNWXy=SNWXy»WN*xn l-fcrP 

COMPUTE NEW ESTIMATES Of INTERCEPT ANO COEFFICIENT 

ItAR-SMWX/SNtf 

^XX- SNI»Xa-( MtakI • ( MMK I /Shu 
SaV>SIIUIlt-(SHWII*(SNHVt/S«U 

A-SN«V/&«Ui-e«X6M 

EKAHtNC iHf CHAMCtk 1*1 V 

SKX-0.0 

DO 60 1-1, K 

V-A«S*Xfll 

0«H2(1I-T 

SXX-tJ[X4'O«0 
60 H2(|I*V 

IFtI USIOO-SXK* I-41.0E-T1 I 
4 3 bO-SXI 

fiO TO 93 



•S. A). 63 



STOUt INfERCC^r AMD COCff ICIENT 

«4 ANSI 1 1 -A 

ANSI2)>8 

COHMiTf CMI-SQUME 

*NSI>)-0.0 
00 TO I*l.K 
V-II2UI-5.0 

CALl MOTIt (¥4^,01 

•A-P(1I-51II«P 
00-SIII*f*t 1.0-*l 
70 AMSOI-ANSISI+AAVU/OO 

DCCItECS OF FMEEOOH FUR CMl-MUME 

ANSI4I-K-2 

80 ftCTVHN 

40 OC 100 I-l,ft 

HKII-O.O 
100 H2(i»-0.0 

00 110 1-1.4 

110 ANsin-o.e 

CO TO to 

EMO 



pRoeisso 

PR0ei560 
PR0B15T0 
PROBlSBO 
PROB 1590 
PROS 1600 
PROB 1610 
PROdl620 
PRnBl630 
PR0B1640 
PR0B1650 
PROB 1660 
PR0BI670 
PROB I 680 
PRC1B1690 
PR0B17OO 
PR0B1710 
PR061720 
#M>aiTM 

nuMlTM 

PMMITM 
MCMITftO 
MI0BIT7* 

»«MIWO 

M0*l«20 
fWMUM 

MoaitM 
mtoaiMo 
pRoataro 
noftftMO 

MUM1890 
MHMI400 

ntosivio 
r«o»tv20 
rmisi^io 

MfMtVW 
MUWIVMI 
PR0ai«40 

p«oai««o 

MCMIWO 

pffoanMO 

raCMMLO 

»«oa»i20 
pRocn»o 

PftOU040 
MKM20S0 
MIOC20M 
»«O«2«T0 
fM»2O«0 
P«oa209O 

raoaiioo 

P1UM2110 
pRoazizo 
P«0B21M 
MttM2t«0 
PWWZI50 
MO«2140 
MCM2IT0 

Moaiiaa 

PMM2200 

*«oa22ia 
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Canonical Correlation 

In the Scientific Subroutine Package, canonical 
correlation analysis is normally performed by 
calling the following five subroutines: ' 

1. CORRE - to compute means, standard devia- 
tions, and correlation matrix 

2. MINV - to invert a part of the correlation 
matrix 

3. EIGEN - to compute eigenvalues and eigen- 
vectors 

4. NROOT - to compute eigenvalues and eigen- 
vectors of real nonsymmetric matrix of the form 
B-1 A 

5. CANOR - to compute canonical correlations 
and coefficients 

The subroutine CORRE works in either of two 
ways: (1) it expects all observations in core, or 
(2) it triggers a user-provided input subroutine, 
DATA, to read one observation at a time into a work 
area. In either case, the user must provide a sub- 
routine named DATA (see "Subroutines Required" in 
the comment cards description of subroutine CORRE). 

Subroutine CANOR 



«ii ^2 



^ = ^21^ 



(3) 
(4) 



The subroutine NROOT calculates 

eigenvalues (X.), with associated eigenvectors, 

of R-1 A, where i = 1, 2, .... q. 

For each subscript i = 1, 2, . . . , q, the 
following statistics are calculated: 

Canonical correlation; 

CANR = yj Xj 

where \^ = i^" eigenvalue 
Chi-square: 



5 (p + q + 1)J log^A 



X^ = - [n-0 
where n = number of observations 



(5) 



(6) 



This subroutine performs a canonical correlation 
analysis between two sets of variables. 

The matrix of intercorrelations, R, is parti- 
tioned into four submatrices: 



R 



r^i 


^2] 


L^i 


^2] 



(1) 



R = intercorrelations among p variables in 



R 



12 



the first set (that is, left-hand variables) 

intercorrelations between the variables in 
the first and second sets 



R„, = the transpose of R 
21 ^ 12 



R 



22 



intercorrelations among q variables in the 
second set (that is, right-hand variables) 



The equation: 



rJ' R , R,^ R,„ - XI 
22 21 11 12 



= 



(2) 



is then solved for all values of A, eigenvalues, in 
the following matrix operation: 



A = II. (1 -X.); 
1=1 J 



Degrees of freedom for x : 

DF = [p-(i-l)] [q-(i-i)J 
i set of right-hand coefficients: 



k ki 



where v = eigenvector associated with X. 

k = 1, 2, . . . , q; 
i"-" set of left-hand coefficients: 



q 

1 

k=l 



E V \ 



^j CANR 



where \ t., i = T= R~ R,„ 



1 



1, 2, ,.., p 



(7) 



(8) 



(9) 
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triCUI INt C4Mjr< 



CUHi'UTE THc i.ANU.MiCAL CJKKfcL*TlUNi btlWtEN TwU SETS OF 
VAKlAdLtS. t-ANUH li NJRMAILY PfittfcL/tO 

rut co«K[. 



All to suc^kou- 



lAM,CAN«,CH1 SO.NL>f .COfcfK 



JciCRiPTJUN Ot PARAHeT;:«S 

N - NUMOc« Of (JjbtRVAF lUNS 

rfP - iML/HScR Of Ltfl HArtl> VA^lAbLti 

MO - NUMtitK Q^ RIGHT HANu tfwKIAiJLES 

RK - IhPufl MATHIX iJMy UCPfcR TRIANGULAR HUKTION Of TH£ 

SV.IMtlKiC MATRIX Uf^ H K M, WHtHt M = HP . My | 

CONTAiHiNG CURRtLATIUN CUfcf F IC 1 ENTS. (Sfu^AGE MODE 

OF Jl 
-tl.uTS - UUTPUT VECTOR Of L thGTH HU CONTAINING tliicNVALUtS 

CQHPUTEO IN IHt NRJUT SUBHOUTINE. 
-.LAM - uUTJ-jr veCTUR Of L£NoTH mQ CONTAINING iArtSOA. 
CliNx - UUTt-iJT VECTOR OF LfcN&fH hU CONTAINING CANONICAL 

CUflRtLATiONS. 
CMlSg - OUTPJT VECTOR OF LcNGTM NQ CONTAINING THt 

WAlUES of CHI-iOUARt5. 
tiUF - DUrPJI VtCTOR OF LENGTH HU CONTAINING THE DEGREES 

Of ftteeoOM ASSOClATtO kith CHI-SOOARcS. 
CCtFk - OUTPUT MATRIX ^HQ X MO) CONTAINING MQ SfTS OF 

RIiiHr HANii COtFflClENri COLUMNWISE. 
COtFL - UUTPjr MAIRiX CMP X HJ) CONTAINING MQ S£ I s Of 

Ltf^T HAND COtFf ICItNFi COLUMNWISE. 
R - WORK MATRIX IM X rtJ 

REMAR^b 

Tht NUrtBcK JF LEFT HANJ VARIAtiLti (MPI SHOUCO dc GREATER 
IMAN OR cUUAL lO THE NJMStR OF RIGHT HANu VAR|AcH.£S ( MQ ) , 
IHt VAlUcS Of CANONICAL CORRELATION. LAMSOA, CHl-SQUARE. 
JEGRttS Uf fREfcOOH, ANJ CANONICAL COEFFICIENTS ARE COhPUTEO 
3NLr FOR THOSC eiGE.VVALUFS IN AOOTS WHICH ARE GREATER THAN 
ItM. 

SUBROuriNES AWO FUNCTION SUBPKOCiKAMS REQUIRED 

■ilNV 

NRJOI {i^HlCti, IN TURN, CALLi fht SUBROUTINE EIGEN.) 

HtTHOO 

RfcFcH TO W. H. COOLcT ANJ P. R. L0HNE5, 'MULT 1 '/ARI ATE PRO- 
CtLtURES FUR THif BEHAVIORAL SCIENCES', JOHN WILEY AND SONS, 
19o2, CHAPTEr* 3. 



SOSROUTiNt CANOR (N,MP,MQ, RR.ROOTS, WL AH,CANR ,CHI SO. NDf ,CO£f R, 
I CO£FL,RI 

01 MENS 10^ RRU»,R00TS(U,«tAH(il,tAN«Ul,CHISQ(ll.NOflll,COEFRIil 

1 caefnutRcii 



IF « JOUilLE PRECISION VERSION OF THIS ROUTINE IS OESIR£0, THE 
C IN COLUMN 1 SHOULD bt REMOVED FROM THE DOUbtE PRtClSION 
SIATEMcrtr NHICh FOLLOWS. 

UUUiiLL PR^:i$ION RR, ROOTS, WLAM.CANR.CHJSQ.COEFR.COEFL.R.DET, SUM 

THE C HOST ALSO 8t' REMOVED FROM DOUBLE PRECISION STATEMENTS 
APPtAriL^G IN UTMEk RUUTIi^lS UScO IN CONJUNCTION WITH THIS 
^ JU T I :^c . 

THd OOJdLE PRcClSlON VERSION OF THIS SU6«0uTINt MUST ALSO 
CONTAIN OOJBLc PRiECISIJN FORTRAN FONCTIONS. SORT In STATEHfiNT 
Lbb rtJST dt Cri&MGtSi TO OSJRT. ALOG IN STATEHENT ITS MUST BE 
CHANGcJ TO OLJG. 



PARIirjON INTERCORRELATIunS AMQi^G left MANO VARIABLES, BETWEEN 
LEFT ANO ilGHT HANJ VARIABLES, AND AMONG RIGHT HAND VAAIABLtS. 
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00 


110 . 


J=N^,M 
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■!^*li 
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no 


I=i,MP 
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Nl = 


^Nitl 




IK 


COEFLIL 
L=C 


1=R(N1) 




00 


123 


J^.-i2,H 




NP 


'M«l J 


-IW^P 




00 


liC 


I = \2 , M 




L^L*l 






ftl = 


Ni*l 




l^C 


CL'E 


F'<(l; 


I=R1NIJ 



;a.^unical muATiCN 



L=MP*MP*1 

H^LtMP 

CALL Ml NV (ti,MP 



C Af.U i t 
.CANO ^C 
CANu 30 
CANO 40 
CANU 5Q 
CANO 60 
CANO 70 
CANO 60 
CANU 90 
CANO lUO 
CANU lie 
CANO 12C 
CANU I3G 
CANO MO 
CANO 150 
CANO 160 
Canu 170 
CANO 180 
CANO 190 
CANO 200 
CANO 210 
CANO 220 
CANO 230 
CANO 240 
CANO 2 50 
CANO 260 
CANO 270 
CANO 2^0 
CANO 290 
CANO 300 
CANO 310 
CAMO 320 
CANO 330 
CANO 340 
CANO 350 
CANO 360 
CANO 370 
CANG 380 
CANO 390 
CANO 400 
CANO 410 
CANO 420 
CANO 430 
CANO 440 
CANO 4i>0 
CANO 460 
CANO 470 
CANO 4ao 
CANO 490 
CANO 500 
CANO 510 
CANO ^20 
CANO 530 
CANO 540 
.CANO 550 
CANO 560 
CANO 5 70 

CANO sao 

fCANO 390 
CANO 600 
CANO A 10 

.CANO 620 
CANO 6 30 
CANO 640 
CANO 650 
CANO 660 
CANO 6 70 
CANO 6S0 
CANO 690 
CANO 7 CO 
CANO 710 
CANO »20 
CANO 730 
CANO 740 
CANO 750 
CAM) 760 
CANO 7 70 
CANO jao 

.CANO 790 
CANO BOO 
CANO a 10 
CANO 820 
CANO 8 30 
CANO 640 
CANO 850 
CANO 860 
CANC 8 70 
CANO S80 
CANO S90 
CANO 900 
CANO 910 
CANO 920 
CANO 930 
CANO 940 
CANO 9 50 
CANO 960 
CANO 970 
CANO 9a0 
CANO 990 
CANOIOOO 
CANOIOIO 
CANOI02C 
CANU1030 
CAN01C40 
CANO1050 
CANOIObO 
CAN010 70 
CAN0108Q 
CAN0109C 
CANOllCC 
CANOUlO 
CAN01I20 
CANOlliO 

CANIJllSO 
CANJUbC 
CAN01I7C 
CAN0I18C 
CAN01I90 
CANO1200 
CANG1210 
CAN01220 



>_AL;jL\lt I - 

JO l-rC 1 = 1, MP 

■M2-0 

JU IJJ J--1,MJ 
\l = l-Hil 

«OJTStJ)-0.0 
UU IJU K=ttMP 
Nl: Vl»HF 

RuoISI J J =RujTS( Ji 

CO 141. J=l,MJ 



< INI l*CUEFC(M2l 



calcol aFl a = r^ I • r 

L=MP*MJ 

N3=L*I 

00 160 J=l,MlJ 

M=0 

OO I<>C I=1.nC| 

N2=MP*( j-1) 

SUM=0.0 

UU iSD K=1,hP 

f41 = Nl*l 

N2=N*'*I 
I5L SUM=SUM*CUEFL(N1)«R(N21 

L = l«l 
16C R(L>=SJM 

cALCULmTL tlyt.Nl/ALUES WITH ASSOCIATED EIGENVECIJRS Of THE 
iNVtRSc OF R2^ • A 



«J,R(NJ),C0EFR,R0J1S,R(L» J 

1. 2. .... HJ, CALCULATE THE FOLLOWING 

00 2iC 1=1, MQ 
C 

C TEST WHtT^1ER cIGENVALUE IS GRcAT£R THAN ZERO 
C 

iF(RUOTS(l)l ^^0, 220, lo5 

c 

L CANONECflL CORRELATION 

C 

lo!J LANR(1I= 3u«I(R0UTS(in 

L 

WLAM( 1 I =1.0 
LO 1 7C j= I rHiJ 

I7C wLA.M(n=.JLAMm*ll.O-RCJCTS(J)) 

FN=i>( 
FMP=MP 
fHO=MJ 
1?5 tHi5JliJ=-(fN-C.5*( FMptt-Mu+l.OI I *ALOG( WLAK (IJ I 

; JtGREtS UF FRtEJOM FOR CHI-SJUARE 

Nl=I-l 

NDF(II=If^P-NU*IMg-NI) 

l-TH SET OF RIGHT HANU COEFFICIENTS 

N1=HU»( I-l) 
K2=H0»( I-ll+L-i 
00 IBC J=l,MJ 
Ni=Nl+l 
N2=N2*l 
IBC C0tPR|Nll=R(N2) 

I-TH StT OF Li:fl HAND COEFFICIENTS 

00 2:C -- I, MP 

M = J-MP 

N2=Hg*( I-l) 

K=M^»( |-1J*J 

COEFLIK,J=0.0 

CO 190 Jj=l,Ma 

M = N1*MP 

N<;=Nt*l 
19C C0£FL(KI=C'JefL(KI*RlMI»COtFR(N2 J 
200 CG£FL(»(I = CJEFcUI/CanR( IJ 
21C CONTINOt 
Z2C kETukN 

LNO 



CANO 1 2 iO 
CANU1240 
CANO 1 2^0 
CANCt260 
CANO1270 
CANUI2e3 
CAN01290 
CAhOI30C 
CANai3I0 
CANO1320 
CANOI330 

CANUt 340 

CAN01i50 

CANOU60 

CANOliTC 

CAN01380 

CANU1390 

CANai400 

CAN0141Q 

CANOI420 

CANO1430 

CAN01440 

CANO1450 

CAN014&0 

CANL14 7C 

CANai4S0 

CAN01490 

CANOI500 

CAN01510 

CAN01520 

CANai530 

CAN01540 

CAN01550 

CANO1560 

CANQ1570 

CAN01580 

CANU1590 

CANO1600 

CANQ1610 

CAN01620 

CANai6 3Q 

CAN0t640 

CANU16S0 

CAN01660 

CAN01670 

CAN016Q0 

CAN01690 

CAN01700 

CANQ1710 

CANO 1720 

CAN01730 

CAN01T40 

CANO1750 

CANO1760 

CAN01770 

CAN01780 

CANO1790 

CANOldOO 

CAN01810 

CANOiaZO 

CANO IB 30 

CAN0ia40 

CAN018SC 

CAN01U60 

CAN01B70 

CAN01B80 

CAN01S90 

CAN01900 

CAN01910 

CAh01920 

CAN01930 

CAN01940 

CANOL950 

CANOt960 

CAN01970 

CAN019aO 

CANO1990 

CANO2C00 

CANO20 10 

CANa2020 

CANU2030 

CANO2040 

CAN02050 

CANO2060 

«,ANO20r0 

CAN020S0 

CAN02090 

CAN021D0 

CAN02L10 

CANO2120 
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Design Analysis (see Smoothing, 
Factorization) 



Regression, 



jjLftt 



Jl i-S 



AViJAl 



In the Scientific Subroutine Package, analysis of 
variance is normally performed by calling the fol- 
lowing three subroutines in sequence: 

1. AVDAT - to place data in properly distributed 
positions of storage 

2. AVCAL - to apply the operators sigma and 
delta in order to compute deviates for analysis of 
variance 

3. MEANQ - to pool the deviates and compute 
sums of squares, degrees of freedom, and mean 
squares 

Subroutine AVDAT 

This subroutine places data for analysis of variance 
in properly distributed positions of storage. 
The size of data array X required for an 
analysis-of-variance problem is calculated as 
follows: 

k 
n = n (L. + 1) (1) 

i = 1 

where L = number of levels of i factor 
i 

k = number of factors 

The input data placed in the lower part of the 
array X are moved temporarily to the upper part 
of the array. From there, the data are redistributed 
according to the equation (4) below. Prior to that, 
multipliers, sj, to be used in finding proper posi- 
tions of storage, are calculated as follows: 



J- 1 

s = n (L. + 1) 
^ i=i 



(2) 
(3) 



where j = 2,3, . . . , k 

Then a position for each data point is calculated 
by the following equation: 



k 
3=2 



S = KOUNT + Z S. . (KOUNT. - 1) 

i = 9 



("LAcfc t>ATA FJ^ ANALYSIS OF VikUNCfe IN PftOPtHLY UlSIRIBUItU AVOA 
("USITlUNi :]f ifURAOt. THIS SUOftUUTlNt 15 NUtiMALL,? fUl.LO«tU AVOft 
BY LALIS IJ AVCAt AND MEANQ SUBROUflNti IN THt PtkfURMANCE 
iif AKALV:.1S UF VARIANCE fJR * CClHPttTfc FACTOklAL OtSlGN, 



USAG£ 



CALL mVJAT U.LEVtL.N.X.L.ISrtf.KUOnn 



AVCiA 

AVOA 
AVOA 
AVOA 
AVUA 
AVOA 
AVOA 
AVOA 
AVDA 
AVOA 
AVUA 



iwKIPIlON U? PARAMLICRS 

K - NUiiBtK OF VARlAEJLES IFACttJftS). K HUSI tl£ .GT. ONE 

LtVEL - iNPUr VcCrOK OF LtNtifH K COKTAINING LEVELS (CATE- 

iiOXKit t*!THlW EACH VAKIA6LE. 
h - TOrAL WUMefcR OF UAIA POINIS ktAU IN. 

X - iJHlN IHt SUBRUUIUt IS CALLED* THIS VcCTJR CONTAINS AVOA 

DATA IN LOCAriJNS X( 1 ) THMJUGH K(Nl. UPDN RE lURNI NG AVOA 

ro THc Calling roufinc. the vector contains the oataavoa 
IN PR3PERLV ReyiiFRiaumo tocATiuNS of vecior x- avd* 

THt LtNGTri OF VECTOR X IS CALCULATED liV (l» ADDING AVCA 
QNt TO tACH LEVcL Of VARIABLE ANO lit OBTAINING THE AVDA 
CJfWLATIVE PRtiJUCT Of «LL LEVELS. I THE LENGTH OF AVUA 

X = |L£VEL(ll*ll*<LEVCLI2l*lI*-..*(LeVtL(KI*l).» *VCA 

L - UUIPiiT VARIABLE CUNTAlNINfi- THE POSITION IN VECTOR X AVOA 

HNtKE THE LAST INPUT DATA IS STORED. AVOA 

ISTtP - UUTPJT VECTOR OF LENGTH K CONTAINING CUNfftOL STfPS AVO* 
i<HlCH ARE USED TU LOCATE MTA IN PRuPEK POSHiONS AVUA 
Uf VECTOR X. 
WOAMNU VtCTOR Of LENGTH K. 



KOUNT 

?,WUT UATA MUST BE ARRANGEJ Hi THt FOLLOWING MANNER. 
CONilOti* THE j-VARIABLE ANALYSIS W VARIANCE DtSlGN. MHErE 
ONE VAKIABlE has 3 LEVELS ANO THE OTHER TwD VARIABLES HAVE 



AVOA 
AVOA 
AVOA 
AVOA 
AVCA 
AVDA 
AVOA 



2 caVELS. THE DATA MAY BE KEPfttSfcNTEO IN THE FORM X< I , J,R) , AVDA 



I'^l.^tS J = i.2 K«l,2. IN A.*«A«iI|«& DATA, THE INNER 
iUbSCHIPT, NAMELY I, CHANGES FIRST. MHfcN 1=3. THE NEXT 
INN=ft SUBSCRIPT. J, CHANGES ANU SO ON UNTIL 1=3, J=2, AND 
K = 2. 

SUBtOUriNES A.sil) FUNCTION SUBPRQliRAMS RtOUIREO 

NCNe 

METHOD 

THE METHOi) IS BASEO ON THE TtCHNlQUt DISCUSSED BY H. O. 
riARTLLY IN 'MATHEMATICAL METHODS FOR DIGITAL COMPUTERS*, 
EDITED dY a. RALSTON AND ri. iJILFf JOHN HUEY AND SONS, 
l9o2, CHAPTER 20. 



SuaRnuTINE AWJAl IK-LEVEL, N.X.L.ISTSP.KOUNTl 
01 MENS I CN LEVELUI,X(U,1STEP(U.K0UNT(II 



IF A DUUdLE PRECISION VERSION OF THIS ROUTINE IS OfcSIREO. THE 
C IN COLUMN I SHOULD flt RtMUVtO (-ROM THE OOUBlE dhECISION 
SIAItMfcNT i*hICH FOLLOWS. 

DOUBLE PRECISION X 

TMc C MUST ALSO UE RcMOVtJ FROM JUUBLfi PRECISION STATEMENTS 
APPEARING IH OTHER ROUTlNtfS UScO IH CONJUNCTION WHH THIS 
ROUTINE. 



AVOA 

AVOA 
AVOA 
AVOA 
AVOA 
AVOA 
AVDA 
AVOA 
AVOA 
AVOA 
AVOA 
AVOA 
AVOA 
AVOA 
AVOA 



(4) 



CALCULAIfe TOTAL (lAT A AREA HfidUIRiO 

M=LtVELm*l 

00 1C5 1=2. K 

105 M=M*(LtVcL( Il'll 

HOVE DATA TO TriE UPPER PARI OF THE ARRAY X 
FOR THt PU.^POSl OF REARRANGEMENT 

N1=M*1 
N2=N*1 

DO 107 1=1, N 
Nl=Ni-l 
N2=N2-1 
IJ7 KlNI)=X(N£l 

CALCULATE MJLTIPLlcRS TO BE USEO IN FINOING STORAGE LOCATIONS FOR 
INPJT DATA 

ISIcPt 1(=1 

DO Lie 1=2. K 
11 C lSlEP(II»ISTtPU-ll-lL£VEL(I-ll*n 

DO 11^ 1=1. K 
115 KOUNT ( I )=1 

PLACt DATA IN PROPER LOCATIONS 

Nl=Nl-l 

DO IJi t=l,N 

l=KCUNT( 1) 

L*U Uj J^^iK 
12C L=L*1 SffcPt JI'lx.OJNr ( J t-I ) 

N 1 = N 1 ♦ I 

X(L1^X{M) 

00 liO J=l,«. 

IF(KUU.MT(J»-LcVEL( J)) 12^. 125. 124 
U4 KOUrtHJ»=<UUNT( Jl*l 

GO TO US 
U3 KUJNT(J1=1 
1 JO CUNTINJE 
I ji CiiNTlNjE 

END 



100 
110 
1^0 
130 
l<rC 
150 
160 

iro 

ISO 
190 
20C 
210 
220 
2 30 
2-*0 
250 
260 
2 70 

2 SO 
290 
300 
31C 
320 
ilO 
340 

3 50 
360 
3T0 
380 
390 
400 
*10 
420 
430 
44C 
450 
460 
470 
48C 
490 
500 
510 
520 
530 
540 

AVDA 550 
AVOA 560 
AVOA 570 
AVOA 5B0 
AVOA 590 
AVOA 600 
AVtyA 610 
AVOA 620 
AVOA 630 
AVDA 64C 
AVOA 650 
AVOA 660 
AVOA 670 
AVUA 660 
AVOA 690 
AVOA 700 
AVOA 710 
AVOA T20 
AVOA 730 
AVOA 740 
AVOA 750 
AVOA 760 
AVDA 770 
AVDA TBO 
AVDA 790 
AVOA BOO 
AVOA SIO 
AVDA 820 
AVDA 83C 
AVDA 840 
AVOA 850 
AVOA 860 
AVOA 870 
AVOA 800 
AVOA 890 
AVOA 900 
AVOA 9L0 
AVOA 920 
AVOA 930 
AVOA 940 
AVOA 950 
AVOA 960 
AVDA 970 
AVUA 9S0 
AVUA 990 
AVDAIOOC 
AVOAIOIO 
AVDAL020 
AV0A1930 
AVDAia40 
AVOA 10 SO 
AVUA1060 
AVUAia70 
AVOA1080 
AV0AL090 
AVUAUOO 
AVDAUIO 
AVOAU<!0 
AV0A1.130 

AV0AU50 



.th 



where KOUNT; = value of j subscript of the data 
to be stored. 



The subroutine increments the value(s) of sub- 
script(s) after each data point is stored. 



Statistics — Design Analysis 49 



Subroutine AVCAL 

This subroutine performs the calculus for the gen- 
eral'k-factor experiment: operator S and operator 
A. An example is presented in terms of k = 3 to 
illustrate these operators. 

Let x^jiQ denote the experimental reading from 
the a*^ level of factor A, the b**^ level of factor B, 
and the c™ level of factor C. The symbols A, B, 
and C will also denote the number of levels for each 
factor so that a = 1, 2, . . . , A; b = 1, 2, . . . , B; 
and c = 1, 2, .... C. 

With regard to the first factor A: 

operator ^—' = sura over all levels a = 1, 2, . . . , 
A, holding the other subscripts at 
constant levels, and 



operator i\= multiply all items by A and sub- 
tract the result of S from all 
items 



S 
a 



In mathematical notation, these operators are 
defined as follows: 



E 



A 



abc .be ^-^ "abc 

a a = l 



-E 



(1) 



A^ 



abc 



Ax 



abc 



- X 



be 



(2) 



The operators 2 and A will be applied sequentially 
to all factors A, B, and C. Upon the completion 
of these operations, the storage array X contains 
deviates to be used for analysis-of-variance 
components in the subroutine MEANQ. 



SUtKtOUTINE AVCAl 

*»UitPOSE 

PtAFURH TH£ CVCUlUS Of= A FACTOAJAL EK^CKIHENT USING 
Uf'EfUTCm il&MA AND OPEilArLtR D&LtA. ThI & %0tit^OiJXlHt IS ' 
PRtC£UEJ dY SUeAOuriHt AOVAr ANO t'OLLOWEO BV SUaROUTIN£ 
HEAHii IN THE PERFCfMANCE OF ANACYSIS OF VAAIANCE FOR « 
C(WPi.c:T(: FACrORI*!. UfcSI&N. 



20 
30 

AO 



TO 



CALL AVCAi, liCtLEVEL. 



XtL*ISrEP>LA$ISI 



AWCA 
.AVCA 
AVCA 
AVCA 
AVCA 
AvCA 
AVCA 
AVCA 
AVC A 90 
AVCA 100 
AVCA tlO 
AVCA 120 

AVCA no 

AVCA 1^0 
AVCA ISO 
AyCA 160 
AVCA I TO 
AVCA ISO 
Ave* 190 



JcSLRlPnUN QF PAKANtTEftS 

K - NJNBtft Of VARJASLES IFACTOII&). K HUSr BE .CT. ONE 

LEVEL - iMPUr VECrOft OF LEN&TH K CONTAINIKG LEVELS (CATE- 

GOAUSt WITHIN em;h VWIABU. 
X - INPUT Vector containihc oata. oata hAve been placeoavca zoo 

IN vector K eV SUSROUriNE AVOAT. the LEMCTH of X AVCA 210 
IS U£VELUI«ll*(LEV£L(2l>tl«...«|LEV£LKl»ll. AVCA 220 

L - Trtd POSITION In VcCTOR X WHERE THJE LAST INPUT DATA AVCA iJO 

IS LOCATEO. L HAS BEEN CALCULATES BY SuaaOUTIME AVCA 240 

*VUAT. AVCA 250 

ISTkP - INf>ur VECTOR Of LENGTH K CONTAINING STORAGE CONTROL AVCA 260 



STcPS WHICH HAVE BEEN CALCULATED |Y SUdftOUTIMC 
AVOAT . 
LASTS - UOAKING VECTOR OF LENGTH K. 

RtfrtAA<S 

THIS SUBROUTINE NUST FOLLOW SUMQUTINE AVOAT. 



AND HIMCTION SUaPROGRAHS REQUIRES 



SJSKOUTINtS 

NONc 

HtTHOO 

THE NETHOO IS dASbO ON THE TECHNIQUE OISCUSSEO BY H. O. 
HARTLEY IN *N ArHEHAFlCAL WfTHOOS FOK OIGUAL COMPUTERS- , 
EOtTEO 0V A. AALSTON ANO H. UlLff JOHN WILCY ANO SUNS* 
I9&^> CHAPTER 20. 



SUdftOUTINE AVCAL (<*t.£VEL*X.L, I STEP.LASTSI 
DIMENSION LEVELUI.XIll.ISTEPI 1 1. LASTS! II 



IF A OUUSLE PRECISION VERSION Of IHI $ ROUTINE IS OESlREO, THE 
C IN CULUHN 1 SHOULD BE REHOVtO FKON THE OOUSLE PRECISION 
STATENtNT WHICH FOLlOmS. 

DOUBLE PKtClSION XtSUH 

THE c MUST Also ae REnovEp fmuh oousu precisiom stajehents 

APPEARING IN 0IH6R MOUriNES USEU IN CONJUNCTION UITH THIS 

ROUTINE. 



C CALCULATE THC LAST OATA POSITION Of EACH FACTOR 

C 

LASTSII}>L*I 
OU U3 1 = 2. K 
145 LASTSd l>=LASTS( I'lMISTEPI I) 
L 
': PERFORH CALCULUS OF OPERATION 

ISC DO 175 1*1, K 
t«l 
LL-l 
SUN>0.0 
NN-LEV£L| II 
FN-NN 

INCHE-ISTEPIII 
LAST>LASTS(II 

: SICHA UPERAflON 

1^1> tXj loO J>1,NN 

SUH-SUN-l^XlLI 
16C L-L»INCRc 

GkLTA UPcHATION 

00 165 J=1.NN 

XILLI=FN*X(LL1-SU^ 
IbS LL = LL*tM:RE 

SOH^O.O 

IF(L-L*Sri 16T, 175, ITS 
ls7 IFU-LAST*InCREI 16B, 16t., l ?C> 
lot) t=L*lNCR-. 

LL=LL»IMCrtE 

GO TO l^b 
ITL L = L»If«lLKL*l-LASr 

LL - LL • 1 fJC KE • I -L AS I 

GU TJ 155 
1 /5 Cu.4TlNJt: 

KtTJRh 

EI40 



AVCA 270 

AVCA 2ao 

AVCA 290 
AVCA 300 
AVCA JIO 
AVCA 120 
AVCA 3)0 
AVCA 340 
AvCa 3S0 
AVCA )60 
AVCA 370 
AVCA 3ao 
AVCA 390 
AVCA 400 
AVCA 410 
AVCA 420 
•.AVCA 430 
AVCA 440 
AVCA 4M) 
AVCA 440 
AVCA 4 70 
..AVCA 4«e 
AVCA 490 
AVCA 500 
AVCA 510 
AVCA 520 
AVCA 5)0 
AVCA 540 
AVCA 5 50 
AVCA 560 
AVCA S70 
AVCA 5«0 
AVCA 590 
.AVCA 600 
AVCA A 10 
AVCA 620 
AVCA A JO 
AVCA 640 
AVCA 650 
AVCA 660 
AVCA 670 
AVCA 680 
AVCA 690 
AVCA 700 
AVCA 710 
AVCA 720 
AVCA 730 
AVCA 740 
AVCA 750 
AVCA 760 
AVCA 770 
AVCA 7«0 
AVCA 790 
AVCA aoo 
AVCA 8l0 
AVCA ^20 
AVCA 430 
AVCA 440 
AVCA 850 
AVCA a60 
AVCA 670 
AVCA 880 
AVCA 890 
AVCA 900 
AVCA 910 
AVCA 920 
AVCA 930 
AVcA 940 
AVCA 950 
AVCA 960 
AVCA 970 
AVCA 9«0 
AVCA 990 
AVCAI OCO 
AVCAtClO 
AVCALCI23 
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Subroutine MEANQ 

This subroutine performs the mean square operation 
for the general k-factor experiment in the following 
two steps: 

1. Square each value of deviates for analysis of 
variance stored in the array X (the result of the 
operators 2 and A applied in the subroutine 
AVCAL). 

2, Add the squared value into summation 
storage. In a three-factor experiment, for 
example, the squared value is added into one of 
seven storages (7 = 2"^- 1) as shown in the first 
column of Table 1. The symbols A, B, and C in 
the first column denote factor A, factor B, and 
factor C. 

After the mean square operation is completed for 
all values in the storage array X, the subroutine 
forms sums of squares of analysis of variance by 
dividing the totals of squared values by proper 
divisors. These divisors for the three-factor ex- 
periment mentioned above are shown in the second 
column of Table 1. The symbols A, B, and C in the 
second column denote the number of levels for each 
factor^ 

The subroutine, then, forms mean squares by 
dividing sums of squares by degrees of freedom. 
The third column of the summary table shows the 
degrees of freedom. The symbols A, B, and C 
denote the number of levels for each factor. 

Table 1. Table Showing Summation Storages, 

Divisors to Form Sum of Squares, and 
Degrees of Freedom (Subroutine MEANQ) 



Designation of Store 


Divisor [Required to 


Degrees of Freedom 


and of Quantity Con- 


Form Sum of Squares 


Required to Form 


tained in it 


of Analysis of Variance 
ABC- A 


Mean Squares 


(A)^ 


(A-1) 


(B)2 


ABC-B 


(B-1) 


(AB)2 
(C)2 


ABC-AB 


(A-1) (B-1) 


ABC-C 


(C-1) 


(AC)2 


ABC- AC 


(A-1) (C-1) 


(BC)2 


ABC-BC 


(B-1) (C-1) 


(ABC)2 


ABC- ABC 


(A-1) (B-1) (C-1) 



SJaKiXiTlNf HBAt*^ 

CtmfJTB SJM OF SUUAH£S« QEGHEES Of FKEEOON* AMO lUAN SOtMKE 
JS(N& THt IfcAN SQOAUt OUcHAfO*!.. THlS SU»ROUr|IC HOMULiT 
FOt.L0.4S CALLS JO AVOAr Anu AVCAL SUtAOUflNES IN THC ^E*- 
FOrtMANCE Of AHALY&IS OF VAKlAftCC fO« * CONfLETt: ^ACfOAIAi 
UcSlGN. 

USAiiE 

CALL HtANS (ikfLcVEL.K.CNtAN*SUNSQ,M>f *SNEAN«HST£'tlUlUNT« 
LASTS) 

OdSCKIpriON JF PWAMETEAS 

A - filiH^i* OF VARIABLES iFACrOASl* K HUSt dE .AT. ONE. 

LtVt:!. - IMf*U! VECrCM Of LiHCIH <C CWrAINlNG CEVELS fUfC- 
G0KI£S» WITHIM EACH VAKIAtLL. 

K - IN^UT VECrUK CJMTAXNIMt; TME AESULT OF THE SIGMA ANO 

OcLTA OPEAArjAi. rH£ LEMSTH OF I I S 
(L£tfELIll*I)*^(Lttf£L(2l«ll*...«(LeVEL4KMll. 

iiMcA.^ - OliTPjr VARIAULc CaMTAlNlfMS GRAND McAN. 

suH^j - ouTpjr vECTOH lohtaihIhh ami of squares, ihe 

L£N«^rH OF SOMS^J IS 2 fO THE K-TH POMEA MINUS ONE* 
*2**A»-J. 

Hjf- - jurpur vector containinc ae&rees of frceoon. the 

LENGTH Of HOf IS ^ TO THE K-TH POWEA MINUS OME« 

(2**A)-1. 
SHtAN - OUTPUT VECTOR CJNTaIN|*M MEAN SQUARES. THE 

LENGTH OF SMEAN IS 2 TJ THE A-TH POilEA MINUS OMC< 

<2***t»-l- 
NSTEP - WORKING VECTOR Of LEM&TH K. 
KUlNT - riORKINC VCCfUA Of ICNGTH K. 
LASTS - WOAAINC VECTOR OF LENGTH K. 



SUBROUTINES ANO FUNCTION SUaPROCAAMS REClUlREO 

NONE 

METHOO 

THE HEIHOO IS BAsEU CN THe TECHNIQUE 01 SCUSSEO BY H. 0. 
HA.1TLEV IN *HAIHEMAT1CAL METHOUS fOR OlfrlTAi COMPUTERS*! 
EUiTEO a> A. RALSTON AnU H. HIlF* JOHN UILEV AND SONS, 
IV62, CHAPTER 2C. 



SUbROUTINE McANg IK .LEVEL . H,&MCAN, SUHSQ»MOf.$N£AN.NST£P«M>U«T. 

LASTSl 
DIMENSION LEV£Lm.mi.SUMSQUI.NOFll».S«tANIl»,«TEfUI. 
KOUNTUItLASTSIl) 



IF A DOUBLE PRECISION VERSION Of THIS ROUTINE 15 DES 
C IN COLUMN 1 SHOULD BE REHUVEO fKOfI THE DOUBLE PREC 
STATEMENT UHICH FOLLOHS. 

UUU6LE PRECISIUN X.CMEAN.&UMSg.&NEAN.FNl 

THE C HUSr ALSO BE REMOVED FROM OOUftlE PRECISION STA 
APPEARING IN OTHER ROUTINES USES IN CONJUNCTION WITH 
ROUT INE . 



IREO, THC 
I SI ON 



CALCULATE TOTAL NUHUR OF DATA 

N'LEVELIII 
UC IbQ I«2.K 
i5C h-N*t€VEL(ll 

SET UP CONTROL FOR NEAN SQUARE OPERATOR 

LASTSUI'LtVELIlt 
00 17S 1*2. K 
I?e LASISin-LEVELUI*! 
NN«I 

CLEAR IHE AREA TU STORE SUMS OF SQUARES 

LL-I2*«».I-1 

HSTEPf II>1 

DO laO I<2fK 
laC MSTtPlI»»«STEP«I-i**2 

bU m l-l*LL 
lib SUHSOlI l>0<0 

PERFuRN MEAN SQUARE OPERATOR 

00 190 I'l.K 
190 aOunTI I }-0 
2CC L-0 

00 260 I>1*K 

IF(KUUNT(1)-LASTS(1 n 2LC« 2>0. 210 
21C IFIL) 22C. 220, 240 
ilL KGUNTII l«K(>UNT<l t«l 

IFIKOUNTID-LEVELd II 230. 230. 250 
23C L=l*MSTEPIU 

CLi TO 2bC> 
2'i.C IFIAQUMTI I»-LEVEL1I It 23C'. 260, 230 
2bQ KOUNIIIt'C 
2(tC CONTINUE 

IKLI 28S. iaS, 2T0 
27C SUMSQ(l.l«SUMSQUI»HNNI«KIN«» 

NN-NN4^1 

GU TO lOii 

CALCULATE THE 6KANU MEAN 

265 f« = IH 

GMtAN=K|NM|/fN 

LALCULATc FIRST JIVISUi REOUiRLO TU FORM SUM Uf SQUARES 
OlViSOK, MHICH IS tOUAL TO uECKEfcS Qf fMEDON. REQUIRED 
HtAH SwUARtS 

UO 310 I>2.A 
dU MSTEPlI l-C 
NN«G 

Nsrtpi 1 i>i 

NU2- t 

JO J43 l=i»< 

IFI risTcP* in JiO, i-tC, 350 



MEAN iO 
MAN 20 
HEAN M 
MEAN 40 
MEAN SO 
MEAN 40 
HEAN TO 
H£tM to 
MEAN 90 
NcAN LOO 
MEAN UO 
MEAN 120 
NCAN IM 
HEAN 140 
NCAN ISO 
HEAN 140 
NCAN 170 
MEAN 1W> 
NCAN 190 
HEAN 200 
MEAN 210 
NCAN 220 
MEAN 230 
MEAN 240 
MEAN 290 
MEAN 240 
MEAN 2 TO 
HEAN 2*0 
HEAN 290 
MEAN )00 
N&M 310 
NCAN i20 

Mean >90 

MEAN 140 
HEAN 3*0 
MEAN »40 

HEAN ITO 
HCAM MO 
MEAN )90 

MEAN 400 
MEAN 410 
MEAN 420 
MEAN 430 
MEAN 440 
MEAN 450 
MCAN 4*0 
MEAN 4T0 
NEAN 4M 
MEAN 490 

.MEAN SOO 
MEAN SIO 
MCAN S20 
HCAM 530 
MEAN »40 
MEAN S90 
NCAN S40 

■MEAN STO 
NCAn 5«0 
MCAN 590 
MCAN «00 
MEAN 410 
MEAN 620 
NCAN 630 
MCAH 640 
HEAN 650 
NEAN 660 
MEAN 670 
HEAN 6M 

•MEAN 690 
MEAN TOO 
MEAN no 
HE AH 720 
HCAN 730 
NEAN 740 
HCAH T50 
HCAN 760 
HEAH 770 
NEAN TRO 
HEAN 740 
HEAN aOO 
HEAN «10 
HEAN 120 
HEAH BIO 
HEAN 940 
HEAN tSC 
NEAN MO 
NEAN §70 
MEAN BBO 
MEAN S90 
HEAN «0C 
MEAN 910 
HEAN 920 
MEAN 9M) 
HEAN 940 
HCAN 990 
HEAH 9*0 
NEAN 970 
NEAN 9B0 
HEAN 990 
HEANIOOO 
HEANIOIC 
HCAH1020 
HCAN1030 
HCAN1040 
NEANlOSO 
HE AM 060 
HE AN 10 TO 
HEANIOBO 
HEAH1090 
HCANt I 00 
HEAHIUO 
HE AN 1120 
HEAN1I30 
MCANU60 

HEAN1160 
MEANUTO 
AMD SEC OHO HE AN 1180 
TO fORM NEAN1190 
NEAN1200 
HEAHl2iO 
HEANU20 
NEAN123C 
HEAN1240 
HEAN125C 
MEAN1260 
MEAN1270 
HEAN 1200 
MEAN1290 



TENCNTS 
THIS 
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'«^-N^>J•(lfeVt:L^ I I -I I 

NM=NN*1 

ttOH UHt-NOi 

IHNM-LL) 3*i. 3T0t 3rC 
i^5 OU >«0 1=1, K 

3t7 MSilEPf 1 )-c 
bO TO 3*0 

GO TU 3^0 
3AC CJNtlNUi 
3/1. KtlUKN 

tNU 



34r, 3$0t s**/ 



HEANllOti 
M£AM1310 

H£ANt340 
NEAN13M 
ft£«N13*0 

KEANliaO 

nE*Nl«uo 
l(£<NI«10 

MtAN1430 
ltE<Nl«<.0 
NEAN14M 
MC*ni«aO 
IIEANU70 
IIEAN144C 



Discriminant Analysis 

In the Scientific Subroutine Package, discriminant 
analysis is normally performed by calling the fol- 
lowing three subroutines in sequence: 

1. DMATX - to compute means of variables in 

each group and a pooled dispersion 
matrix 

2. MINV - to invert the pooled dispersion matrix 

3. DISCR - to compute coefficients of discrim- 

inant functions and evaluate the 
functions for each observation 
(individual) 



Subroutine DMATX 

This subroutine calculates means of variables in 
each group and a pooled dispersion matrix for the 
set of groups in a discriminant analysis. 

For each group k = 1, 2, .... g, the sub- 
routine calculates means and sums of cross- 
products of deviations from means as shown 
below. 

Means: 



Jk 



i = l 



X. 



ijk 



\ 



(1) 



th 



where n, = sample size in the k group 
j = 1, 2, . . . , m are variables 



Sum of cross-products of deviations from means: 



. k) 



where j = 1, 2, .... m 
£ = 1, 2, ..., m 

The pooled dispersion matrix is calculated as 
follows: 



D = 



k = l 



g 
k = l 



(3) 



where g = number of groups 
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S Ju^Oul Inc 



L(Jn*>IJit Ss^fuS OF 



hUK ALL THL ^KOUPS. NJ-iMALLr 

N THt I'LRFOK'^ANCt UF 



.LMtAN* 



.OHAT 
OM&T 
OMAT 
UMAT 
DHAT 
UHAT 
OHAT 



PJULEO 

IHIS SUB 

DISCkIHINaNI jtfgALYSlS.OMAl 

DMAt IOC 

OHAT 110 

OMAT UO 

DMAT 130 

DMAT l^rO 

OHAT 1^0 

OHAT 160 

OHAT ITO 



N J*- PAKA«tre«S 
NUHBtK Clf^ CROUPS 
NUHdtk OF VAKUSLtS (MJil Bt THE SAMt FUK ALL 

■ ;;'ur'iECTUR UP .tN.lM K CONTAINING SAHPLE SIZES Of DNAJ 180 

nPu;';.cT.K C...AIM.. .am^_.. !t!L!:r^?.^^?l^*- SSIf 152 



CJNIAINI.MS DATA IN THE MAJVJNtM kOUI 
1 tNl iu a 3-DIM£NSiONAL FOUTMAN ARRAY, XU.l.H. 
tw 1 n XI3 Uil. tK. THE FIRST SUdSCRI^T IS OMAT 2Z0 

flsE Aii^tK. U itCUNLJ ^UbSCKIPT IS VARlAflLfc NUMBEftDHAT 230 
AUJ THc TMIRJ iUeSCHlPT IS CKOUP NUNBE.<. THE 
U^Jri JF VtCrC** X IS taOAL TU the TGTAL NU«BtR Of U«AT ^,0 

jArA, POINTS. r»M. .^HtHt r =• n(ii*i-iI2I 

UUTPUr HAT**! 

;S,'.'T.";« M X ". CO.,.,mNO fOCLtO ..SPt«SION. DMAT ^^0 

^dRKlNG VECrCK JF LtJJoTH H- 



DMAT 2*0 

UHAT 2 50 

OMAT 260 

'^MWrCUNlAUiNG McANS OF VARU6LES DH*T HO 

OMAT zso 



""?«t\u«Btk Of VMUSLli -USr BE GR6ATM THAN 0« tOUAI. TO 

IMt NU"9eK Of GROUPS. 
SUokiJUTlNii MO fONCIlON SU9P.<0GKAHi R£OUlRfcC> 

NONE 

""'JSer rj •O«0 CIi«POH» PROGRAMS HANUAL-, EUlTtO 8? «. J. 
S^N UCLA. l^o*. ANJ I. -. ANOCSON, ■ 1 NIROUUC F I ON TO 
SimCARlA^E UAfiirK.L ANALYSIS-, JOHN HUEY AND SONS, 
I9!ja. StLTlON 6.6-6.6. 



SUSROUTlNt OHAIX (K,rt,N.X,AoAft.J.CM£AN) 
UiNENSim Ml).X( U,X6Afi(ll,0U(.CH£ANt U 



tt i n.Uiol t PHtClSlUN Vt^SlUN UF THIS ROUTINE I5 OfcSiRtO. THE 
J%i COLUMN Tsni^LD b. R.NOV.U FkOH THE OQUfiU PRECISION 
SIAIEH£KT WHICH fOLLCwS. 



JOUfaLt PRtClSlON XdAR.D.CMtAN 



r^c r NH^T AiSO d£ RfcMUVFJ FROM OJUaLE PR£CISION STATEMENTS 
Ipp.Ar'n- IN J^HER ROuTINcS USED IN CONJUNCTION .1 TH THIS 
ROUTINE. 



INITIALISATION 

MM''M*N 

DO IOC l-l.MM 
:• 0( I I^O.O 

CALCUCATt MtANS 



L-0 

LN'O 

yO le.0 NG=1,'^ 

N1=N(NGI 

FN^Nl 

00 13C J*1.N 

LH"L«*l 

XBAft(LM»=O.0 

C-O 1^0 I=liM 

L"L*1 
i^C XbA«(LMI = XfaAR(LHI*XU) 
i3C XBARaMJ«XBAfi(»-HI/FN 

: CALCULATE SUHS OF CROSS-PRODUCTS Of JtVIATlCNS 

LMtAN=LM-M 
OU 150 I=liNl 
H.=N'»*I-^l 
00 l'*C J=1.M 
Ll=LL*Nl 
N2=LrtEAN+J 
lAC CMtAN(JI = x*lLl-XDA*<lNZl 

LL-C 

00 i5C j*l.M 

,.-0 l:>0 JJ^t.'* 

iSC D(LLP=U(LLl*^«t6NlJ»*CMtANtJJl 



CALCULflTL TH 

LL^-R 

QO 170 1=1. ^ 
, H.=LL*N( I i 

f N^LL 

oO 160 i=l.«f 
: DU t=0( II/fN 

KgruftN 

tNO 



PCGLEC 



tRSlt; 



UMAT 300 
OHAT 310 
DMAT 320 
OHAT 330 
DHAT 340 
OMAT 350 
OMAT 360 
OMAT 370 
DmAT 380 
OHAT 390 
UHAT 400 
OHAT 410 
OMAT 420 
OMAT 4 30 
DMAT 440 
.OMAT 450 
OMAT 460 
DMAf 4T0 
OMAT 4d0 
OMAT 49C 
.ONAT SOO 
OHAT 5 10 
OHAT 520 
DMAT 5 30 
OMAT 540 
OMAT 550 
OMAT 560 
OHAT 5 70 
UHAT 580 
DHAT 590 
OMAT 6CC 
OHAT 610 
..DMAT 620 
OHAT 6 30 
OMAT 6'-C 
OMAT 650 
DHAT 660 
DHAT 670 
DMAT 660 
OMAT 690 
OHAT TOO 
DHAT 710 
OMAT 720 
DMAT 730 
OMAT 740 
OMAT 750 
DHAT 760 
OMAT 770 
OMAT TtJQ 
DMAT 790 
OHAT 8CC 
DMAT 810 
OMAT 9 20 
DMAT B30 
DMAT B40 
OMAT B5C 
OHAT 860 
DHAT 87C 
OMAT B80 
OMAT a*yo 
OMAT 900 
OMAT 910 
OMAT 9?0 
OHAT 930 
DHAT 940 
DMAT 950 
OMAT 9oO 
DMAT 9TC 
OMAT 980 
DMAT 99C 
UNATLOOC 
OHATICIC 
OMAT1C20 
DMAT1C30 
OMAn040 
OrtAT105C 
0M4T106C 
0MAT107C 
l)HAT108C 
DMATIC9C 

omaTiico 

OMATllIC 

DMAT112C 



Subroutine DISCR 

This subroutine performs a discriminant analysis by 
calculating a set of linear functions that s^rve as 
indices for classifying an individual into one of K 
groups. 

For all groups combined, the following are 
obtained. 

Common means: 
g 



X. = 



k = l 



(1) 






k = l 
where g = number of groups 

= 1, 2, .... m are variables 



J 



\ 



X. 



jk 



. , th 
= sample size in the k group 

th , th 

= mean of j variable in k group 



Generalized Mahalanobis D statistics, V: 



m m 



V 



=i; z ^ij E "k%-^i><^3k-^. 



.) (2) 



1=1 j=l 



k=l 



where d.. = the inverse element of the pooled 
^•' dispersion matrix D 

V can be used as chi-square (under assumption of 
normality) with m(g-l) degrees of freedom, to 
test the hypothesis that the mean values are the 
same in all the g groups for these m variables. 

For each discriminant function k* = 1, 2 g, 

the following statistics are calculated. 



Coefficients: 



ik* 



Ed X. 
ij 3 

3=1 



jk 



(3) 



where i = 1, 2, . . . , m 
k = k+ 



Constant: 



m m 



ok* 



= -^/' E E '^jiV'^ik ^'> 



J = 



1 1=1 
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For each i^h case in each k^h group, the following 
calculations are performed. 

Discriminant functions: 



m 



k* Z— ^ jk i]k ok + 

j = l 



(5) 



where k* = 1, 2, . . . , g 

Probability associated with largest discriminant 
function: 






(6) 






where f - the value of the largest discriminant 
function 

L = the subscript of the largest dis- 
criminant function 



PURPOSE 

tOK^urf A S€T Of LllttAR FUMCflONS l#1ICH SCKVE AS IWICCS 
fCk CIASSIFVII«C M IKDlVlbUAL IMTO DM OF SEVCHAI. UOU^S. 
NQRHAltr THIS SUCfiOUriNE |S USCO U THt r€llfOIIHMC£ Of 
i>ISCRIM|NANt AMALVSIS. 



20 

30 

40 



40 



USAGi: 
CALL 



>UCft (<.H*h.x.>»Ali,0.CH£AN»VtC*r*L6l 



DISC 
.DISC 
DISC 
OiSC 
DISC 
OISC 

01 &c 

01 &c 
DISC 

OISC too 

OiSC 110 
AISC no 
OISC 130 
OISC I4C 
01 &C ISO 
OISC 16C 
OISC 170 



c uescRifricN cjf pu.nMiicK% 

C K - HUH6£R 0#- (.ROUPS. * huSt BE GACArCR IHAN OME. 

C N - hUM6£il Of VAR: ABLES 

C M - |W»yT VfcCTOR U(^ i£*»GTH K COMTAlfiJNG SAMPLE SW£S Of DISC i»0 

C CROWS. oiiC IM 

C K ' IWUT V€CTOK UiHJAlHltA OATA IN fHt HAM£t EOUJVA- OISC 200 

C LEMT ro A 3-bilH6NS10NAL POKTfU*! AJIRAT, aU*1«11« OISC 210 

C X(2,l,ll. X(3.1,ll, £fC. ThC fiRST SUbSCftlPT IS OISC 220 

C CASi MMBER. Th£ ^tCGNO SUfiSCAIfT IS VAAUtlf HUMCftOISC 230 

C AHO rHE iHiRt SUBSCRIPT IS GROUP NUMBER. TMC OISC 2« 

C LCMGTH Of VECTOR J( ]S EQUAL TO THE TOTAL MUMw« Of OISC ZM 

C OATA POINTS. T«H< ««AE T > M IUNl2l«...«llUI. OISC MG 

C t&AH - IhPUf NATRlX I M K K> CONTAINING NEANS tf N VAIII AOIESOISC 2T0 



DISC MO 

OISC 290 

DISC 300 

OISC 310 

OISC 32C 

OISC 330 



IN A oaoups 

- INPUT MATRIX IM X HI CONTAINING THE INVERSE Of 

POOLED 0ISP£RS10f4 MATRIX. 

CMdAA. - OUTPUT VECTOR OF LENGTH N CONTAINING COMMON MEANS. 

V - UUrPJI VA*l|AoLt CONTAINING G£N£UL12cO NAHAlANO»|S 

D-SOUARE, 

C - UdTPJl NATftU (M*l K K| CONTAINING TH£ COEFFICIENTS OISC 3*0 

OF iilSCRIMlNANT FUNLUuNS. THE FIRST POSITION Of DISC J5C 
«ACH COLUMN (fUNCIIOh) CONIAJNS THt V*LUc OF TMt OISC 360 

CONiTANT FOR THAT FWiCIICN. oiSC 3T0 

P - UJT|>JT VLCTOR CONTAINl*tC THt PROBABILITY ASSOCIATiO OISC 3B0 

milH Tm£ LARGEST iiliCH-tHlHAHl FU*4CTIUMS OF ALL CASESOI&C 390 
IN ALL ChCUPS. CAiCULATtO RESULTS ARfc SIOREO IN THCOISC AOO 
«ANN£R EbUlVALEMT Tu A Z-OI MEMS J ONAL AREA I THE O I SC « IC 

FMST SUOSCRIPT IS CASc NUHAER, ANC THE SECOND OISC A20 

SUoSCHIPT IS GAJUP NUMdERI. VECTOR P HAS LENGTH OISC 43C 

tOJAL TJ THE TOTAL WiMBcR OF tASES, T IT - N(1MN(2I0ISC «40 



*N(A>). 
LC - iiUTPuT VECTOR C0NTA|r«lMC THE SUBSCRIPTS OF THE 

LAii&ti^T OISCRJHINAKT FUNCllQMS STORED IM VECTOR P. 
THc LENJTH uF VECTuI^ LC IS THE SANE AS THE LEtCTH 

uf VEtTQR P. 



REMARKS 

THE NLMoEK OF VAklAM.ES MUST 
THt hUHB£f^ OF GkOuP^. 



EE wREATER THAN CA EQUAL TO 



SUbAOJliNE> ANO FUNCTION SUSPRJGRANs AeCUIREO 
NCNE 

Ht1H(J> 

kim. TL 'oMo CO^PuTEA PMJCKAMS MAMUAL • , EtITEO «T to. J. 
JIaGK, uCLA, 1«o*, ANO T. «. AhuERSON, •INTROOUCTim TO 
MULTIVARIATE STATISTICAL ANALViJi', JOHN hiLET AmO SONS. 
1958. StCTIUfti *.«-(>.£. •""-»» 



OISC 4SC 

OISC 4«0 

OISC 4TC 

OISC ABC 

OISC «90 

one ioc 

disc SIC 
OISC S20 
OISC 530 
OISC 44S 
OISC 5 SO 
OISC SAO 
OISC 5 70 
OISC SdO 
OiSC 590 
OJSC 400 
OISC *10 
OISC 620 
OISC 630 



iUdK^uTlNt ulSCF. lK.,H,h,X.X6AA,tJ.CHt:AN,V.C«P,L5l 
olMENilUN N4 II.XI tt .hUAHl il.Lt 1 I tCntiANI II.CIIUPII I ,LC1 tl 



If * JJUdLc fKECISIuN VthilDN UF THIS RCUTJW IS OESIREO, «H£ 
c I."« COLJK.K 1 SHOULD be -KtMCrfED FRCM The OOUBLfc PRECISION 
iTArcML.VT bHJCH FULLLhS. 

.JjLe PkECISIuN fct-AF., U,f MLAj,,,v,C,i.u«,P,PL 

The C HOil ALSO tt RtMOVci. FAOM CJUBLt PRECISION STATEMENTS 
^PPtAAl-^G H OtHtft RuuriNtS US6j II, COhJUNtTlUN .IIH THIS 
ROoriNE. 



THc L>CJo(.c PKcClSloN Vt:i.SI3N LF Th!S SUbROUT I Nt MUST ALSO 
CONTAIN OiJUiiL; P*cCISU\ f-ORTknH ^jNCTiONS. 
2S0 MJiT ae i.'iU^GtO Tu (Jt«P. 



EXP, IN, STATEMENT 



«Tt COmmUm -iLAf^S 



00 Ul I^f.K 
IOC Ni = Nl.«N(l I 

DC llL 1=1, K 
IK P(l MN( II 

UO IK I-I.p; 

LMEANd | = C 

Ml=|-H 

CO l^~ J=l,K 

liC CMtA,-!! i I = CMtAN( i I *PCJl*XbAR[Ni 1 
13C CMttM 1 l = CHeANl J )/f NT 

C«LCoL4Tt 'jtMcRALUED MAHALA^OblS SQUARE 

L«e 



C(LI = Ad«<(L|-CMeAK< J I 



DO 16C J=1,M 
DO l&O l<l.N 
NI-l-M 

N2=J-M 

SUM-CO 

00 I5b XJ=1,K 

15C SUM-^SUMtPI IJ (♦C(,'<1| •CINZI 
L«L + I 

I6f V=V*DUI*SJN 
C 
C CALCULATfc TMt COcFFtCILNTS OF Ul SCRI -^INAMT FUMCTIOMS 

N2-0 

DC 19C KA=i,n 

DO ITC 1*1. M 

n;*m2*i 

nc p(i i^xcAntN^) 

iQ«IM*l»»(HA-IMl 

SUM=C.C 

DC 16L Jil.M 

M-J-M 

DO 160 L^l.M 

M>Nl*M 
1«C SUM^SU.'1*0tNl)«P| JMPUI 

C< IU)--<SJH/2.u) 

OC 19C 1=1, M 

M-l-M 

IkJ-IUt'l 

ClUl^O.C 

00 190 J>=1.M 

hl>.^l*M 
19C C(lUI<C(lJUD(NI}«P(J) 

: FOR EALM CASE I,M EACH GROUP. CALCULATE*. 

' DlSCKIMI^ANT FUNCTIONS 

LbASE=C 
M-0 

OG 2TC Ki^l.K 
NN=NUGI 
DO 260 lc:l.NN 
L-I-«N*Lo*St 
00 29^ J'L,H 
L"L»fcN 
2:C of J)*XIL1 
N2*C 

00 i^O KA=1,K 

N2-N2»l 

SUH>:C('<^) 

DC iir J=l,h 
N2-N2*l 
2IC &UM=SJ'4»CIN2I«.;( J) 

22C XdAR|<A|=>uM 

TNf LARGEST JISCAIHIhANT F JMC T UN 



SUM=«d4'<( 1 I 

|F(SU«-Xb4R(JlI 
<;3C L-J 

SUM'toARIJl 

24t COklimt 



PkOoA:;IlIIy asSjciate:. kiih the URitST 



£i»C PL = t'L» £XPUoA-.(Jl-StJ'<) 



aC P(MI=1.0/PL 



oiscRiNiNANf Function 



.DISC 6-tO 
DISC 6SC 
OISC 660 
OISC 6TC 
OISC ABO 
>0I$C 690 
DISC 70C 
OISC 710 
OISC 720 
OISC T3C 
OISC 740 
OISC 7SC 
DISC r6C 
OISC 77C 
OISC 7oC 
OISC 79C 
DISC 800 
OISC 61C 
Disc 82C 
OISC 830 
OISC BOD 
•-■•OISC bSO 
OISC 860 
OISC 67C 
DISC BBC 
OISC B9C 
UISC 9CC 
OISC 91C 
OISC 9 2C 
DISC 9iC 
OISC 940 
OISC 950 
DISC 9t,0 
OISC 970 
OISC 9d0 
OISC 99C 
OISCICCO 
OISCIOIO 
01SC132C 
0ISC1C3C 
OISCL04O 
OISCIQSC 
0ISC1060 
01 SCI 070 
OISCIOBO 
OISC1090 
OISCllOC 
OISClllO 
01 SCI 120 
JISC113C 
0ISC1140 
OISC1150 
0ISCIt60 
OISCU70 
0ISC1180 
0ISC119C 
DlSCliCO 
OISC12L0 
OISC1220 
OISC1230 
OI$CL24.C 
OISC1250 
OISC 1260 
OISC127C 

oi$ci2ao 

O1SC1240 
OI$C1300 
OISC1310 
O1SC1320 
OtSC13iO 

oiscia^o 

01 SCI 350 
01SC136C 
OISCtlTO 
OI$C1380 
0ISCL390 
OISC140C 
DISC1410 
0ISC1420 
OISCU30 
01$C1440 
OISC1A50 
O[SCL660 
0ISC14T0 
OtSClASO 
0ISC149C 
0ISC1500 
0ISC1510 
OISC1520 
OISC1530 
OISCISAO 

oiscisso 

0I$C1S6C 

Discisrc 

OISC 1580 
01 SCI 590 
0ISCL6CC 
01SC16I0 
0fsCl62C 
01 SCI 6 30 
OISC 1640 
OlSClbSO 
OISCI660 
OISC16T0 
OISC 168C 
0ISC169C 
OISCITOO 
OISCI710 
0ISC1T20 

.oiscirio 

-OISCITAC 
'OISCITSO 

oisGiriio 

OISCITSO 
01 SCI 790 
OISCIBCO 
DISC 18 IC 

OISCU20 

oisciaso 

DISC184C 
OISCi35C 
OlSClBbO 

01SC1B70 

oiscia60 
Qtscia9o 

0ISC19OC 
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Factor Analysis (see Eigenanalysis) 

In the Scientific Subroutine Pack^e, factor 
analysis is normally performed by calling the 
following five subroutines in sequence: 

1. CORRE - to find means, standard deviations, 

and correlation matrix 

2. EIGEN - to compute eigenvalues and assoc- 

iated eigenvectors of the correlation 
matrix 

3. TRACE - to select the eigenvalues that are 

greater than or equal to the control 
value specified by the user 

4. LOAD - to compute a factor matrix 

5. VARMX- to perform varimax rotation of the 

factor matrix 
The subroutine CORRE works in either of two 
ways: (1) it expects all observations in core, or 
(2) it triggers a user-provided input subroutine, 
DATA, to read one observation at a time into a 
work area. In either case, the user must provide 
a subroutine named DATA (see "Subroutines Re- 
quired" in the comment cards designation of sub- 
routine CORRE). 



Subroutine TRACE 

This subroutine finds k, the number of eigenvalues 
that are greater than or equal to the value of a 
specified constant. The given eigenvalues X^, Ag, 
\„ must be arranged in descending order. 



where j = 1, 2, . . . , k 

m = number of eigenvalues (or variables) 
k =£ m 



Cumulative percentages for these k eigenvalues 



are: 



Sl.eFCL11h£ 1KACE 



"• <fEClFIEI! ev Ift U5S«. IHIS SU«- 

SECt.EKC€ Cf CILLS TO SUB- 

«K0 VAtm IN IHf PER- 



TRAC 10 

TRAC 20 

TRAC 90 

TRAC *Q 

TRAC 50 

TRAC AO 

TRAC TO 

TRAC BO 

TRAC 90 

TRAC 100 

TRAC 110 

TRAC 120 

TRAC 130 

TRAC 1*0 

TRAC 150 

TRAC 160 

TRAC ITO 

TRAC 100 

TRAC l^o 
200 
210 

,S R e« «. WiriMSMWriu-iMSARi IX STCRACE. TRAC 2M 

(SICRACE Root r.f II 



C» ECUAl IC » CCkSIAM 

RCLTIRE RCRRAILV CCCt-RS 

RCLIIRES CCRRE. ElGEk. 1RACE. ICAC 

fCllH^C€ Cf • FACTCR AXAITSIS. 



LSACE 

CAll TRACE IR.R.CCR.R.CI 

CESCflfTICA Cf PAtlRElERS 

; - RUPBER Cf VARIAELES. " '"ST BE > CI 
INPUT RATRIX ISVRRETRIC ARC SICREO 



IR CCRRRESSEO 



«(R /lIK C1.1.Y IFftR IRIAROU t1 CCL1.« I« CORE! T.AC 

tcMAlillic EIGERVAIUES IK <="""" VArJ^J^'LJ^llMllc 



Cc"sliRruiEC TC CECICE KR RA«Y EICENVAIUES TO 
RETAIR. CURUlATIVt RERCERfACE Cf EICERVAIOES 
"icJ ARE CREAIiR THAR CR ECCAl TC THIS VALUE IS 



' CRE.IERT^AN C. ECOAL TC CC .« IS THE RUHOER Of 

r - fllfu'vECIOR Cf 1E^(;I^ R CCNTAIKIRC OjROLATHE 

' ReJcEMKE Cf EIGERVALUtS RflCH ARE OREATER THAN 

CR ECtjAL TO CCR. 
RERARRS 
RCRC 

SiemURES ARC ECRCIICR SiefRCCRARS RECUIREC 
ACRE 



■lERCLlIRE TRACE IP.R.CCk.i 
LIRE><ICR Rdl.Clll 



jL^ m 
i = l 



lie 



(1) 



TR*C 230 
TH*C 2*0 
TAAC 250 
TRAC 260 
TR*C 270 
r.)Z'V>llA^U CCRT.1R.RC THE RO-.E. Of -^-ACUEST.AC 2.0 

TRAC 300 
TflAC 310 
TRAC 320 
TRAC 330 
TRAC 340 
TRAC 390 
TRAC 360 
TRAC 3 TO 
TRAC 380 
TRAC 390 
TRAC *00 

Ut CL^LlATlVt feRCENlAGf FGR £ACh ClGEHVAHje. ^^^^ ^^^ 

,T«AC *50 

TRAC *60 
TRAC 470 
TRAC *80 
TRAC 490 
.TRAC 500 
TRAC 5tO 
TRAC 520 
TRAC 530 
TRAC 5*0 
TRAC 550 
TRAC 560 
TRAC STO 
TRAC 580 
TRAC 590 
TRAC 600 
TRAC 610 
.TRAC 620 
TRAC 630 
TRAC 640 
TRAC 6S0 
TRAC 660 
TRAC 670 
TRAC 680 
TRAC 690 
TRAC 700 
TRAC 710 
TRAC 720 
TRAC 730 
TRAC T40 
TRAC 750 
TRAC 760 
TRAC TTO 
TRAC 7B0 
TRAC 790 
TRAC too 
TRAC fllO 
TRAC A20 
TBAC 8^0 
TRAC 840 



.< t rriflif RflfCI<lC^ VER<ICH CF IhlS PCLTIKE IS CtSIRCO, tHt 
SIATCCtM hHICf fClLChS. 
CCI.ei£ FPECISlCh R.C 

Tl-t C ftM ALEC f£ RE.'CVEC FRC^ DCLBte PBtClEICf fl^^HEUS 
IpPE*Ril:G IK CTHER RCLTIhES LSEO U COKJUKCTICN hITH THIS 



l-C 

CC ICC 1-1. K 

t-l*l 

ClII-RUI 

<c-c 

Tt<i h^El^fc^< I-^^ EiC£Kt«*ti:E is Greater 

Tt-Af CR ICL#L IC Tt-E CCKSUKT 

CC IK l«l.f 

IKCUl-CtM 12C. ICS. IC5 

|i«|t«l 

c(ii»cn)/ff 



P1.TE CLfLLATlVt fERCEKTACE Cf EIGEKVUtES 



CCn 

CC 13C l"i.l« 

Cll»-C(ll«CU-ll 

tiEICRK 

EfC 
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Subroutine LOAD 



Subroutine VARMX 



This subroutine calculates the coefficients of each 
factor by multiplying the elements of each normal- 
ized eigenvector by the square root of the cor- 
responding eigenvalue. 



a.. = V 



4S 



(1) 



where i = 1, 2, 
J = 1, 2, 



ra are variables 



k are eigenvalues retained 
(see the subroutine TRACE) 



10 



fLflfCSE 

CCfftlE « f«C1Cf) rATHIK (LCAOINC) FROI' EIGCHVALUES AND 
JSSCCIAKC ElCEdiVECTCRS. IHIS SUBRCLIINE NOIIfAlLV OCCUBS 
I*- » SiCLthCt CF CALLS 1C SCeRCtTI».ES CORfie, EIGCN. TRACE. 
LC/C. AhC VAR^Jr IN T»-E P£HFORMAKC£ Cf A FACTCR ANALYSIS. 



LSACE 

CALL LCAC (K. 



K*R<VI 



LOAO 
.LQAO 
LCAD 
LGAD 
LOAD 50 
LCAO 60 
LOAO 70 
LQAO 80 
LCAO 40 
LQAO 100 
LCAO 110 
LCAD 120 
LCAO 130 
LOAO L40 
LCAO 190 
LOAO 160 
LCAO 170 
LOAO ITI 
LOAO ISO 
LCAD 190 
LCAO 200 
LCAO 210 






CESCPlPIICh CF PAOifETfRS 

P - kLI-etR CF VARIAtLES. 

K ' hVfatft Cf FACTORS. K MUST BE CRE«1ER IHAN OR ECU«L 
IC 1 AhC LESS T^A^ CR ECUAl TC M, 

R - A PATRIJc (Srrit^ETRIC AKC SICREC IN CCPPRESSEO FCRf 
hilh ChL* tPPER TRIANGLE ET CCLUMf. IN COREI CCN- 
TAiKUE EIGENVALLES IN CIAGCNAI. EIGENVALUES ARE 
ARRAKCEC IN OESCENCINC CROCK. AND FIRSl K 

EtCENViLUEii ARE LSEC BY THIS SU8RCUTINE. THE CRDER LQAO 220 
CF FATfliK R IS P CY H- ONLV ►•♦(N»l»/2 ELEMENTS ARE LOAO 230 
IN SICRACE. IS1CRACE PCCE CF II LCAO 240 

ti - kFEN l»-IS SUSRCLTINE IS CttLtC, PATRIX V (f K Nl LCAO 250 
CONTAINS EICENVECICRS CGLCKhhISE. UfCh RCTUftftlNG TOLCAO 260 
It-E CALLINC PKCCRAN. MATRIX V CONTAIf^S A FACTCR LOAO 270 
PAIRU t¥ V K|. LCAO 280 

LCAO 290 

LCAD aoo 

LCAO 110 
LCAO 320 

SLEPCLTINES ANC FLNCTIGN SUEFRCCRAI'S RECUIREO LCAO 130 

••C^E LGAD 340 

LOAO 390 

''ETt-CC LCAO J60 

NCfif^LIiEC EICENUECTORS APE CCNVERTEO TO TH£ FACTOR PATTERN LCAO 370 

eV PbLllPLYINC ftt ELEMENTS OF EACH VECTOR SY THE SQUARE LOAD 380 

tiCCT CF T^E CCPRESPONOINC EIGENVALUE. LCAO 340 

LCAO 400 

* LOAO 410 

L0*0 420 
LCAO 430 
LOAO 440 
LOAO 450 
.LCAO 460 
LCAO 470 
LCAO 480 
LOAO 490 
LCAO 500 
LOAO 510 
LCAD 520 
LCAO 530 
LCAO 540 
LCAO 550 
LCAO 560 
LCAO 570 
LCAD 580 
LCAO 590 
LCAO 600 
LCAO 610 
.LCAD 620 
LCAO 630 
LCAO 640 
LCAD 650 
LCAO 660 
LCAO 670 
LCAO 680 
LCAO 690 
LCAO too 
LCAO 710 
LCAO 720 
LCAO 730 



SiefiCllI^t LCAC (R.K.R.V) 
Cir'EKS]C^ Rdl.Vdl 



IF t CCLELE PRECI£ICN VEf(:iCI> CF THIS ROLTIKE I! CESIREO. THE 
C IN CCLLPN 1 ShCLLO BE REPCVEO FRCH THE OOUeLE PRECISION 
SIAItfENI *I-ICH fCLLChS. 

CCLELE FRECISICN R.V*SC 

TFE C PLST ALSO E£ REMOVEC FRCP UCueLE PRECISION STATEMENTS 
APFEARINC IN CTHER ROLTINES CSEO IN CGNJLKCriCN h I TH THIS 
RClllNE. 

1»-E CCLSLE PRECISICN VERSICN CF THIS SLBRCUTINE PLST ALSC 
CCNTAIN CCLCLE PRECISICN FCRIRAh FONCTICNS. SORT IS STATEMENT 
ISC PLST EE CfiNCEC TO CSCRT. 



JJ"C 

CC l«C ^-l.K 

15C £C- SCFIIRIJJ}) 
CC UC I-l.P 
L-L41 

UC VILl«SC«VILi 
FETCRN 



This subroutine performs orthogonal rotations on an 
m by k factor matrix such that: 



^kf?/? 




( 



(1) 



is a maximum, where i = 1,2 m are variables, 

j = 1, 2, . . . , k are factors, a^. is the loading for 
the ith variable on the j*^ factor, and hf is the 
communality of the i*^ variable defined below. 
Communalities: 

k 



where i = 1, 2, . . . , m 
Normalized factor matrix: 

b.. = a../ /h^ 

y ij/ V 1 

where i = 1, 2, . . . , m 
j = 1, 2, .... k 

Variance for factor matrix: 



(2) 



(3) 



i 

c 4- 

J ( 



-? {<H •.■.)■ 



(4) 



where c = 1,2,... (iteration cycle) 



Convergence test: 



If V - V , £ 10 
c c-1 



(5) 



four successive times, the program stops rotation 
and performs the equation (28), Otherwise, the 
program repeats rotation of factors until the con- 
vergence test is satisfied. 



Rotation of two factors: 

The subroutine rotates two normalized factors 
(bjj) at a time. 1 with 2, 1 with 3, . . . , 1 with k, 

2 with 3 2 with k k - 1 with k. This 

constitutes one iteration cycle. 
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Assuming that x and y are factors to be rotated, 
where x is the lower-numbered or left-hand 
factor, the following notation for rotating these two 
factors is used: 



x^^ yi 



^2 ^2 



X y 

m •'m 



cos<p 
sin(p 



-sin</5 

cosd) 



^1 ^1 



^2 ^2 



X Y 

m m 



(6) 



where xi and yi are presently available normalized 
loadings, and Xi and Yj, the desired normalized 
loadings, are functions of «, the angle of rotation. 
The computational steps are (a) throu^ (e) below. 

(a) Calculation of NUM and DEN: 

A =Z^(x. +y.) (^i-yj) 



B = 2 



J^^'ih 



(7) 



c = Sr^'^i+yiX'^i-yi^ + '^yi] 

i •- 
[(X. + y.) (X. - y.) - 2x. y.] 

D = 4Xl<^i^yi) ^^i'^i^ ''i^i 
i 

NUM = D - 2AB/m 

DEN = C - [ (A + B) (A - B) ] /m 

(b) Comparison of NUM and DEN: 

The following four cases may arise. 

NUM < DEN, go to (bl) below 

NUM > DEN, go to (b2) below 

(NUM + DEN) - €*, go to (b3) below 

(NUM + DEN) < e , skip to the next rotation 

* e Is a small tolerance factor. 



(bl) tan 4 61 = |NUM|/|DEN| (8) 

If tan 40 < e and 

(i) DEN is positive, skip to the 
next rotation. 

(ii) DEN is negative, set cos<^ = 

sin*= (V§)/2 and go to (e) below. 



If tan 4 - e J calculate: 



-i/v; 



cos40 = 1/Vl + tan 40 

sin4:0 = tan4e • cos4e 

and go to (c) below. 

(b2) ctn40 = |NUM|/|DEN| 

If ctn4e < e, set cos4e = and 
sin4e =1. Go to (c) below. 

If ctn4e s e, calculate: 



(9) 
(10) 

(11) 



.^/^ 



sin4e = l/"Vl + ctn 40 
cos4e = ctn40 • sin40 
and go to (c) below. 



(12) 
(13) 



(bS) Set cos40 = sin4e = {■\J2)/2 and go 
to (c) below. 



(c) Determining cose and sin0: 



cos2e = ^(l + cos4e)/2 
sin20 = sin40/2cos2e 



cose = -y/(l + cos2e)/2 
sine = sin20/2cose 
(d) Determining cos<^ and sin<^: 
(dl) If DEN is positive, set 
cosi^ = cos e 

sin(j) = siaS 

and go to (d2) below. 

If DEN is negative, calculate 



(14) 
(15) 

(16) 
(17) 



(18) 

(19) 



cosd) = 



2 n ^^ - a 

— cose + ^- sme ^20) 
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s,n<P =|— cose-— sine|^21) 
and go to (d2) below. 
(d2) If NUM is positive, set 

cos<A = I cos I (22) 

sin-/' = I sin(^ | (23) 

and go to (e) below. 

If NUM is negative, set 

cos'/' = |cOS(^j 

sin0 = -|sini;6| 

(e) Rotation: 



X. = X. COS0 + V sinrf) 
1 1 •'i ^ 



Y. = X. sin0 + jj cos<; 
where i = 1, 2 m 



(24) 
(25) 

(26) 
(27) 



After one cycle of k(k - l)/2 rotations is completed, 
the subroutine goes back to calculate the variance 
for the factor matrix by equation (4). 



Deno rmaliz ation : 
a.. = b.. • h. 

where i = 1, 2, , . . , m 
J = 1. 2, .... k 

Check on communalities: 



Final communalities f 

i 

Difference d 

i 

where i = 1, 2, ..,, m 



(28) 






j=l 



h' -f' 



(29) 



(30) 



VA«H 
VAftf 
VAPM 
WAR*! 



SieaCLIHE KC»f.llv CCCKS It, 1 StCttUt CF CALLS m \tM IaVL 

VARH 
VARK 
VARf 
VARH 

VAKM 
VAR*! 
VARf 



Ct A KCICR AkAlVSIS. 



lf.»,A,NC,IV,f,f.c,It«l 



C<A(I 

CALL VAfRA 

CfSCflFtlCk CF PARARFIbRS 

t - IkfLl IS IFE CRlciklL FACICR RAIRIx. AKC OITRCI IS 

IM RCIAHC fACICR RAIRI,. UE CKCER CF MIRI, i 



VARM 
VARM 
VARM 
VARH 
VAHM 



»t - ciiPii VARIAeU cckiAimc ikf KI.UER Cf HERAIIC 

CVCttJ RtRfCRKtC. litRAiiON 

(■AIJl, fC« EAC^ IIERAIICA CVCIE. I«E VARI^cI pJJcr'"; 

ic ift FiRsi ^u.,,,c^ cicu is also cauIiaiIo! JIJI 

ins REA^S f.I n.i .ARi.KCES ARE SICEO l' "ciCR VARR 
VtCtcl'l ,\ W. "-"EH*!. Ih£ LENOIH Cf 

* ' \'ill\.l,TlVn\." "'"'■ ' "MAIMKC I^E ORICIN.L 



VARR 
VARM 



VARM 
VARR 

A'fii^^R^^M^'ir/.^jij'iiii^'.'-'jj^t.ENCEs;:;: 

VAftn 

VARK 

VAftV 
VARf 
VAR*' 
VAR" 

VARIH 

VARM 
VARf 

VARH 
VARM 
VAR** 

VARH 

e;i'wM.;;'';rtI.^r;*!i!'»r*5 "5CRIB6C I*, -CCRUTCR P«CGRA« ""^ 

fCt- V^tHfAii RCIAtICK Ih fACTCR AhALVSIS* BY Tf€ SAMf AltTMfia uiam 

ICLCATIC.AL AKC PSYChCICG ICAL «.SU«i.|Ni:vCLAfJ!!%c!! ;?'";; 

' ' VARf 

VARH 



*'***' '*"^ CRICIfcAt AhU FINAL CC(«!«l.KALI I I€S. ' 
ifP - £|IRCR IhCICATLR 
I£R"C - hC tKRCD 

lER-l - CCKVERGCKCe WAE hCT ACMieVtO l^ 50 CYCL€S 
CF KCTA1ICK 

if V*RWhCI CCffutti; AFICR EACh riERATICN CVCU OCES hCl 

iuJucJ/" "■■" stcc€<<..t Ti.es. T.£ UflRCiTiSe srjfl 

SLenCLTlhtS AfcC FLKCnCK StePRCCRA^S RECUIREC 



80 
93 

100 

110 
120 
130 
UO 
ISO 
lAO 
170 
180 
190 

eoo 

2ZQ 
2J0 
240 
250 
260 
270 
2M 
290 
300 
310 
320 
J30 
140 
350 

asi 

352 
35 3 
35* 

360 

aro 

aao 

390 
400 



£LeRC(.TlhE VAR.y C »f .* ihC . TV .1- ,F ,0, lER t 
CI»€ASICh AdI.TvitJ.HdI.FIII.Cdl 



IF / tCteit PREtlSICh VERSKfc CF IhlS ftObTINC I£ CESIREO. 
C Ih CCLlifh I ShCULC BE REfCWCO FRO»i TMt OOUtlE RRKISIGh 



410 

420 
430 

440 
450 
460 
470 
4B0 
490 

soo 

.VARM 510 
VARH 520 
VARN 530 
VARM 540 
VARH 550 

VARM 5«0 

VARH 570 

THE VARC 580 
VARM 590 
VARH «00 



CCOeit FRECISKI. A.I*.^.f.C,TVCT,C0NS,AA,ea,CC.00,U.I,B,C0S4T. VARM T\l 

I SJMf,TA«4f.SIftP.C0SP,CTh4T,CQS2T,SIN2T.C0ST,SINTVARH JJo 

«».:<-![l!r'.^^^ " OCf'OVED FBCR DCtiLE PRECISIOK STATEWKTS 
iPPeJ«l#.G Ik CThtB ROUTINES ISEO It, CCHJUhCIION hITH THIS 



fiCLTIfE. 

^^t cctete precisick versick cf this suaftcuii« h,st alsc 

CCMIU CCUeiE MECISiah FCRTBAW FOfcCIIOhS. $QRf 

li;. i<C. 230. 35C, AhO 355 PCS" "- 

SIATtPffcTS 2€C, 32C, ANC 375 PUSI BE CMAkCEC TO CABS. 



C IhllUlfJiTlCk 

C 

IER*C 

EFS-C.CCllt 
IVtI-C.C 
IL»R-1 
kV'l 
»C-C 
Fk>P 

FF^«Fk«Fh 
CChS-C.)CIlC<e 
C 
C CAlCLlAlt CBiGlkAl CCPPL^ALI1IC< 

CC IK I>|*P 

mi-c.c 

CC lie J*1.K 

L«Pt|J-|MI 
lie M1I>FIIMA(LI«AIL) 
C 

C CALCLLAIE hCfPAll/EC FACTOR PATRH 

C 

CC lie i>i.p 
115 mi- sctiUhdii 

CC 12C J-l.K 
l*P«IJ-|M( 
lie *(i. |-«u t/n I ) 
Ct TC 13; 

c 

t C<ltLL*U V4ri|«^Lt fCB FALICh I'dKIK 

I3C fV«KV»l 

IVlt-Ttr(fV-ll 

CC 15C ^'I.K 
«A>C.C 

ft«f.C 
tP-^«(j-d 

CC 14C i-l.^ 

i-i.e*i 
cc-Aai«/(t» 

/A.*A«CC 

i4( Ee-te<c:«cc 

15C IHH)-UUVI«Uh»te-AA*AAJ/EfK 

iFUv-;ui6C,i;;,is; 

l^t IEH>| 

CC IC 4K 



fCKfCPf cc^v£RC(^ct usi 



VARH 630 
VARM 640 
VARM 6)0 
VARM 660 
VARH 670 
VARH 680 
- STA1EMENTSVARN 690 
BE CHAKG60 TO CSCRt. A«S IN VARM 700 
VARM 710 
VARH 720 

VARM 730 

VARH 740 
VARM 750 
VARH 760 
VARH 761 
VARM 770 
VARM 790 
VARM 790 
VARH 800 
VARH 810 
VARM 820 
VARH 830 
VARH 840 
VARH 850 
VARM 860 
VARH 870 
VARM 880 
VARM 890 
VARH 900 
VARH 910 
VARM 920 
VARH 930 
VARM 940 
VARM 950 
VARM 960 
VARH 970 
VARM 980 
VARM 490 
VARVIOnO 
VftKflOlO 
VrtBMiO?0 
VAHI«1030 
VAR-1040 

VAOKIOSO 

VAkMlOAU 
VAB-1070 
VAR'IOHO 

VABOllOO 
VARflUO 
V«RPH2n 
VAilKUJO 
VAKM1140 
VAMt-llSO 

vafif 1160 

Vft«Hlt70 

VARHliaO 
VAHfllgl 
V«HMU8? 
VABMI190 
VARRl^fOO 

v•RMl^|o 
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itc if(i!UfcU-mn-na-ni iic. ik. iso 

lie KC*fC*l 

lf(^c->t ISC. ISC, *!C 

fCmiCfc Cf 1*C FACTCKS CCKTIUCS UP ic 
ISC CC *iC v-J,ll 

II-J«1 

CILCLL«TE fLf *^C Cth 
iA-C.C 

te-c.c 

CC'C.C 

tc-c.c 
ia-Li«i 

14-4.2*1 

1»I*T 
CC-CC«tLt1l*tL-f) 

iiC ee-ce«i 

c cc^^»^;lsc^ cf m.^ *m: ct^ 

If ii-Ei itc. i*C. !2C 
SMC If KMfcl-tfSI M2C. iSC, i5C 

c fci.^ • CEK IS CPeniP t^ak cp ectn ic tet 

c 

itc LCS*l-CCfcS 

CC ic itc 

ifcc iJfcii' #EStn/ ttstei 

lflltt^h}-i¥ii 3CC. 2SC, 29(J 

CL IC itc 

;CC If <E ) 2 IC. hiC, *2C 
21C ilM^-CCKS 

CC5F«CCM 

CC IC 4CC 

C ^c^ IS tft'iiP T^*^ t£K 

c 

;ic cu^i- «es(i/Ei 

'3C MH*1-1.C/ <CBTU.C*C1K*I»CINA11 

CC K 35C 

34C CC£*I-C.C 

<II»4T-J.C 

c tnsenht CCS h-ei» *nc si* if'EU 

MC CCSiT- SCIiTUl.C«CCS*Il/i.C> 

»5« CtSl- 5CP1(«I.C«CCS2II/2-Ct 
SIM-ilfil/li-C^CCSTl 

C tt^t(i^i^^ tcs ft-i *^c sih ph 

IHCI 3K. J7C. 3£C 
3tC CCSP-CCSl 

Ct IC 2tC 
'TC CCSf CC^i•CCSI•CC^S•SIM 

.J- Muf ji;iccfcS»ccsi-cc*.s*siMl 

3«C IMII 2SCt 3SC, *CC 
2SC SI^F■rlI^F 



fEDfC^f «CT<UCh 



*CC CC *IC i-i.*- 
t3"ll*I 

«-*(L31»CCSP**U*l*SlfcP 

*a4J— *a3i«si*p«*(iA»»cosp 

41C «(13)-4I 
42C CChlULf 
CC IC I3C 

*3C CC A4C 1-1. f 
CC **C ,•!.<( 

*«C ilL)«*lt l"»-tl I 

: CftC* C^ CC''»'Lf.*L»ll€5 

c 

^C-I>\i-1 
CC *5C I'UP 
45C mi-KlMUlt 
CC *K I-l.** 
f(l)-C.C 

CC *ec j-i.* 
l-^«tJ-II*l 

46C flll'Fli t»*ll J'/ltl 
*7C CU»-KiI-f(l) 

»EIt<f> 

ff'C 



VAAM1220 
VARH1240 

V*flMl2TU 
Vt(tH12<ia 
VAR*'»2'»0 
VARr<130n 
VARflllO 
V*RI*1320 
VARf 1330 
VAftHl340 

VARI'1360 
VARf<13 70 

VARKl^OO 

VARfl-«20 
VARFl^SO 
VARM1440 
VARr<14%0 
VARH1460 
VARr<1470 

VARfl^eO 

VARf 1490 
VARfL^OO 

VARH1S20 
VARf 1530 

VAftfl»1iO 
VARf 1560 
VARr<l%70 
VAttMDflO 
VARf 1^90 
VARK1600 
VAAPL610 
VARf L620 
VARH1630 
VARHL640 
VARf 1690 
VARf 1660 
VARf 1670 
VARfUaO 
VARM1640 
VARf*l700 
VARf 1710 
VAR>'L770 
VARf'lTSO 
VARf 1T40 

VAflf irso 

VARMII6Q 

VARflTTO 

VARf ireo 

VARMITSO 

VARf ISOO 

VAR«18tO 

VARH1820 

VARf 1830 

VAAflS^O 

VARRieSO 

VARM1860 

VARflSTO 

V ARM 1 880 

VARf 1890 

VAAfl^OO 

VARf 1910 

VARf 1420 

VARfl930 

VARf 1940 

VARf 14S0 

VARHL960 

VARf 1970 

VARf 1980 

VARf 1990 

VARNZOOO 

VARf2aiO 

VA«f2020 

VARf 2330 

VARf2040 

VAB-205O 

VARf 2060 

VARf 2070 

VARfZOaO 

VARf 2090 

VARf2lOO 

VARf2L10 

VARf212n 

VAflf2130 

VARf2140 

VARf 2150 

VAAM216a 

V»R'"2X70 

VAfiM21B0 

VARf2l90 

VAR«'2200 

VAAf22lG 

VARf2220 

Vft«''2230 

VARf2240 

VAR«2250 

VARf2260 

VARf2270 

VftRH22B0 

VARf 2290 

VAftf2300 

VARM2310 

VARf 2320 

VARf233a 

VARf 2340 

VARf2)50 

VA«f2360 



Time Series (see Smoothing) 
Subroutine AUTO 

This subroutine calculates the autocovariances for 
lags 0. 1, 2, .... (L-1). given a time series of 
observations Aj^, Ag, . . . , A^^ and a number L. 



n-j+1 



R. 



j n-j+1 



y^ (A. - AVER) (Aj^._j^- AVER) (1) 



1=1 



where AVER 



n JL^ 1 



i=l 



n = number of observations in time 
series A 

j = 1, 2, 3, . . . , L represent time 
lags 0, 1, 2, .... (L-1) 



WBAGjriNE AJTO 

""^fo^iHO »jrxav«iA.*C£S of sesits a fOR L*ts o tq l-i. 

USAi^E 

C*U AJTJ (A*NA.RI 

WHt3S£ AUruCOVAHIMKE IS 0£SMtO. 
M - *.eHGTH Of THE VECTOR *. ,. «^ « ■ , 

t. - AUTJCaVMUHCe IS CAtCUtATtO FOR L*CS OF 0. 1, 2f... 

« - JjTRUr VECTOR OF LtlWitH t CONTAINING AyjoCOVAftlAliCtS 

OF iCRlES A. 

""iSt^EhlilH Of R IS UlffeREMT f.*0f IM£ LENCTh Of A- N KUJf 
lf*iRe;i'R ?«« L. If HOf, R4U IS S« T TO ZERO UiO «Tl«l* 
IS «AQ£ TO TrtC cALCiNC PROCRA*!. 

SUBROUriNaS and fUNCTIUW SliafRO«Af$ REOUIREO 
■mCH€ 



6C 



1 00 



fETHOJ 

OF fOWER SfecTRA 



OtiCRldta IN R.d. atACKMAW AM J.K. TJKEV. •!« HE*SU««IIT 
- DOVER fuatlCATlOwS I»*C., i»£- *0«t, l«». 



su«Rauri*t£ AUTU (a.h.l.R) 

OINENSION AUt.RUI 

CAlCUtATE AVtAAGE Of TIME SERIES A 

AVtK=C-0 

lf<M-4.l iO.iiC.lOO 
$0 RUI-O.C 

RETURN 
LCC CO llO l-L«*l 
lie A«a«AviR*A« l> 

fH-N 

*VER*AVER/FN 

CACCiiL*TE AurUCOVARIAMCtS 

bO 130 J-ltL 

NJ-N-J*! 

SUM-CO 

DO 120 l-L.MJ 

IJ-IO-1 
120 SW*-SO<1*U(ll-AVER)*IAlIJ|-AVERI 

fNJ-NJ 
13C RlJl-SJM/fNJ 

ME TURN 

ENO 



AUTO 
AUTO 
AUTO 

Auro 

AUTO 
AUTO 
AUTO 
AUTO 
AUTO 
AUTO 
AUTO 110 
AUTO 120 

Auro IM 

AUTO 140 
AUTO 150 
,AUTO 160 
AUTO ITO 
AUTO 180 
AUTO 190 
AUTO 200 
AUrO 210 
AUTO 220 
AUTO 2)0 
AUTO 240 
AUTO 250 
AUTO 260 
AUTO 270 
AUTO 280 
AUTO 29C 
AUTO 300 
AUTO )I0 
AUTO 320 
.AUTO 3M 
AUTO 340 
AUTO 350 
AUTO 360 
AUrO 370 
AUTO 380 
AUTO 390 
AUTO 400 
AUTO *10 
AUTO 420 
AUTO 430 
AUTO **0 
AUTO 450 
AUTO 440 
AUTO 470 
AUTO 480 
AUTU 44C 
AUTO 500 
AUfO 510 
AUTO 520 
AUTO 530 
AUTO 540 
AUTO 55C 
AUT Q 5*0 

AUTO sro 

AUTO 580 
AUTO 5«C 
AUTO 600 
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Subroutine CROSS 

This subroutine calculates the cross covariances of 
series B lagging and leading A, given two time 
series A^, A2, . . . , Aj^ and Bj, B2, • • • , B^ and 
given a number L. 

(a) B lags A: 

n-j+1 
Rj = ;4^ ^ (Aj - AVERA) (Bi+j_i - AVERB) 

i =: 1 

(1) 

(b) B leads A: 



n-j+1 



Sj = 



Sq+I ^ (A.+j_i - AVERA) (Bj - AVERB) 



1 = 1 



(2) 



where AVERA 



n / ^ 1 



100 



PUKt»CSt 

TO UNO THc CROSSCOVArtlANCtS Of ScRlfcS A HIIH !.EKI£S 6 
ItaHlCH LtAt>S ANO LAGS A). 



CALL CROSS 1 A,B,N,L,K.S) 

dtSCKit'T lUN aF PAftAM£IERS 

A - INPUT VfcCrOR 01- LENGTH H CgnTaInINC FIRST TIME 

SfcRItS. 
d - INPJI VECTOR OF LENGTH N COnIAIMNO SEConO TIM£ 

iERltS- 
N - LtN&TH Of SERItS A AND S. 

L - CKJiSCOVAKlANCE IS CALCULATED fO« LAGS ANO LfcADS Of 

0. 1. I L-l. 

K - OUTPUT VECrOK Of LENGTH L COKTAINING CROSiCOVARI- 

AmCcS Of A kilH B, MHc<4t 6 LAGS A. 
S ~ CUIfUI veCTCJH OF LENGTH L CJSTAINING CROSSCOVARI- 

AhCcS OF A U[TH U, HHcR£ B LEADS A. 

(tEMARKS 

N HUSr Be uREATER THAN L. If HOT, ft(l) AhO SUl ARE SET TO 
iERO AND RtTURN IS «AOE 10 THt CALLING PAOGRan. 

sua-iouriNts and function subprograms required 

NONE 

McTHOO 

dtSCRIBcO IN R.e, 6LACKMAM ANJ J.W. TUKEV, 'THE MEASURMENT 
Of POWER SPeCTRA', OOVEK PUBLICATIONS INC., NEW YORK, 1959. 



SueRUUT !,<«(: C.<USS (A.A > N.L, R. S ) 
DIMENSION A( l>td(II .Rl 1I,S( II 

c«Li:uLAre AvERAces Uf series a and a 

fN = N 

AVERA^C .0 

AVERb=0.0 

If IN-l »50,5Ci ICO 

«t 11 =C.C 

SUMO.O 

RETURN 

00 ii,C (il.N 

AVtRA = AVERA».A( I J 

AVtRd=AVERB*iH I » 

AVERA=AVERA/FN 

AVERa=AVERe/fN 



2C 



i=l 



CALCULATE CR05SC0VARIANC£S'0f SERIES A AND B 

DO 130 J=l,i. 

NJ=N-J*1 

SU««=0.0 

SUrtS'0.0 

DO 120 I'IrNJ 

U»I*J-1 

SliHR-SJhR*-! A( I I -AVEKAl*<6l IJ I -AVERB) 
12C SUNS'$UHS«<A(IJ)-AVERA|*(e(n-AVtRBl 

fNJ=MJ 

R{ JI=SJHR/FNJ 
IJO SIJ|=SJMS/FNJ 

Re TURN 

END 



CROS 
-CROS 
CROS 
CROS 
CROS 
CROS 
CROS 

CROS ao 

CROS 90 

CRGS iOO 

CROS 110 

CROS 120 

caos 130 

CROS 140 

CROS ISO 

CROS 160 

CROS 170 

CROS lao 

CROS 190 
CROS 200 
CROS 210 
CROS 220 
CRGS 230 
CftOS 2*0 
CROS 2^0 
CAOS 260 
CROS 270 
CftOS 280 
CROS 2 90 
CROS 300 
CROS 310 
CROS 3 20 
CROS 333 
CROS 3*0 
CROS i50 
CROS 360 
..CROS 3TC 
CROS 330 
CROS 390 
CROS *00 
CAOS 410 
CROS 4 20 
CROS 4 JO 
CROS 440 
CROS 450 
CROS 460 
CROS 470 
CROS 480 
CROS 490 
CROS 500 
CRGS 310 
CROS 520 
CROS 530 
CROS 540 
CROS 550 
CROS 560 
CROS 570 
CROS SSO 
CROS 590 
CROS 600 
CROS 610 
CROS 620 
CROS 6 30 
CROS 640 
CROS 650 
CAOS 660 
CROS 670 
CROS 680 
CROS 690 
CROS 700 
CROS 710 



AVERB 



= "^ E ^ 



i=l 



n = number of observations in each 
series 

j = 1, 2, . . . , L represent time lags 
(or leads) of 0, 1, 2, .... (L-l) 
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Subroutine SMO 

This subroutine calculates the smoothed or filtered 
series, given a time series Aj, A2, . . , , A^^, a 
selection integer L, and a weighting series Wj, 
W2, .... Wn,. 



R. = "y^ A • W. 

where p = j • L - L + k 
k = i - IL + 1 
i = IL to IH 



IL = ^^^ . 1 



(1) 



IH = n - 



L (m-1) 



(2) 
(3) 



L = a given selection integer. For ex- 
ample, L = 4 applies weights to every 
4th item of the time series. 

m = number of weights. Must be an odd 
integer. (K m is an even integer, any 
fraction resulting from the calculation 

of ^ ^"^"•^^ in (2) and (3) above will be 

Li 

truncated. ) 
n =^ number of items in the time series 

From IL to IH elements of the vector R are filled 
with the smoothed series, and other elements with 
zeros. 



iUc'^GUIlNE iHJ 



TO iMQCJTri Jh FiLTtfl StftltS A flV WtlGHTS W. 



CALL SMo ( A,N.M,M,L.Rt 



Tine seRUS Data. 



. SMU 
SHD 
SMO 
SMO 
SMO 
SMO 
SMU 
SMO 
SHO 
SHQ 
SHO 
SHO 
SHO 
SMO 
SHO 
SHO 
SHO 
SHO 



JtSCRIPTIUN Qf f»ARArtLTfckA 

A - INPUT VECruK OP t.£N<jTH N CJNTAINlN;; 
.4 - LtNGTH OF StftlfcS A. 

4 ~ INPUT </tCTaK Of LENGTH K CONTAIfJlNG nEIGHTS. 

1 - NUMbtk Ur iTtHS IN WtlGMI VECTOR, M MUST BE AN 000 

IHTtGER. (If M IS AN tVEN INTtGER, ANY FkACTION 

RtSJlIiNu fRDM THE CALCULATION Of (L*lH-ll)/^ IN (II 

ANL> (21 tiELOM MILL BE TRUNCATED.} 

^ - SEi.ECTIU'iJ iMTcGt-l. FOR fcXAKPLt, L = U MEANS THAT WEIGHTSSHD 

ARE A^'PLItU TO EtffcRr 12-Trt ITEM QF A- L = l APPLIES SMO 

HEIGHTS TO SUCCESSIVE ITcHS Of A. FOR HaNTHLY OATAt SHO 

L=l^ GIVES VEAft-TO-Y£AR AVERAGES AND L=I GIVES HONTH-TO-$MO 

HuhlTH AWcRAGES. SHG 

.1 - OUTPJT VECTOR OF LENGTH N. FCOH IL TO IH ElEHENTS OF SHO 

iHt VECTOR ft ARc FILLeo WITH THE SHOOTHED SERIES AND SHC 

OTHtR tLfcMENTS WITH ZERO, rfHERE SHO 

H. = lL*(H-in/2*l (l> SHO 

iM=N-tL*lH- 1)1/2 (21 SMO 

SMO 

REMARKS &HO 

N MUST BE GRtATCR THAN OR EdUAL TO THE PRODUCT Of L»H. SMO 

SMO 

SUtiHOuriNES ANO FUNCTION SU8PR0GRAHS KEQUtRED SMO 

NONE SHC 

SMO 

METHOD SMO 

■<EFt« TO THE ARTICLE 'fOflTRAN SU8RQUTINES FOR TIHE SERIES SMO 

ANALYSIS'. 8V J. R- HEALY AND B. P. BOGERT. COMHUNICATIONS SHO 

OF ACH, V.6. NO.l. JANUARY, 1463. SHO 

SHO 

SMO 

SHO 
SHO 
SMO 
SHO 
SHC 
SMO 
SHO 
SHO 
SHO 
SHO 
SHO 
SHO 
SHO 
SHO 



SUSROUTINc SHJ I A«N. W , M,L 1 R) 
DIMENSION A( l)iM( 1) >R( 1} 

INITULlZATlON 

00 110 1=1. N 

R(n =c,c 

IL=IL«<M-11 l/i*l 

iH=N-(L*(M-n \ri 

SMOOTH SERIES A dY WEIGHTS W 

00 120 I=lLtlH 

K=I-lL*l 

DO 12c J=i.M 

IP=( J*LI-L*K 

Rl Il-R( I)*A( iP)«W(j ) 

RETURN 

END 



SHO 
SHO 
SHO 
SHQ 
SHO 



100 
110 
120 
130 
140 
150 
l60 
170 
180 
190 
200 
210 
220 

2 30 
2<»0 
250 
260 
270 
280 
290 
300 
310 
J20 
330 
3*0 
350 
360 

3 70 
390 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
380 
5 90 
600 
610 
620 
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Subroutine EXSMO 

This subroutine calculates a smoothed series S, 
S2. • • • . Snx, given time series Xj, Xg, 
and a smoothing constant a . Also, at the end of the 
computation, the coefficients A, B. and C are given 
for the expression A + B(T) + C(T) /2. This ex- 
pression can be used to find estimates of the 
smoothed series for a given number of time periods, 
T, ahead. 

The subroutine has the following two stages for 
i = 1, 2, . . . , NX, starting with A, B, and C either 
given by the user or provided automatically by the 
subroutine (see below) . 



(a) Find S. for one period ahead : 

S. = A + B + 0. 5C (1) 

(b) Update coefficients A, B, and C: 



A = X. + (1 - a) (S. - X.) (2) 

1 11 



B + C - 1. 5 (a ) (2-Q') (S. -X.) (3) 



C = C - (a ) (S. - X.) (4) 

where a = smoothing constant specified by the user 
(0.0 < a < 1.0) 



EjtSM 


10 
20 
30 


EXSH 


EXSh 


*n 


EXSH 


90 


EXSH 


60 


EXSN 


70 


EXSH 


ao 


6XSH 


90 


EXSM 


100 


EXSH 


110 


EXSH 


120 


EXSH 


MO 


; exSh 


t«0 


EXSH 


ISO 


EXSH 


uo 


HAN EXSH 


iro 


EXSM 


180 



SUbMtAJTIKt £XSHJ 

t'URPOSE 

FiJ fiNU THE TRIPLt fcXPJNENTlAL SHOOThED SEHIES S OF THE 
GIVEN ScrtlES K. 

USAGE 

CALL CXSHO (XtNX*AL(A,d.C. SI 

JESCRIPriGN Of PAKAHETERS 

X - INPUT VECTOR Of LEN&IH NX CONIAtNlNG FIHE SCRIES 

Ot-TA WHICH IS rO HE EXPONLNTI ALLY SHaaTHED. 
NX - THE NUHBEfi OF ELENfchlS IN X, 

AL - SHJCJTHING CONSTANT, ALPHA. AL MUST BE GREATER Tl 

ZErtQ ANi) LtSS THAN ONE. 

A.fl.C - COcfFlCitNTS OF THE PREDICTION EUUAriQN HHtRt S IS EKSM 190 

PKEOICTcO T PEklOOS HcMCE liV EXSH 200 

A * d#r + C*T*T/2, tXSM 210 

AS INPUT— If A=6=C«C, PRDCRAH MILL PROVIOC INMIAl. EXSH 2Z0 

VALUE!!. IF AT LtAST ONE OF AfBtC IS NOT ZEROi exSM 230 

PftOURAH klLL TAXt GIVEN VALUES AS INITIAL VALUES. EXSH 2+0 

AS OJTPUI-- A.B.C CONTAIN LAFESr, UPOArCO CQfcfFI- EXSH ZbQ 

CUNTS OF PREOICTION. EXSH 260 

S - OUTPUT VECTOR Jf LENGTH NX CONTAINING IRIPLt EXSM 270 

EXPONENTIALLY SHOOTHEO IlHE SERIES. EXSH 280 

EXSH 2V0 
EXSM 300 
EXSH 310 
EXSH 320 
EXSH 33C 
EXSH 340 
EXSH 350 

HETmOO EXSM 360 

RtrER TO K. 6. BROWN. 'SMOOTHING^ FORECASTING AND PREOICTIONEXSH 370 
Of OISCRtTE T IMt SERIES** PRENTICE-HALL, N.J., 1963, EXSM 3aO 

PP. 140 TO 144. EXSH 390 

EXSH 400 



REMARKS 
NUNt 



SUHROUTINES ANO FUNCTION SuePROGRAMS REQUIRED 
NONE 



SU8RUUTINC EXSMu IX,NX*AL*A.> 
DIMENSION XI II, SI II 



IF A'B = C-C'.0, GENERATE INITIAL VALUES OF A, S, ANO C 





IflAI 140, UOt 140 


no 


IFiai IW, 120. 140 


uo 


IFICI 14-3, 130, 140 


lie 


C = XUI-2.0*XI2I+XO) 




a=«(2)-X( 1(-1.5*C 




A=Kll)-B-0.5*C 


140 


6E-1.0-AL 




aEcue=BE*ae*e£ 




ALCUa«AL*AL*AL 



00 THE FULLOMlNG FOR \'l TO NX 
00 150 I-l.NX 

FINU S(l) FOR ONE PLRIOO AHEAO 
Sm«A*8*0-5*C 

UPDATE COEFFICIENTS A, 6, ANO C 
DIf = SI I 1-XII I 

A3X(n»eEcuB*oif 

E=b*C-1.5*AL*AL*(2.0-*LI»OIF 

L-C-ALCUB»D1F 

RETURN 

END 



..EXSM 410 
EXSH 420 
EXSH 430 
EXSH 440 
EXSH 4S0 
EXSH 460 
EXSH 4 70 
EXSH 4S0 
EXSM 490 
EXSM 500 
EXSH 510 
EXSM 520 
EXSH 530 
EXSH $40 
EXSH SSO 
EXSH S6C 
EXSH 370 
EXSM 590 
EXSH 590 
EXSH 600 
ExSH 610 
EXSH 620 
EXSH 630 
EXSM 640 
EXSH 650 
EXSH 660 
EXSH 670 
EXSH 660 
EXSM 690 
EXSH 700 
EXSH 710 
EXSH 720 
EXSH 730 
EXSH 740 



If coefficients A, B, and C are not all zero (0.0), 
take given values as initial values. However, if 
A = B = C =0,0, generate initial values of A, B, 
and C as follows: 



c = x^ - 2X2 + X3 



B = X - X - 1. 5C 



A = X - B - 0.5C 



(5) 
(6) 
(7) 
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Nonparametric Statistics 

Subroutine KOLMO 

Given a sample of n independent and identically dis- 
tributed random variables Xj^, Xg, . . . , X^^ with 
continuous cumulative distribution function F(x), 
this subiroutine tests the difference in absolute value 
between the empirical distribution Fn^'^^ ^^^ theo- 
retical distribution F(x), using Kolmogorov- 
Smimov's limiting distribution. 

For this purpose: 

1. The order statistics {x(i)] are determined 
from the set {xi} by sorting [x^jinto a nondecreasing 
sequence. 

2. The empirical cumulative distribution function 
Fjj(x) is computed. This is the following step-func- 
tion: 



X <x 



F (X) = < k/n 
n \ 

1 



(1) 



^(k)^"<"(k+l)='^^'"''^-' 



X, . ^x 
(n) 



3. The maximum deviation D in absolute value 
between the empirical and theoretical distribution 



is computed: 



D = Max 

^ _oo<x<°° 



|F^(x) - F(x)| 



Since F (x) and F(x) are nondecreasing functions , 
the result is: 

D = Max |f^ [x^J -F [x^JI 

Isksn 

D is a random variable, and L(z) is the limiting 
cumulative distribution function of n^/^ D^^: 

lim Prob [n^/^ D^ < z] = Uz) 

n-»<» 



4. Finally, 
z = nl/2 



D„ 



and the probability of being greater than or equal 



to the computed value of 

P = 1 - L(z) 
are computed. 



mg grea 
nl/2D 



Generally, theoretical distribution functions are 
to be included by the user, as specified in the pro- 
gram. However, four functions are evaluated in 
KOLMO, as follows: 



/ 



dF(t) = F(x) 



(1) 



is evaluated at the points of the set [X^^}, where 
F(x) is one of the following: 

• The normal pdf with mean u and variance s^ 

• The exponential pdf with mean u and variance 



• The Cauchy pdf with median u, and first quar- 
tile s - u 

• The uniform pdf with endpoints u and s 

Any user-written pdf should evaluate (1) above, 
using the parameters u and s at his convenience. 
Instructions given in the program KOLMO should 
be followed. 

Lilliefors (1967> notes that critical values de- 
termined by this test are not correct when one or 
more parameters are estimated from the sample. 
The user should refer to his article for notes on 
approximations which may be considered if such 
estimates are used. 

For references see: 

(1) W. Feller, "On the Kolmogorov - Smimov 
limit theorems for empirical distributions", 
Annals of Math. Stat. , 19, pp. 177-189. 

(2) N. Smirnov, "Table for estimating the goodness 
of fit of empirical distributions", Annals of 
Math. Stat. , 19, pp. 279-281. 

(3) R. Von Mises, Mathematical Theory of Prob- 
ability and Statistics . Academic Press, New 
York, 1964, pp. 490-493. 

(4) B.V. Gtoedenko, The Theory of Probability. 
Chelsea Publishing Co. , New York, 1962, pp. 
384-401. 

(5) H. W. Lilliefors, "On the Kolmogorov-Smimov 
test for normality with mean and variance un- 
known", J. A. S. A. , 62 (1967), pp. 399-402. 
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SUa^nuTINE KOLHO 

PURPOSE 

TESTS THE OrFFEqENCF BETWEEN EMPIRICAL *N0 THFQRETrCAL 
[)I STc laj-'iOMS USING THf KOLWOOROV-SMIBNOV TEST 



KnL«0(X,W, i.PPnp, IFCODiU.';, lER) 



50 



OeSCFIPTIQN OF PJIRAMEIERS 

X - INPUT VECTOR OF N INDEPENDENT OBSFRVAT 1 ONS. ON 

RfTURN FRHM KOLMO, X MAS BEEN iORTEO IMTfl A 
HCNnTONIC NON-PECREASINC- SEQUENCE. 

N - NUM'^FP OF OBSftVATlON; IN X 

I - OUTr'UT VARIftBLE CONTAINING THE GREATEST VALUE MIT 

PfSPECT in X PF SORT 1 Nl ♦teSCFNtXl -F ( X ) I WHERE 
F(X) IS A THEORgTICAL 0ISTRI6UTI0N FUNCTION AND 
F^(X) AN EfPIFICAL DISTCIBuTlDN FUNCTION. 

PROB - OUTPUT VARIABLE CONTAINING THS PROeAfilLITY OF 

THE STATISTIC eeiNG GREATER THAN DR EOUAl TO I IF 
THE hVPOTHESIS THAT « IS fRON THE DENSITY UNDER 
CONSTDERATIDN IS TRUE. E.G., PROB > O.OS IMPLIES 
THAT ONE CAN REJECT THE NULL HYPOTHESIS THAT THE SET KLHO 260 
IS FROM THE DENSITY UNDER CONSIDERATION WITH 5 PER KLMO 270 



HLMO 
.KLMO 
KLHO 
KLHO 
KINO 
KLHO 
KLHO 
KLHO BO 
KLHO 90 
KLHO 100 
KLNO 110 
KLHO 120 
KLHO 130 
KLMO 140 
KLHO 150 
KLHO 160 
KLHO 170 
KLHO 180 
KLHO 190 
KLHO 200 
KLHO 210 
KLNO 220 
KLHO Z30 
KLMO 240 
KLNO 250 



PROS 



CENT PRDflABUITY OF BEING INCORRECT. 

SHIRNII). 

A CODE DENOTING THE PARTICULAR THEORfllCAL 
PROPABILITY DISTRIBUTION FUNCTION BEING CONSIDERED. 

= 1 FIX! IS THE NORMAL PDF. 

= 2— -fIXI IS THE EXPONENTIAL PDF. 

= 3 F(XI IS THE CAUCHV PDF. 

= 4 fix) IS THE UNIFORM PDF. 

= 5 FIX) IS USER SUPPLIED. 

KHFN IFCOD IS I OR 2, U 15 THE MEAN OF THE DENSITY 

GIVEN ABOVE. 

NH£N IFCOO IS 3. U IS THE MEDIAN OF THE CAUCHY 

DtNSITV. 

WHEN IFCOO IS 4. 

UNIFORM DENSITY. 

WHEN IFCOO IS 5. 



U IS THE LEFT EMDPOINT OF THE 



KLHO 280 
KLHO 290 
KLMO 300 
KLHO 310 
KLHO 320 
KLMO 330 
KLHO 340 
KLHO 3S0 
KLMO 360 
KLHO 370 
KLHO 380 
KLMO 390 
KLHO 400 
KLHO 410 
KLHO 420 
KLMO 430 



METHOD 

FCR REFERENCE. 



IS USER SPECIFIED. 
WHEN IFCOD IS 1 OR 2, S IS THE STANDARD DEVIATION Of KLMO 440 
DENSITY GIVEN ABOVEr AND SHOULD BE POSITIVE. KLHO 450 

WHEN IFCOO IS 3. U - S SPECIFIES THE FIRST QUARTILE KLHO 460 
CF THE CAUCHV D£NSITY. S SHOULD BE NOh-ZFRO. KLHO 470 
IF IFCDO IS 4, S IS THE RIGHT ENOPOINT OF THE UNIFORNKLNO 480 
DENSITY. S SHOULD BE GREATER THAN U. KLHO 490 

IF IFCOn IS 5. S IS USER SPECIFIEO. KLNO 500 

ERROR INOICATOP WHICH IS NON-ZERO IF 5 VIOLATES ABOVEKLHO 510 
CONVENTIONS. ON RFTURN KG TEST HAS flEEN HAOE* AND X KLHO 520 
AND Y HAVE BEEN SORTED INTO HONOTONIC NON-DECREASING KLHO 530 
SEQUENCES. lER IS SET TQ lERO ON ENTRY TO KOLHO. KLHO 540 
lER IS CURRENTLY SET TO ONE IF THE USER-SUPPLIED PDF KLHO 550 
IS REQUESTED FOR TESTING. THIS SHOULD BE CHANGED KLHO 560 
tSEE REHARKSl WHEN SOHE PDF IS SUPPLIED BY THE USER. KLHO 570 

KLMO 580 
KLNO 590 
KLHO 600 
KLNO 610 
KLNO 620 
KLHO 630 
KLNO 640 
KLNO 650 
KLNO 660 
KLHO 670 
KLNO 6S0 
KLHO 690 
KLNO 700 
KLNO 710 
KLMO 720 
KLMO 730 
KLNO 740 
KLHO 750 
KLNO 760 
KLNO 770 
KLHO 7B0 
KLNO 790 

KLMO aoo 

KLMO 810 

KLMO 620 
KLHO 830 
KLMQ B40 
KLMO 850 
ON THE KCLMOGOROV-SMIRNOV KLHO 860 



N SHJULD BE GREATER THAN OR EOJAL TO 100. C SEE THE 
KATHFM4TICAL DESCRIPTION GIVEN FOR THE PROGRAM SMIRN. 
CONCEKMNG ASYMPIOTIC FORMULAE} ALSO. PROBAeiLITY LEVELS 
OETE'l'ilNEn BY THIS PROGRAM HILL NOT BE CORRECT IF THE 
SAME SAMPLES ARE USED TO ESTIMATE PARAMETERS FOR THE 
CONTINUOUS OISTRieuTIONS WHICH ARE USED IN THIS TEST. 
ISEE THE HATHEHATICAL OESCRlPTtON FOR THIS PROGRAHI 
F(XI SHOULD BE A CONTINUOUS FUNCTION. 

ANY USER SUPPLIED CUHULATIVE PROBABILITY OISTRISUTION 
FUNCTION SHOULD ?E CUOEO BEGINNING WITH STATENENT 26 BELOW 
AND SHOULD RETURN TO STATEHENT 27. 

DOUBLE PRECISION USAGE II IS DOUBTFUL THAT THE USER WILL 

HI5H TO PERFCKH THIS TEST USINS DOUBLE PRECISION ACCURACY. 
IF ONE WISHES TO COMMUNICATE WITH KOLHO IN A DOUBLE 
PRECISION PROGRAM, HE SHOULD CALL THE FORTRAN SUPPLIED 
PRGCRAP SNGL(X) PRIOR TO CALLING KOLHO, AND CALL THE 
FORTRAN SUPPLIED PROGRAM DBLEIXJ AFTER EXITING FROM KOLHO. 
(NOTE THAT SUfiOCUTINE SHIflN DOES HAVE DOUBLE PRECISION 
CAPABILITY AS SUPPLIED BY TH S PACKAGE.) 



SUBROUTINES AND FUNCTION SUBPROGRAMS REOUIPEC 

SHIRN. NOTR, ANC ANY USER SUPPLIED SUBROUTINES REQUIRED 



SEE < 1 J W. FELLER- 



LIMIT THEDRcKS FOR EMPIRICAL DISTRIBUTIONS- 
ANNALS OF MATH. STAT.t 19, 1948. 177-189, 
(2) H. SMIRNPV — TABLE FOR ESTIMATING THE GCCDWESS OF FIT 
OF EMPIRICAL Dl STR IBUT IONS — ANNAL S OF MATH. STAT., 19, 
1946. 279-2B1. 

131 R. VON HISES — MATHEMATICAL THEORY OF PROBABILITY AND 
STATISTICS — ACADEMIC PRESS, NEW YORK, 1964. 490-493, 
14) 8.V. GNEOENKO — THE THEORY OF PROBABILITY — CHELSEA 
PUeHSHlNG COMPANY, NEW YORK, 1962. 384-401. 



,I,,Z,PR0B,1FCQ0,U.S,IEPI 



SUBROUTINE KOLMC(X 
DIMENSION Xt 1) 

NON DeCREBSINC nRJEBlNG CF Kdl'S (DUBY MtlhDO) 

IEB = 

DO 5 1=2, N 

IFIX( I t-K( I-IJ H . 5,5 
TEWP^Xl I J 
IM=I-1 
00 3 J = 1 , I M 
L=I-J 

IFtT£«P-X(L 1 I2,'.,'- 
X(L*H = K(L) 
I CONTINUE 
X( IMTEMP 
GO xa 5 
X1L*1I=TFMP 
CONTINUE 

coMPjies MAXIMUM aEvunoN DN ^H AasaLUTE value between 

EMDl:(I(;aL IND THETRETiCAL DISTRIBUTIONS 



NMl^' 


N-I 






XN = N 








DN = 


-0 






FS=0 


.0 






IL=1 








DC 7 


1 = 


u . 


NM1 


J=f 








IF(XI 


IJ)- 


K<j 


• 1) 



KLHO 870 
KLMC 6 80 
KLHO 890 
KLNO 900 
KLMO 910 
KLNO 920 
KLMO 930 
KLMO 940 
KLMO 950 
KLMO 960 
..KLMO 970 
KLHO 980 
KLNO 990 
KLMOIOOO 
KLMOIOIO 
KLM01020 
KLM01030 
KLM01040 
KLM01050 
«LM01060 
KLM01070 
KLMOIOSO 
KLH01090 
KLHOllOO 
KLMOl 110 
KLN01120 
KLMOL 130 

KLHOl 150 
KLHOl 160 
KLHOl 170 
KLM0I180 
KLM0U90 
KLHO) 200 
KLM01210 
KLM01220 
KLM01230 
KIM01240 
KLM01250 
KLMOl 260 
KLHai270 
KLHGI260 
KLM01290 



8 J=N 
<) IL=J»I 

f I-FS 

FS=FLOAT(J(/XN 

IF(!FCnD-2H0.n.l7 

10 IFfSlU, U,12 

11 iefi=i 

GO TO 29 

12 I =( X( J)-UJ/S 
CALL NOTRIZ.Y.OI 
GO ro 21 

1? IF IS III, 11,14 
1^ I=IX(J|-U)/S*1.0 
IF(z Ji5, 1'., 1/. 

15 Y=0.0 

GO Tr 27 

16 Y=l.-EXP(-i:) 
GO TO 2 7 

17 IF( lFC00-4|ia,20,26 

18 IFIS ll", II, 19 

19 V=ATANnX(JI-Ul/Sl»0.3iei099.0.5 
GO TO 27 

20 IFIS-UUl. 11 ,21 

21 IF(XiJ)-UJ.''?,?2.23 

22 T=0.0 

GO TO 27 

23 IFIX(JI-SI25, 25,24 

24 Y=I.O 

GO TO 27 

25 V=(X(J1-JI/(S-U» 
GO TO 2 7 

26 IER=1 

GO TO 29 

27 EI"AaS(Y-FI| 
cS=AeS(Y-FSt 
DN=AMAK] ION, EI, ESI 
IF( IL-N)6,8,28 



COMPUTES Z-ON»SQRT(N) AND PROBABILUY 



29 Z=ON*rORT(XNI 

CALL SMIRNU.PRO 
PROB= I.O-PROB 

29 RETURN 
END 



KLM0I300 

KLM01310 

KLMOl 320 

KLM01330 

KLMOl 340 

KLMOl 350 

KLM01360 

KLMOl 370 

KLMOl 380 

KLH01390 

KLMOl 400 

KLMOl 4 10 

KLM01420 

KLHQ1430 

KLMOl 440 

KLMDl'.^O 

KLMOl 460 

KLH01470 

KtM01480 

KLM01490 

KLM0I500 

KLMOISIO 

KLMO1570 

KLMOl 530 

KLMOl 540 

KLMQ1550 

KLMOI560 

KLMOl 570 

KLH015aO 

KLM01590 

KLHai600 

KLM01610 

KLH01620 

KLM01630 

KLMO1640 

KLMD1650 

KLHOt660 

KLH01670 

KLM0t6B0 

KLH01690 

KLMOl 700 

KLM01710 

KLHOl 720 

KLHOl 730 

KLH01740 

KLMOl 750 
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Subroutine KOLM2 

Given a sample of n i. i. d. (independent and identi- 
cally distributed) random variables X. and a sample 
of m i. i. d. random variables Y, this subroutine 
tests the difference between the two empirical dis- 
tribution functions Fjj(x) and Gj^^Cy) using 
Kolmogorov-Smirnov's limiting distribution. For 
this purpose: 

1. The sets X and Y are sorted into the ordered 
sets {X(i) }and {Y(i)], which are nondecreasing se- 
quences. 

2. The empirical cumulative distribution func- 
tions Fj^(x) for the set X, and Gj^fy^ for the set Y 
are computed. For example, 



X < X 



(1) 



F(x) = {k/n x„.. x<x ;k=l....n-l 



(k) 



x, s X 
(n) . 



3. The maximum difference in absolute value 
between the two sample distribution functions is 
computed: 



D 



m,n 



max F (x) 
' n 
X, y 



G (y) 
m 



D, 



is a random variable 



. ^. Ann 
The statistic^ ^^5^ i^m, n 

with limitii^ cumulative distribution function 
L(z), which is described under "Subroutine 
SMIRN" in this manual. That is, 



lim 



m,n-+ «=, «> 



m,n 



< z } = L(z) 



4. Finally, the probability (asymptotic) of the 
statistic ,,y^^ Dm „ being not less than its com- 
puted value, under the assumption of equality of 
the two theoretical distribution functions from 
which X and Y were taken, is computed: 

P = 1 - L(z) 

For reference see: 

(1) W. Feller, "On the Kolmogorov-Smirnov limit 
theorems for empirical distributions". Annals 
of Math. Stat. , 19, pp. 177-189. 



(2) N. Smirnov, "Table for estimating the goodness 
of fit of empirical distributions", Annals of 
Math. Stat. . 19, pp. 279-281. 

(3) B. V. Gnedenko, The Theory of Probability. 
Chelsea Publishing C!o. New York, 1962, pp. 
384-401. 



SUtSaui INE KUL«? 



TEiTS THE DIFFEflENCE BtlweEK TMO SAMPLE DISTRIEUTIDN 

fi;NCTic»iS usiwr, the kolkcgopov-smibmov test 



,Y,N,M,£,P«Ce) 



KLKZ *0 

KLM2 50 

RLM2 60 

KLK? 80 

KLH? 90 

KLH2 LOO 

KLH2 ItO 

tiL'*2 120 



KLM2 



Of SCRIPT IPN Of PA«*HfTERS KLM2 

X - INPUT VECTCff OF ^ INDtPEND€NT OBSCl" V* TI CNS. ON KL«2 

RETURN FROH KOLM?, X h»S SEEN SORTED INTO A 
MONOTONIC hDN-DPC«EASING SEOlrtNCE. 

T - INPUT VECTOR Dp H INC»EPENOENT C6SERVAT IONS. ON 

RETURN FRCK «0LK2. T HAS BEEN SOOTED INTO A 
MONOTONIC NON-OrCf-EASING SEQUENCE. 

H - NUM^GR OF CBSERVATIQNS IN K 

M - NUMBER OF OeSERVATIGNS IN ¥ 

I - OUTPUT VAftlABLE CONTAINING THC GREATEST VALUE KlTH 

PESPECT TO THE SPECIFUM OF X *N0 V OF 
SORT( (M«NI/|M*Nn*ABS(FN( XJ-GMCYll WHERE 
FNtK) IS THE EMPIRICAL OlSTftlBUTION FUNCTION OF THE 
SET (XI AND GMtYl iS THE EMPIRICAL DISTRIBUTION 
FUNCTION Of THE SET (Y). 

PROe - OUTPUT VARIABLE CONTAINING THE PROeABILITY OF 

THE STATISTIC BEING GREATER THAN OR EQUAL TO Z IF 
THE HYPOTHESIS THAT X AND Y ARE FROM THE SAME PDF IS KLM2 
TRUE. E.G., PROB= 0.05 IMPLIES THAT ONE CAN REJECT KLM2 
THE NULL HYPQTHf^SIS THAT THE SETS X 4N0 Y ABE FROM KLM2 

THE SAME DENSITY WITH 5 PER CENT PRDflABILIIY OF BEINGKLM2 
iNCGRHECT. PROfl = 1. - SMIRNIZK 



KLM2 
KLM2 
KLM2 
KLM2 
KLM2 

¥im2 

KLM2 
KLM2 
KLM2 
K.LM2 
KLM2 
KLM2 
KLM2 
KLM2 



130 
lAO 
150 
160 
170 



REMARKS 

N AND H SHOULD BE GREATER THAN OR EQUAL TO 100. (SEE THE 
MATHEMATICAL DESCRIPTION FOR THIS SUBROUTINE AtJD FOR THE 
SU9RDUTINE SKIRN, CONCERNING ASYMPTOTIC fORMULAEJ. 

DOUBLE PRECISION USAGE IT IS DOUBTFUL THAI THE USER WILL 

WISH TO PERFORM THIS TEST USING DOUBLE PRECISION ACCURACY. 
IF ONE WISHES TO COMMUNICATE WITH K0LM2 IN A DOUBLE 
PRECISION PROGRAM, HE SHOULD CALL THE FQHTOAN SUPPLIED 
PGOCRAM SNGLIKI PRIOR TO CALLING KDL«2. AND CALL THE 
FDRI51AN SUPPLIED PROGRAM DBLEIXI AFTER EXITING FROM K.0LM2. 
(NOTE THAT SU9R0UTINE SMIRN DOES HAVE DOUBLE PRECISION 
CAPABILITY AS SUPPLIED BY THIS PACKAGE.! 



SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
SMIRN 



METHOD 

FDR REFERENCE. SEE (II W. FELLER— ON THE KOLMDCOfiOV 

LIMIT THEOREMS FOR EMPIRICAL Dl 5TR IBUT IONS-- 

ANNAL5 OF MATH. STAT., 19, 19*8- IT7-189, 

(21 N. SMIPNOV — TABLE FQl^ ESTIMATING THE GOODNESS OF FIT 

OF EMPIRICAL 9ISTRIBUTI0NS— ANNALS OF MATH. STAT.. 19, 

ig^q. 279-281. 

(3) R. VON MISES--MATHEMATICAL THEORY OF PROBABILITY AND 

STATISTICS — ACADEMIC PRESS, N^W YORlC, 19«A. 490-493, 

14) B.V. GNEDENKO — THE THEORY OF PROBABILITY — CHELSEA 

PUBLISHING COMPANY, NEW YORK, 1962. 384-401. 



SUBROUTINE K0LM2 I K , Y ,N ,M, Z , PRQBI 
DIMENSION X( 1),Y{ 1) 

SORT X INTO ASCENDING SEQUENCE 

DO 5 1=2,N 

IF(X(I)-XII-1I11,5,5 

TEMP=X(I } 

IM-1-1 

DO 3 J=1,IM 

L=[-J 

IFtlEKP-xlL 1 12. '•.A 
• XlL*lI»X(LI 
1 CONTINUE 

XI llxTEKP 

GO TO 5 
. X(L+II=TEHP 
i CONTINUE 

SORT Y INIC ASCENDING SEQUENCE 

DO 10 1=2,« 

If (Y( I l-Y( I- U It, 10, 10 
, TEMP=Y(n 
IM=I-I 

DO 8 J = l,I»i 

LM-J 

fF(TEMP-r(L» IT, 9. 9 
Y(L* 1)=Y(L» 
. CONTINUE 
YI II=TEHP 
GO TO 10 
Y(L*11=TEMP 
CONTINUE 

CALCULATE D = A8S(FN-GMJ OVES THE SPfCTflUM OF X AND 

XN=FLOAr(NI 

XN1=I./XN 

XM=FLCAT(MI 

XM1=1./XM 

0=0.0 

1=0 



KLM2 
KLM2 

KLM2 
KLM2 

KLM2 

KLM2 
KLM2 
KCM2 
KLM2 
KLM2 
KLM2 
KLM2 
KLMZ 
ICLM2 
RLM2 
KLM2 
KLM2 
KLM2 
KLM2 
ltLM2 
tCLM2 
IRNOV KLM2 
- ltLM2 



200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
520 
330 
340 
350 
360 
570 
380 
390 
400 
410 
420 
430 
440 
4 50 
460 
470 

4 80 
490 
500 
510 
520 
530 
540 

5 50 
560 
5 TO 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 

KLM2 680 
KLM2 690 
KLM2 TOO 
KLM2 710 
KLM2 720 
KLM2 730 
x;LM2 740 
KLM2 750 
KLM2 760 
KLM2 770 
KLM2 780 
KLM2 790 
KLM2 600 
KLM2 810 
KLM2 830 
KLM2 830 
KLM2 840 
KLM2 850 
KLH2 860 
KLM2 870 
KI.M2 680 
KLM2 890 
KLM2 900 
KLM2 910 
KLM2 920 
KLM2 930 
KLM2 940 

nn2 950 

KLM2 960 
KLM2 970 
KLM2 980 
XLM2 990 
KLM21000 
KLM21010 
KLM21020 
KLM21030 
KLM21040 
KLM21050 
KLM2I060 
KLM21070 
KLM2I080 
KLM21090 
KLM21 100 
KLM21II0 



KLM2 
•tLM2 
KLM2 
KLM2 
KLM2 
KLM2 
KLM2 
KLM2 
KLM2 
.KLM2 
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J = 

I =0 
II IF(>tlMll-Y<J»ini?,l),IB 

GO in I* 

1 i K = 

It 1= i ♦ I 

iF(i-Nn5,?i,^i 

I »> IF«X( I«t l-XI I t 1 I*., l^, Ift 

16 If IK HT, 18, I T 

CHoor-f; THf-: hakimum uitfFKtNct, D 

17 n=AMA)Clin,AftSIHnAr( l MXNl-FtOAl (J1*XM1 I) 
IF(L iZZt 1 1.2? 

IH J=J»I 

IF(J-M) l'*,^0,?(J 

II in ft J»l I -Y) JM 1 1. IB, 17 

GO m 17 

?1 1 = 1 

GO TO Ih 

CALCULAIt THF STATISTIC 7 
22 Z=0»SOHI I(XN*XM1/I XNtKMI I 

CALCULAff THE PKOSABlLllY ASSOCUTtO MITH Z 



CAIL SHIOMI jT.poi 
PHD«= l.n-IJUDO 
Rf TURN 
END 



r^) 



KLN?1120 
KLK2I1)0 

KLn2l 150 
KLM?! 160 
KLH711T0 

KLH21180 

KIM21 190 

KLH71200 
KLM?l?10 

KLM212?0 
KLM21?»0 

KLM2I250 
KLM7I2A0 

KLMP12T0 
KIH212flO 
KLM?1?<10 
KLH?1 JOG 
KI-M21310 

KLMilHO 
KLM2I 1*0 
KLH2U50 
KLM?I 160 
Kl H21 jro 

KLM2neo 

»((.M21 190 
KlM?l/,00 
«I_M?1^I0 
KI.M?14?o 
KLM71410 
KLM2I<.*0 
KLM2MS0 



Subroutine SMIRN 

This subroutine computes the values of Kolmogorov- 
Smirnov's limiting distribution for a given argu- 
ment X. 







X s 



L(x) 



(1) 



1 - 2 Z (-1) exp (-2k\^) X > 
k=l 



L(x) is the limit (Kolmogorov) of the cumulative 
distribution function of .v/n^D . and of (Smirnov) 
[mn/(m+n) ] ^'^ D^ where: 



m,n 



Dj^ is the maximum, over all x, of the difference 
I F,^(x) - F(x) I between the sample distribution 
function F^(x) and the continuous theoretical dis- 
tribution function F(x), and 

D^ jj is the maximum, over all x, of the 
difference between the two sample distribution 
functions Fj^(x) and Gjj(x), from two independent 
samples of sizes m and n. 

When X is very small, the series (1) converges 
slowly, but, using Jacobi's Theta-functions 
e2(u,t) and e^(u,t): 



e„(u,t)=2 X) exp aTr(k+l/2) t] cos[(2k+l)u] 
^ k = 



k-1 2 

e (u.t) = 1 - 2 X; (-1) exp (iTTk t) cos (2ku) 

k = 



and using the Jacobi imaginary transformation 

-1/2 
e^ (0,t) = (-it) 62(0, -1/t) 



it follows that: 

L(x) =e^ (0, 21x^77) 



= (7^/x) XI exp C-(2k-l)^ 17^/8x^3 

k=l 

which converges quickly when x is small. The 
computation here uses, with errors Ej (x), i = l, 2: 
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r . 



X ^ 0<.27 



(y27r/x) X exp C-(2k-l)^77^/8x^] + 



k-1 



L (x)=< 



where: 



E (x); 0.27 <x< 1,0 



,c^ k-1 2 2 

1-2 X) (-1) exp (-2k X ) + E (X) 

' k = l ^ 



1.0 ^x< 3.1 

3ol ^ X <oo 

-15, 



E (x) < 6 (10 ) when x < 1 



Eg (X) < 10 



-20 



when X S: 1 



For reference see: 

(1) E. T. Whittaker and G. N. Watson, A Course of 
Modem AnalysiSo Cambridge University Press, 
Cambridge, England, 1952, pp. 462-476. 

(2) W. Feller, "On the Kolmogorov-Smirnov limit 
theorems for empirical distributions", Annals of 
Math. Stato 19, pp, 177-189o 

(3) N. Smimov, "Table for estimating the goodness 
of fit of empirical distributions", Annals of 
Math. Stat. 19, pp. 279-281o 



SLCDCLIlhC SflDK 

FLfFCSC 

CC^FbTCS VilLUCS OF JH LIflTINC OISIR ICUTICK FIKC.IION FCA 
11-C KCi.l*CGCDCV-$MIANCV SI#I|ST|C. ' 

LUCt 

CES<niP11Clt Cf 9»fitftJ(»S 

> - 11-C ARCtfehT OF It-E SfilRN fb^CTIQN 

V ' It-E RESLLTJthT SI'IRf FUhCTICfc VALiJE 



IS SET TC ItfC IF X IS ^CT CREAICP Ihttk 0.27. AhC IS SE1 



S»|ft 
.SM|R 



SFIft 
SI'IR 
S*I« 
SMIR 
S»'|R 
SKIR 
S"IR 
S*'|R 
SfIR 
SMIR 

S"m 

S^-IR 
St'lR 



JQ ChE IF % IS kOT LESS If«K 3.1. KCLRACV TESTS mEKE MOE SfIR 



OCFERIilAC 1C ll-E T464.C CHiEK IK ThE REFfiREnCE BELOta. 
It>C ARGUfEKIS. >- 0.62. »hC » - i,»1 CAVE RESLLTS WHICH 
CIFFER FRCf IfC SKIRhCb TiflLkS BY 2.<i AMC l.« Ift THE 3TH 
CECIfAL FLACE. ILL CTt-EK RESULTS Sl-Ch£0 Sr-ALLER ERRORS. 
ihC tRRCR SRECIFICAriChS ARE GIVEK I*. ThE ACCLRACV TACLES 
lA THIS RAKUAL. IN OCLCIE FRECISICh fCQ£« TtiESE SAME 
ARCUMCfcl! RESLLTEC Ih ClFFEREfcCES fRCf TASLEC VALUES BV 3 
tt^C 2 IK IFE STt- CECIRAl RlACC. |T IS hCTEC I*t 
llRCtiFEk IRfFCRENCE CCLCkl IhAI FCt HIGH SICRIfiCANCE LEVELSSRIR 
<£AT. .CL AhC .CSI ASVftPTCTIC FCRRULAS GIVE VALUES WHICH AflESfIR 
TCC I-ICF I ev l.S RER CEAI bHEN N • SO. TI-AT IS. AT HIGH SRIR 
SlCl^lflCAhCE LEVELS* THE ^VROIHESIS flf NO CIFFERENCE MILL BESnlR 



SnIR 
Sf IR 
S-IR 



SRIR 

S«IA 

SRIR 



RCJECIEC ICC SCLCCH USUC ASYHPIOIIC FORRULAS. 

StCFCLTIRES ANC FLKCIION SLERRCGRAPS RECLIREO 
RCKE 

RETfCC 

ll-E HEft^CC IS CE&CRI6EC CV k. FELLCR~CH T»-E KCLfOCCROV- 
SflRKCV LIRIT TFECREKS FCR ERRIRICAi CI STRiSLIIChS- AKMIS 
CF RAT»-. SIAT.« 1^. IS^fl. 117-189. SV fi. SRIRKOV — TABLE 
FCR ESIlRAIIfcC THE CCCCRESS OF FIT CF EMPIRICAL 
CISTHieLliCKS- Ahl^ALS CF RATH. STAT.* IS. l«4fl. 279-281. 
ARC GIVEh ll> LIROCREN. STATISTICAL IHECRV. ThC RACRILLAN 
CCRRARV. R. v.. 19«2. 



St'IR 
SRIR 
SRIR 
SNIR 
SRIR 
SflR 
Sf|« 
S^'IR 
SNIR 
S^IR 
SCIR 



SLBRCLIIhE SR1RR(>.VI 

CCUeLE FOEClSICh I .C 1 .C2.g4 .CE . t 

IF A CCLELE FRECISICR VERSICf CF T^IS RCtTIhE I! CESIREO. THE 
If> CCLURN CRE OF Tl-E DOUBLE PRECISIOR CARC ABOVE SHOULD BE 
HE^'ChEC. AfC TfE L IK CGLLRR CKE CF THE STATEfERTS KURBEREC 
C 3. C S. ANC C a SeCLLC SE REMCVEC* AKO THESE CARCS 

<I-CLLC REflACE TfE SIATEfERTS RURBEREO 3, S, JHC B. 
iiESFECtlVELY. ALL RCLTIKE! CALLIRC INIS ROUTINE RUST ALSO 
FRCVlCE CCLCLE PRECISIGK ARGLRERTS TC THIS RCtTIRE. 



St-IR 

..SMIR 

SRIR 

SRIR 

SMIft 

SRIR 

CSRIR 

SMIR 

S-IR 
S-IR 
S**IR 
SRIR 
SKIR 



IF(li-.211 1.1.2 
I ^-C.C 

EC TC S 
i IFIli-I.CI3.t.< 
3 CI"E>F(-1.23»ICiyx*»i) 

3 CI-C£XFI-l.2 331CC5 5Cl341T0/*««il 
C2-C1*C1 

C^-C24C2 

If IC«-l.CE-2£}4,5,5 

4 Ct-C.C 

5 Y-(2.scet2a/«i"Ci*u.c*Cfl»{i-c»cs«Geii 

! 1-(2.:C«e2e2 7<%e3 1CCt./XI«Ql*(l.CCC«G8*(l.C0a*C8«CBI I 

CC TC « 
t IFIH-!.l IE. 1.7 
7 »-I.C 

CC TC S 
£ Cl-tAFI-i.C-Ji**) 
C Ci-CEXFI-2.CCC*a«AI 

(.2-Cl*Cl 

C4>C2*(;2 

C«-C«4C4 

Y*i.c-2.c*ici-c4«ce«(':i-cei I 

S FEICRR 
ERC 



.SRIR 
SflR 
SPIR 
SRIR 
Sf-IR 
SRIR 
SRIR 
SKIR 
$r>IR 
SRIR 
Sf-IR 
SflR 
SR!R 
Sf-IR 
S"I« 
SRIR 
S^-IR 
SRIR 
SRIR 
SRIR 
SRIR 
SRIR 
SKIR 
SVIR 
Si'IR 
SRIR 
SRIR 



SO 
lOO 

no 

120 
130 
1*0 
150 
160 

iro 

IBQ 
190 
200 
210 
220 
2 30 
240 
250 
260 
270 
200 
290 
300 
310 
320 
330 
340 
350 
360 
370 
360 
390 
400 
410 
420 
430 
440 
450 
460 
470 
460 
490 
500 
510 
520 
5 30 
540 
550 
560 
570 
SSO 
5S0 
600 
610 
620 
630 
640 
650 
660 
670 
660 
690 
700 
710 
720 
730 
740 
750 
769 
770 
780 
790 

aoo 

810 

820 
830 
840 
850 
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Subroutine CHISQ 

This subroutine calculates degrees of freedom and 
chi-square for a given contingency table A of ob- 
served frequencies with n rows (conditions) and m 
columns (groups). The degrees of freedom are: 



d.f. = (n - 1) (m - 1) 



(1) 



If one or more cells contain an expected value less 
than 1.0, chi-square will be computed, but the error 
code will be set to one. 

The following totals are computed: 



(2) 



T. = 2_^ A..; i = 1, 2, .,., n (row totals) 

j=l 

n 

T ~ y^ A .; j = 1, 2, . . . , ra (column totals) 
i=l ' (3) 



GT = 22 '^- (grand total) 
i=l 

Chi-square is obtained for two cases. 

(a) For 2x2 table: 



(4) 



x'=. 



GT 



^11 ^22 - ^12 ^1 



GT 
2 



<^ll"^12)(^l"^22>(^ll"A2l)(^12-^^2) 



(b) For other contingency tables: 



n m 



i=l j=l 



(a.. -E.V 



(5) 



(6) 



sudRouriNe cmisq 

PURPDiE 

CUHPUTt CHI-SQUARE fROM A CONTIN&ENCV TASLE 

USAGE 

CALL CHISy(A,N,M,CS,NLiFtI£RR,rR,rC) 

OtSCRIPTION OF PARAMerERS 

A - INPur MAFRIK, N BV M, CONTAINING CDNTiNGENCY FABLE 

N - NUMdER OF ROWS IN A «t i. t ,«oi.i: 

H - NUMBER Of COLUMNS IN A 

CS - CHl-SqUARE (OOTPUri 

NOF - NUMBER OF DEGREES OF FreEUOM (OurPUTI 

lERR - tfiROft CODE (OUTPUTI 

- nokhal case 

1 - expected value is less than l.o in ong or 

more cells 
3 - number of decrees of freedom is zero 
tr - work vector of length n 
tc - work vector of length h 

REMARKS 

If ONE OR MORE CELLS CONTAIN AN EXPECTED VALUE (I.E , 

THEORETICAL VALUEJ LESS THAN 1.0, CHI-SQUAR£ WILL BE 

COMPUTED. aUT ERROR COOE WILL 8E SET TO 1. 

SEE REFERENCE GIVEN BELOt*. 

CHI-SQUARE IS SET TO l£RO IF EITHER N OR M I S ONE IErroR 

CODE 3). 

SUbROOriNES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

DESCRIBED IN S. SIECfiL, 'NONPARAMETRIC STATISTICS FOR THE 
BEHAVIORAL SCIENCES', MCGRAW-HILL, NEw YORK, 1956, 
CHAPTER 6 AND ChAptER b. 



SUBROUTINE CHISQi A, N,M,CS . NOf , lERR, TR, TCJ 
DIMENSION A) II, Tftll I, TCd) 
C 

NM=N*M 
l£RR=0 
CS=0.0 
C 

C fINO DEGREES OF FREEDOM 

C 

NDF"{N-I)»(M-1I 
IFINOFl 5,5,10 
5 1ERR=3 
RETURN 
C 

C COMPUTE TOTALS OF ROWS 
C 

10 00 90 1=1, N 
TRdl-O.O 
Ij-I-N 
DO 90 J=1,N 
IJ=IJ4-N 
90 TR( 1 l = rRt I)4^AI IJI 

c 

C COMPUTE TOTAtS OF COLUMNS 

C 

U-0 

DO 100 J«1,M 

TC(J)=O.C 

00 100 1=1, N 

IJ-IJtl 
100 TC(J) = TCIJI«AUJI 

: COMPUTE GRAND TOTAL 

Gt»0.0 
DO lie I-l.h 
lie GJ=l.T*TRtl\ 

: COMPUTE CHI SQUARE FOR 2 BY 2 TAdLE (SPECIAL CASE) 

lF(NM-4( 130*120,130 
1<;0 CS''GI*(A6S(A( ll*A|4)-A(2l*A( 3) )-GT/2.0l**2 /(TCI 1 1 *rC (2 I *TrU ) 
l*rR(2ll 

RETURN 

CUMPUTE CHI StjUARE FOR OTHER CONTlNCiNCy TABLES 

130 IJ-C 

00 140 J=1.H 
DO 1<>C l=l,N 
Ij=Ij*l 
£=TR(II*TC(J)/GT 

IFie-l.OI 135, 1*C, 14C 
1J& lERR^l 
14C CS=CS*(A( IJ)-E(*( At lJ|-E)/£ 

RETURN 
END 



CMIS 
..CHIS 
CHIS 
CHIS 
CHIS 
CHIS 
CHIS 
CHIS 



80 

CHiS 90 
CHIS 100 
CHIS 110 
CHIS 120 
CHIS 130 
CHIS 140 
CHIS 150 
CHIS 160 
CHIS 170 
CHIS 180 
CHIS 190 
CHIS 200 
CHIS 210 
CHIS 220 
CHIS 230 
CHIS 240 
CHIS 250 
CHIS 260 
CHIS 270 
CHIS 260 
CHIS 290 
CHIS 300 
CHIS 310 
CHIS 320 
CHIS 330 
CHIS 340 
CHIS 350 
CHIS 360 
CHIS 3 70 
CHIS 380 
CHIS 390 
CHIS 400 
CHIS 410 
..CHIS 420 
CHIS 430 
CHIS *40 
CHIS 450 
CnIS 460 
CHIS 470 
CHIS 480 
ChJS 490 
CHIS 500 
CHIS 510 
CHIS 5 20 
CHIS 530 
CHIS 540 
CHIS 550 

CHIS Sf^rt 

CHIS 570 
CHIS 580 
CHIS 590 
CHIS 600 
CHIS 610 
CHiS 620 
CHIS 630 
CHIS 640 
CHIS 6S0 
CHIS 660 
CHIS 670 
CHIS 660 
CHIS 690 
CHIS 700 
CHIS 710 
CHIS 720 
CHIS 730 
CHIS 740 
CHIS 750 
CHIS 760 
CHIS 770 
CHIS 780 
CHIS 790 
CHIS 800 
CHIS 810 
CHIS 620 
CHIS 8 30 
CHIS 840 
CHIS 850 
CHIS 860 
CHIS 870 
CHIS 8S0 
CHIS 890 
CHIS 900 
ChIS 910 
CHIS 920 
CHIS 930 
CHIS 940 
CHIS 950 
CHIS 960 
CHIS 9 70 
CHIS 980 
CHIS 990 
CHISIOOO 



T. T. 

where E = -J— L 
ij GT 



i = 1, 2, ..., n 
j = 1, 2, ..., m 
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Subroutine KRANK 

The subroutine computes the Kendall rank correla- 
tion coefficient, given two vectors of n observations 
for two variables, A and B. The observations on 
each variable are ranked from 1 to n. Tied obser- 
vations are assigned the average of the tied ranks. 
Ranks are sorted in sequence of variable A. 
A correction factor for ties is obtained: 



T =y^,— ^ for variable A 

a -^ 2 



T =y^,-^ for variable B 

b ^ 2 



(1) 



where t = number of observations tied for a given 
rank 

The Kendall rank correlation coefficient is then 
computed for the following two cases: 



(a) if T^ and T^ are zero, 

S 



T =- 



(2) 



-n(n-l) 



where n = number of ranks 

S = total score calculated for ranks in vari- 
able B by selecting each rank in turn, 
adding 1 for each larger rank to its 
right, subtracting 1 for each smaller 
rank to its right 



(b) if T^ and/or T^ are not zero. 



T = 



>/F(^-^ ^/f 



(3) 



•1)-T^ Jin(n-1)-Tj^ 



The standard deviation is calculated: 



/ 2(2n + 5T 
^j 9n(n-l) 



The significance of t can be measured by 

T 



(4) 



(5) 



TtSI CLRKELATIOh fc£Il.fcN TWO VARUSLtS BV MEANS Of KtNOALL 
rtANK C0R«ELATION COcfflCldNT 



CALL KRAN«(I A.e.K^Nt TAU.SO.Z.NR) 

OtSCRU'TION Of PARAH£IfcBS 

A - IHPUX WECTOh OF N QdS€B WATIONS fOR FIRST VARIABLE 

B - [MPUr l/tCrUR Of N OaSeftVAllOHS for second VARIAetE 
R - GUTl'UT VtCTOR OF RANKED DATA Of LENGTH i*N. SHALLEST 

obset^vAriuN IS ranked i. larust is ranked n. ties 

ARt ASSIGNED average Of UtO RANKS. 
N - NUMbEK Of 06SERVATIIJNS 

TAU - KfeNOALL RANK CORKELATlUN COtfFIClENT (QUTPUTl 
SD - STANDARD DEVUTlCiN (OOTPUT) 
I - TtST OF SIGNlflCANCE OF TAU Ih TERMS OF NORMAL 

disthibut;un iuutput) 

NR - coot, FUR UNRANrttU DATA IN A ANU 6. i FOR RANKEO 
DATA IN A AND b IINPUTI 

REMARKS 

SD ANJ I ARE SET TO iCRQ IF N IS LCSS IHaN TEN 

SUBROUTINES AND FUNCTION SU8PR0CRAHS MQUIREO 

RANK 
T It 

NtTHOO 

DESCRIBEU IN S. SIEGEL, « NONPARAHETRIC STATISTICS FOR THE 
tJtHAVIORAL SCIENCES', HCGRAW-HILLt NEW VURK, 1956. 
CHAPTER 9 



SUBRliUT INE KRANKtAi BiR.N. TaU, SD, 2<NR1 
DIHENSICN A(1),6U)<RI1I 

SDsO.O 
Z-O.C 
FN«N 
fNl=N*(N-l) 

DfcTERMINE WHETHtR DATA IS RANKED 

If(NR-ll »t 10* % 

RANK DATA IN * AND B VECTORS AND ASSIGN TIED OBSERVATIONS 
AVERAGE Of TIED RANKS 

5 CALL RANK (A.R.N) 

CALL HANK (e.RCN-^l t .N) 
GO TO 4C 



BC 



MOVE RANKED DATA TO R VECTOR 

10 DO 20 l^^l.N 
20 Rdl'^Ad) 

DO 30 1-1 .N 

J«I+N 
30 R( J]'ii( 1) 

SORT RANK VECTOR R IN SEQUENCE OF VARIABLE A 

« lSOftI*0 

00 50 I-2.N 

IF(R(1I-A(I-LI) A5.50.50 
4* IS0RT=IS0RT+1 

RSAVE=R(II 

R( n=R( l-ll 

R(I-1»=RSAVE 

I2-I*N 

SAVER-^Rd^l 

A<l2l = ;)(l2-i) 

R(I2-11=SAVER 
SCI CONTINUE 

IfllSURTI <rC. 55*40 

COMPUTE S UN VARIABLE B. STARTING WITH THE FIRST RANK. AOO 1 
ro S FOR EACH LARGER RANK TO ITS RIGHT AND SUBTRACT 1 fOR EACH 

SMALLER RANK. REPEAT FOR ALL RANKS. 

55 S*O.C 

NH-N-1 

DO 60 i>:l,NM 

J=>N*I 

00 toC L=I*N 

K«N*L 

If(RtK)-RlJH 56,60,57 
5b S-S-1.0 

GU TO 60 
57 S"S*l.i) 
6C CONTINUE 



cuMPuit neo score i«oex for bqth variables 



CALL IlEtRiN.KT.TAl 
CALL TIE(R(N«I1 .N.KT.Td} 

COMPUTE TAU 

IFiTAI 70.65,70 
65 IFfTBI TC,o7,7G 
67 lAU=S/lC.5*fMI 

60 TO dC 

TC TAU=5/( ^saR^^c.5•F^^i-TA^)*(_saRT(o.5*FNl-TB)lI 

COMPUTE STANOAHU DEVIATION ANU / If N IS iC OR LARGER 



dC If(N-lJ) 9C, 

d5 SD=(S-tiI((2.l 

Z-IAj/iD 

JC RETURN 
tND 



3.ti5 

MFi«J»f N*5.C1 l/(9.0*FNnn 



KRAN 10 
KHAN 20 
KRAN 30 
KRAN 40 
KRAN 50 
KRAN 60 
KRAN 
KRAN 
KRAN 40 
KRAN 100 
KRAN lie 
KRAN 12C 
KRAN 13C 
KRAN 140 
KRAN 150 
KRAN 160 
KRAN 170 
KRAN 180 
KRAN 190 
KRAN 200 
KRAN 210 
KRAN 220 
KRAN 230 
KRAN 24C 
KRAN 250 
KRAN 260 
KRAN 2 TO 
KRAN 280 
KRAN 290 
KRAN 300 
KRAN 310 
KRAN 320 
KRAN 330 
KRAN 340 
KRAN 350 
KRAN 360 
KRAN 3 70 
KRAN 300 
KRAN 390 
KRAN 400 
KRAN 410 
KRAN 420 
KRAN 4 30 
KRAN 440 
KRAN 450 
KRAN 460 
KRAN 470 
KRAN 480 
KRAN 490 
KRAN 500 
KRAN 5 to 
KRAN 520 
KRAN 530 
KRAN 540 
KRAN 550 
K RAN 5 60 
KRAN 570 
KRAN 580 
KRAN 590 
kRAN 600 
KRAN 610 
KRAN 620 
KRAN 6 30 
KRAN 640 
KRAN 650 
KRAN 660 
KRAN 670 
KRAN 6B0 
KRAN 690 
KRAN 700 
KRAN 710 
KRAN 720 
KRAN 730 
KRAN 740 
KRAN 750 
KRAN 760 
KRAN 770 
KRAN 780 
KRAN 790 
KRAN 800 
KRAN 810 
KRAN 820 
KRAN 830 
KRAN 840 
KRAN 850 
KRAN 860 
KRAN 8 70 
KRAN 880 
KRAN 890 
KRAN 900 
KRAN 910 
KRAN 920 
KRAN 9 30 
KRAN 940 
KRAN 950 
KRAN 960 
KRAN 970 
KRAN 980 
KRAN 990 
KRANIOOO 
KRANIOIO 
KRAN1020 
K.RAN1030 
KRANIC40 
KRAN1050 
KRAMO60 
KRAN1070 
KRANlOaO 
KKAN1090 
KRANILOO 
KRANlitO 
K RANI 120 
KRAN1I30 
KRANtl40 

KRANI160 
KRANU70 
KRANUdO 
KRAN1190 
KRANI2C0 
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Subroutine MPAIR 

This subroutine performs the Wilcoxon matched- 
pairs signed-ranks test, given two vectors of n ob- 
servations of matched samples. The computational 
steps are as follows: 

1. For each matched pair, determine the signed 
difference (df) between the two scores. 

2. Rank these d's without respect to sign. In 
doing so, (a) disregard those d's equal to zero (0), 
and (b) with tied d's, assign the average of the tied 
ranks. 

3. Affix to each rank the sign (+ or -) of the d in 
step 1 above. 

4. Compute T = the svun of positive ranks or the 
sum of negative ranks, whichever is smaller. 

5. Compute mean: 



SUBROUTINE MPAIR 



KfK+1) 



H = 



where K =the total number of d's which are not 
zero (0). 

6. Compute standard deviation: 



11) 



-i 



K(K+1) {2K+1) 



24 



7. Compute Z: 



Z = 



(2) 



(3) 



Z is approximately normally distributed with zero 
mean and unit variance. 

8. Compute the probability, p, associated with 
the value as extreme as Z by the subroutine NDTR. 
Note: p is the probability for a one-tailed test; 
thus for a two-tailed test, the user should 
double tiie value of p. 
For reference see: 

(1) S. Siegel, Nonparametric Statistics for the 
Behavioral Sciences . McGraw-Hill, New York, 
1956, chapter 5. 

(2) F. Wilcoxon, Some Rapid Approximate Sta- 
tistical Procedures , American Cyanamid Co. . 
Stamford, Conn., 1949. 



KPAI 

.HPAI 
HPAI 
HPAI 
MP* I 
MPAI 



100 
110 
120 



PU«i»Oi£ 

P€»FOfiM THE WILCOXON M*TCMEO-^A I«S SICNEO-RANKS TEST, GIVEN iipA 
two V€CrO«S OF N OBSERVATIONS OF THE HATCHED SAMPLES. MPAI 

1PAI 

USAGE „p4, 

CALL HPAII^ <NtA,fi.K,r,2,P,0,EtL.IE) MPAI 

MPAI 

DESCHIPnON OF PARAMETERS MPAI 130 

N - NUMBER OF OSSERVATIONS IN THE VECTOItS A ANO B MPAI 140 

A - INPUT VECTOR OF LENGTH N CONTAINING DATA FROM THE FIPST MPAI 150 

S*"»*<-E MPAI lAO 

B - INPUT VECTOR OF LENGTH N CONTAINING DATA FROM THE SECONOMPAl ITO 

S*MPt.E HPAI laO 

tC - OUTPUT VAPIABLE CONTAINING THE NUHSEn OF PAIRS OF THE MPAI 190 

M»TCH€0 SAMPLES WHOSE DIFFERENCES ARE HON ZERO 101 MPAI 200 

r - OUTPUT VARIABLE CONTAINING THE SU« OF IH= RANKS OF PLUS MPAI 210 

OR MINUS DIFFERENCES, WHICHEVER IS SMALLER MPAI 220 

I - VALUE OF THE STANOAROIZED NORMAL SCORE COMPUTED FOR THE MPAI 250 



WILCOXON MATCHED-PAIRS 51 CNEO-RANKS TEST 
P - COMPUTED PRORABILITV OF OBTAINING A VAIUE OF I AS 

EXTREME AS THE ONE FOUND 8Y THE TEST 
O - WORKING VECTOR OF LENGTH N 
E - WORKING VECTOR OF LENGTH N 
L - WORKING VECTOR OF LENGTH N 
IE- l< IF SAMPLES A AND B ARE IDENTICAL. 

OTHERWISE. IF IE*i, THEN T«P-0, ANO Z-=-lO*«T5 

REMAPKS 

THE COMPUTED PftOeAftlLTV IS FOR A ONE-TAILED TEST, 
MULTIPLVING P 8V 2 WILL GIVE THE VALUE FOR A TMO-TAILEO 
TEST. 

SUBROUTINES ANO FUNCTIONS SuePROSRAMS REQUIRED 
RANK 
NDTR 

METHOD 

REFER TO DIXON ANO HASSEY. AN INTRODUCTION TO STATISTICAL 
AN^LrSIS (MC GRAW-HILL. 1S57I 



SUBROUTINE MPAIR <N, A, B.K, T,2 .P. D,E,L . IE I 
DIMENSION Atl}.B<l),D<II,E(ll,LlI) 



FIND DIFFERENCES OF MATCHED-PAIRS 

eiG=o.o 

DO 5 5 I=1,N 
OIF-A(I)-B(I) 
IFIOIFI 10, 20. 30 

DIFFERENCE HAS A NEGATIVE SIGN (-> 

10 L(I I=>1 
GO TO 40 

DIFFERENCE IS ZERO (01 



20 LII)-2 

K-K-1 
GO TO 40 

DIFFERENCE HAS A POSITIVE SIGN K*\ 

30 LI 1 1-3 

40 Olfs ABSfOIFI 

IF<6IG-D1F1 45r 50* 50 
45 BIG«01F 
SO OtII'OlF 

55 CONTINUE 

IFIKI 57,57,59 
57 IE-1 

T-0.0 

Z— I.0ET5 

P«0 

GO TH 100 

STORE A LARGE VALUE IN PLACE OF DIFFERENCE IN ORDER TO 
ASSIGN A LARGE RANK (LARGER THAN Kl. $0 THAT AftSOLUTE VALUES 
OF SIGNED DIFFERENCES WILL BE PROPERLY RANKED 

59 BIG=BIG*2.0 
00 65 1=1, N 
1F(LII)-2I 65, 60, 65 

60 D(I)>eiG 
65 CONTINUE 

CALL RANK (D,E,N) 

FIND SUMS OF RANKS OF (♦) DIFFERENCES ANO (-» DIFFERENCES 

SUMP-0.0 

SUMH=0.0 

OO BO I'' UN 

IF(LII)-2t TO, 80, 75 
70 SUMM=SUMM*E (It 

GC TO 80 
75 SUMP:='SUMPi-£( II 
60 CONTINUE 



SET 



SMALLER SUM 



85 T-5UMP 

CO TO 95 
90 T=SUMM 

COMPUTE MEAN, STANDARD DEVIATION, ANO Z 

95 FK=K 

U=FK»{FK*1. 01/4.0 

S= SQRIHFK«(FK»I.01«(2.0»FK*l,0l)/'4.OI 
Z=IT-Ut/S 

CCWPUTE THE PROBABILITY OF A VALUE AS EXTREME AS Z 

CALL NDTP (i.P.BIGI 

lOT RETURN 
FNO 



MPAI 240 
HPAI 250 
HPAI 260 
MPAI 270 
MPAI 2S0 
HPAI 290 
MPAI 300 
MPAI 310 
MPAI 320 
MPAI 330 
MPAI 340 
MPAI 350 
HPAI 360 
MPAI 370 
HPAI 380 
MPAI 3<>0 
HPAI 400 
MPAI 410 
MPAI 420 
HPAI 430 
HPAI 440 
HPAI 450 
...MPAI «60 
MPAI 470 
MPAI 480 
MPAI 490 
MPAI 500 
HPAI 510 
HPAI 520 
HPAI 5 30 
MPAI 540 
HPAI 550 
MPAI 560 
MPAI 570 
MPAI 580 
MPAI 590 
HPAI 600 
MPAI 610 
HPAI 620 
MPAI 6)0 
HPAI 640 
HPAI 650 
HPAI 660 
MPAI 670 
HPAI 680 
HPAI 690 
HPAI TOO 
MPAI 710 
MPAI 720 
HPAI 730 
HPAI 740 
HPAI 750 
HPAI 760 
MPAI 770 
MPAI 780 
HPAI 790 

MPAI eoQ 

HPAI 810 
MPAI B20 
MPAI 830 
HPAI 840 
MPAI 850 
HPAI 860 
MPAI 870 
MPAI 880 
MPAI 890 
HPAI 900 
MPAI 910 
MPAI 920 
MPAI 930 
HPAI 940 
HPAI 950 
MPAI 960 
HPAI 970 
MPAI 980 
HPAI 990 
MPAILOOO 
HPAI 1010 
HPAI1020 
HPAI1030 
HPAI 1040 
HPAI 1050 
MPAI 1060 
HPAtia70 
MPAI1080 
MPAI1090 
NPAIl 100 
NPAIllIO 
MPAI 1120 
MPAIl 130 
MPAI1140 

m\{\Kt 

HPAIlt60 
HPAI 1170 
MPA 11180 
HPAI 1190 
MPAI 1200 
HPAtt2lO 
HPAIt220 
HPAI1230 
MPAI 12*0 
HPA[1?50 
MPAI 1260 
MPAI1270 
HPAI1280 
MPAI1290 
HPAII300 

MPAI1310 

HP* 1 1 320 
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Subroutine QTEST 



Subroutine RANK 



This subroutine determines the Cochran Q-test 
statistic, given a matrix A of dichotomouS data with 
n rows (sets) and m columns (groups). 
Row and column totals are calculated: 



m 



L = y! A., (row totals) 
' j = l ^J 

where i = 1, 2, , . . , n 



G = T^ A (column totals) 
J iti « 

where j = 1, 2, . . . , m 

The Cochran Q statistic is computed: 
m „ / m \; 



(m-1) 



Q = 



m 
L 1 



1=1 J \j=i ^ 



n 



m 



E L. - E l; 



i = l 



= 1 



The degrees of freedom are: 
d.f. = m-1 





RSQ^O.O 




Gt)=O.C 




DO 20 1=1. N 




rfl=o.o 




IJ=1-N 




UO ID J=l.M 




IJ=IJ+N 


K 


TR=rR*A(lJl 




GO«GO*IR 


ZC 


kSg=RSJ*TK*TR 




CuMPUTt SU 




CSii=0.0. 




IJ = 




00 'fO J = 1,M 




lC*u.C 




DO 3C I=1,N 




1J=1J*1 


iC 


Tc=rc*A(ij» 


4C 


CSQ-CSO*TC»rC 



CuMPUTt SUH OF SQUARES UF CQLuMh TOTALS. CSO 



COMPUIt COCHRAN vj TEST UALUe 



UNU DcGKEtS OF FRgEOOM 



(1) 



(2) 



(3) 



(4) 



6RCjriNE QTeSI 

rtPCSt 
TEST WHEIHcR IHRtE OR MJttt MATCHEC GROUPS OF UICHOtOMOUS 
DATA iJlF^fcR SIGMEICANTLr BY THE COCHRAN Q-TtST 



OtSCklPTIGN Of PARAMETERS 

A - INPUT MATRIX. N BY M, OF OICHOTOMOUS DATA (0 AND 11 

M ' NU«6tft OF SETS IN EACH GROUP 

^ - NUMBER Of GROUPS 

J - COCHRAN Q STATISTIC lOUTPUTI 

,^0F - hOMbErt OF DEGREES UF FRccdOM (OUTPUTl 



SUBROUTINES AnU FUNCTION SU8PR0GRAMS REQUIRED 
NONE 

METHOD 

UtSCRIBEO £N S. SIEGEL. • NONPARAME TRIC STATISTICS fOR TH£ 
dEHAVlOHAL SCIENCES', MCGRAUHHILL . NEW YORK, 1956, 
CHAPTEH 7 



SUfiRUdTINc OTESTU,N,M,Q,NDF) 
DIMENSION All) 

COMPUTE SUM OF SQUARES OF ROM TOTALS, RSQ, ANO GRANO TOTAL Of 
ALL ELEMeNTS, CO 



*0 



70 



N0F=M-1 
RETURN 
tND 



QTES 

.QTES 
QTES 
QTES 
QTES 
QTES 
QTES 
QTES 
QTES 
QTES 100 
QTES UO 
QTES 120 
QTES 130 
QTLS 140 
QTtS 15C 
QTtS 160 
QTES ITO 
QTtS 180 
QTES 190 
QTES 2C0 
QTES 210 
QTES 220 
QTES 230 
QTES 240 
QTES 250 
QTES 260 
QTES 270 
QTES 280 
QTES 290 
QTES 300 

.QTCS 310 
QTES 320 
QTES 330 
QTES 340 
QTES 350 
QTES 360 
QTES 3TO 
QTES 380 
QTES 390 
QTES 400 
QTES 410 
QTES 420 
QTES 430 
QTES 440 
QTES 450 
QTES 460 
QIES ^70 
QTeS 4S0 
QTES 490 
OT£S 500 
QTES 510 
QTES 520 

gTES 530 

QTES 540 
QTES 550 
QTES S60 
QTES 5 70 
QTES 580 
QTES 590 
QTES 600 
QTES 610 
QIES 620 
QTES 630 
QTES 640 
QTES 650 
QTES 660 
QTES 670 
QTES 6S0 
QT£S 690 
QTES TOO 



SUartCUTINt BANK 



PURPOSE 

AANK A VECrOrt OF VALUES 



OcSCRIPTIOV JF PARAMtTERS 

A - INPUT VECTOR OF N VALUES 

'I - OUTPJT VECTOR OF LENGTH N. SMALLEST VALUE IS RANKED I, 

LAAGci7 IS RANKED H. TltS ARE ASSIGNED AvtRA^E OF TIEO 

RANKS 

fl* - NUMftfcR UF VALUES 



SU6-1UUTINES ANJ FUNCTION SUaPROGRANS RtQU(R£U 
NONE 

METHOD 

VECTOR IS SEARCHED FOR SUCCESSIVELY LARGER ELEMENTS, IF Tl 
JCCJR, THEY ARE LOCATED ANO TrttIR RANK VALUE COMPUTtU. 
FOR EXAMPLE, IF 2 VALUES ARE TIEO F0« SIXTH RANK. THEY ARE 
ASSIGNED A RANK Of 6.5 (>|6»7|>'ai 



SUeRJUriNE RANK(A,R,N) 
JIMENSICN Al 11, «( 1) 

INI T I ALU AT ION 

DO 10 1=1, N 
10 R(l t=O.C 

FINO RANK OF DATA 
DO 100 1=L.N 

TEST WHEThER UATA POINT IS ALRtAJY RANKED 
If iKlI ) ] 2C, 2C, 100 

UA!A POINT TO 6£ RANKED 

2C SMALL=D.O 
EQUALED .0 
X=Atl] 
DO 50 J=l,N 
IF(AIJt-Xl 30, 4C. SO 

COUNT NUMeER OF DATA PUlNyS hHICH A«t SMALLER 



3o SHALL=5MALL*l.O 
GO TO 50 

CL1U'*T NUMBER OF DATA POINTS WHICH ARE EQUAL 

40 E0UAL=E0UAL*1.0 

k(J)=-1.0 
5C CONTINJfe 

TEST FOR TIE 

If (EQJAL-I.CI 6C, 60, 7C 

SrO^E RANK OF UATA PLINT *H£Rt NO TIE 

6C RU » = SHALL*l.O 
GO TJ ICO 

CALCULATE RAf-K JF TIFC DATA ''OiNTS 

70 P=SMALL ♦ (EQUAL ♦ i.OI*C.5 

l)0 9C J = I . N 

if(R(JJ*l.Cl 9C, dC, 9C 
8C a(JI=P 
■JC cONflNJE 
lOC CGNlINUd 

nETURN 

END 



RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
HANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 

RANK 

RANK 
RANK 
RANK 
^ANK 

RANK 
RANK 

RANK 
HANK 
ESKANK 
RANK 
RANK 
RANK 
RANK 
.RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 

RANK 

RANK 
RANK 

RANK 

RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RAN< 
RANK 
RANK 
RANK 
RANK 

RANK 

HANK 
RANK 

rakk 
RANK 
RANK 
RANK 
RANK 
HANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 
RANK 



100 

no 

120 
130 
140 

150 
160 

1 70 

IBG 
190 

^03 

210 

2 20 
230 
240 
250 
260 
270 
260 
290 
300 
510 
320 
330 
340 
350 
360 
170 
3B0 
390 



4bO 

470 
480 



5 30 
540 
550 
560 
iTO 
580 
590 
600 
blO 

6 20 



6 70 

6 80 
690 
700 

7 10 
720 
7 30 
740 
750 
760 
7 70 
7dO 
790 

aco 

dlO 
820 

a 30 

840 

a-50 

d60 
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Subroutine SIGNT 

This subroutine performs a sign test, given two 
vectors of n observations of two matched samples. 
The computational steps are as follows: 

1. Find the s^ of the difference between the two 
numbers of each pair. 

2. Find K =the number of pairs whose differ- 
ences are not zero (0). Disregard those pairs 
whose differences are zero (0). 

3. Find M n^the number of (+) differences or the 
number of (-) differences, whichever is fewer. 

4. H K is less than or equal to 25, the probability 
associated with a value as small as the observed 
value of M is given by the binomial distribution as: 



M 

= s 

i=0 



(?) 



P^Q^- 



(1) 



where P =Q =0.5 

\ij il (K-i)' 



The equation (1) is rewritten to simplify the calcu- 
lation as follows: 



P =■ 



i=0 ^^ 



,K 



(2) 



If K is greater than 25, the probability is calculated 
by the normal approximation to the binomial distri- 
bution as follows: 



Mean: 



y =KP=-K 



Standard deviation: g = \/KPQ =- \/k 



Value of Z: 



^^ (M+0.5)-;Lt 

a 



(3) 



(4) 



(5) 



Then the probability, p, associated with the value as 
extreme as Z is obtained by the subroutine NDTR. 
Note: p computed by this subroutine is the prob- 
ability for a one-tailed test; thus for a 
two-tailed test, the user should double 
the value of p. 
For reference see S. Siegel, Nonparametric 
Statistics for the Behavioral Sciences , McGraw-Hill, 
New York, 1956, chapter 5. 



SUeftOUTINE SICNT 



StGM 
SIGN 
SIGN 



SIGN 



HEOIAN EQUAL TO ZERO. 



US«CE 

CALL SIGNT (M,A,a.K,H,P,IF 



PURPOSE 

TO PERFORM A NON-PAHAMETP IC SIGN TEST, GIVEN TWO SETS OF 

HATCHED OBSERVATIONS. IT TESTS THE NULL HVPOfHESIS THAT THEs'lGN SO 

2i"^"^"^ "I"^^- ^"" ***" °^ HATCHED OeSeRVATrOfiS HAS A SIGN 90 

^^^^ ^^^ 

SIGN 110 
SIGN 120 
SIGN 130 

oesCRIPTlON PF PARAMETERS s|cn [^ 

U - NUMBFP OF oeSERVATIONS IN SFTS A AriD S sign i^q 

A - INPUT VECTOR OF LENGTH N CONTAINING OAfA FROM THE FIRST SIGN 170 

SAMPLE, A SIGN 180 
a - INPUT VECTOR OF LENGTH N CONTAINING DATA FROM THE SECONOSIGN 190 

5'^'"**-f' B SIGN 200 

K - OUTPUT VARIABLE CONTAINING THE NUMBER OF PAIRS OF SIGN 210 

OBSERVATIONS FROM THE TWO SAMPLES WHOSE DIFFERENCES ARE SIGN 220 

NON-ZERO SIGN 230 
M - OUTPur VARIABLE CONTAINING THE NUMBER OF PLUS OR MINUS 

OIFFEPENCES, WHICHEVER IS FEWER. 
P - COMPUTED PROBABILITY OF AS FEW AS H NUHBER QF PAIRS 
■AVING THE SAME SIGN, ASSUMING THAT THE SAMPLES CAHE 



FROM THE SAME POPULATION. 
IE- 0, IF THERE IS NO ERROR. 

1, IF K IS ZERO. IN THIS CASE, 
H TO 0. 



IS SET TO 1.0 AND 



REMARKS 

IF K rS LESS THAN OR EQUAL TO 25, THE PROBABILITY WILL BE 
COMPUTED USING THE BINOMIAL DISTRIBUTION. IF K IS GREATER 

THAN 25» THE PROBABILITY WILL BE COMPUTED USING THE NORMAL 

APPROXIMATION TO THF BINOMIAL OlSTRIBUTION. 

P COMPUTED IS THE PROBABILITY FOR A ONE-TAILED TEST, THUS, 

FOR A TWO TARED TEST, DOUBLE THE VALUE FOR P, 

SUBROUTINES ANO FUNCTION SUBPRDGRAMS REQUIRED 
NOTH 

METHOD 

REFER TO DIXON ANO HASSEY, INTRODUCTION TO STATISTICAL 
ANALYSIS IHCGRAtf-HILL. 19571. 



SUBROUTINE SIGNT (N, A.a ,K,M, P, IE | 

c 

DIMENSION Al 1),P(1) 
DOUBLE PRECISION FN,F0 

: INITI ALIZATIQN 

IE=0 

K = 

HPLUS=0 

HMINS*0 

FIND (♦! OR |-» DIFFERENCE 

00 40 I«1)N 
0>AIII-BII) 
IFID) 20, 40, 30 

(-> DIFFERENCE 

20 KsK*l 

MMINS=MMIHS*1 
GO TO 40 

(♦I DIFFERENCE 

30 K«K*l 

MPLUS-HPLUS+1 

40 CONTINUE 
IFIKl 41,41,42 

41 iE«l 
P"1.0 
H«0 

GO TO 95 

42 F(C=K 

FIND THE NUMBER OF FEWER SIGNS 

IF(HPLUS-HMINS) 45, 45, 50 
45 M-MPLUS 

GO TO 55 
50 M-HMINS 

TEST WHETHER K IS GREATER THAN 25 

55 IFU-251 60, AO, 77 

K IS LESS THAN OR EQUAL TO 25 

60 P-l.O 

IFIMl 75, 75, 6S 
65 FN-=l.O 

FO-1.0 

DO TO 1= 1,M 

FI*I 

FN=fN*(FK-|FI-1.0»l 

FD=FO*FI 
70 P-P*FN/FO 

75 P=P/(2.0**<J 
GO TO 95 



SIGN 240 
S IGN 250 
SIGN 260 
SIGN 270 
SIGN 280 
SIGN 290 
SIGN 300 
SIGN 310 
SIGN 320 
SIGN 330 
SIGN 340 
SIGN 350 
SIGN 360 
SIGN 3T0 
SIGN 380 
SIGN 390 
SIGN 400 
SIGN 410 
SIGN 420 
SIGN 430 
SIGN 440 
SIGN 450 
SIGN 460 
SIGN 470 

SIGN 480 

SIGN 490 
SIGN 500 
SIGN 510 
SIGN 520 
SIGN S30 
SIGN 540 
SIGN 550 
SIGN 560 
SIGN STO 
SIGN 580 
SIGN 590 
SIGN 600 
SIGN 610 
SIGN 620 
SIGN 630 
SIGN 640 
SIGN 650 
SIGN 660 
SIGN 6T0 
SIGN 680 
SIGN 690 
SIGN TOO 
SIGN TIO 
SIGN 720 
SIGN 730 
SIGN 740 
SIGN 750 
SIGN 760 
SIGN 770 
SIGN 780 
SIGN 790 
SIGN 600 
SIGN 810 
SIGN 820 
SIGN 830 
SIGN 840 
SIGN 850 
SIGN 860 
SIGN 870 
SIGN 880 
SIGN 890 
SIGN 900 
SIGN 910 
SIGN 920 
SIGN 930 
SIGN 940 
SIGN 950 
SIGN 960 
SIGN 970 
SIGN 980 
SIGN 990 
SICNIOOO 
5IGNI010 
SIGN1020 
SIGN1030 
SIGN1040 
SIGN1050 
SICN1060 
SIGN1070 

SIGN 1080 
SIGN1090 
SIGNllOO 
SIGNlltO 



COMPUTE H£4N, ifHHQm OtVAUOHl 



K IS GREAIER THAN Z3, 

7 7 U=0,5*FK 

S-0.5«SQ«HFK) 

FM=H 

IF(FM-U) 80, 85, 85 
BO CON=o.5 

GO rO 90 
85 CON-O.O 
90 Z-(FM*CON-U»/S 



CCIM-'UIE P ASSCCIATEO WITH THE VALUE AS EXTREME AJ I 
CALL NOTR (;,P,D| 



SIGN1120 

mo I iimiii 



SICNl 140 
S1GN1150 
SIGNll&O 
SIGNllTO 
SIGN1180 
SIGN1190 
SIGN 1200 
SIGN1210 
SIGN1220 
StGN1230 
SICN1240 
SIGN1250 
SIGN1260 
SIGN1270 
SICN1280 
SIGN1290 
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Subroutine SRANK 

This subroutine measures the correlation 
between two variables by means of the Spearman 
rank correlation coefficient, given two vectors 
of n observations for the variables. 

The observations on each variable are ranked 
from 1 to n. Tied observations are assigned the 
average of the tied ranks. 

The sum of squares of rank differences is 
calculated: 



D = r (A. - B.) (1) 

i = l 



where A = first ranked vector 
1 

B = second ranked vector 
i 

n = number of ranks 



A correction factor for ties is obtained: 

3 

T =^ — over variable A (2) 

a 12 



3 

T =52 -— over variable B 

b "^ 12 

where t = number of observations tied for a given 
rank 



The Spearman rank correlation coefficient is then 
computed for the following two cases: 

(a) if Tj^ and 1^ are zero, 

6D 



r =!-■ „ 

S 3 



(3) 



n -n 



(b) if T^ and/or Tj^ are not zero. 



r =- 

s 



X + Y - D 



-J XY 



3_ 
where X = — — — - T 



a 



(4) 



(5) 



Y = 



3 
n -n 

12 



Tb 



(6) 



The statistic used to measure the significance of r is : 



*=-i! 



- 2 



The degrees of freedom are: 
d.f. = n - 2 



(7) 



(8) 



SJBROUriNE S««N« 

rtST CORrtELATION BtTWeEN TWO VARMSIES flV WANS OF SPCARMAN 
KANK CJRRELAriON COEFFICIENT 



DESCRHTION OF PARAMCTERS 

A - INPUT VECTOR OF N OBSERVATIONS FOR FIRST VARIABtE 

A - INPUT VECTOR OF N OSSERVATIOMS FOR SECOND VARIABLE 

A - OUTPUT VeCTOR FOR RANKED OAT*, LENGTH 1$ 2*N. SHAllEST 

OaSERVATION IS RANKED I. L ARM ST IS RANKED N. TIES 

ARE ASSIGNED AVERAGE Of TIED RANKS. 
N - NUN6ER OF OBSERVATIONS 

RS - iPEAHHAN RANK CORRELATION COEFFICIENT lOUTpUT) 
T - TEST OF SIGNIFICANCE OF RS (OUTPUT! 
NOF - NUHdER Of DEGREES OF FrEEOOH IOUTPUTI 
NR - CODE. FOR UNRANKED DATA IN A AND B, 1 FOR RANKED 

DATA IN A AND B (INPUT) 



SUBRDOTIMES AND FUNCTION SUSPROGAAHS REQUIRED 
RANK 
TIE 

HETHOi) 

DESCRIBED IN S. SIEGEL, • NONPARAHEIRIC STATISTICS FOR THE 
BEHAVIORAL SCIENCES'. HCGRAW-MILL, NEW yORK, 1956, 



SUBROUTINE SRANKl A, B,R,N,RS, T,NOF.NRi 
DIMENSION A((1.8(lltR(ll 

FNNN=N«N*N-N 

DtrfcRHINE MMETMER DATA (S RANKED 

IF(NR-1I 5, 10, 5 

RANK OAT* IN A AiyO B VECTORS AND ASSlCN TIED OBSERVATIONS 
AVERAGE QF TlEO RANKS 

S CALL RANK (A.R.NI 

CALL RANK |fl,R(N*ll,Nt 
GO TO 40 



30 



HOVE RANKED DATA TO R VECTOR 



10 00 20 1=1, N 
2C R(1I>A<11 

00 30 I>1,N 

J-I+N 

}0 R(j;=s(i) 



COMPUTE SUM OF SQUARES OF RANK DIFFERENCES 



40 D>0.0 

00 ^0 (=l.N 

J'l*H 
5C 0=D*(RI ll-Rl Jl '*(R( Il-R( J) I 

COMPUTE TIED SCORE INDEX 

KT=l 

CALL KE IR,N,KT,rSAI 

CALL Tit (R(N*l|,N, KT, TSai 



COMPUTE SPEARMAN RANK CORRELATIJN COEFnCIENT 



JFirSAt 60,55.60 
55 IFtTSdl 60,57,t.O 
57 kS=1.0-6.C*0/FNNN 

GO TO TO 
60 X«FNNN/^12.0-TSA 

\' = K + TSA-TS8 

RS=(x*y-o)/(2.o*(suRr(x*Yn) 



CUM.>UTE T AND DEGREES JF FREEDOM IF N IS 10 OR LARGER 



r«o.o 

70 IF(N-IOI 80,75,75 

75 T=RS#SQRl(FLOAT(N-^J/( l-0-«S*RSII 

ac N0F=H-2 

RETURN 

END 



SRAN 
SRAN 
SRAN 
SRAN 
SRAN 
SRAN 60 
SRAN 70 
SRAN 60 
SRAN 90 
SRAN 100 
SRAN 110 
SRAN 120 
SRAN 130 
SRAN 140 
SRAN 150 
SRAN 160 
SRAN 170 
SRAN L80 
SRAN L90 
SRAN 200 
SRAN 210 
SRAN 220 
SRAN 230 
SRAN 240 
SRAN 250 
SRAN 260 
SRAN 2 70 
SRAN 280 
SRAN 290 
SRAN 300 
SRAN 310 
SRAN 320 
SRAN 330 
SRAN 340 
SRAN 350 
SRAN 360 
SRAN 370 
SRAN 360 
SRAN 390 
SRAN 400 
SRAN 410 
SRAN 420 
SRAN 430 
SRAN 440 
SRAN 450 
SRAN 460 
SRAN 470 
SRAN 480 
SRAN 490 
SRAN 500 
SRAN 510 
SRAN 520 
SHAN 530 
SRAN 540 
SRAN S50 
S RAN 560 
SRAN 5 70 
SRAN 580 
SRAN 540 
SRAN 600 
SRAN 610 
SRAN 6 20 
SRAN 630 
SRAN 640 
SRAN 650 
SRAN 660 
SRAN 670 
SRAN 680 
SRAN 640 
SRAN 700 
SRAN 710 
SRAN 720 
SRAN 730 
SRAN 740 
SRAN 750 
SRAN 760 
SRAN 770 
SRAN 780 
SRAN 790 
SRAN BOO 
SRAN 810 
SRAN B20 
SRAN 630 
SRAN 840 
SRAN 850 
SRAN 660 
SRAN 8 70 
SRAN (180 

UhK 890 

SRAN 900 
SRAN 9t0 
SRAN 920 
SRAN 9 30 
SRAN 940 
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Subroutine TIE 



Subroutine TWOAV 



SUbRiiUIihE TIE > 

PURPOSE 

CALCULAFt COftRECriON F4Cro« OUt TO TIES 

USAGE 

CALL r lEiR.N, Kr, li 

DESCRIPTION OF PARAHETEfiS 

ft - INPUT vecroR Of ranks of LEf^orn n containing values 

1 TO N 
N - NUMBER JF RANKEO VALUES 
KT - IhPur CODE FOR CALCULATION OF CORRECTION FACTOR 

1 SOLVE EQUATION I 

2 SOLVE EgUATlON 2 
T - CORRECTION FACTOR (OUTPUT) 

EQUATION I T=SUN(CT**3-CTI/12 
EQUATION 2 T=SUM(C !• (CT-U /2 1 
WHERE CT IS THE NUMBER OF C6SERVATC0NS FlEO FOR A 
GIVEN RANK 

REMARKS 

HONE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

HETHOD 

VECTOR IS SEARCHED FOR SUCCESSIVELY LARGER RANKS. TIES A«E 
COUNTED ANQ CORRECTION FACTOR 1 OR 2 SUHMEO. 



SUBROUTINE TlE(R,N,Kr,rj 
DIMENSION R(l} 

INITIALIZATION 

T = 0.0 

y=o.o 

i X=l,0E3e 

INO = 

FINtJ Ntxr LARGtST RANK 

DO 30 I=l,N 

IF(«( I)-YI 30,30» 10 
10 IF(R111-XI 20,30,30 
20 X=R(I) 

IN0=IN0+1 
3C CONTINUE 

IF ALL RANKS HAVE BEEN TESTeO, RETURN 

IFdNOI flo.go.-iu 
cr=o.o 

COUNT IIES 

00 60 1=1. N 

1F(R( IJ-XI 60. SO, 60 
50 Cr=CTtl.O 
60 CONTINUE 

CALCULATc CORRECTION FACTOR 

IFICT) 70,5,70 
7C IFUT-U 75,60, 75 
T5 T-T*CT»(CT-J. 1/2.0 

GO rO 5 

ao T=T+(CT«ci*cr-cri/i2.o 

GO TU 5 

9C RETURN 
END 
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This subroutine determines the Friedman two-way 
analysis of variance statistic, given a matrix A with 
n rows (groups) and m columns (cases). Data in 
each group is ranked from 1 to m. Tied observations 
are assigned the average of the tied ranks. 
The sum of ranks is calculated: 

1=1 



ij 



Friedman's statistic is then computed: 



2 



12 



nm(ni + 1) 



E 



(R.) -3n(m + l) 



The degrees of freedom are: 
d.f. = m-1 



(2) 



(3) 



SU8«0UTINc TrfOAV 

PURPOSE 

TEST WHETHER A NUMflCR OF SAMPLES ARE FROM THE SAME 
^QPJLATIUN BT THE FRIEDMAN THU-WAY ANALYSIS OF VARIANCE 

uSaue 

call twoavi a.r.n, m, 



10 



HiXR.NDF.NRI 



DESCRIPTION OF PARAMETERS 

A - INPUT MATRIX, N BY H, OF ORIGINAL DATA 

R - OUTPUT MATRIX, H BY H. OF RANKED DATA 

N - NUMStR OF GROUPS 

H - NUMBER OF CASES IN EACH GROUP 

rf - WORK AREA OF LENGTH Z*H 

XR - FRIEDMAN STATISTIC (OUTPUTI 

NOF - NUMBER OF DECREES OF FREEOOP {OUTPUTI 

NR - CODE, f\ik UNRANKEO DATA IN A. 1 FOR RANKED DATA 

REMARKS 

NONE 

SUoROUTINES ANQ FUNCTION SUBPROGRAMS REQUIRED 
RANK 

HETHOO 

OtSCRiagO IN S. SieGEL. -NONPARAMETRic STATISTICS FOR THE 
dEHAVlORAL SCIENCES', MCGRAU-HlLL. NEH YORK, 1956. 



SUBRUUriNE THOAV I A,R, N,M, W, KR ,NOF,NR} 
DIMENSION A(ll,R<l),W(l» 



OETERMINE WHETHER OATA IS RANKED 
IFINR-II 10, 30, 10 



10 DO 20 1=1, N 
IJ=I-N 

IK=IJ 

00 15 J=l,M 

IJ>|J«N 
15 W( JI=A< IJI 

CALL RANK (W.M(HtlJ,M} 

DO 20 J=1,H 

IK=IK*« 

IW=M+j 
20 R( lKJ = tJ( IWl 

GO TO J5 
30 NM=N*M 

DO il I=1,NM 
iit «( I »=A( II 

CALCULATE SUM Or SQUARES OF SUMS OF RANKS 

35 RTSQ^O.C 
IR = 
DO 50 J-1,M 

«r=o.o 

00 40 l=t,N 

I«=1R+1 
-,0 «T = Rr+R( IK) 
50 RTiU=RTSJ*-RT*Rr 

CALCULATE FRIEDMAN TEST VALUE, X« 
FNM=N*(M*1) 

FH = M 

xR=(i.^.C/(FM*FNHM«RTSQ-3.0*FNIi 
FINJ UEGRfcES UF FREEDOM 

NOF=M-I 
KErURN 

LNJ 
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m m 

THOA 680 
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THOA 710 
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TWOa 780 
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THOA 830 
TWOA 840 
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Subroutine UTEST 

This subroutine tests whether two independent 
groups are from the same population by means of 
the Mann-Whitney U-test, given an input vector A 
with the smaller group preceding the larger group. 
The scores for both groups are ranked together in 
ascending order. Tied observations are assigned 
the average of the tied ranks. 

The sum of ranks in the larger group, R2, is 
calculated. The U statistic is then computed as 
follows: 



U- = n^n^^ 



^2 ^\ ' 1) 



R, 



where n. 



2 "2 

number of cases in smaller group 



(1) 



n = number of cases in larger group 
U = n^ n^ - U- 
if U' < U, set U = U' 
A correction factor for ties is obtained: 
.3 



La 12 



(2) 



(3) 



where t = number of observations tied for a given 
rank 

The standard deviation is computed for two cases: 
(a) if T = 



;n^ n^(n^ + n;Tl) 
= \ 12 



(4) 
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SLEPCLllft CTESIIA.P.Kl.h2.l.n 
LIPEhSICf AUI.MIlt 

PAIvK SCOPES FRCP ECTf CPCtF TCCETFER l». ASCEhOlhC CPOER* AKD 
ASSIEh TIEC CiiSEPVAT ICNS AVERAGE Cf TIED RANKS 

h-kl4f2 

C«LL PAMi lAtPtNi 
Z-C.C 

iLf fl/MtS Ih LAHCEK CKCLP 

Pi-C.C 

hf-M*l 

CC IC I>hP.k 

ii2>P2*RII t 
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F^<*l>i 
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L»LP 
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liT-1 

CALL TIEIF.h,Kt,TS> 

IFITSI ;c.£C.sc 
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lER-l 

CC K EC 
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(b) if T > 



'''l '^2 \ /n^ - N 



s = 



N(N-l)/ y 12 
where N = total number of cases (n + n^) 
The significance of U can be measured by 



(5) 



(6) 



where X = mean = 



"l'^2 



Z is set to zero if x).^ is less than 20. 
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Subroutine WTEST 

This subroutine computes the Kendall coefficient of 
concordance, given a matrix A of n rows (variables) 
and m columns (cases) . The observations on all 
variables are ranked from 1 to m. Tied observa- 
tions are assigned the average of the tied ranks. 
A correction factor for ties is obtained: 






i = l 



12 



(1) 



where t = number of observations tied for a given 
rank 

Sums of ranks are calculated: 



] 



2 \ 



i = l ^J 
where j = 1, 2, . . . , m 
From these, the mean of sums of ranks is found: 

m 



(2) 



R-^^ 



^. ^J 



m 



(3) 



The sum of squares of deviations is derived: 



m 



■c^ - 2 

= E (Y. -R) 



(4) 



The Kendall coefficient of concordance is then 
computed: 

W = — :r-^ (5) 



12 3 
— n (m - m) - n T 



For m larger than 7, chi-square is: 



sj6kuoTi\t «rtsr 



TLiT JtG^tE Jf ASSutlATIUM A«J ^G A NUMbER Uf VAftlABLfci , 



CALL VJiiTtAtH.,\,n,iriA,ti,CirtiOF,NH\ 

3<.tili>rt^A jr PAKiMtfc^i 
■» - IN-'jr lATRlA, .n tjy A, Ur CKitilNAL OAlA 
•< - OUr.'jr HAIRIX. N dY H, Jr ^aNIC£D OA TA . SMALLE ST ^ALUE 

IS r*AN<tLl I, LttR^^esr Is M.ANK^C N. flcS AKE ASSlGNtO 

AV = ^«Gt UF TitJ i*ANKS 
N - fiJHdtK Ur tfA^IA6LcS 

1 - NjHacK Jf cAicS 

rtA - «JK< A.*tA VtCrC-^ Gf Lt^jTM 2*« 
rt - KcNJlLL CJCrFlLI^»4l OF CohlCUrtUANC £ ( L)U I PuT » 

^i - CHi-sojAK= jourpjn 

><*< - LoJet J rJk :jll-<AN<cJ JAfA IN A. 1 F ^fl SAMK^O OAFA 

It* A 1 i;^Puri 
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X = n (m - 1) W 



(6) 



The degrees of freedom are: 
d.f. = n-1 



(7) 
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Generation of Random Variates; Distribution 
Functions 

Generators 
Subroutine RANDU 
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oCO 
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Subroutine GAUSS 

This subroutine computes a normally distributed 
random number with a given mean and standard 
deviation. 

An approximation to normally distributed random 
numbers Y can be found from a sequence of uniform 
random numbers* using the formula: 

^ K 



Y = 



i = l 



^- -"5" 
1 ^ 



(1) 



Vk/12 

where X- is a uniformly distributed random number, 
% < Xj < 1 
K is the number of values Xj to be used 

Y approaches a true normal distribution asymptoti- 
cally as K approaches infinity. For this subroutine, 
K was chosen as 12 to reduce execution time. 
Equation (1) thus becomes: 

12 
Y = X; Xi - 6. 
i= 1 
The adjustment for the required mean and standard 
deviation is then: 

Y' = Y * S + AM (2) 

where Y' is the required normally distributed ran- 
dom number 
S is the required standard deviation 

AM is the required mean 



POrPCSc 

:L.MPUT£i >i .\iuRmALLY Ulil.^loUI-J RANDOM njUMo£R 
y.tAN *iKiJ STA.^OARO OEVIATEwN 



, S , At-l , V ) 

tSC^tlPriLN bl" PARAf^CTLRS 

lA -IX MUST CUNTAIN Al^ JuJ IMcJdft NUMBEH .^ I fn NiNt GR 
LtSS DIGITS UN THE FIRST e.yTRY TU GAUSS. THLi^.tAfTER 
IT WILL CONTAIN A JiJI^URMLY uISTRISUTlJ IMc36R RANOOM 
NUMdLR GcNfcRAIEO dV The sJdRJUTINE fOR USE UW TMt NEXT 
EiiIRY li. THE SUSR-JJTIMc. 

S -TMt OcilRLiy STANJA-IlJ OtVIAfiaN Lf THE (^JRhAL 
OISTRIdu'r IJw. 

AM -Trie GtSIREO MlAN J;- THE NORMAL EI5TRI6UTI0N 

Y -THE VALUE Uf TnE CJiPuTEj NJRMAL RANOUM VARIAbLL 

EMARrtS 

IHls iuBRJJIlNE JSeS RAmJu WHICH IS MACHINE SPECIFIC 

UORUUTIN-S ANO FUNCTION SUBPROGRAMS RtJUlRcO 



lJAUS 


IJ 


.;aus 


2C 


GAUS 


3- 


GAUS 


AG 


OAUS 


5 -J 


GAUS 


6C 


GAui 


li 


GAUS 


d'l 


.;AnS 


■rc 


GAUb 


IGC 


GAU5. 


tic 


..AUS 


icO 


uAUS 


i3C 


GAUS 


lAl 


GAUS 


1 •)■:. 


.^AUi 


160 


UAUS 


1 '■- 


gAus 


UJ 


GauS 


190 


jAUS 


^cc 


GAUS 


iJIO 


GAUS 


i:*;-- 


GAd5 


;ic 


GAUS 


.^aO 


:.AGS 


2 50 



LrnuD 

JSci li U^-JlfUKM RANUQH NJMdErti TJ COHPJTE No^ MAL AANlJGM 
.tJM-Jtil^S LJY CENTRAL LIHIT THEUKi^M. Tmc RcSULT li THt-^i 
aOJUSTcJ TO MATCH THt GiVc^ rtcA.< A»ib STANDARo JcYlATIUN. 
Th^; Ui^lFJRH RANUQM .^U.^d£R i CUflPUTfeO wITHIN THc SJdRGUTINE 
AXi£ Fl-J'^jw 1Y THc PG^lH kcilUUc .'V TrtOD . 



A-C.O 

OJ 50 1=1,12 

CALL KANJUl U, lY.Yl 

Ix=IY 

A = A + v 

VMA-o.O]*i*AH 

RETURN 



* R. W. Hamming, Numerical Methods for 
Scientists and Engineers , McGraw-Hill, N. Y. , 
1962, pages 34 and 389. 
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GAUS 


*3G 


Gflbi 


i'^0 


GAUS 


3^ J 


GAUS 


ibO 


.GAUS 


W<: 


GAUS 


idC 


^AUi 
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GAUS 


iCC 


GAUS 
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GAUS 


A^O 
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Distribution Functions 
Subroutine NDTR 



Subroutine BDTE 



This subroutine computes y = P(x) = Prob (X £ x), 
where X is a random variable distributed normally 
with mean zero and variance one. 

^ "" 2 

P (x) = / exp (-U /2)du 

The following approximation' is used: 



P (x) = 1 - f(x) Z) a.wS X s 



where: 



i = l 

w = 1/(1 + px) 

f(x) = exp (-x^/2) /V27r 

P = 0, 2316419 

a = 0.3193815 

a =-0.3565638 

a„ = 1.781478 



This subroutine computes P=Ix (m,n)=Prob (X s x) 
where X is a random variable following the beta 
distribution with degrees of freedom (continuous 
parameters) m and n. For computation to take 
place, O^xs^l. 0.5^ms lO"''*, and 0. 5 ^ n £ 10+5, 
D, the ordinate of the beta density at x, is also pre- 
sented In the output. 

For ^ x ^ 1, L(m,n) may be written as: 

X 

I (m,n) = r f (m.n.y) dy 

where: 



f (m,n,y) 
B (m,n) 



B(m, n) 



m-l„ .n-1 

y (1-y) 



r(m) IXn) „ _ -, , , 

^y^;D-f(m.n,x) 



(1) 



a^ =-1.821256 
4 

a, = 1.330274 
5 



l^ (m, n) can be reduced to a binomial partial sum 
which can be evaluated by means of a continued frac- 
tion expansion. 



The maximum error is 7(10 ); f(x) is also presented 
in output. 



' C. Hastings, Approximations for Digital Com- 
puters. Princeton University Press, Princeton, 
N.J. , 1955. 

M. Abramowltz and L A. Stegun, Handbook of 
Mathematical Functions. Dover Publications, 



Inc. , N. Y. , equation 26. 2. 17. 



CJHPUIfS Y = P(XI - .'H,^Ar,]LIiy Tlir Ih.E RJ1\J0M VAftlAHLt 
CISTRltJUTEC: Nat.rt«LLY(C, n , IS LEiS T^AN Cft ECUflL TC x. 

ftxi, THE C'JiNATe :;r rnt NyKMfti opnsity at x, is also 

rCKPUTEC. 



uSAr.E 




CALL NOTR(X,P,CI 




Llf--.SCKlPTinN Cf CARihcTE^? 




X--1NPHI SCALftB FOR i.*H!:h PIKl 


1=; 


i'-CUTPtT PftroieiLITv, 




1--0UTPUT nf\SITV. 




ftP'lARKS 




MAXIMUM FSR^P, IS C.OOOCCO?. 




SuF.RHLf INES ftMD SU5P'<'''G;! A*1 S RF31J1R 


eo 


MGK'E 





f THro 
Pd-^eo n\' a°p=oxi«fiT iD'-.s lu r. na^ri'vcs, 4PP(^ox/«dTj(;,v^ fo^ 

DICITAL CUKPUre-iS, P'J.VC£rOiV JNIV. PScSS, PRINCETCJ, N.J,, 
!'^'^5. StE t;.UAnC\ 2o.2.n, r^ANLjerTK TF ".ATriE'-ilTl C AL 
f^UNCTIONS. AtSAr-QWII/ AND 5TEGUN, OCVEF PUBLICATIONS. I M^ . , 
hjfk YORK. 



SuHkruTIf-'t NOTP.IX 



PtO) 



AX=APS(X) 

r= l.G/l ].0t.2;i6',19*AXI 
D^C.?9F9'.2 3*E >CP( -X*X/2.0) 
P = 1.0 - 0*rt( ( ( ( I .33027AnT 
1 G.35bSft33).T * 0.3193eit>J 
(FfXU.2.2 

1 p^i.r-p 

2 ^fTuf^ 
ENO 



1.6212^6I'^I 



1. 78U78)eT 



NDTR 


10 


, .fJOTR 


zo 


NOTR 


30 


NOTR 


<.o 


NOTR 


*"} 


NOT" 


60 


I.NOrR 


70 


NHTR 


rir> 


NDT^^ 


90 


NOIR 


101 


^^0I'' 


no 


NO'-'; 


121 


NJfR 


1 30 


NDIR 


HO 


NDTR 


1S3 


NOI'i 


163 


\orfi 


17'J 


NDTC 


190 


NDTK 


I'?! 


^[)rK 


?00 


NijTr 


213 


\OTP 


??,! 


\OTP 


?10 


MOTC 


.?'.J 


NDTk 


?sa 


NOTR 


^60 


vori: 


;7CI 


NOTfl 


?flO 


NOTP 


?93 


MDIP 


)00 


NDTR 


310 


KDTfi 


irt) 


. NOTP 


33J 


Nioro 


3<;0 


NDTK 


^50 


NOTP 


JSi] 


NOTfl 


^70 


NOTrt 


360 


NOTR 


3'30 


NOTR 


40) 


NDTR 


Al ,) 


NOT« 


4?J 


NDTP 


430 


NDTrt ■ 


'i'.'i 


NDTe 


450 



Let N = m+n-1 and r = m-1. Then : 



I^(m,n) = I^(r+l. N-r) 



I (r+1. N-r) = E (^x^l-x)^-^ 
s=r+l 



(2) 



N r+1 ,N-r-l_ 

(j.+ j)'^ (1-x) s 



where ^ s ^ N 



S is a continued fraction, with 80 terms being 
sufficient for the desired accuracy„ 



S = 



1 \ \ ^2 ^2 



"so ^80 



1- 1+ 1- 1+ 1- 1+ 1 

(N-j-r) (rfi) X 

i (r + 2i - 1) (r + 2i) 1 - x 
iJN+i) X 



d. = 



i (r+2i+l) (r+2i) 1-x 



(3) 

(4) 
(5) 
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TTie above continued fraction expansion of I^. (m, n) 
holds for positive m and n (integers or nonintegers), 
N 2 (m+ n £ 1), and r 2 (m a 1). In order to 
fulfill these last two conditions, if m < V, the fol- 
lowing transformation must be made before com- 
putation of Ix (m,n) can take place: 



I^ (m,n) 



^ r(m+n) 
r(m+l)r(n) 



m,. 
X (1 



X) 



+ 1 (m- 

X 



l,n) 
(6) 



The quantities on the right-hand side of equation (6) 
are those which are computed. 

It is known that Ix(m,n) = Ii-x(n. m). Thus, 
either of the two parameter sets indicated by this 
equation may be used in computing the beta integral. 
The parameter set selection is made by applying the 
following empirically derived rule: 

Let p and q be the degrees of freedom cor- 
responding to z, where z = x if x s: . 5 or (1-x) 
otherwiseo If the quantity C (p-1) - (p+q-1) 
26/5 + 2 ] is positive, use the parameter set 
corresponding to z. Otherwise, use the 
parameter set corresponding to (1-z). 



If m or n is greater than 1000, the chi-square ap- 
proximation is used: 

z, = 2m (l-x)/x is distributed as y ,with 2n 
degrees of freedom and P = 1 - P^^ ^^i) ^'^^ ^^ 
1000. 

Z2 = 2nx/ (1-x) is distributed as x^ with 2 m 
degrees of freedom and P = P^2 (^2) ^°^ ^ ^ 1000. 
If both m and n are greater than 1000, the approx- 
imation corresponding to z^ is used. 

The values of P very near zero or one may be 
somewhat imprecise. To eliminate possible mis- 
interpretation of results, if ^ P ^ 10"^ or 
s 1-P < 10"^, P is set to or 1 respectively. 

For reference see: 

(1) R. E. Bargmann and S. P. Ghosh, Statistical 
Description Programs For a Computer 
Language. IBM Research Report RC-1094, 
1963. 

(2) M. Abramowitz and I. A. Stegun, Handbook of 
Mathematical Functions. U. S. Department of 
Commerce, National Bureau of Standards Ap- 
plied Mathematics Series, 1966. 



If i X ^ 10"^ or ^ 1-x ^ 10~8, the approximation 
is made that x = or 1 respectively. P and D are 
then set according to the following table: 



s x^ 10"^ 
P = 
If: then: 

A < 1 D = 10'^ 

A = l D = l/B(m,n) 

A> 1 D=0 



^ 1-x 5 10"^ 

P = l 
If: then: 

B<1 D = 10''^ 

B = l D = l/B(m,n) 

B> 1 D = 



If either or both m and n are within 10~° of 1, the 
beta integral is solved explicitly for m = 1, n = 1, 
or m = n = 1: 



If: 



then: 



A = l, B= 1 
A = 1, B?^l 
A ?^1, B = l 



P = x 

P = 1 - (1 - x)n 



SUBROUTINE BOTR 

PURPOSE 

CChPUTES P(Xl = PROaABlLITY THAT TM£ RANDOM VARIABLE U, 
OISTRIBUTED ACCDRDINC TO THE BETA OlSTBleUTION WITH 
PARAMETERS A ANC B, IS LESS THAN OR EQUAL TO X. flA,8.Xt, 
THE ORDINATE OF THE BETA oeNSITV AT X. IS ALSO COMPUTtU* 



USAGE 

CALL BDTR{X,At 



,PtO. lERI 



DESCRIPJION OF PARAMETERS 

X - INPUT SCALAR FOR WHICH P(X1 IS COMPUTED. 

A - BETA OISTPIHUTION PARAMETER KONTINUOUSl. 

fl - BETA OISTRIflUTION PARAMETER (CONT INUOUS I . 

P - OUTPUT PROBABILITY. 

D - OUTPUT DENSITY. 

lER - RESULTANT ERROR CODE WHERE 



AND AN ERROR 



ERROR 
-I.+I CDTF HAS BEEN CALLED 

OCCURRED. "iEE CDTR, 
_2 AN INPUT PARAMETER IS INVALID. X IS LESS 

THAN 0-0 0»- Gf-EATEP THfiN l.O, 01 EITHER A OR 

a IS LESS THAN 0.5 OP GREATER THAN 10*»(*5). 

P AND O ARE SET TO -l.E7i. 
t2 INVALID OUTPUT. P IS LESS THAN UPO OF 

GREATER THAN CWE. P IS SET TO l.e75- 



SUBROUTINES AND FUNCTION SUBPROGRAMS fEOUIPEO 

DLGAH 

NDTR 

CO TI- 
ME THOO 

PEFER TO a.E. BARGMANN AND S.P. GHGSh, STATISTICA 

DISTRiauTION PR3GRAMS FOR A COMPUTER LANGUAGE. 

IBM RESEARCH REPORT RC-lOA, 1S63. 



P = x 



m 



SUSPUUTINE fiOTB(X,A,BtP.D, lei 
DOUBLE PRECISION KX.DLXX.OLI 
IXI ,SS,CC.RR.0L6ETa 

TEST FOR VALID INPUT DATA 

/FM-(,5-l.f-5ii 640,10,10 

10 IF(B-( .5-I.E-5I I bAO.^O.JO 

20 1F(A-I.E*5I 30,30,6'.U 

30 IF(tl-l.E*i>l 40,'»0,6<.0 

40 IFIXl 6<.0,50,50 

50 IF(1.-XI 6*0,60,60 



»AA,B6,r,l,G2.G3.G<.,00,PP.XD,FF,fN, 



6DTR 


10 


flOTF 


20 


eoTR 


30 


BOTR 


t.0 


BDTB 


•iO 


80TR 


60 


BDTR 


TO 


eOTF 


BO 


eOTR 


90 


BDTR 


100 


60TP 


110 


BDTR 


120 


BDTR 


130 


6DTP 


1<.0 


BOTR 


150 


BOTR 


160 


BOTR 


ITC 


BDTR 


180 


BDTR 


190 


^DTP 


200 


BOTR 


210 


BDTP 


2?0 


BDTt 


;'30 


BOTR 


2*0 


BOTR 


250 


BOTP 


260 


BDTR 


270 


BDTR 


?fl0 


BOTR 


2S0 


BOTR 


300 


BOTR 


310 


BOTR 


320 


BOTR 


330 


BOTR 


3A0 


BOTfi 


3 SO 


BOTR 


360 


BOTH 


3 70 


BOTH 


380 


30TR 


390 


BDTR 


600 


BOTR 


410 


BOTfi 


4?0 


BDTR 


430 


3DTR 


l.i.0 


BOTR 


450 


BDTP 


460 


80TR 


470 


BDTR 


4R0 


8DTF 


490 


BOTR 


500 


BOTR 


510 


BOTP 


b20 


flOTR 


530 


BDTR 


540 


BDTF 


550 


eoTR 


560 


BOTR 


570 


8DTC 


580 


BOTR 


590 
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COMPUTfc LOG<eET&(A,BM 

66 = 08I.E(e} 

CALL OLGAH<AAtCI. lOK.} 

CALL 0LGAH(BB«G2.I0K) 

CALL 0LGAn(AA+BB.G3. lOKI 

0LPETA.G1»G2-G3 

TtST FOR X NEAR 0.0 OR I.O 

iF{x-i,E-e) flo«ao,7fl 

70 [f <( l.-XI-I.E-Sl 130,130,140 
80 P>0.0 

IfU-l.l 90tl00iL20 
90 D=I.E*T5 
GO TO 660 
100 00— OLMT* 

1F< 00*1.66002 I 120. 120,110 
llO 00=0€l(PIOOI 
O'SNGLIOO) 
CC TC 660 
120 0*0.0 

CO TO 660 
130 P-1.0 

IF<B-1.I 90.100.120 

SET PftOGRAH PARAHtTEaS 

140 XX-OBLE(XI 

OLXX'OLOGIRX) 
0L1K>0L0GI 1.00-KX> 
XQ-XX/) l.OO-XXl 
10^0 

COWPUTt OHOINATE 

OD=(fl*-l.O0l»DLXX*(e8-l.O0l*DLlX-DLaETA 

I FIDO- 1.680021 150,150,160 
150 IF<D04l. 680021 170.170,160 
160 D-I.E75 

RO TO 190 
170 0-0.0 

GO TO 190 
180 DD=OEXP(DD) 

D=SNGI(00) 



A OK B OR BOTH WITHIN l.E- 



DF 1.0 



190 lF<ABS(A-l.I-i.E-6I 200,200.210 
200 IFlABSO-l.l-l.E-a) 220,220,230 
210 If (*eS(6-l.l-l.E-81 260,260,290 
220 P=X 

GO TP 660 
230 PP=BB«DLIK 

IF (PP+ 1.68002) 240,240,250 
240 P=1.0 

GO TO 660 
250 PP=OEXP(PP» 

PP=I,DO-PP 

P=SNGL(PPJ 

GO TO 600 
260 PP»=AA*DLXX 

IF{PP*1. 680021 270,270,280 
270 P-0.0 

GO TO 660 
280 PP=D£XP(PPI 

P-SNGUPPI 

GO TO 600 

TEST FOR A Oft e GREATER THAN 1000.0 

290 |F(A-1000.1 300,300.310 
300 IFIB-IOOO.) 330,330,320 
310 XX=2.D0«AA/X0 

XS=SNGL(XXI 

AA=2. 00*66 

DF-^SNGLIAAI 

CALL CDTR(XS,DF.P.DUMf4Y,ieR» 

P«1.0-P 

GO TO 670 
320 RX-2.00*e&*X0 

XS=SNGLIXXI 

AA-2.D0*AA 

OF-SNGLIAAI 

CALL CDT«(XS,Of.P.OUMMY,lERl 

GO TO 670 

SELECT PARAMETERS FOR CONTINUED FRACTION COMPUTATION 

330 lftX-.5l 340,340,380 
340 IFIAA-l.DO) 350(350*360 



eOTR 600 
BOTP 610 
BDTR 620 
BOTR 630 
SDTR 640 
eOTR 650 
BOTR 660 
BOTR 670 
BDTR 660 
BDTft 690 
BOTR 700 
BOTR 710 
BDTR 720 
BDTR 7iO 
BDTR 740 
BOTR 750 
nOTR 760 
BOTR 7T0 
BOTR TbO 
BOTR 790 
BDTR BOO 
BDTR 810 
BOTR 820 
SOTR 8 30 
BOTR 840 
BOTR 8S0 
BOTR 860 
BOTR 870 
BOTR 880 
BOTR 890 
BOTR 900 
BDTR 910 
BOTR 920 
BOTH 930 
BDTR 940 
eOTR 950 
BOTP 960 
BOTR 970 
BOTR 980 
BOTi; 990 
6DTR1O0O 
BDTR 1010 
BDTR 1020 
8DTR1030 
BDTR 1040 

eoTFioso 

60TR1060 
fl0rRlO70 
•^OTFIOBO 
BDTR1090 
BOTRllOO 
eOTBlliO 
BDTR1120 
BOTR 11 30 
BDTfill40 
B0TR1150 
B0TR1160 
B0TP1170 
BDTRUaO 
BDTR 1190 
BDTP1200 
60TR1210 
BOTH 1220 
BDTR 1230 
BOTR 1240 
6DTR1250 
60TR1260 
B0TR1270 
BDTR1280 
80TR1290 
BOTR 1300 
BDTR1310 
6DTRIJ20 
B0TR1330 
BDTm340 
BOTftl390 
BOTR 1360 
BOTR1370 
S0TR1380 
BOTR 1390 
BOTR 1400 
B0TRL410 
BOTR 1420 
eOTRl430 
60rpi440 
eOTR1450 
BDTP1460 
B0TR1470 
BDTR 1480 
BOTR 1490 
B0TR1500 
BDTR 15 10 



350 RR"AA*1.00 

GO TO 370 
360 RR>AA 
370 00-0LXX/5.D0 

DO-OEXPCDDI 

00=<RR-1.00)-(RR*B6-1.00)*XK*00 4^2.00 

IFIODl 420<420t430 
380 IFIBB-l.DOl 390.390,400 
390 RR'BB^l.OO 

GO TO 410 
400 RR*BB 
410 DO=OL1X/5.DO 

0O-D£XPI00} 

00'IRR-l.D0t-(*A*RR-1.0ai*( 1.D0-XX1*D0 «^2-D0 

1F(00» 430,430,420 
420 ID-1 

FF=DLU 

0L1X*0LXX 

OLXX=FF 

X0»l.00/X0 

FF=AA 

AA'Se 



L TEST FOR A LESS THAN 1.0 

C 

430 FF=O.DO 

IFIAA'l.OOl 440,440,470 
440 CALL 0LGAH(AA»l.D0tG4,I0K) 
0D-AA*OLXX*BB«0L lX4'G3-G2-G4 
IF(D0*1. 66002) 460,460,450 
450 Ff-FF»DEXP<DO) 
460 AA=AA*1.D0 

C CnwPUTE P USING CONTlNUtO FRACTION EXPANSION 

470 FN=AA*e8-l.D0 
RR=AA-1.D0 
IU90 

XI=OFLOATIU» 

SS=< (B6-XI 1«(RR*XI ))/( l«R»2.D0*XI-l.D0)*(RR*2.00*XI ) ( 
SS=SS*XO 

00 480 1*^1,79 

1 I =80- I 
XI=OFLOAT(II) 

00=1X1*1 FN*XI I )/( tRR»2.00*XI» 1.001 •1RR»2.00*XI) » 

DO=l)D*XO 

CC=( (BB-Xl l*(RR*Xni/C IRR*2.0a*XI- 1.001 •(RR*2.D0«Xl) » 

CC=CC«XO 

SS=CC/I 1.004^00/1 1. DO-SSI ) 
4S0 CONTINUE 

SS=l-DO/( l.OO-SSt 

IFISS) 650,650,490 
490 CALL DLGAM(AA«BBtGltlO(() 

CALL OLCAn<AA*1.00.G4.IOKI 

CC-^G1-G2-G4*AA*OLHX«I8B-I.OOI*OL1X 

PP>CC*010G(SSI 

|F|PP*1.68002I 500,500,510 
500 PP-FF 

GO TO 520 
510 PP»DEXP<PP)»FF 
520 IFMO) 540,540,530 
530 PP-l.DO-PP 
540 P-SNGL(PPI 

SET ERROR INDICATOR 

IF(P| 550,570,570 
550 IF(AB$IP)-l.E-7) 560*560,650 
560 P'0.0 

GO TO 660 
570 IFIl.-Pt 580.600.600 
560 IFIA6SI1.-PI--1.E-7I 590,590.650 
590 P'1.0 

GO TO 660 
600 IF(P-1.E-6I 610,610.620 
610 P>0.0 

GO TO 660 
620 IF(t 1.0-P)-l.E--8} 630,630*660 
630 P=1.0 

CO TO 660 
640 l£R=-2 

D=-l.€75 

P=-1.E75 

GO TO 670 
650 lEP=+2 

P« l,E75 

GO TO 670 
660 IEP»0 
670 RETURN 

END 



BDTB1520 
BDTft 1530 
SOTR 1540 
BDTP1550 
B0TR1560 
60TR1570 
BDTRlSeO 
aOTR1590 
BDTR1600 
BDTP1610 
BDTR1620 
B0TR1630 
BOTP 1640 
BDTR1650 
BDTR1660 
B0TR1670 
6DTR1680 
BOTR 1690 
B0TR1700 
BOTRITIO 
BDTR1720 
BDTR1730 
BDTR1T40 
B0TR1750 
80TR1760 
BDTR17T0 
BDTR 1780 
aOTR1790 
aOTRUOO 
60TR1810 
aDTRl820 
60TR18 3D 
e0TRLB40 
60TR1850 
BOTR 1660 
eOTRlSTO 
BDTft 1880 
BOTR 1890 
BOTP 1900 

eorRi9io 

flDTR1920 

80TH930 

BDTR1940 

BOTR 1950 

BDTP1960 

80TRi970 

B0IR1980 

B0IP1990 

80TR2000 

B0TR2010 

RDTi;2020 

6DTP2030 

60TP2040 

B0Tfi2050 

BDTR2060 

BOTR2070 

S0TF20e0 

80TR2090 

eDTR2l00 

80TF2110 

60TR2120, 

BOTR2L30 

BDTF2140 

B0Tfl2150 

80TR2160 

BDTfi2170 

B0TR2180 

BDTR2190 

BOTP2200 

BDTR2210 

BDTR2220 

80TP2230 

aOT«2240 

6DTR22S0 

B0TR2260 

6DTRZ270 

B0TR2280 

flOTRZ290 

eDTR2300 

fiOTR2310 

BOTR23ZD 

BDTR2330 

60TR2340 

eOTR2350 

BOTR 2360 

B0Tfl2370 

B0TR2380 

BDTR 2 390 

60TR2*00 

eDTfl24tO 

B0TR2420 

B0TR2430 
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Subroutine CDTR 

This subroutine computes P = P (x) = Prob: (X ^ x), 
where X is a random variable following the X2 dis- 
tribution with continuous parameter m. The value 
of X must be greater than or equal to zero and 0. 5 
^ m < 2 (10^) for computation to take place. D, the 
ordinate of the X 2 density at x, is also presented in 
the output. 

For X 2 0, P(x) may be written as: 

P(x) = / f (m,y)dy (1) 



where f(m,y) = y(-2)/2 e "^^/V (2-/^ r(f )) 



If e > 0, Tl can be expanded in the following mf inite 
series: 

z^ / z _gl, z^ Jl_ \ 
"^^ ""r(i+e)\^i+e" 2+e 2:{3+e) 3.'(4+e)**"j 

(2) 



where Z = — 



8. 



This series is used in the range 10"" < x ^ 10, and 
not more than 30 terms are necessary to ensure 
convergence within error bounds of 10" • 

For X > 10, 1-Tl is evaluated by the Euler- 
McLaurin formula up to third-derivative terms (see 
reference (2), equation 23.1.30). One finds: 



and D = f(m,x) 

To evaluate the integral, 9 = Y ~ % "^ ^^ ^^^^* 
defined where C ^1 denotes the largesfinteger 
less than or equal to ^. 6 is thus the fractional 
part of ^. 

Substituting this expression into the integral and 
performing the proper reductions, the following 
results are obtained. 



N 



1 - Tl = / h (u) du 




(3) 



where h (u) 



r(i+e) 

N N-1 



1__ 2u -(1 + 6)^,-1 ^-Nx/2u 
+ 6) W 



u e 



and / h(u)du = E h(u) + f ^W " ^ ^'(N) 



u=o 



If: 






then: 


< m< 2 








P (x) = Tl + T2 


2 ^ m<4 








P (x) = Tl 


m2 4 








P (x) = Tl - 2T3 


where: 










X 

Tl = / 



9 • 
y e 

1+9 
2 


-y/2 
r(i 


dy 
+ 6) 





T2 = f (2+2 9,x) 

T3 = E f (2i+2e ,x) 
i = 2 

T2 and T3 may be evaluated directly using logs and 
antilogs. 



If e = (W is an integer), Tl is easily evaluated 



as: 



+ — h'" (N) (Note: h' = h'" 
720 ^ ' ^- 



= at 0) 

In order to achieve accuracy consistent with that 
obtained by the method of equation (2), N = 26 is 
used in equation (3). 

If ^ X ^ 10"^, the approximation x = is made. 
P is set to 0; and D is set to lo'^, 0. 5, or 0, 
corresponding to m less than 2, equal to 2, or 
greater than 2 respectively. 

If m > 1000, Wilson and Hilferty's approximation 
is used. (X ^/m)-*-/^ is approximately normally 
distributed with mean 1 - 2/9m and variance 2/9m 
(see reference (2), equation 26.4. 14). K ms 1000 
and x > 2000, or m > 1000 and x >106, P is set to 1. 

Since Tl may have an error of about 10"", VflluSS 
of P(x) very near zero or one may be somewhat im- 
precise. To eliminate possible misinterpretation of 
results, if s P(x) s 10"^ or s 1-P(x) s 10"^, 
P(x) is set to or 1 respectively. 



Tl = 1 - e 



-x/2 
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The X 2 distribution is a member of the gamma 
family of probability distributions. The general 
form, for distributions of this class is: 

X 

P (x) = / G(n,A, i/j; u) du 


where G(n,a, ^ ; u) = (u-a)""! e-("-a)/i/)/(it)^ T (n) ) 

This subroutine may, therefore, also be used to 
compute the probability integral from zero to x and 
the corresponding ordinate at x for any member of 
this gamma family by setting: 

X = 2(u-a) / il) and m = 2n 

Then P(x) will be the desired probability and 
2f(m,x)/^ will be the desired ordinate. 

For reference see: 

(1) K. E, Bargmann and S* P. Ghosh, Statistical 
Distribution Programs For a Computer Language. 
IBM Research Report RC-1094, 1963 

(2) M. Abramowitz and L A. Stegun, Handbook of 
Mathematical Functions. U. S. Department of 
Commerce, National Bureau of Standards Ap- 
plied Mathematics Series, 1966. 

C CDTF 10 

..CDTR 20 
COTR 30 
COTS '.O 
COTR 50 
COTR 60 
COTR 70 
; CDTR 80 
<cCOTfi 90 
CUTS 100 
GDIS lie 
CDTR 120 
CDTP 130 
CDTR UO 
CPTR 150 
CDTR 160 
COTR 170 
CDTR 180 
COTR 190 
CDTR 200 
CDTP 210 
COTR 220 
CDTR 2i0 
cdtf; 240 
COTR 250 
CDTR 260 
rOTR 270 
COTR 280 
CDTR 290 
CDTt 300 
CDTR 310 
CDTP 320 
COTP 330 
CDTR 3',0 
COTR 350 
COTF 360 
CDTR 370 
CDTR 3B0 
CDTR 390 
CDTR <iOO 
CDTR 410 
COTC 420 



lEST ^Cft 



tAlfcK 



'^UtJ'^C U1 INE COT = 

I^URPCSfc 

CCMPUTES P ( Kl = Pt [Idfl&l LI T Y THAI THf (• iNUUM UtP I adt E LI, 

DlbTrtlflUTED ACCORDING TO THfc CHi-SQUAkt 01STRI3UT[UN wlTH 
LEOKeeS OF FRttOCJH, IS LESS THAN OR eOUOL TU X. FIG, XI, T 

nPDINATE Of THE Ch1-S0UAF£ OENSITr fil X, IS ALSO CUMPUTcO. 



UESCfilPTIOh OF PARAMETERS 

X - INPUT SCALAR FOfi WHICH PlXl IS CCMPUItD. 

G - NUMBER OF DlGREES OF FREELlO'l CF THE CHl-SQUAKE 

DISTRIBUTION. G IS A CONTINUOUS PARAMETER. 
P - OUTPUT PfOefiBILlTY. 
D - OUTPUT DENSITY, 
I6R - RESULTANT EKMOR CODE 1-HEKE 

1£P= NO ERROR 

(ER=-1 AN INPUT PARAMETER (S INVALID. X IS I 

THAN 0.0, Gk G is less than C.5 OR GR. 
THAN 2«l0**(t5l. P ANJ D ARE SET TO 

IER=*1 INVALID OUTPUT. P IS LfcSS THAN ZtfiO i 

GREATER THAN UNE , UR SERIES FDR Tl I Si 
MATHEMATICAL DtSCRIPIIONt HAS FAILED 
CONVERGE. P IS SET TO 1.E75. 



SUBRDUTINcS ANO FUNCTION SUbPKCGRAMS KtQUUtD 
0LGA?1 
NOTR 

METHOD 

REFER TO H.e. BAfGMANN ANO S.P. Gh'jSh, STATISTIC^ 
DISTRIBUTION PROGRAMS FOR A COMPUTER LANGUAGE. 
ISM RESEARCH REPORT RC-109A, 1963. 



-CDTR 



30 



SueRQUTlNE coin X.G.P.D, lER J 

0OU6LE PRECISION KX ,OLXX, X2 . 0LX2 . GG, G2 , OL T 3 , THE T A , THP i , 
1GLG2,D0,T1 l.SER.CC.XI , F AC , TLOG , TERM , G TH , A2 , A . 6 . C. DT 2 . D I 3 . ThPI 

TEST FOR VALID INPUT DATA 

iFlG-( .5-l.E-5n 590,10.10 
3 If{G-2.E*5) 20.20,590 
3 IFIXI 590,30.30 

lEST FOR X NEAR 0.0 

} IFIX-l.E-81 *0,40,80 
) P=0.0 

lFIG-2.1 50,60,70 
) D=t.E75 

CC TO 610 
( 0=0.5 

GO TO 610 
> D=0-0 

GO TO 610 



CDTR 440 

fOTC 450 

CDTR 460 

CDTR 470 

CQTP 480 

CDTP 490 

COTR 500 

rorfi 510 

CDTR 520 
CDTR S30 
COTR 540 
CDTR 550 
CDTR 560 
COTR 570 
COIR 580 
CDTR 590 
COTR 500 
CDTR fclO 
COTR 620 
COTR 630 
CDTR 640 
CDTP 650 
COTR 660 



80 ir(X-l.E+6) 100,100,90 
90 D=0.0 
P- I .0 
GO TO 610 
C 
C SET PROGRAM PARAMETERS 

r 

100 XK=OBLE<X) 

OLXX=OLDGI XXI 
X2=XX/2, DO 
DLX2=0LOC(X21 
C&=061£(&1 
C2=GC/2.00 
C 

C COMPUTE ORDINATE 

C 

CALL DLGAM(G2.GLG2, IC-Kl 

00-I&2-I. 00 J«DLXX-X2-G2*. 693 147180^59945 3 -GLG2 
IF 100- 1. 66002) UO, 110,120 
110 IFIDD+I. 66002) 130,130,140 
120 0=1. E75 

GO TC 150 
130 D=0.0 

GO TO 150 
140 OD=UtXP(DO» 
D=SN&LIOD) 
C 

C TEST FOR G GREATER THAN 1000.0 

L TEST FOR X GWEATEk THAN 2000.0 

150 IF(G-10 00.) Ib0,l60,ie0 
160 lFlX-2000.) 190,190,170 
170 P-1,0 

GO TO 610 
180 A=DLCG(XX/GGI/3.D0 

A=OEXP(fll 

B^?. 00/(9. 00*GG) 

C=(A-1.00»3)/DS0RTIB1 

5C=SNGL(C ) 

CALL NDTR( SCP.OUMMYl 

Gf TO 490 

COMPUTE THETA 

1-90 K^ IDINTIGZI 

THETA=G2-0EL0AT(K1 

IF(THETA-l.O-a) 200,200,210 
20C THET A=O.DO 
210 THP|=THETA*1.D0 

SELECT METHOD OF COMPUTING Tl 

IFIIHETAI 230,230,220 
220 IFIKX-IG.OOI 260, 260, 320 

COMPUTE Tl FOR THETA EQUALS 0.0 

250 IF(X2-1. 68002) 250,240.^40 
240 Tl=1.0 

GO TO 400 
250 TU=I.U0-DEXP(-X2I 

T 1=SNGL1T11) 

GO TC 400 

COMPUTE Tl fOR THETA GSEATEF THAN 0.0 AND 
X LESS THAN OR EOUAL TO 10.0 



HO 1 + 1. DO J 1 



26C SER = X2*U -DO/THPl 
J = +l 

CC-OFLOAT( J) 
DO 270 IT1 = 3, 30 
XI=DFLGAT{IT1) 
CALL OLGAM(XI ,FAC. lOKt 
TLCG= XI*0LX2-FAC-01CG( XI ti^HETAl 
TERM=DEXP(T10G» 
TERM=OilGN( TERM.CC) 
SER=S£f ♦TCHM 

cc=-cc 

IF(DASS(T£RMl-l.D-9) 2 80. 2 70. 2 70 
270 CONTINUE 

GO TO 600 
280 IF ( SER 1 600,600.290 
290 CALL DLGAMITHPl.GTH, lUK) 

TL0G = IHETA*0LX2*0(.0G(S£R l-GTH 

IF(TL0G*1. 68002) 300,300,310 
300 TI=0.0 

GO TO 400 
310 Tll=DEXP(TLrG) 

TUSNGLITin 

GO TO 400 



320 A2=0.00 

DO 340 1=1.25 

XI=DFLDAT( I I 

CALL DLGAMI THPl.GTH, lOK) 

Tll=-(13.D0*XX)/Xl ♦IHPi*DLDG( 13.00«XX 

IF 1111*1-66002) 340,340. 3 30 
330 Tl 1 = DEXP{ Tin 

A2=A2*Tll 
^40 CONTINUE 

C=l.Ol28£051*ThETA/l5e,.uO-XX/312.00 

b=DA6S< A) 

C= -X2*THPl»DLX2tOLOG{B)-GTH-3,95124 371858142 7 

IF(C*l. 660021 370.370.350 
350 IF (A) 360,370,360 
360 C=-DEXP(C 1 

GO TO 390 
370 C=0.00 

CC TO 390 
380 c^oexpic) 

390 C=A2tC 

Tl Isl.DO-C 
Tl=SNGLm I) 

SELECT PROPER EXPRESSION FCP P 



GTH-DLPG) 



400 IF(G-2.) 4 20,410,410 
410 IF(C-4.) 450,460,460 



COMPUTE P FOR G GREATER THAN ZERO AND LESS THAN 2.0 



420 CALL OLGA«( THPI , GIN, IDKI 

0T2= THE IA*DLXX-X2- THPI '.69 314 71 80559945 3 



CDTR 670 
CDTF 660 
COrR 690 
COTR TOO 
COTi: 710 
COTR 720 
COTR 730 
CDTP 740 
COTR 750 
CDTR 760 
CDTP T70 
COTR 780 
COIR 790 
CDTP 800 
COTR 810 
CDTP 820 
COTC 830 
COTR 840 
COTR 850 
CDTF 860 
CDTR 870 
CDTR 880 
COTP 890 
CDTR 900 
CDTR 910 
COTR 920 
CDTR 930 
COTR 940 
COTP 950 
CDTR 960 
COTR 970 
CDTR 980 

COT« 990 

CDTR 1 000 
COTRIOIO 
coTRinpo 
CDTR1030 
CDTR104t> 
CDTRiOSO 
CDTR1060 
C0TP1070 
CDTR 1080 
C0TR1090 
COTRllOO 
COTRlllO 
CDTRU20 
CDTRllBO 
CDTP 1140 
C0TR1150 
CDTR1160 
C0TRI170 

coTouao 

COTRl 190 
COTRI2OO 
CDTC1210 
C0TR1220 
CDTP1230 
C0TR1240 
C0TB12S0 
CDTR1260 
CDTR1270 
CDTR12fiO 
CDTR1290 
CDTF1300 
C0TR1310 
CDTR1320 
roTt 1330 
C0TRl34fi 
COTR1350 
COIF 1360 
CDTR1370 
C0TR1380 
C0TP1390 
CDTRl4flO 
C0TR1410 
CDTfil420 
CDTR1430 
COTR 1440 
CDTS 1450 
CDTRi460 
C0TR14T0 
C0TR1480 
C0TRi490 
CDTR1500 
fOrfil510 
CDTR1520 
COTR153b 
CDTR1540 
C0TR1550 
C0IH1560 
C0TRi570 
CDTR1580 
CDTR1590 
CDTftl60C 
CDTR1610 
C0TR1620 
COIR1630 
CDTR1640 
CDTfil650 
C0TR1660 
CDTRi670 
C0TP1680 
CDTR1690 
CDTRITOO 
CDTF1710 
COTR1720 
CDTP1730 

corsi740 

CnTH1750 
C0TP1760 
CDT01770 
C0TR17B0 
CDTR1790 

C0TP1800 
CDTRieiO 
C0TR1B20 
CDTF 1830 
CDTR1840 
C0TR1850 
COTF I860 
CDr«ia70 

CDTRieeo 

CDTP189Q 
CDTRI900 
CDTR1910 
CDTR1920 
C0TR1930 
CDTR1940 
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If (DT2*1 .68002) * 30, ^ 10 .^-tO 
".30 P=T1 



GC 



490 



Ui,0 0T? = D£KP(0T2) 
T2 = SNGH0T2t 
P=TI*T2+T2 
CO TO *90 

COMPUTE P FOR G GkEATER THAN OR EQUAL TO 2.0 
flNO LESS THAN *.0 



CrMPUTE P FOR 
AND LESS THAN 



bBEATfR THAN OR EUUAL TO A.O 
P EQUAL TO 1000.0 



-idCi DT3 = 0.00 

00 'teo 13 = 2, K 
THPl^DFLCAIlI 3)*IHET A 
CALL OLGAHITHPi.GTH.IOK) 
OLT3=THP1*OLX2-OLKX-X2-CTH 
IF(0LT3*l.fe8D02) <r60, 1B0, *. 70 

170 Df3=OT3»OEXP(DLT3l 

160 CONTINUE 

T3=SNGL(CT3) 
P=T1-T3-T3 

SET ERROR INDICATOR 

490 IFIPI 500,520,520 

500 !F(AeSIPl-I.E-Tl 510,510,600 

SIO P=D.O 

GO TO 610 
520 IFCl.-PI 530,550.650 
530 IFIA8Sn.-P)-l.e-71 510, 510,600 
510 P=l.O 

GO TO 610 
550 lF(P-l,E-8) 560,560,57tj 
5fc0 P=0,0 

GO Tn falO 
570 IF(( l.0-P)-l.E-8J 580,580.610 
5Hu P=l.O 

GC TO 610 
590 [ER=-i 

D = -t .£75 

P=-1.ET5 

GO TO 620 
600 IfP.= *l 

P= t.E7S 

00 TC 620 
610 ieR=o 
620 RETURN 

END 



C0Tfil950 

CDIft I960 

COTfi 1970 
rOTfil9BO 
CDrB1990 
CDTR2000 
C0TR2010 
C0rB2020 
COTH2030 
CDTR2010 
COIB3050 
COTR2060 
COTR207O 

coiR2aeo 

CDTR2090 
CDTP2100 
CDr(»2l 10 
C0TH2120 
C0TH2130 
C0TR2110 
COTR2150 
C0TH2160 
CDTP2170 
C0Tfi2iaQ 
CDTR2190 
CDTB2200 
C0TP2210 
CDrR2220 
CDTR223D 
CDTF2210 
CDTfi2250 
C0TR2260 
COTP22TO 
COTR2280 
CDTR2290 
COTf 2300 
COTft2310 
COTR2320 
COTF2330 
CDTR2310 
C0TR2350 
C0TF2360 
CDr«2370 
CDTR2380 
C0TK2390 
C0TR2100 
CDTfi2110 
CDTC2420 
COTR2l3n 
C0Tft2140 
€011^2150 
C0TR2160 
C0TR2170 
C0TC2^B0 



Subroutine NDTRI 

This subroutine computes x = p" (y) such that 
y = P(x) = Prob pC ^ x) where X is a random vari- 
able distributed normally with mean zero and 
variance one. 
That is, given P(x), the following is solved for x: 



P (x) = — / exp (-u2/2)du 
■J 277 -°° 

The following approximation* is used: 



w 



2.3 
- ^ a.w / X) b.w 



i = 



i = 



where: 



w = Vln (l/p2) (0 < p ^ . 5) 

ag = 2.515517 

aj = 0. 802853 

32 = 0.010328 

bi = 1.432788 

b2 = 0,189269 

bo = 0.001308 



(1) 



(2) 



If P(x) is greater than 0. 5, 1 - P(x) is used as p in 
(2) above, and the result of (1), x, is negated. 
The maximum error is 0. 00045; f(x) is also eal- 
culatedo 



'Co Hastings, Approximations for Digital Com- 
puters . Princeton University Press, Princeton, 
N.J. , 1955 

M. Abramowitz and L A. Stegun, Handbook of 
Mathematical Functions. Dover Publications, Inc., 
N. Y. , equation 26. 2. 23. 
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t NTRI 10 

t NTRI 20 

C NT«I 30 

C £LEfiCLllh£ h£lkl NTRI 40 

t NTRI 90 

C fCPfCJE NTRr 40 
C CCfFlIES X ■ P»<*-n(*), TI-£ A«Gt«€M Ji SUCt- Tf*l V- PUl - NTftr 70 

C ll-E PRCeneiLlIY ll-AT 1l-€ F4^CCP< V*t(l«eLE Ut OlSTRieUTEC^ NTRI 80 

C *>CF*#iLVlC.ll, IS LESS TI-«K CR ECU4L 1C K. F(»), IhE NTRI to 

C CDCIKAIC CF T»-€ fcCRfAL CfhSITV. IT K. 15 ALSC CCffOTEO. NTRI 100 

^ NTRI 110 

C LS«C( MTRi iza 

C Cill NCIRKP.M.C.IER) NTRI 130 

C NTRI 140 

C CtSCFIFTICIt CF PHi*ft1H»S Nini t&O 

C F - fhFLT PRCe««ILITV. NTRI 160 
C X - CLirCI *RCL^€NI SLCt- T^*T P . Y - TMt PRCfl«eUIIt TM*T MRI I TO 
C L< THE R>KCG^ V«RI«eL£, I! LESS Tf-AN CR EOUAL TO X. NTOi ISO 

C C - CtlPLI CE^SITY, fOI. NTHJ 190 

C I£R - CLIFLT tRPCR CCC£ NTRI 200 

C - -1 IF F IS NOT Ih IHE IhTERHAL (0,1), IhCLLSIVE. NTRI 2L0 

C MC*,SSSSSE«7* th This C«SE NTRI 211 

C - C If IFCHE IS KC EPRCR. SEE REMARKS, eCLCH. NTPI 220 

C NTRI 230 

C F£P«fH5 MRI 2*0 

C f#kl*'0*' ERRCR IS O.COC^t. NTRI 250 

C If F - C. M IS SET ID -IK)«*74,. C IS SET TC C. NTRI 260 

C IF F > It M IS UJ TC (KM*?*. C IS SET TC C, NTRI Z70 

C NTRI 280 

C il.ei)CCTIh££ nt SiePftCGRII*'! RECUIREO NTRI 2-gO 

C hCht NTRI 300 

C M«I SIO 

C PtIFCC NTRI J20 

C eiStC Ch «PRRCl|fAIKhS Ih C. HASTINGS^ APPRCX |f<RT ICNS FCR NTRI 330 

C CiCIIAL CCr'RIJlERS. PKlKCEICh UMV. PRESS, PR1^CETL^, N.J., NTRI 140 

C 1S<*. <E£ €Ci<ATlCh 26.2.23. hAKCBCCK CF H«ThER«TICAL NTRI 3S0 
C fLhCTIChS* ReR'PChlU 4KC <TEOUh. CCVER PUEL I CATIONS. INC.. NTRI 360 

C ^Eh >C^R. NTRI 370 

C NTRI 380 

C NTRI 390 

C NTRI 400 

£LeFCLll^E hCTRKP.R.tt IE] NTRI 4t0 

C NTRI 420 

lE-C NTRI 430 

||<.SSS^SE*I4 NIRI 431 

C** NTRI 432 

IF(F)1.4,2 NTRI 440 

1 IE--I NTRI 450 

CC IC li NTRI 460 

; If (f-i.C17,5,l NTRI 470 

4 Ji— .^SSS*Se*T4 NTRI 480 

; l«C.C NTRI 490 

EC TC li NTRI 500 

C NTRI 9)0 

C NTHI 520 

7 C"f NTRI 530 

If IC-0.!)S.S.e NTRI 540 

t C-l.C-C NTRI 550 

f T3-«I.CCI1.C/(C*CIJ NTRI 960 

l«SC»IITj) NTRI 970 

X>1-(2.5 1S517*C.eC2ei3*T«0.ClC32a«I2)/(l.C*1.4327ae«I>O.ie4264*T2 NTRI 580 

1 *0.CCUCfl*T*12) NTRI 990 

If IP-C! IIO.IC.II NTRI 600 

IC »— H NTRI 610 

11 C-C.3SES4i3«EkFI-K*X/2.CI NTRI ^20 

ii RET(.R^ NTRI 630 

ERC NTRI 640 
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Subroutine MOMEN 



This subroutine computes four moments for grouped 
data Fn , Fo, . . . , Fj^ on equal class intervals. The 
number of class intervals is computed as follows: 



n= (UBO„ - UBOJ/UBO 

where UBO = given lower bound 
UBO = given class interval 
UBO = given upper bound 

and the total frequency as follows: 
n 
T= E F^ 



(1) 



i=l 



(2) 



.th 



where F = frequency count in i interval, 
i 

Then, the following are computed. 



First moment (mean): 
n 



ANS = 



Sf. rUBOj 

i= 1 '- 



+ (i-0. 5) UBO 1 



(3) 



.th 

J moment: 



ANS. 



LI 

/ J F. rUBO^ + (i-0, 
i=l "^ L 



(4) 
5) UBO -ANS 



J T 

j= 2, 3, 4 



These moments are biased and not corrected for 
grouping. 
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Subroutine TTEST 

This subroutine computes certain t-statistics on the 

means of populations under various hypotheses. 

The sample means of Aj, Ag A^^, and Bi, 

^2 BivfB are normally found by the following 

formulas: 



NA 

I 

1=1 






NB 



E". 



NA 



B = 



i=l 



NB 



(1) 



and the corresponding sample variances by: 

NA NB 



Z] (A. - A)2 



SA 



i=l 



NA - 1 



SB 



J2 (Bj 

i=l 



B)^ 



NB 



-(2) 



The quantities m and a^ stand respectively for pop- 
ulation mean and variance in the following hypotheses . 

Hypothesis: /i^ = A; A = a given value (Option 1) 

Let B = estimate of /Ug and set NA = 1. (A is stored 
in location A ). 

The subroutine computes: 
B - A 



ANS 

SB 

NDF = NB - 1 



yj NB (t-statistics) (3) 

(degrees of freedom) (4) 



Hypothesis: i"^ = Mg f CT^ = a^j (Option 2) 



The subroutine computes: 
B - A 1 



ANS=- 



/T 3 

VNA "*■ NI 



(t-statistics) 



NB 



NDF = NA + NB - 2 



(5) 



(6) 



(degrees of freedom) 



where S = 



/ (NA - 1) SA^ 

V NA + 



+ (NB - 1) SB^ 



NB 



(7) 



Hypothesis: M^ = Mg ( cr^ t^ a^ j(Option 3) 



The subroutine computes: 
B -a" 



ANS 



/ SA^ ^ SB^ 

V NA "*" NB 



(t-statistics) 



(8) 



NDF 



SA^ SB^ 
NA "^NB 




SB 



(9) 

-2 



(NA + l)+(^^^j/(NB + l) 
(degrees of freedom) 

Note: The program returns a rounded NDF, not a 
truncated NDF. 



is: 11 j^ - fig (no assumption on ct j(Option 4) 



Hypothesis 
The subroutine computes 
D 



ANS =- 



SD 

NDF = NB - 1 

where D = B - a" 



yfm 



(t-statistics) 

(degrees of 
freedom) 



SD = 



i=l 



(B. - A. - D)^ 
1 1 



NB - 1 



(10) 
(11) 

(12) 



(13) 



NA= NB 



SUBROUTINE nesr 



IND CErtTAlN T-irAnsriCS ON THE MEANS Of POPULAriONS, 



70 



CALL rTESI I A 



iNA,e,MatNOP>NbF.ANSl 



fiUP 



OtSCRiPJlOM Of PARAMETERS 

A - INPUr VECfQR OF LENGTH NA CONTAINING DATA. 

NA - NUHBER of OBSERVAnONS IK A. 
6 - IttCUJ VcCrOK OF LENliTM NB CONTAINING DATA. 
Ne - NUMBER OF Qi>StRVAT I JNS IN B. 

■ OPTIUNS FOR VARIOUS HypOTHtSES.. 

NaP=l THAT POPULATION MEAN Of 8 - GIVEN VALUE A. 

1 iET NA=i> 
Njp=^___ THAT POPULATION H£AN OF B - POPULATION MEAN 
OF A, GIVEN THAT THE VARIANCE Of 8 = THE 
VARIANCE OF A. 
NOP=j--_ THAT POPULATION MEAN Of 8 « POPULATION MEAN 
OF A, GIVEN THAT THE VARIANCE OF B IS NOT 
fcQOAJl TO THE VARIANCE OF A. 
NOP=<t--- THAT POPULATION MEAN Of B » POPULATION MEAN 



TIES 
.TTES 

rres 
Ties 

TTES 
ITES 
TTES 
TTES 
TTES 90 
TTES 100 
TTES 110 
TIES 120 
TTES 130 
TTES 140 
ITES ISO 
TTES 160 
TTES 170 
TTES 180 
TTES 190 
TTES 200 
TTES 210 
TTES 220 
TIES 230 
TTES 240 
TTES 250 
TTES 260 



A, GIVEN NO INFORMATION ABOUT VARIANCES OFTTES 2TC 



A aMU B. ( SET NA=Nfl» 
NLJF - OUTPUT VARIABLE CONTAINING DEGREES Of FREEJOM ASSOCI 

ATEO hlTH r-STATISTlC CALCULATEO. 
4NS - T-STATISTIC FOR GIVEN HYPOTHESIS. 



liA ANJ NU MUSI fit 
JPTION i. NA ANJ 

IF ■^a.' IS oiHfcR r. 

f-STATISnC wlLL I 

icT TO ZERO. 



Sfiifc CJll-GL PRCSi, 



GREATER THAN 1, ExCEPT THAT NA-1 IN 
a MUST ot The SAME IN OPTION t,. 
AN 1< 2. 3 OR 4, DEGREES OF FKtEOOM AND 
JT Be CALCULATED. NDF AND ANS w I LL 6E 



JUdPKjGKAMS KeyujRtj 



1^5-., CHA^'fER 5. 






I(£Sr (A.NA 

'< n,n(i) 



..'JJP.NJF.Ai^lS) 



In] tul UAi Ion 



TTES 280 
TTES 290 
TTES 300 
TTES 310 
TTES 320 
TTES 330 
TIES 340 
TTfcS 350 
TTES 360 
TTES 3 70 
ITES 36C 
TtES 39C 
ITES *00 
TTES 4i0 
Tres 42C 
TTES <,30 

ITES k-yC 
TIES 460 
.TTES -,70 
TIES ^80 
TTES 490 
TTES SOO 
TIES 510 
TTES 520 
TTES 530 
TTES 340 
TTtS 550 
TIES SoO 
TIES 510 
TTES >83 
TftS S90 
TTfcS oOO 
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tALI,UL4Tc IMi: WtrtN Of 6 

lis BMtA^=O.C 

00 120 1*1«MJ 

PNb=NO 
(jhtAN^dMLAN/fNb 

IfChOP-'.) 12*, lUCt 20C 
l<;i IflHtJP-ll iCuf ljb» 125 

LALtULATt THE VAKlANCE Cf A 



13C 



OU no 1=1, NA 

iAi=^SA2*l A( I l-AMcAN 1*«2 

i.Ai = SA^/( FNA-1 -01 

LALLULATt THt WAKlANCfc Qf B 

135 SB2=0.0 

DO I'^O l=i.NB 
l^C SB;? = SB2»(tH I l-tJMcA^iI*•2 

Sb2=Sb2/IFNiJ-l.OI 

GO TJ ( 150, IfeC. WOI . NOP 

OPTICN i 

i5C ANS=((dM£AN-AMeAN)/SOKT(SB^II»SOKT(FNBI 
NDF=NB-l 
GU 10 2C0 

OPTION 2 

16C NDF=NA*N8-^ 
fNOF=NDf 

S=iQHTIC(FNA-1.01*iA2*(FNB-l.OI«SB2J/FMDf) 
ANS=UbKtAN-AHtAi*l/St*U.C/SURTU.C/FNA*l.D/fNBn 
GO TO 200 

OPTION 3 

17C ANS-(3MEAN-AMcANl/S«RT(iA2/FNA*S82/FNei 
Al={SA2/f^NA*SB2/FN6»»*2 
A2=(iA^/FNAl**2/<rNA*l.C 1 *( ^B^/FNb I '-S / ( FNB* I . J 

N0F=Ai/Ai-2.C*0.-J 
GO TO 2C0 

DPT I ON <h 

180 SO=0.0 

D=BM£AN-ttM£AN 

00 190 1=1. N6 
190 S0=SU*t6( I I-A( i)-OI ''^ 

SD=iURT(SO/(FNB-1.0)) 

ANS = (0/S01*SQt<TlFNt>) 

N[>F = NB-1 

^OC ktTURN 
tNO 



TIES 610 
TIES o2U 
TTtS *iO 
IFES 6*0 
TFtS 050 
TTES (>60 
TTCS 670 
TFCS 6ao 
TTES 69C 
TTES 70G 
irfeS 710 
IIES 720 
TTfcS 730 

nes 7-^0 
rrts 75C 

Fits 7&0 
Ties 770 
TTES 7«C 
TIES 790 
TT€S 8C0 
TTES SIC 
TTES 820 
TIES 630 
TTES 840 
TTES 850 
TT£5 a60 
TTES 870 
TIES sao 
TTES 890 
TTES 900 
TTES 910 
TTES 9 20 
TIES 930 
TTfcS 9*0 
TTES 950 
TTES 960 
TTES 970 
TTES 980 
TTES 990 
TIESIOOO 
TTESlOlO 
TTESI02C 
TTtSlO JO 
TTES10*0 
riESKSC 
TTtSlObO 
TTESlOTC 

TTESicac 

TTES1090 
TTtSllCO 
TTESlllC 
riES1120 
TTESUaO 
TTESU'.O 
TT6S1I5C 
TrESll60 
TTES1170 
TTES1180 
TTtSll90 
TTES1200 
TTES121C 
TTESi220 
TT£S1^30 
TTES1240 
TrESi250 



Subroutine BISER 

This subroutine computes a biserial coefficient of 
correlation between two continuous variables when 
one has been artificially dichotomized. The com- 
putational steps are as follows: 

1, Compute the mean of the continuously mea- 
sured variable. A; 



A = 



N 

E 

i=l 



N 



(1) 



wbere N = number of observations in the sample. 
2. Compute the standard deviation of the con- 
tinuously measured variable. A: 



s = 




(2) 



3. Obtain the following information for the di- 
chotomous variable, B: 

p = proportion of the cases in the higher group 
q = proportion of the cases in the lower group 
y = ordinate of the normal distribution curve 
at the point of division between p and q proportions 

4. Obtain Ap = mean of A values whose corre- 
sponding B values are in the hi^er group. 

5. Then, compute the biserial coefficient of cor- 
relation, r^, by the use of the following formula: 



'^b^ 



A - A 
P 



P 

y 



(3) 



6. The standard error of r, is estimated by the 
formula: 



pq 

y 



(4) 



y/lf 



For reference see: 

(1) J. P. Guilford, Fundamental Statistics in 
Psychology and Education. McGraw-Hill, New 
York, 1956, chapter 13. 

(2) J. W. Dunlop, "Note on Computation of Bi- 
serial Correlations in Item Evaluation", Psycho- 
metrika, 1936, I, pp. 51-60. 
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SUBROUTINE BISFR ( N , A , B .H I , aNS . I ER t 

DIMENSION AC 11 .B( 1 l,ANS( H 

COMPUTE WEAN AND STANDARO DEVIATION OF VARIABLE A 

IFR=0 

SUM=0.0 

SUM2-0.0 

on 10 i=i,N 

SUM=SUM*A(I ) 
10 SUM2=SUM2*A( I I^AI 1 ) 
FN=N 

ANS( H=SU*1/FN 

ANSI 2) =( SU12-ANSI lI»SUMI/( FN- 1,0) 
tNSI ;?)= S3PT(ANS(2I 1 

FIND PROPORTIONS OF CASES IN THf HIGHER AND LCVIfcR CAfEGORIE 

P = 0.0 

SUM=0.0 

SU*12=0.0 

or 30 r=i,N 

IFIFKII-HIt 20, 25, 25 
20 SUM2=SUM2*A( I I 

GO ID ^0 
25 P = P«-I.O 

SUM=SUMtAI I I 
30 confini;e 

ANS!4)=I.O 

ANSI 31=0.0 

Q=FN-P 

IF (PI 35,35,40 
35 lfR=-l 

GO TO 50 
40 ANS(5J=SUM/P 

IF (Q) 45,45,60 
45 IER=1 

ANS(4)=0.0 

ANSI 3) = I .0 
50 DO 55 1=5,8 
55 ANSnJ^l.ETS 

GO TO 65 
60 ANS(6l=SUM2/0 

P^P/FN 

Q=1.C>-P 

FIND OflOINATF OF THE NORMAL OISIRIbUTION CURVE AT THE POINT 
DIVISICM BcTWtEN SEGME.MS CGNTAINING P AND PHlIPORTIONS 

CALL NOTF I (0,X,Y,tR ) 

CPM'UTc THE atSERIAL COEFFICIENT OF COKRELATIGN 

«^((ANS151-AN-( L n/ AN SI 21 )"(Pfr) 

COMPUTE THf TFANDARO Ei'ROfi OF H 

ANSIS 1^1 Sr.''Tti'^ril/v-R^.ftj/sofir(FNJ 

STORE oesUlTS 

ANSI 31 =P 
ANS14)-2 
ANSI TI=fi 
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Subroutine PHI 

This subroutine computes a phi coefficient between 
two variables which are dichotomous. The compu- 
tational steps are as follows: 

1. Two dichotomous variables are summarized 
in a 2 X 2 table as shown below: 

Variable 1 



High Low 



Variable 2 



High 



Low 



A 


B 


C 


D 



A, B, C, and D stand for frequencies. 

2. Compute the phi coefficient by the formula: 



AD - BC 



VI 



A+B) (C+D) (A+C) (B+D) 



(1) 



3. Compute X as a fxmction of phi coefficient as 
follows: 



X^ =N</.^ 



(2) 



where N = number of observations. 

X 2, with one degree of freedom, may be tested 
at a required level of significance. If it is signifi- 
cant, the obtained phi coefficient is also significant. 

4. Compute the maximal phi coefficient that can 
be attainable in a given problem by the formula: 



max 




(3) 



where pj is the largest marginal proportion in a 
2x2 contingency table, and pj is the corresponding 
marginal proportion in the other variable. 
For reference see: 

(1) J. P. Guilford, Fundamental Statistics in 
Psychology and Education. McGraw-HUI, New 
York, 1956, chapter 13. 

(2) G. U. Yule, "On the Methods of Measuring 
the Association Between Two Attributes", Joxirnal 
of Royal Statistical Association, 1912, 75, pp. 
576-642. 
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SUS'inul INt 



C(i«PJTf THE Pt'l CUfFFlCieNt BFTwEFM T WCI VARIABLES WH T CH 

DICrinirMOOS. . 



.PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 



DESCRIPTION CF PARAMEFEPC 

N - MUHIf OF 0PSECV*T1UNS 

U - INPUT VECTOR OF LENGTH N CONTAINING THE FIRST OTCHOTO- 

HGUS VARIABLE 
V ' INPUT VECTOR OF LFNGTM hi CCNTAINING THE SECOND DICHOTO-PI 

MQU^ VAC I ABLE 
HU - INPUT NUM£filCflL CODE WHICH INOICATES THE HIGHER 

CATEGOPY OF iHt fIRST VflRIABLt. ANY CESERVATION IN 

wecrnp u which has a vauj.- foual to on gbeateo 

hILL BE CLASSIFIfD IN THE HIGHER CATEGORY. 
HV - INPUT HUMERKAL CODE FD« VECTOR V. SIMILAR TO HU 
P - PHI COEFflCIENT COMPUTED 
CH - CHl-SCUARE COHPUTfO AS A FUNCTION OF PHI COEFFICIENT 

(DEGREES OF FHEEOOM FOR CHI-SQUAfiE = IJ 
KP - COMPUTED VALUE Of THE MAXIMiL PHI COEFFICIENT THAT 

CAN 8c ATTAIhED IN THE P^OfiLEH 
IE - IF IF IS NON-£E^O* SOME CELL IN THE 2 BY 2 TABIE IS 

NULL. IF SO, P, CH, ANO XP ARE SET TO 10"*75. 



PHI 

PHI 

PHI 
PHI 

PHI 
PHI 

HAN HU PHI 
PHI 
PHI 
PHI 

PHI 

PHI 
PHI 

PHI 

PHI 

PHI 
PHI 
PHI 
PHI 



REMARKS 

VARIABLES U AND V MUST SE SPECIFIED NUMERIC. 

THE PHI COEFFICIENT IS A SPECIAL CASE OF THE 

PEARSON po.OOUCT-'^OMENT CORRELATION MHEN BOTH VAPIABLES ARE 

BINARY. 

SUeftPUriNES and fUNCTinN SUePRCGRftMS REOUIRED 

NONE 

METMCO 

REFER TO P. HORST, • PYSCHOLCG IC AL MEASUREMENT AND 
PREDICTION', P. 94 (HAOSWORTH, 1966). 



5UBRCUTINE PHI (N,U, V.HU.HV.P.CH.KP, IE) 

DIMENSION U( l),Vm 

CONSTRUCT A 2X2 CONTINGENCY TABLE 

IE = 
A=0.0 



P=0.0 




C = 0.0 




0=0.0 




DO 40 1=1,N 




IF(U( I l-HU) 10,25. 


,25 


10 IF(V(n-HV) 15,20, 


,20 


15 0=0+1.0 




GO TO 40 




20 e=6+i.o 




GO TO 40 




2 5 If(V(lI-HV( 30,. 3 5, 


,35 


30 C*C»1.0 




GO TO 40 




35 A=A»l.O 




40 CONTINUE 




IFUt 100,100,41 




41 IFIBl 100.100.42 




42 IFICI 100,100,43 




43 IF(D) 100,100,44 





COMPUTE THE PHI COEFFICIENT 

44 P=U*D-e«CI/ SQRT((A + B)«(r:«-0)»(A*CI*t6*0)l 

COMPUTE CHI-SOURE 

T=N 
CH=T«P*P 

COMPUTE THE MAXIMAL PHI COEFFICIENT 



■lA+O/T 
:(BtDI/T 
I A*6I /T 

:(C*OI/T 

P1-P2) 75, 45, 45 

P3-P4) 65, 50, 50 

PI-P3) 60, 55, 55 

SaBTI (P3/P4)» IP2/PI I I 

TO <35 

SORT! (P1/P21" IP4/P3t ) 

TO 95 

P1-P4J 70. 55, 55 

SQRTI lP2/Pn*IP3/P4H 

TO 95 

P3-P4) 90, flO. flO 

P2-P3I 60. 85, 85 

SQRTI (P<./P31*(Pl/P21 1 

ro 95 



IF( 
45 IF( 
50 IF! 



75 IF( 
80 IF! 



9C IF|P?-P4 

qS RETURN 
100 If=l 

P=1.E70 
CH=l.E75 
XP=1.ET5 
CO TO 95 
END 



70, B5, 



PHI 

PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
.PH! 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 

PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 



PHI 
PHI 
PHI 

PHI 

PHI 
PHI 



PHI 
PHI 
PHI 
PHI 
PH! 
PHI 
PHI 
PHI 

PHI 

PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 



100 

ito 

120 
130 
140 

150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
290 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
4 30 



470 
4^0 
490 
500 
510 
520 
530 
5 40 
550 
560 
5T0 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
660 
690 
TOO 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
610 
820 
S30 
840 
850 
660 
870 
860 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
10 20 
1030 
1040 
lOSO 
1060 
1070 
lORO 
1090 
1 100 
1 110 
1120 
lUQ 



Subroxitine POINT 

This subroutine computes a point-biserial correla- 
tion coefficient beUveen two variables, ^one binary 
(dichotomized) and one continuous. The computa- 
tional steps are as follows: 

1. Compute the mean of the continuously mea- 
sured variable, A: 



A = 



N 

E 

i=l 



A. 
1 



N 



(1) 



where N = number of observations in the sample. 
2. Compute the standard deviation of the con- 
tinuously measured variable. A: 



s = 




A 




N 



(2) 



N- 1 



3. Obtain the following information for the di- 
chotomous variable, B: 

Np = number of cases in the higher group 
Nq = niunber of eases in the lower group 

4. Obtain A- =mean of A values whose corre- 
sponding B values are in the higher group. 

5. Then, compute the point-biserial correla- 



tion, 



■■pb^ 



"pb = 



N 



N 



(3) 



6. Compute the t ratio used to test the hypoth- 
esis of zero correlation: 



t =r 



N- 2 



pb 



(4) 



1-r 



pb 



7, The degrees of freedom for the t ratio are 
obtained by: 



d.f. =N-2 



(5) 



For reference see: 

(1) J. P. Gmlford, Fimdamental Statistics in 
Psychology and Education. McGraw-Hill, New 
York, 1956, chapter 13. 
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(2) N, C. Perry and W, B. Michael, "The Re- 
liability of a Point-Biserial Coefficient of Correla- 
tion". Psychometrika. 1954, 16, pp. 313-325. 



SUBRCUriNE POINT 



POIN 
POIN 

SUPPOSE j°;j 

rn ccMPUie the pqint-piserial correlauon coefficieni poin 

SEIWEEN rt»0 VARIABLES, WHEN 0N£ OF THE VAfilAflCES IS A BINARrPQIN 
VARIABLE AMD ONE IS CONTINUIIUS. THIS IS A SPECIAL CASE OF POIN 
TMe PFARSnN PROOUCT-MOMENT COaPELAIION COEFFrCIENT. 



CALL POINT {N,A,8,HI .ANS.IERJ 



HI 



ANS 



POIN 100 

POIN no 

POIN 1?0 
POtN 130 
POLN 1*0 
POIN 150 
POIN 160 
POIN 170 
POIN ISO 
POIN 190 
POIN 200 
POIN 210 



DESCRIPTION OF PARAHETERS 

N - NUMBER CF OeSEHVAriQNS 

A - INPUT VECnP OF LENGTH N CC>iTAINING THE CONTINUauS 

VARIABLE 
9 ' INPUT veCTOP OF LENGTH N CONTAINING THE DICHOTOMOUS 
(BINARV) VARIABLE 

INPUT NUMERICAL CODE TP INDICATE THE HIGHER CATECHRV 
ANY VALUE Of TH*! fllMARY VARIABLE NOT L6?.< THAN HI HILLPOIN 220 
BE CLASSIFIED IN THE HIGHER Of THE Iwn CAT6G3niES. POIN ^^0 

OUTPUT VECTOR OF LENGTH 9 CONIAININC THE FOLLOWING 
RESULTS 

ANSIll- HEAN OF VARIABLE A 

ANS(?J- STANDARD DEVIATION OF VAflASLE A 

ANSI 3)- NU*!BER OF OBSERVATIONS IN THE HIGHER 

CATEGORV OF VAfilASLE 8 
ANSCJ- NUMBER OF CBSERVAIIONS IN THE LOWER 

CATECORV OF VARIABLE B 
ANS(5I- MEAN OF VARIABLE A FOR ONLY THOSE 

OBSERVATIONS IN THE HIGHER CATEGORY OF 
VARMBLt B 
ANS(6l- HEAN OF VARIABLE A FUR ONLY THOSE 

OBSe-JVATIONS IN THE LOWER CATEGORY OF 
VALUABLE B 
4f:S[7)- POINT-BISEFIAL CORftfLATION COEFFICIENT 
ANSIfll- T-TEST FOR THE SIGNIFICANCE OF THE 

DIFFEOtNCe BETWEEN THE MEANS OF VARIABLE 
FOR THE HIGHER AND LOWER CATEGORIES 
RESPECTIVELY. 
ANS(9I- DEGREES OF FREEDOM F0« THE r-TEST 
1. IF ALL ELEMENTS OF B ARE NOT LESS THAN HI. 
-1, IF ALL ELEMENTS OF a ARE LESS THAN HI. 
0. CTHERWISe. IF lER IS NON-ZERO, ANSITf, 1 = 5,. ..,9 
IS SET TO 10**75. 



lER- 



REMSCKS 



POIN 240 
POIN 250 
POIN 260 
POIN 270 
POIN 2B0 
POIN 290 
POIN 300 
POIN 310 
POIN 320 
POIN 330 
POIN 340 
POIN 350 
POIN 360 
POIN 370 
POIN 380 
POIN 390 
. POIN 400 
POIN 410 
POIN 420 
POIN 430 
POIN 440 
POIN 450 
POIN 460 
POIN 470 
POIN 480 
POIN 490 



THE SVM90LS USED TO lOENIFV THE VALUfS OF THF TWO CATEGOR lESPOl N 500 
OF VARIABLE B MUST 3E NUMERIC. ALPHABETIC Ci* SPECIAL POIN 510 

CHARACTERS CANNOT BE USED. 

THE T-TE<iTlANSI8) I IS A TEST 0^ WHETHEP THE POI NI-B I SEP I AL 
COtFflCIENT DIFFERS SIGNIFICANTLY FROM ZERO. 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

NONE 

METHOD 

REFER TO P. HORST, 'PSYCHOLOGICAL MEASUREMENT AND 
PREDICTION', P. 91 (WADSWORTH, 19661. 



SUBROUTINE POINT I N, A«B .HI , ANSt 1 ER ) 
DIMENSION A( 1), BID. ANSI II 

COMPLJTt MEAN ANO STANDARD DEVIATION OF VARIABLE A 

IER=D 
SUM=0.0 
SUH2=0.0 
DO 10 1=1,N 
SUM=5UM«ai I I 
10 SUM2 = SUM2*A( I )*A( I) 
FN=N 

ANSI 1I=5UM/1=N 

ANS(3)=lSUM2-ANSin«SUHI/(FN-1.0) 
ANS(21= SgRT(ANS12ll 

FIND NUMflERS OF CASES IN THE HIGHER ANO LOWER CATEGORI 

P=0.0 

SUM=0.0 

SUM2=0.0 

DO 30 I=I,N 

IF{6(!I-HII 20. 25, 25 
20 SUM2=SUM2*A( 1 ) 

no TO 30 
2 5 P=P*1.0 

SUM=SUM*ai I ) 
30 CONTINUE 

0=FN-P 

ANS(3I=P 

ANS(4I=P 

IF (PI ^S.iS.'.O 
35 IFR=-1 

GO TO 50 
40 4NS(5I=SUM/f 

IF (01 45, 45, ISO 
45 IER=1 
50 on 55 1=5,9 
15 ANSII 1=1. t75 

r.O TO 6=^ 
60 ANSI 61 =S!JM^CO 



COMPUTE 



HE POINT-BISERIAL CQH»:L'^T|^^^ 



R=(( ANSI 51-4%'SI 1 1 l/ANS( 21 )« S0RT{P/(1) 
ANSI T»=R 

COMPUTE T RATIO USED TO TEST THE HYPOTHESIS OF Jt^n COi 



COMPUTF OEGCFES OF FPEEDOM 
ANSI9I=Fn-? 



POIN 520 
POIN 530 
POIN 540 
POIN 550 
POIN 560 
POIN 570 
POIN 580 
POIN 590 
POIN 600 
POIN 610 
POIN 620 

POIN 630 

POIN 640 
POIN 650 
POIN 660 
POIN 670 
POIN 680 
POIN 690 
POIN 700 
POIN 710 
POIN 720 
POIN 730 
POIN 740 
POIN 750 
POIN 760 
POIN 770 
POIN 780 
POIN 790 
POIN 800 
POIN 810 
ES POIN 820 
POIN 830 
POIN 840 
POIN 850 
POIN 860 
POIN 870 
POIN dftO 
POIN B90 
POIN 900 
POIN 910 

POIN 920 

POIN 930 
POIN 940 
POIN -JSO 
POIN 960 
POIN 9 70 
POIN 990 
POIN 990 
POINIOOO 
POINIOIO 
P0IN1020 
P0IN1030 
P0IN1040 

priN;o50 

POIN1060 
POfNiO^O 

poiNtoeo 

POI Nl 090 
POINI 100 
POINlllO 
P0IN1I20 
POINI 130 
"tlATlONPOINl 140 
POINT 150 
P0INli60 
POINIWO 
POINI 180 
POINI 190 
POIN1200 
POIP^1210 
POIN1220 
P0IN1230 
P0IN1240 



Subroutine TETRA 

This subroutine computes a tetrachoric correlation 
coefficient between two veiriables where both of the 
variables have been reduced artifically to two cate- 
gories. The computational steps are as follows: 

1. Two dichotomous variables are summarized 
in a 2 X 2 table such as the one shown below. 

Variable 1 
High Low 



Variable 2 



High 
Low 



A 


B 


C 


D 



A, B, C, and D stand for frequencies. If any fre- 
quency is zero (0), the tetrachoric correlation will 
not be computed. 

2. Obtain the proportions of marginal totals: 
Pl=(A+C)/N (1) 
q^ = (B+D)/N (2) 
P2=(A+B)/N (3) 
q2=(C+D)/N (4) 

where N = number of observations. 

3. Obtain: 

y^ = ordinate of the normal distribution curve 

at the point of division between pj and q^ 

proportions 
y2 = same as y^ using p^ and q^ proportions 
z J = standard normal variable corresponding 

toyj 
Zg = standard normal variable corresponding 

toyg 

4. Then, compute the tetrachoric correlation 
coefficient by the use of the following formula: 



AD- BC 

AT 2 

^1^2^ 



"^t ^ ¥ ^1 S ^t 




^X 



(5) 



6z„ + 3 



')'f 



1_ / 6 
)40 \\ 



5040 
6 



4 2 

15z + 45z 



15 



(4 - ^'4 ^ 45z2 - 15)1.^^ 



90 
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Note : rt is found by the subroutine POLRT — 

Newton-Raphson method of approximation 
to the root of the above equation. 

5. For the purpose of testing rt = 0. 0, the stan- 
dard error is estimated by the formula: 



WHICH CUUt-Q ^ePUACE POLRT *AE PROO AND P 
JSE »40ULD "SeOUIoC HODIrlCiTION OT tETdA. 



(6) 



r 

6. In selecting the real root in [-1, 1] , if 
r^ = a + bi, and 

|b| s .5(10"^) I a I 



r^. is considered to be a real root. 



For reference see: 

a) J. P. Guilford, Fundamental Statistics in 
Psych ology and Education. McGraw-Hill, New York, 
1956, chapter 13. 

(2) W. P. Elderton, Frequency Curves and Cor- 
relation. 4th Edition. Cambridge University Press, 
1953, chapter 9. 



T£TR 
.TETR 



SU8P0UTINC TETSft 

PURPOSE 

COMPUTE A lETflACHORlC CORRELATION COEFFICIENT BElWtEK TMO 
VARIABLES WHERE DATA IN BOTH VARIABLES HAVE BEEN REDUCED 
ARTIFlCIALtY TO TWO CATEGORIES- 

USAGE 

CALL TETRA (N,U, V ,HU,HV. R. PS . 1 E I 



TETR 

TETR 

TETR 

TETR 

TETR 

TETR 

TETR 

TETR 

TETR 

TETR 

TETR 

DESCRIPTION Cf PARAMETERS I"" 

N - NUH6ER OF OBSERVATIONS *•="* 

U - INPUT VECTOR OF LENGTH N CONTAINING THE FIRST VARIABLE TETR 

REDUCED TO TWO CATEGORIES .„,.„. dllo 

V - INPUT VECTOR OF LENGTH K CONTAINING THE SECOND VARIABLETETR 

REDUCED TO TWO CATEGORIES TETR 

MU - INPUT NUMERICAL CODE INDICATING THE HIGHER CATEGORY OF TETR 

THE FIR*^T VARIABLE. IF ANY V^LUF OF VAC I ABLE U IS '■=''*' 

EQUAL TC OR GREATER THAN HL, IT WILL BE CLASSIFIED AS 

THE HIGHER CATEGORY. OTHERWISE AS THE LOWER CATEGORY. 

HV - SAME AS HU EXCEPT THAT I^V IS FOR THE SECOND VARIABLE. 

o - TETRACHORIC CORRELATION CPCPuTEO 

STANDAPO ERROB DF TETRACHORIC CORRELATION COMPUTED 
ERROR CODE 

- NO ERROR ,„ ,^,„ 

1 - UNABLE TO COMPUTE A TETRACHORIC CORRELATION DUE TO TETR 
THE FACT THAI iT LEAST ONE CELL SHOWS ?ERO FRE- 
QUENCY IN THE 2X2 CONTINGENCY TABLE CONSTRUCTED 
FROM INPUT DAIA. IH THIS CASE, R AND RS ARE SET 
TO 10**75. (SEE GUILFORD, 1956) 

2 - THE POOT SOLVER GIVES MULTIPLE BOCTS, CR NO fiOCTS, 
R, IN THE INTERVAL (-Itll INCLUSIVE. R AND RS ARE 
SET TO 10**T5. 

a - UNABLE TC CPMt^UTE A SAIISFACTORY VALUE CF TETRA- 
CHORIC CDftRELATIDN USING NE WTON-P PPHSON METHOD OF 
pppBOXIMiTlON TO THE ROOT OF THE EOUATIGN. R AND 
PS ARE SET TO XO»*T^. SEE SUBROUTIhE PDLRI ERROR 
f riOlCATORS. 

*. - HIGH ORDER COFiFFICRNT OF THE POLYNOMIAL IS ZEFO. 
SEf SUPt'OUTINE POLfiT (-PROC INDICATORS. 



RS ■ 



TETR 
TETR 
TETR 
TETR 
TETP 
TETR 
TETR 
TETR 



REMARKS 

VaLULS OF VltMBLES U AND V MUSI BE t«JMERICAL, AND 
ALPHIB'^TK ftNJ SPFCIAL CHASACTEPS MUST NOT 6f. USEO. 
FOR A DEPENDABLE RESULT FOR IcTfiACHORIC CORRELATION, 
ir IS RECOMMENDED THAT N BE AT LEAST 200 OR GRFATER. 



TETR 
TETR 
TETR 
TETR 

TETR 
TETR 
TETR 
TETR 
TETP 
TETR 
TETR 
TETR 
TETP 
TETR 
TETR 
lETR 
TETR 
TETR 
TETR 
TETR 
TETR 



SUBROUTINES ANT FUNCTION SUBPROGRAMS ^EOUlCEO JEJ^ 

PD^HI__THIS POLVNOMML HOOT ^OUTTNF WAS SELECTED BECAUSE OF TETR 
ITS SMJ11.L SrnHiGt REOUIREMENT. OTHER SSP ROUTINES TETR 



100 
110 
120 
130 

1^0 
150 
160 
ITO 

lao 

190 
200 
210 
220 

230 
2A0 

250 
260 

270 
280 
290 
300 
310 
320 
330 
3*0 
350 
360 
370 
180 
390 



4^0 
A50 
AbO 
*T0 
ABO 
490 
500 
510 
520 
5 30 
540 



METHOD 
REFER 
LOGY 
AND I 
ED.. 



THE |P TETO 550 

TETR 560 
TETR 570 
TETR 580 
P. GUILFnuo. 'FUNDAMENTAL STATISTICS IN PSYCHO- TETR 590 
AND PDUCATIJN'. MCGRAW-HILL. MEW YORK, 1956, CHAPTER 13TET9 600 
o. ELDERTON, 'FREQUENCY CURVES AND CORRELATION' <i-TH TETR 6l0 
AMB^IDCE UNIVERSITY PRESS, 1953, CHAPTEF 9. TET» 620 

> TETR 630 
TETR 640 



SUBROUTINE TETRA (N ,U. V.HU.HV.R.RSt I E I 

DIMENSION XCOFiai,COF(a).ROOIR(7),ROOTll7) 

DIMENSION U< ll<V(ll 

03UBLE PRECISION X 31 ,X3? , X312, X322 

CONSTRUCT A 2X2 CONTINGENCY TABLE 

A=0.0 

B=0.0 

C=0.0 

D=0.0 

DO 40 l = lTr! 

IF(U(ll-HUl 10, 25, 25 
IC IF(VII)-HVI 15, 20, 20 
15 0=0*1.0 

CD TO 40 
20 B=B*1.0 

GO TO 40 
25 1F(VCU-HVI 30, 35, 35 
30 C=C*1.0 

CO IG 40 
35 A*A*1.0 
40 CONTINUE 

TEST WHETHER ANY CELL IN THE COMTINGEWCY TABLE IS U^O. 
IF SC. RETURN TO THE CALLING ROUTINE WITH R=0.0 AND IE*1. 



IE=0 

IF(A) 60, *>0, 45 

45 IF<8) 60, 60, 50 

50 IF(C1 60, 60, 55 

55 IF(D» 60, 60, TO 
60 IE=1 

GO TO 66 

COMPUTE PI, 01. P2, 6N0 02 

70 FN=N 

Pl=( A*C>/FN 
01=l6tD)/FN 
P2=( AtBI /FN 
0?=(C+D)/FN 

FIND THE STANOAfiC NORMAL DEVIATES AT 01 AND 02, tUD THE 
OROINATES AT THOSE POINTS 

CALL NDTRI IQl , X I, Y 1 , FR 3 
CALL NDTRI (02,X2,Y2,ER J 

COMPUTE THE TETRACHORIC CORRELATION COEFFICIENT 

IFIXl) 76, 72, 76 
72 IFIX21 76, 74, 76 
74 P=0.O 

GO TO 90 
76 XC0F(l» = -HA*0-a*C»/IYl*Y2*FN»FNn 

XC0F(2M1.0 

XCOf (3t=Xl*X2/2.0 

XC0F(41=(XI*Xt-1.0l«( X2»X2- I. 01/6.0 

K3l'=DeLE(Xll 

X32=DBLeiX21 

K312=X31*«2 

X322=X32**2 

XCDF{5l=SNGL(X31*(X312-3.000)*X32«IX322-3.0DO>/24.0pOI 
XCOFl6l-SNGL{tK312MX3l2-6.0D01*3.0DOIMX322*(X322-6. 0001*3. 0001 

^XCOF(71=SNGL(X3l*IX312*(X3l2-10.QDOI*15.0OOI«X32*«X322*(X322-10.0 

I D0l*15.0D0)/72O.0DOI „„„. ^, , , „,,, 

XCOF161 = 5NGL(inX312-15.aOOI*X312*45.0Dai*X312-l5.0DOI*H(X322- 
1 i5.0DOI«X322*45.000l*X322-l'>.0OOI/5O4O.00Ot 

CALL POLRT ( KCOF ,COF. 7,R0nTR,R00TI , lERl 

J=0 

IFHERI TB, 7B, 64 

IFIABSIROOTHI)»-.5*ABS(RDOTRini*1.0F-6)79,T9,«J2 

79 B=ROnTft(I I 
IF(ABSIR>-1-C1B1,81,80 

80 o=l.E75 
GO TO 82 

81 J=J*l 

82 CONTINUE 
lF(J-l)B3.e8,33 

83 1E=2 

GO TO 66 

UNABLE TO COMPUTE R 

64 1E*IER 
86 P=!-0E75 

RS = R 

GO TC 100 
BE If (R- 1.0 E '5 1 90, 8 3, 83 

STANDARD ERBCR OF R=0.0 

9f> RS= S0RT(PI«P2*Q1*Q?'/<''1"^2* SQRTIFNII 



TETR 650 
TETR 660 
TETR 670 
TETR 680 
TETR 690 
TETR 700 
TtTP 710 
TETR 720 
TETR 730 
TETR T40 
TETR 750 
TETR 760 
TETR 770 
TETR 780 
TETR 790 
TETR 800 
TETR 810 
TETR 820 
TETR 630 
TETR 840 
TETR 850 
TETR 860 
TETR 870 
TETR 860 
TETR 890 
TETR 900 
TETR 910 
TETR 920 
TETR 930 
TETR 940 
TETR 950 
TETR 960 
TETP 970 
TETR 980 
TETR 990 
TETRIOOO 
lETfilOlO 
TETR1020 
TETR1030 
lETBlC^O 
TETR1050 
TETR1060 
TETRIOTO 
TETR1080 
TETR1090 
TETRllOO 
TETRIUO 
TETR1120 
TETP1130 
rETR1140 
TETP1150 
r£TRll60 
TETR1170 
TETRliaO 
TETP 1 190 
TETR1200 
TETR1210 
TETR1220 
TFTR1230 
TETR1240 
TETP1250 
TETR1260 
TETR1270 
TETP1280 
TETR1290 
rETR1300 
TETfll310 
TETP1320 
TETR1330 
TFTR1340 
TETR1350 
TETfil360 
TETRISTO 

TErRi3eo 

TETR1390 

TETR1400 
TETR1410 

TETR1420 
TETR1430 

TETR1440 
TETR1450 

TETR1460 
TETR1470 
TETR1480 
TETP 1490 
TETRI500 
TETRISIO 
TETR1520 
TETR1530 
TETO1540 
TETR1550 
TETR1560 
TETR1570 
TET':i580 
TETHl 590 
TETH1600 
TET«1610 
TETR1620 
fETRI630 
IETP1640 
TETR165Q 
TETR1660 
TeTPl6T0 
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Subroutine SRATE 

This subroutine computes the survival rates qt 
subjects alive n periods after diagnosis or treat- 
ment. The siurvival rate for each period is com- 
puted successively for each of K periods where K 
is specified and K s n. An example of the input to 
this subroutine is presented in Table 2. 

Table 2. Example of Input to Subroutine SRATE 



2. Proportion dying during period: 



D. 
^i E. 



3. Proportion surviving during period: 



P. = 1 
1 



Q, 



(2) 



(3) 



Periods 

after 
diagnosis 


Alive at 
beginning 
of period 


Died 
during 
period 


Lost 
during 
period 


Withdrawn 

alive during 

period 


(i) 


(Li) 


(Di) 


(Ui) 


(Wj) 


1 


130 


40 


4 


10 


2 


76 


6 


2 


8 


3 


60 


2 


1 


5 


4 


52 


1 





4 


5 


47 








47 



The input information includes: 

« Periods after diagnosis. This column shows 
the time period elapsed from the date of 
diagnosis or treatment. A period may be any 
time interval. 

Alive at beginning of period. The first entry 
in this column indicates the initial number of 
subjects; in Table 2, Lj =130. Each entry 
thereafter is obtained by subtracting from the 
preceding number of subjects the total of those 
who are no longer in the program; in Table 2, 



^1 - (Dj + Ui+W^) = 



130 



- (40 + 4 + 10) = 76. 

Died during period. This column indicates the 
number of subjects that died during the period. 

« Lost during period. This column indicates 
the number of subjects whose survival status 
became unknown during the period. 

« Withdrawn alive during period. This column 
indicates the number of living subjects with- 
drawn from the study during the period. 

For the value of i = 1, 2, . . . , K, the subroutine 
computes the following information: 

1. Effective number exposed to risk of dying 
during period: 



E. = L. - 
1 1 



(U. + 
1 



W.)/2 



(1) 
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4. i*" period survival rate: 



R. = n P. 



5. Standard error of survival rate: 



(4) 



'.-.yE 



Q. 



D. 



(5) 



j=l 



For reference see: S, J. Cutler and F. Ederer, 
"Maximum Utilization of the Life Table Method in 
Analyzing Survival", Journal of Chronic Diseases . 
December, 1958. pp 699-712. 



SuePOlJTINH SPftTE 

PURPOSE 

13 COMPUff THF PRffQRTIlDN OF SUPJECIS SURVIVING, IME 
SUtWlVAL RATts Af«o XHT. ST4N0Ar,0 Efi«QRS fQH SIKCESSIVELY 
•'tOUCtO TIMf PERIODS. THE SURVIVAL RATE 15 ClWPUtEO FOR 
EACH tlf K PPHIODS, WHEXt K IS A CONSIANT TO flf SPECIFIED 
IS LfSS THAN OR EOUAL 10 N (MHtRt N = TOTAL NUMBER OF 
PERlGil^J . 



SRAIt (N.KtX.IE] 



SRAT 
.SRAF 
SRAT 



SRAI *0 

SRAT SO 

SRAT 60 

SRAT 70 

SRAT 60 

SRAT 90 

NDSRAT 100 

SRAT 110 

SI»AT i?0 

SRAT 130 

S«AT UO 

SRAT 150 

SRAT 160 

SRAT 170 



OESCeiPTIOIV Of PAfiA«eTE«S 

N - IMF Ti-'TAL hlUMBfcR OF PERIODS AFTER TREATMEM OR DIAGNOS 1 SSRAT ISO 

K - THL SPECTFIEO PERIOD UP TO WHICH SURVIVAL RATES ARE TO SRAT 190 

BE CALCULATED SRAT 200 

X - AN INPUT AND OUTPUT HATR I K (N X SJ CONTAIMNG THE SRAT ^10 

FOLLOWING INFORMATION SRAT 220 

FOR INPUT — STORED IN THE N ROk'S OF EACH COLUHN SRAT 230 

COL I - WIHBER rf SUBJECTS ALIVE AT THE PEGINNING OF SRAT 240 

PERIOD SRAT 250 

cm 2 - NUMBEK OF SUBJECTS WHICH 0IE1 DURING THE SRAT 260 

PfcfilOO SRAT 270 

COL 3 - NUMBER OF SUBJECTS LOST TO FTLinw-UP DURING SRAT 280 

THE PERIOD SRAT 290 

COL ■- - NUMPE5 OF SUBJECTS WITHDRAWN AtlVE DURING THESRAT 300 

PEKIOO SRAT JIO 

FOR OUTPUT — STORED IN THE FIRST R HOWS OF EACH SRAT 320 

COLUMN SRAT 3J0 



COL 
Ci]|. 
COL 
C0(. 

COL 
I. IF K 



EFFECTIVE NUMBFO EXPOSED TO THE F I SK OF OriNGSRAT 3*0 



. - PROPORTION WHO DIED DURING IHF PERIOD 
' - PRUPORTION WHO SURVIVED DURING THE PERIOD 
1 - SUflVIAL RATE 

t ~ STANDARD ERROR OF THE SURVIVAL RATE 
IS NOT IN THE CLOSED INTERVAL (O.NI. 



2. IF THE NUMBER OF SUBJECTS ALIVE AT THE BEGINNING 
CF PFRinO I IS LESS THAN THE SUM Of THOSE WHICH OIEO, 
HERE LOST, OR MERE WITHDRAWN DURING PERIOD I (I>1,.., 

3, ir TME (JUMflfS Of SUBJECTS WHKH DIED, HERE LOST, OR 
WERE WITHDRAWN IN PERIOD I IS NOT EQUAL TO THE NUMBER 
ALlVf AT IHE BEGINNING OF PERIOD I LESS THE NUMBER 
ALIVE AT THE flEGINNING OF PERIOD I * I n«l,,..N-lJ 



SRAT 350 
SRAT 360 
SRAT 370 
SRAT 390 
SRAT 390 
SRAT 400 
SRAT 410 
N) SRAT 420 



SRAT 430 
SRAT 440 
SRAT 450 
SRAT 4b0 
SRAT 470 
SRAT 
SRAT 



REMARKS 

IF THE SUBJECTS IN A GIVEN GROUP ARE ALL DIAGNOSED OR 

TREATED AT THE SAME TIME, THE CONSTANT K MAT SE SET EQUAL TOSRAT 500 

SUBJECTS IN A GIVEN GOUP ENTER THE STUOT AT SRAT 510 

CAN BE NO GREATER THAN N-I. SRAT 520 

SUBROUTINFS AMD FUNCIIPN SUBPROGRAMS REQUIRED SRAT 540 

^0N£ SPAT 550 

METHOD j^^j jjg 

REFER TO S. J. CUTLER AND F. EDERER 'HAXIMUM UTILIZATION Of SRAT 580 

'*"= ..CE TABLE METHOD IN ANALVZINC SURVIVAL', JOURNAL OF SRAT 590 

SRAT 600 



VARYING TIMES 



THE LIFE 



CHHO'^IC niSEASFS. DECEMeER, 1958. PP 699-712. 



SUBROUrtN€ SRdTE (r^.K.X.IEt 
DIMENSION XII) 

INin ALIZATION flNO fRRD^J CHECKING 
IE=0 

00 1 IiNP<,,NP9 

XdlsO.O 

IF (K) ?,?,3 

IE=l 

GO TO '*^ 

IFIK-NI <.«<-. 2 

00 9 I=I,N 

NPg^NP'.tN 

NPl=hP9*N 

rftINT(Xn»-X(NP^)-X(NP«l-XlNPll*.Olll 5*6,6 

IE=2 

tr TO ^.S 

IFU-M 7,9,9 

IF {INT(X|1 + 1)-X(I l+XtNPAl + XlNP^I + XlNPl }«'.01)t 6,9, B 

1E = 3 

GO 10 45 
CONTINUE 
Ll-0 
L2=Ll+N 
L3=L?*N 
L4=L3*N 
L5=L**N 
L6=L5+N 
L7=L6*N 
L8=L7*N 
L9=L8*N 
LD=L2 
LE=L5 
LQ = L6 
SUM^O.O 



SRAT 610 

.SRAT 620 

SR*T 630 

SBJT 6A0 

&RAI 690 

SRAT 660 

SRAT 670 

SRAT 6S0 

SRAT 690 

SRAT 700 

SRAT 710 

SRAT 720 

SRAT 730 

SRAT 740 

SRAT 750 

SRAT 760 

SRAT 770 

SRAT 790 

SRAT 790 

SRAT SOO 

SRAT BIO 

SRAT S20 

SRAT 630 

SRAT 640 

SRAT B50 

SRAT 660 

SRAT 670 

SRAT 860 

SRAT 690 

SRAT 900 

SRAT 910 

SRAT 920 

SRAT 930 

SRAT 940 

SRAT 950 

SRAT 960 

SRAT 970 

SRAT 960 

SRAT 990 
SRAT 1000 
SRATIOIO 
SRAT1020 
SRAT1030 



DO 40 1=1, K 

COMPUTE fFFECTIve NUHBER EXPOSED TO RISK OF DYING 

Ll=Ll*l 
L3=L3+1 
L4=L4*1 

K(L5) = K(Ln-(X(L3l*K(L4n/2.0 

COHPUTE PROPORTION OF DYING 

L2=L2*1 
L6=t6+l 

XIL6I=X(L2I/X1L5I 

COMPUTE PROPORTION OF SURVIVING 



CCMPUTE SURVIVAL RATE 

L8=18*1 

IF (I-ll 20» 20, 25 
20 X(LC)'X1L7) 

GO TO 30 
25 XILei*X(Le-I l*X(L7) 

COMPUTE STANDARD ERROR OF SURVIVAL RATE 

30 L9=L9*l 

SUM=SUH*X(L6)/(K(L5)-X{L2IJ 
40 X(L9) = XH.6l*SQRri SUM) 



45 RETURN 

END 



SRATt04O 
SRAT1050 
SRAT 1060 
SRAT1070 
SRATIOSO 
5RAT1090 
SRATllOO 
SRATlllO 
SRAT1120 
SRATi 130 
SRAT 1140 
SRATI 150 
SRATI 160 
5HATU70 
SRATIiaO 
SRATL190 
SRAT1200 
SRAT1210 
SRATI220 
SRAT1230 
5RAT1240 
SRAT 12 50 
SRAT1260 
SRAT1270 
SRAT12a0 
SRAT 1 290 
SRATHOO 
S«AT13tO 
SRAT1320 
SRAT1330 
SRAT1340 
SRATI 350 
SRATI360 
SRAT1370 
5RAT1380 
SRAT1390 
SRAT1400 
SRAT1410 
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MATHEMATICS 



Matrices: Storage 



Subroutine RCPY 



Subroutine MCPY 



SUBROJTiNt MCPV 



CALL MCPy (A,R,N, 



MS) 



D£iCkIPnCN OF PAkAMEFERS 
A - NAME Of INPUT MAIRJX 
R - NAWe OF OUTPUT MATRIK 
H - NUHQiR OF ROWS IN A OR K 
n - NUMfitS OF COLUMNS IN A Ck (< 

MS - JNt OIGII NUMBER FOR STJ^AGt Hl.Dc OF MaTRU A (AND Hi 
C - GtNERAL 

1 - SVMMcTBIC 

2 - DIAGONAL 

REMARKS 
MONt 

SUBSCUT INLS AND FUNCT [ON SUfaPKCGi*AMS REUUI Rt D 



M£ THQJ 

EACH cLcMCNT OF MATRIX A IS MJVfcU TO THc CORRcSPJNDI KG 
cLEMcNT Of- MATRIX R 



SUosaur INt MCPr ( A.ft ,\, M 
[MHENSICN A( H,R( 1) 

CuM.>LirL Vt-CrOK LENT.! 

CALL LJCIN.M, n .f^.M.MS ) 

CGCV MArn,IX 

o:j 1 1= u IT 
Ril l = A( II 
rttlURN 



MCFV 


IC 


«CPV 


po 


MCPr 


30 


MCPV 


'.U 


MCPV 


50 


HCPY 


6C 


MCPY 


TO 


MCPV 


flC 


MCPT 


9C 


MCPY 


lat; 


MCPV 


1 IC 


MCPY 


^^^) 


MCPY 


liD 


MCPV 


K.T 


MCPV 


IbC 


MCPy 


IhO 


MCPy 


170 


MCPY 


ISO 


MCPY 


I9f 


MCPV 


?G0 


MCPV 


die 


MCPV 


220 


MCPY 


?iC 


MCPV 


Z'*': 


HCPV 


ZbO 


MCPV 


?bO 


MCPV 


Z70 


MCPV 


^bU 


MCPY 


/-iJ 


MCPV 


)CS 


MCFY 


iin 


MCPV 


i23 


MCPV 


ii- 


MCPV 


^^.o 


MCPV 


3t.C 


MCPY 


i60 


MCPV 


17.- 


MCPV 


J3L 


MLPV 


s-*: 


MfPY 


<.:c 


MlPV 


*flC 


MCPY 


'.^C 


MfPY 


'.l,- 


MCPY 


^i-C 



SUSROUriNt RCPY 

PU-iPOSE 

COPY SPEClFltJ ROW OF A MATRIX INTO A VECTOR 

USAuE 

CALL RCPY lA.LiR.NfM.HS) 

OcSCRIPTlUN JF PARAMETERS 
4 - NAME OF INPUT MATRIX 
L - R01 UP A TO Bfc MOVEO TO R 
•<. - NAME JF JUTPUT VECIJi* OF LEN&TH M 
N - rtUNdER OR ROWS IN A 
M - NUMiicR OF COLUMNS IN A 
MS - ONE DIGIT NUMBER FOR STORAGE MODE OF MATRIX A 

- GENERAL 

1 - SYMMETRIC 
2-01 AGONAL 

htMARKS 



MtTHOO 

cLcMfcrtfj Jf ROK L ARc MOVED TO C JRRESPONi) I NC POSITIONS 
Jh WCCIOS R 



SUBAuoriNE kCPV{A,L ,R,N.M,M3I 
iJIMtNSlLN A( n.RIl) 

^6 i J = 1 . M 

L Jl-aT c ELcHl^T for any M«rrtIX STJRaCfc MODE 
lALL LolIL. J,i-J,N,M,MS) 

riiT fok icRJ eLl:^LNT IN OIA>iU^Al MATRIX 
lULJi t , -: , 1 

lOVf tLc'^c'*! TO R 
1 *.( Jl =A{LJ 1 

3 CL-irUL 



RCPY 10 
, .RCPY 20 
RCPY JO 
ftCPY 40 
RCPY 50 
RCPY 60 
RCPV 70 
RCPY 80 
RCPY 90 
RCPY 100 
RCPY 110 
RCPY 120 
RCPY 130 
RCPY 140 
RCPY 150 
RCPY 160 
RCPY 170 
RCPV 130 
RCPY 190 
RCPY 200 
RCPV 210 
RCPV 220 
RCPV 230 
RCPY 240 
RCPV 250 
RCPV ^60 
RCPV 270 
RCPV 280 
RCPY 290 
RCPY 300 
RCPV 3lO 
RCPY 320 
-RCPY i30 
RCPY 340 
RCPY 350 
RCPV 360 
RCPY 370 
RCPY 380 
RCPY 39C 
RCPV AOC 
RCPV 410 
RCPY 42C 
RCPY ^30 
RCPV 440 
RCPV 4St 
RCPY <.&0 
RCPY 47C 
RCPY 480 
RCPY 493 
RCPV 500 
RCPV 510 
RCPY 520 
RCPY 530 
RCPV 54; 
RCPY 550 
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Subroutine CCPY 



Subroutine DC PY 



SUBROUTINE CCPV 

PURPOSE 

COPY SPECIFIED COLUMN Gf A MATRIX INTQ A VECTOR 

USAGE 

CALL CCPy(A.L.R.N,H,MSI 

OtSCRlPTION OF PARAMtTEftS 
A - NAME OF INPUT MATRIX 
L - COLUMN OF A TO B£ MOVEO TO ft 

« - NAME OF uurPur vEcrafl of lemgih h 

N - NUMBER OR ROUS IN A 

M - NUMBER Of COLUMNS IN A 

MS - ONE UlGlr NUMSER FOR STORAGE MQOE OF MATRIX A 

3 - GENERAL 

1 - SYMMcTRIC 

2-01 AGONAL 



SUBRUuriNtS ANU FUNCTION SUftPRUOKAMS RtflUIREO 

LOC 

HE I MOO 

ELEMENTS 0*^ COLUMN L ARE MOVED TO CORRESPONOI NO POSITIONS 
OF VECTOR R 



suertouriNfc lcpy ( a,l ,r,n.p4,ms) 
I^tHtNSION A(I) ,R( 1) 

00 3 I = l,N 

LOCATE ELEMfNT FOR ANY MATRIX STORAGE MGDE 
CALL LOCi l,L, IL. N.M.MS) 

TcST FOR lERO ELEMENT IN OIAGJNAL MATRIX 
IFJ IL ) I, 2,1 

MOVE ELEMtNT TO R 

1 Rl I J = fll U) 
GO TO 3 

2 «l 11=0.0 

3 CONTINUE 
RETURN 
CNU 



5C 



ICC 



CCPY 
...CCPY 
CCPY 
CCPY 
CCPY 
CCPY 
CCPV 
CCPY 
CCPV 
CCPV 
CCPY 110 
CCPY 120 
CCPY IJC 
CCPY KO 
CCPY 150 
CCPY 160 
CCPY IJQ 

CCPY lao 

CCPY 190 
CCPY iOC 
CCPY ilO 
CCPY 220 
CCPY ZiO 
CCPV 24C 
CCPY 25C 
CCPY 2fa0 
CCPY 270 
CCPY 280 
CCPY 290 
CCPV SQO 
CCPY ilO 
CCPY i2C 
..CCPV iiO 
CCPY 3*C 
CCPY iiC 
CCPV 360 
CCPY 370 
CCPV 39C 
CCPY 39C 
CCPY <tCC 
CCPV -.iC 
CCPY <.20 
CCPY ■*30 
CCPV '.'.0 
CCPY 450 
CCPY 46C 

CCPY ".70 

CCPV 480 

CCPY 490 

CCPV 5CC 

CCPY 510 

CCPY 520 

CCPV 53C 

CCPY 540 

CCPY 55t 



SUSROUriNE UCPY 

PURPOSE 

COPY DIAGONAL ELEMENTS Of A MATRIX IllTO A VECTOR 

USAGE 

CALL OCPY (AiRtN.nSI 

DESCRIPTION OF PARAMETERS 
A - NAME Of INPUT MATRIX 
R - NAME OF OUTPUT VECTOR OF LENGTH N 
N - NUMSER OF ROWS AND COLUMNS IN HAHtlX A 
MS - ONE DIGIT NUMBER FOR STORAGE HODE OF MATRIX A 

- GENERAL 

1 - SYMMETRIC 
2-01 AGONAL 

REMARKS 

INPUT MATRIX MUST BE A SQUARE MATRIX 

suasouriNES and function suaprograhs required 

LOC 



ELEMENTS ON DIAGONAL DF MATRIX ARE MOVED TO CORRESPONOING 
POSITIONS OF VECTOR R 



SUBROUTINt OCPYI A,R,N,MSJ 
CIMENSICN A( tl.RIl) 

DO 3 J=1,N 

LOCATE DIAGONAL ELE«EM f^R ANY MATRIX STORAGE MODE 
CALL LJCI J.J. IJiN.N.MS ; 

MOVE OIAGUNAL ELEMENT TG VECTOR rt 

3 RI J)=AI IJI 

RETURN 
END 



20 



70 



OCPY 
. ..DCPY 
OCPY 
OCPV 
OCPY 
OCPY 
OCPV 
OCPY 
OCPY 
OCPY 100 
DCPY 110 
DCpv 120 
OCPY 130 

OCPV 140 
OCpY 150 
OCPY 160 
OCPV 170 

OCPV lao 

OCPY 190 

OCPV 200 
OCPY 210 
OCPY 220 
OCPY 230 
OCPY 2*0 
OCPY 250 
OCPY 260 
OCPY 270 
OCPY 280 
OCPY 29C 
OCPY 300 
..OCPY 310 
OCPV 320 
DCPY 330 
OCPV 340 
OCPY 350 
OCPY 360 
OCPY 370 
OCPY 380 
DCPY 390 
DCPY 400 
OCPY 410 
OCPY 420 
OCPV -^30 
OCPY 440 
OCPY 450 
OCPV 460 
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Subroutine XCPY 



Subroutine MSTR 



subHuuriNt KC'^r 



USAGE 

CALL )(CPY(A,'*,L,K»NRiMK,NA,MA,lS) 

DtSCRIPTlON Of fARAMfcTERS 

A - NAMt 3F INPUT MAI-«1X 

R - NAMe iJF QUIPJI MATRIX 

L - HCW of A WHERt FUST tLcMrMf OF •< CAN BE FDUND 

< - COLUMN UF A WHEKc flRST CLE^tNT OF « CAN at FOuNO 

NR - NUMoLR OF ROUS TC dfc CUPIEO INTO R 

MR - NJM6tR CJF COLUMNS Td b£ C'JPIfcD IHW K 

NA - NUMatR JF ROWS IN A 

MA - NUMBER Of COLUMNS IN A 

MS - UNt DIGIT NUM6£R FOR SUSAGL hODt OF MATRIX A 

- GfcNtRAL 

1 - SVMMtTRIC 

Z - DIAGONAL 



MArXIX k CANNUT bt IN THE SAMt LOCAflUN AS MATRU A 

MATRIX R IS ALWAYS A otNLRAL ,tA TR [ X 

SUdfiGUIINeS ANiJ FUNCIIUN SUbPROGkaMS RfcOUIREU 

loc 

METHOD 

»A[R|X R IS FGKMfcC 6V LJPYING A PORtlON OP MATRIX A- THIS 

IS DONE BV tXTRAtriNG NR ROWS ANO MR COLUMNS Of MATRIX A, 

jTakting with ellhent at row l, column K 



SUBRJUT IHt XCPrlA,k,L,fv,NR,HR,NA,MA.MSl 

DIMENSION A( L),RI I) 

INIT 1ALIZ£ 

IR = 

L2=L*NK-J. 

K2=K*HR-1 

DO 5 J=K,K2 
DO 5 I=L,L2 
IK- IR+I 
R{ Ift)=C.O 



iKAGt MLiOe 



LOCATt tLtHifNI FOR ANY MATRIX 
CALL LOCI I.J.IAtNAtMA.MS) 

TtST FOR iERiJ ELEMENT IN OIAGUNAL MATRIX 

IFIIAI 'i.b.'. 

4 H(1RI=A(IA) 

5 CONTiNUE 
RETURN 

END 



XCPY 


10 


XCPY 


£0 


XCPY 


>0 


XCPY 


'•C 


XCPY 


^J 


XCPY 


60 


XCPY 


7C 


XCPY 


30 


XCPY 


90 


XCPY 


ICC 


XCPY 


lie 


XCPY 


l^-J 


XCPY 


IJO 


XCPY 


I4b 


XCPY 


\^d 


XCPY 


Ifc-J 


XCPY 


1 70 


XCPY 


16C 


XCPY 


19C 


XCPY 


2C0 


XCPY 


?10 


XCPY 


Z2U 


XCPY 


?JC 


XCPY 


2^: 


XCPY 


2 5C 


XCPY 


2»C 


XCPY 


£(C 


XCPY 


^a-c 


XCPY 


?90 


XCPY 


■iOO 


XCPY 


no 


XCPY 


i/"J 


XCPY 


no 


XCPY 


i40 


XCPY 


liO 


XCPY 


J6C 


XCPY 


370 


XCPY 


ibv 


XCPY 


39C 


XCPY 


UCO 


XCPY 


■tiC 


XCPY 


'.t;C 


XCPY 


".^n 


XCPY 


'.'.0 


XCPY 


"i^C 


XCPY 


UoC. 


XCPY 


kJO 


XCPY 


-.80 


XCPY 


<,90 


XCPY 


SOO 


XCPY 


5 10 


XCPY 


h/0 


XCPY 


•iiC 


XCPY 


S^iC 


XCPY 


5&C 


XCPY 


ibO 


XCPY 


^7C 


XCPY 


580 


XCPY 


•>w 


XCPY 


iOO 


XCPY 


6l(J 


XCPY 


O.'C 


XCPY 


ftlO 


XCPV 


64tJ 



SUBROUTINE NSTR 

PURPOSE 

CHANGE STORAGE NODE OF A MATRIX 

USAGE 

CAl-L NSrRUiR*N,HSA,NSRl 

OESCRIPTION OF PARANETERS 
A - NAMe OF INPUT MATRIX 
R - NAME OF OUTPUT MATRIX 

N - NUMBER OF ROWS AND COLUMNS IN A ANO R 
HSA - ONE OIGIT NUMBER FOR STqRAGE MODE OF MATRIX A 

- GENERAL 

1 - SrNNETRlC 

2 ~ 01 AGONAL 

HSR - SANE AS mSa EXCEPT f=OR MATRIX R 

REMARKS 

MATRIX R CANNOT BE IN THE SAME LOCATION AS MATRIX A 
MATRIX A MUST BE A SQUARE MATRIX 

SUBROUTINES ANO FUNCTION SUBPRuGRAMS REQUIRED 
LOC 

METHOO 

MATRIX A IS RESTRUCTURED TO FORM MATRIX R. 
MSA HSR 
C MATRIX A IS MOVED TO MATRIX R 

C 1 THE UPPER TRIANGLE ELEMENTS OF A GENERAL MATRIX 
ARE USED TO FOAM A SYMMETRIC MATRIX 

2 THE DIAGONAL ELEMENTS OF A GENERAL MATRIX ARE USED 

TO FORH A DIAGONAL HATREX 

1 A SYHMEtrIC MATRIX IS EXPANDEO TO FORM A GENERAL 

MATRIX 
1 1 MATRIX A IS MOVED TO MATRIX R 

1 2 THE DIAGONAL ELEMENTS OF A SVH«4£TRIC MATRIX ARE 

USEU TO FORM A DIAGONAL MATRIX 

2 C A DIAGONAL MATRIX IS EXPANOLO 8Y INStKTING HCSStNG 

ZERO ELEMENTS TO FORH A GENERAL MATRIX 
Z I A DIAGONAL MATRIX IS EXPANDED BT INSERTING MISSING 

ZERO ELEMENTS TO FORM A SYMMETRIC MATRIX 
2 2 MATRIX A IS MOVED TO MATRIX R 



SUaROUriN£ MSTRI A,RtNiMSA,HSRI 
DIMENSION A( l),RI 1) 

DO 20 I-l.N 
DO 20 J-1,N 

IF R IS GENERAL, FORM ELEMENT 

IFlMSR) 5,10.5 

IF IN LOWER TRIANGLE OF SYMMETRIC OR DIAGONAL R, BYPASS 

IFII-J) 10,iC,20 
I CALL LOCI l,J,IR,N,N.MSAl 

IF IN UPPER ANO OFF DIAGONAL OF jlAGONAL R, BYPASS 

IF( IRI 20.20,1^ 

OTHERWISE. FORM R(I,J) 

R(1K)=0.0 

CALL LOC(IiJ.IA,N,N,HSAI 

IF THERE IS NO A(I.J), LEAVE RU, Jt AT CO 

IF( lAI 20,20.15 
R(IR1=A(IAI 

CONTINUE 

KETUKM 

END 



10 



40 



70 
SO 
90 



MSTR 
.MSTR 
MSTR 
HSTR 
MSTR 
MSTR 
MSTR 
MSTR 
MSTR 
HSTR 100 
MSTR 110 
HSTR 120 
MSTR 130 
MSTR 1^0 
HSTR ISO 
MSTR 160 
HSTR 170 
MSTR 160 
MSTR 190 
HSTR 200 
MSTR 210 
MSTR 220 
MSTR 230 
MSTR ZW 
MSTR 250 
HSTR 260 
HSTR 270 

MSTft zao 

HSTR 290 
HSTR 300 
MSTR 310 
HSTR 320 
MSTR 330 
MSTR 340 
MSTR 350 
MSTR 360 
MSTR 370 
MSTR 380 
MSTR 390 
MSTR A^OO 
MSTR *10 
HSTR <.20 
MSTR 430 
MSTR 440 
HSTR 450 
MSTR 460 
MSTR 470 
.MSTR 460 
MSTH 490 
MSTR 5O0 
MSTR 510 
HSTR 520 
HSTR ^30 
HSTR 540 
HSTR 550 
HSTR 560 
HSTR 570 
MSTR 580 
HSTR 590 
MSTR 600 
HSTR 610 
HSTR 620 
HSTR 630 
HSTR 640 
HSTR 650 
MSTR 660 
HSTR 670 
MSTR 6ao 
HSTR 690 
MSTR TOO 
HSTR 710 
MSTR 720 
MSTR T3C 
HSTR 740 
MSTR 750 
HSTR 760 
MSTR 770 
MSTR 780 
MSTR 790 
HSTR 800 
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Subroutine LOG 



Subroutine CONVT 



SUBROUriNE LOC 

puRPOse 

COMPUTE A VECTOR SUaSCRIPT fOR AN EttMENT IN A MATRIX OF 
SPEClFiEO STORAGE NODE 

USAGE 

CAtL LOC U.J.IR.N.M.MSI 

DESCRIPTION OF PARAMETERS 

I - ROM NUMBER OF ELEMEMT 

J - COLUMN NUH6ER OF ELEMENT 

IR - RESULTANT VECTOR SUBSCRIPT 

H - NUMBER OF ROWS IN HATRU 

M - NUMBER OF COLUMNS IN MATRIX 

HS - ONE DIGIT NUMBER FOR STORAGE MODE Of MATRIX 

- GENERAL 

1 - SYMMETRIC 

2 - DIAGONAL 

REMARKS 
NONE 



LOC 
..LOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 

LOC 
LOC 
LOC 
LOC 
LOC 
LOC 



toe 

110 
L20 

L30 
I'tC 
ISO 
160 
170 
160 
190 
200 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

NONE 



METMOD 

MS=0 



LOC 210 

LOC 220 

LOC 230 

LOC 240 

LOC 2 50 

LOC 260 



SUBSCRIPT IS COMPUTED FOR A MATrIx UITH N*M ELEMENTS 
IN STORAGE (GENERAL NAntlX) 

subscript is computed for a matrix miih n*(n«^ll/2 in 
storage (upi>er triangle of svhhetric matrix}. if 
Element is in loner triangular portion, subscript is 
corresponding element in upper triangle, 
subscript is computed for a matrix uith n elements 

IN STORAGE IOIAGOnAl ELEMENTS OF DIAGONAL MATRIX). 
If ELEMENT IS NOT UN 01 AGUNAL I AND TMERefORE NOT IN 
STORAGEJ. IR IS SET rO ZERO. 



LOC 
LOC 
XOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 
LOC 



270 
280 
290 
300 
310 
320 
330 
3*0 
350 
360 
3 TO 
380 
390 
400 
410 



SUBROUTINE LOCH, J, IK, N.M, MSI 

IX=1 

JX=J 

lf(MS-l( 10,20,30 
) IRX=N*( JX-ll+IX 

GU TO J6 
I iF(IX-JX» 22.24.24 
: IRX«IX*-IJX*JX-JXI/2 

GO TO 36 

IRX = JK+nX«{X-IX)/2 

GO TO 36 
I 1RX=0 

IFdX-JXl 36.32.36 
: IRX-U 

IR^IRX 

RETURN 

END 



LOC 4S0 
LOC 460 

LOC 470 



LOC 
LOC 
LOC 



480 
490 
SCO 



LOC 510 

LOC 520 

LOC 530 

LOC i>40 

LOC 550 

LOC 560 

LOC 5 70 

LOC 580 

LOC 590 

LOC 600 



C SUBROUTINE CONVT 

C 

C PURPOSE 

C CONVERT NUM6£«S FROM SINGLE PRtCISIOH TO OQuBLE PRECISION 

C OR FROM OOUBLE PREClSIJN TO SINGLE PRECISION. '"'^''^^^°'* 

C USAGE 

C CALL CONVT (N ,M, MOOt , S.O.MS ' 

C OESCRIPTION OF PARAMETERS 

C N - NUHd£R Of ROMS IN MATRICES S AND 0. 

C M - NUMBER OF COLUMNS IN MATRICES S AnO O. 

C MOOE - CQOE INDICATING ITPE OF COhVERSION 

C 1 - FROM SINGLE PRECISION TO DOUBLE PRfcClSIQN 

C Z - FROM DUUBLE PRECISION TO SINGLE PRtCISION 

C S - IF MO0E=l. THIS MATRIX CONTa|»S SINGLE PRECISION 

C NUMBERS AS INPUT. IF MOOE -2, IT CONTAINS SINGLE 

t- PRECISION NUMBERS AS OUTPUT. THE SIZE OF MATRIX s 

^ ISN6YM* 

C D - If HOOE-l, THIS MIRIx CONTAINS UOUBLE PHeClSlON 

C NUmEllS AS OUTPUT. If WlDt.J, IT CONTAIIdS oouatE 

^ M£CISION KUneWS AS INPUT. IKE SUE Of (UIRIX IS 

C HS - ONE DIGIT NUHSEA FDK STORAGE NODE OF HATRix 

C - GENERAL 

C 1 - SrHMETRIC 

t 2 - DIAGONAL 

C 

C REMARKS 

C NATRIX CANNOT BE IN THE SANE LOCATION AS NATRIX S. 

C ;"*" ".""" " OEFINEO ar A DOUBLE PRECISION STAIENENT IN CONV 340 

C THE CALLING PROGRAN. Jgjjj 35J 

CONV 360 
CONV 370 
CONV 380 

HOO """' "" 

ACCOHUING TO THE TYPE Of CONVERSION INOICATEO IN NODE, THIS CONV 410 
SueRQUTINE COPIES NUH6ERS fRON HATRIX S TO HATRIX D OR FROM CONV 420 



CUNV 


to 


CONV 


30 


COhv 


40 


CONV 


50 


CONV 


60 


CONV 


70 


CONV 


«r 


CONV 


90 


CONV 


100 


CONV 


lie 


CONV 


120 


CONV 


130 


CONV 


140 


CONV 


150 


CONV 


16C 


CONV 


170 


CONV 


160 


CONV 


190 


CONV 


200 


CONV 


210 


CONV 


??o 


CONV 


230 


CONV 


240 


CONV 


2S0 


CONV 


260 


CONV 


270 


CONV 


280 


CONV 


290 


CONV 


300 


CONV 


110 


CONV 


320 


CONV 


330 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 



MATRIX TO MATRIX S. 



SUBRQuriNE CONVT <N ,H. MOOE. S.D.MS 1 
DIMENSION S(lt(D< 1) 

DOUBLE PRECISION D 

FINO STORAGE MODE OF MATRIX AND NUMBER OF DATA POINTS 

IFIMS-I) 2. 4. 6 
2 NM-N*N 

GO TO B 
<* NM>UN«n«NJ/2 

GO TO 8 
i NM-N 

TEST TrPE OF CONVERSION 

) IF(N00E-1I lOt 10. 20 

SINGLE PRECISION TO OOUSLE PRECISION 

I 00 15 L-L.NH 
■ 0(L}>S(L) 
CO TO 30 



DOUBLE PRECISION TO SINGLE PRECISION 



00 25 L-I.NH 
S(LI>OILJ 



RETURN 
ENO 



CONV 4 30 
CONV 440 
..CONV 45G 
CONV 460 
CONV 4 70 
CONV 480 
CONV 490 
CONV 500 
CONV 510 
CONV 520 
CONV 5 30 
CONV 540 
CONV 550 
CONV 560 
CONV 570 
CONV 580 
CONV 590 
CONV 600 
CONV 610 
CONV 620 
CONV 630 
CONV 640 
CONV 650 
CONV 660 
CONV 6 70 
CONV 680 
CONV 690 
CONV TtlO 
CONV 710 
CONV 720 
CONV 730 
CONV 740 
CONV 750 
C(MV 760 
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Subroutine ARRAY 



Matrices: Operations 
Subroutine GMADD 



SUBROUTINE ARRAY 

PUKPOSe 

CDNVfcRT DATA ARRAY FROH SINGLE TO 00U6LE OIHENSIUN OR VICE 
VcftSA, THIS SUBROUTINE IS USCD TO LINK THE USER PROGRAM 
WHICH HAS DOUBLE DIHENSION AA-tAvS AND THE SSP SUBROUTINES 
rfHlCH OPERATfc OH ARRAYS Of OAIA IN A VtCTOR FASHION. 



USAGE 

CALL ARRAY tNOOE< T 



J,NtH,S)0) 



DESCRIPTION OF PARAHETERS 

rtOOE - CODE INDICATING TYPE 0»^ CONVERSION 

1 - FROM SINGLE TO QOUSLE DIHENSION 

2 - fROH DOUBLE TO SINGLE DIMENSION 
1 - NU18ER Of AOfS IN ACTUAL DATA HATRIX 
J - NUhBER of COLUMNS IN ACTUAL DATA HATAI X 
N - NUMBER Of ROMS SPECIFIED FOR THE MATRIX D IN 

DIMENSION STATEMENT 

H - NUMBER OF COLUHMS SPECIFIED FOR THE HATRIX D IN 

DIMENSION STATEHENT 

S - IF MOOE-I. TNIS VECTOR IS INPUT WHICH CONTAINS THE 

ELEMENTS OF A DATA HATRIX Of SIZE I BY J. COLUMN I 
Of DATA MATRIX FOLLOWS COLUMN 1. ETC. IF MOOE'Zt 
THIS VECTOR IS OUTPUT REPRESENTING A DATA MATRIX 01 
SIZE I BY J CONTAINING ITS COLUMNS CONSECUTIVELY. 
TH£ LENGTH OF 5 IS IJ» WHERE IJ>I«J. 

- IF M00e»l. THIS MATRIX OF SUE N BY M IS UUTPUT, 

CONTAINING A DATA HATRIX OF SIZE I BY J IN THE FIRST ARRA 
I ROWS ANO J COLUMNS. IF H00E>2i THIS N BY M MATRIX ARRA 
IS INPUT CONTAINING A OATA MATRIX Of SIZE I BY 
THE FIRST 1 ROWS AND J CULUHNS. 



ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 

ARRA 

ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 



REMARKS 
VECTOR 



ARRA 

ARRA 
ARRA 
ARRA 
ARRA 
ARRA 
ARRA 



CAN BE IN THE SAME LOCATION AS HATRIX 0. VECTOR 
IS REFERRED AS A MATRIX IN OTHER SSP ROUTINES, SINCE U 
CONTAINS A DATA HATRIX. 
THIS SUBROUTINE CONVERTS ONLY GENERAL DATA MATRICES (STORAGEARRA 
MODE OF 01. A*^"* 

ARRA 

SUBROUTINES ANO FUNCTION SUBROUTINES REQUIRED *«RA 

NONE *'^«* 

ARRA 



100 
110 
120 
130 
140 
150 
160 
ITO 
180 
190 
200 
210 
220 
2 30 
2*0 
250 
260 
270 
280 
290 
300 
910 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 



HETHOO 



REFER TO THE DISCUSSION ON VARIABLE DATA SUE IN THE SECHONARRA 
OEsCrISInG OVERALC rules for USAGE IN THIS MANUAL. AARA 

ARRA 
ARRA 



460 
ARRA 470 
480 
490 
500 
510 



SUBROUTINE ARRAY INOOEt I , J tN.H, StOI 
OIHENSION SI II, D( I) 

Nl«N-l 

TEST TYPE OF CONVERSION 

IF(M«ie-ll lOOi 100, 120 

CONVERT FROM SINGLE TO DOUBLE OIHENSION 

IDO IJ*I«J-»1 

NM-N*J+1 

00 110 K-L,J 

NM-HH-NI 

DO no L-l*I 

MM-NH-l 
ILO O(NHI-SIIJ) 
GO TO 140 

CONVERT FROM DOUBLE TO SINGLE DIMENSION 

120 IJ-0 

NN-0 

00 130 K-l.J 

00 12S L-ltl 

IJ-Ij*l 

NH-Nli»l 
125 SMJt-OINMI 
130 NH-NH*'Nl 

140 RETURN 

END 



ARRA 520 
ARRA 530 
ARRA 540 
ARRA 550 
ARRA 560 
ARRA 570 
ARRA 580 
ARRA 590 
ARRA 600 
ARRA 610 
ARRA 620 
ARRA 630 
ARRA 640 
ARRA 650 
ARRA 660 
ARRA 6T0 
ARRA 680 
ARRA 690 
ARRA 700 
ARRA 710 
ARRA 720 
ARRA 730 
ARRA 740 
ARRA 750 
ARRA 760 
ARRA 7T0 
ARRA 780 
ARRA 790 
ARRA 800 
ARRA a 10 
ARRA 820 
ARRA 830 
ARRA 840 
AARA a SO 
ARRA 860 



SUBROUTINE GHAOO 

PURPOSE 

AOO TWO GENERAL MATRICES TO FORM RESULTAWr GENERAL MATRIX 

USAGE 

CALL GMAODI A, S.R,N,H] 

DESCRIPTION OF PARAMETERS 

A - NAME OF FIRST INPUT HATRIX 

d - NAMb UF StCUNO INPUT HATRIX 

R - NAME OF OUIPUI MAiaiX 

N - NUMBER OF ROMS IN A.B<R 

M - NUHBcR OF COLUMNS IN A.B.R 

ALL MAfRICeS MUSI BE STORED AS GENERAL MATRICES 

SUBROUTINES AMD FUNCTION SUBPROGRAMS REOUIREO 
NONE 



SUBROUTlNt GMAOOIA, B,R,N,M) 
OIMFNSION Al 1).B( 1) ,R( 11 

CALCULATE NUMBER OF ELEMENTS 

NM=N»M 

AOO HATKICES 

00 10 1 = UNM 
to R(l l^Al II«SI I 1 

RETURN 
END 



GMAO 


10 


GMAO 


20 


GHAO 


30 


CHAD 


40 


GMAO 


50 


GMAD 


60 


CHAD 


70 


GMAO 


80 


GHAO 


90 


GMAO 


100 


CHAD 


lie 


GMAO 


120 


GHAO 


130 


GMAO 


140 


GMAO 


lUO 


CHAD 


160 


CHAD 


170 


GMAO 


lac 


GMAO 


19C 


GHAO 


200 


GMAO 


2IC 


GMAO 


??0 


GMAO 


210 


GMAO 


240 


GHAO 


P'iO 


GMAO 


260 


GMAD 


270 


• GMAO 


^60 


GMAO 


790 


GMAO 


300 


GMAO 


JIO 


GMAO 


320 


GMAO 


330 


GMAO 


i4n 


GMAO 


350 


GMAlJ 


360 


GMAO 


3 70 


GMAO 


380 


GMAO 


390 


tMAO 


40C 


GMAO 


410 


GMAD 


'.20 
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Subroutine GMSUB 



Subroutine GMPRD 



SJ6RL)UTIN£ GMSUb 

PJRPOSc 

SJJTKACr OME GcNEKAL MATRIX FROM ANOTHER TO FORM RtSULTANT 
MATRIX 



CALL liMSUdt A. a.R.N.M) 
UfcSCKlPTIUN UF PAAAKcTEKS 

A - NAME Of FIRST INPOT MATftiX 

d - hAME JF SfcCOMJ INPUT MATRIX 

R - NAME Or OUTPUT MATRIX 

N - NUHubK Qf ROWS IN A.BtR 

.^ - NUM6E;< Of COLUMNS IH A.d.R 

REMARKS 

ALL MATRICES liJil Bf SrOttEO Ai GENERAL MATRICtS 

SUBROUTINES AND FUNCTION SUriPKUSRAMS RfcyUIREO 

NONE 

MbTHOO 

MAfKIX B tLtMENTS ARE SUBTRACTEO FROM CORRESPONDING MATRIX 
ELEMENTS 



SUBROUTINE GHSUBf A,8,R,N.M) 
DiMENSICN A( l),tl( 1) .Rl 11 

CALCULATE NUMBER OF ElEmEnTS 

NN=N*M 

SUBTRACT MATftlCtS 



10 



60 



GO 10 I = I , NH 
»l 1 J =Al 11-31 I J 

RETURN 
ENO 



GMSU 
. . CHSU 
GHSU 
GMSU 
GMSU 
GMSU 
GMSU 70 
GMSU 8C 
GMSU 9C 
GMSU 100 

ghsu no 

GMSU 120 
GISU 130 
GHSU 140 
GMSU 150 
GHSU 160 
GMSU 170 
GMSU ISO 
GMSU 190 
GMSU 200 
GMSU 210 
GMSU 220 
GMSU 2 30 
GMSU 2*C 
GMSU 250 
GMSU 260 

AGMSU 2 70 
GHSU 280 
GMSU 290 

.GMSU 300 
GMSU 3ia 
GMSU 320 
GMSU 330 
GmSU 340 
GMSU 35C 
GHSU 360 
GMSU 370 
GMSU 380 
GMSU 390 
GHSU 400 
GHSU 410 
GHSU 420 
GMSU 430 
GMSU 440 



GMPR 10 

.GMPR 20 



SUBROUTINE GMPftO 

PURPOSE 

MULTlPLr IWG GcNCRAL HAtHICES TO FORM A RESULTANT GENfRAL 
MATRIX 

USAGE 

CALL GMPRD<A,B,R,N.H,L] 

OcSCRIPTlON Or PAAAMtTERS 

A - NAME OF FIRST INPUT MATRIX 

8 - NAMe Of SECOND INPUT MATRIX 

R - NAHfe OF OUTPUT MATRIX 

K - NUMBER OF ROWS IN A 

M - NUMBER OF COLUMNS iN A ANO ROWS IN B 

L - nuhser of columns in B 



30 



60 



GMPR 
gmph 

GHPR 
GHPR 
GHPR 
GHPR 
GHPR 90 
GHPR 100 
GMPR 110 
GMPR 120 

GMPR 130 

GHPR 140 
GHPR ISO 
GMPR 160 
GHPR 170 
GMPR 180 
GHPR l90 
GHPA 200 
GMPR 210 
GMPR 220 
GMPR 230 
GMPR 240 



Rt^HARKS 

ALL MATRICES MUST SE STOrteC AS GENERAL MATRICES 
MATRIX R CANNOT BE IN THE SAME LOCATION AS MATRIX A 
MATRIX R CANNOT BE IN THE SANE LOCATION AS MATRIX 6 

NUM8CR Of COLUMNS OF MATRIX A MUST BE EOUAL TO NUMBER Of RCWGmPR 250 
OF MATRIX e GMPR 260 

Ghp* 2 70 

SUBROUTINES AnD FUNCTION SUBPROGRAMS REQUIRED GMPR 280 

NONE GMPR 290 

GMPR 300 

•'ETMOO GMPR 310 

THE M Br L MATRIX b IS PREHULTI PL lED BY THE N BV M HATRlX A GMPR 320 

ANO THE RESUI.T IS STORED IN THE N 8V L MATRIX R. GMPR 330 

GMPR 340 

GHPR 350 

GMPR 360 
GHPR 370 
GHPR 380 
GHPR 39C 
GMPR 40O 
GHPR 410 
GMPR 420 
GMPR 430 
GHPR 440 
GHPR 4 SO 
GMPR 460 
GMPR 470 
GHPR 4B0 
GMPR 490 
GMPR 500 
GMPR 510 
GMPR 520 
GMPR 530 
GMPR 540 



SUBROUTINE GMPftOI A, e*R. N,M.L I 
DIMENSION A( lltBI II .R( 1) 

I«"0 

IK--M 

00 10 K=1,L 

lK=iK+M 

00 10 J=l.N 

Ift=IR*l 

JI=J-N 

I6=IK 

«tlR)-0 

00 10 I'l.M 

JI=Jl4-N 

18=19+1 

R( IRJ^KdRI+AIJU^BUB) 

RETURN 
ENO 
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Subroutine GMTRA 



Subroutine GTPRD 



GMTR 



10 



30 



SUtiROUriNg GMTRA 



USAGE 

CALL GMTRA( A> R,N,M} 

OfcSCRlPriON OF PARAftfcTERS 

A - NAME Of MATRIX TO BE TRANSPOSEO 

R - MAME Of RESULTANT NArftlX 

N - NUMBfcR OF ROWS OF A ANO COLUMNS OF R 

n - NUMBER Of COLUMNS OF A AND ROWS OF R 

REMARKS 

MATRIX R CANNOT Bt IN THE SAME LOCATION AS MATRIX A 
HATRICtS A ANO ft MUST 6E STORED AS GENERAL MATRICES 

SUBROUriNES AND FUNCTION SUepBOGRAMS REQUIRED 
NONE 



SUBROUTINE GMTRAf A. R< N.M) 
DIMENSION A( t),R( L) 

IR=0 

00 lO I=1,N 
iJ=I-N 
DO 10 J=1.M 
IJ=IJ*N 
IR=IR+1 
10 Rl IRl'AdJ) 
RETURN 
END 



.GMTR 
GMTR 

GMTR *C 

GMTR 50 

GMTR 60 

GMTR 70 

GMTR 6C 

GMTR 90 

GMTR 100 

GMTR 110 

GMTR IZO 

GmTR 130 

GHTR 140 

GMTR 150 

GmTR UO 

GMTR 170 

GMTR ISO 

GMIR 190 

GMTR 200 

GMTR 2LD 

GMTR 220 

GMTR 230 

GMTR Z'tO 

GMTR 250 

GmTR 260 

GMTR 270 

.GMTR 260 

GMTR 290 

GMTR 300 

GMTR 310 

GMTR 320 

GMTR 3 30 

GMTR 3*0 

GMTR 350 

GMTR 360 

GMTR 370 

GMTr 360 

GMTR 390 

GMTR 40C 

GMIR 410 



THE TRANSPOSE O^ ANOTHER 



suaROuriNE arpRa 

PURPOSE 

PREMULTIPLV A GENERAL MATRIX 
GENERAL MATRIX 

USAGE 

CALL GTPRU( A, S.R.N.M.L) 

DESCRIPTION Of PARAMETERS 

A - NAHti OF FIRST INPUT MATRIX 

6 - NAME Qf StCOND INPUT MATRIX 

R - NAME Of OUTPUT MATRIX 

N ~ NUMdtR CF ROWS IN A ANO it 

M - NUMBER Or CJLUMNS IN A ANi) kOtaS IN R 

L - NUMSbR LF CULUMNS IN b ANO R 

REMARKS 

MATRIX R CANNOT BE IN THE SAME LOCATION AS MATRIX A 
MATRIX R CANNOT BE IN THE SAME LOCATION AS MAFRU 6 
ALL HATKICES MUST 8E STQkEJ AS GENERAL MATRICES 

SUBROUTINES AI4D FUNCTION SU6PRCGRAMS REguiRLD 

NCNE 

McThCO 

MATRIX TrtANSPUSc Of A IS .^U T ACTUALLV CALCULATED. INSTEAD. 
ELfeHENTS OF MATRIX A ARE TAKEN COLuMNjISt RAIHER THAn 
ROl««(ISc FOR POSTMULTl PLICATION 6Y MATRIX a. 



SUbftOUriN^ GTPkOI Af B.R'N.H.L) 
OIMENSICN A( im( 1) ,R| 11 

IR = 
IK = -N 

DO tC K=l,L 
IJ = 
IK=:n.*N 
DO IC J=l,M 
iB^IK 
JR=IR»1 
«( l«t = 
DO iC l=l,N 
1J= 1J*1 
IB= Ifltl 
10 RURi = R( MItAI IJl «□! Id) 
RETURN 
END 



GTPR 
.GTPH 

GTPH 
GTPR 

GTPR 
GTPR 
GTPR 



TO 



GTPR 80 

GTPR 90 

GTPR ICO 

GTPR ilO 

GTPR 1^0 

GTPk 13C 

GTPR 142 

GTPR 150 

GTPH 160 

GTPR 170 

GTPR 180 

GTP.* iqc 

GTPR 2CC 
GTpB ^10 
GTPR 220 
GTPR ZiO 
GTPR 2AG 
GTPR 250 
GTPH ZtC 
GTPR 270 
CrPR 280 
GTPR ^-50 
GTPR 3CC 
GiPK 3Kj 
GTPR 52C 
GTPR 330 
.GTPR 3<,0 
GTPR 350 
CTPk 36C 
GTPR 370 



GTP 



3ElO 



GTPR 390 

GTPR 400 

GTPR 410 

GTPR *t20 

GTPR 430 

GTPR -.^C 

GTPR 450 
GTPR 460 
GTPR 470 
GTPH 480 
GTPR 49C 
GTPR aOO 
GTPR 510 
GTPR SZO 
GTPR 530 
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Subroutine MADD 



Subroutine MSUB 



SUBROUTINE MAJU 



PUKPiJSc 

MiO TMO MATRICES tLtHENT dY ELEMthf TU fO«H RfcSULfANr 
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•JSAGt 

CALL MAOOlA 



.RtN.i 



»Sbi 



t>tSCKlPIIUh Of PARArttT£RS 

A - fiAHt Of INPUT MATRIX 
d - NAME JF (NPUT MATklK 
R - NAMt 3F OUTPUT MATRIX 

■■4 - H-JtHatH OP AOnS IN AtdfR 

1^ - NLIHdtit OF COLUMNS iN A.iJ.R 

MSA - uNt tlllilT NU«6£R FOR STJRAoE WOOE Uf HATAU A 
Q - GENcKAL 

1 - SirWitTRlC 

2 - 0IAG0r4AL 

HiU - SAME AS MSA EXCEPT fCR MuTRlX U 



SUBROuTINfcS MO FUNCTION $UBPKtlG«AMS REQUIRcO 

LUC 

METHOD 

STUKAGE rtQJt uF iJUTPUT MATAIX li FIRST OCTEhMIwcO. AOUIT 
UF COkkESPUNJING fcLEHtNTS IS THlN PtRFORMEO. 
THE FOLLOWING TABL£ SHUwS THE STORAGfc MODE UF TH£ OUTPUT 
rtATkU FOR AtL COMdlNArlONS OF iNPul MATRICES 



GeNERAL 

C£NfcRAL 

GENERAL 

SyMMcTfttC 

SVHHdTKlC 

SCHMETRIC 

DI AGUNAC 

01 AGONAL 

DIAGONAL 



GENERAL 

SYMMETRIC 

DIAGONAL 

GlwCRAL 

SYMMETftIC 

OIAGUNAL 

GENfcRAL 

SYMMETRIC 

DIAGONAL 



«tNE«AL 

GcNcRAL 

CtNEt<AL 

t;tNERAL 

SVHMETRJC 

SfMHETRlC 

GtNtRAL 

SYMMETRIC 

DIAGONAL 



SUbRUUT INE MAOOI Aid ,R, M.M, MSA.MStJ) 
DIMENSION AlK.ei 11. «I 1) 

L-ETtHMINe Srj^AGE MQOt OF JUTPUT MATRIX 

lF[MiA-MSd) 7, b, I 
b CALL LUC1N.M,NM.N.M,HSA) 

GU TO IOC 
7 MrcST=MSA*M5a 

MSR=0 

IflMTfcSn 20.20.10 
C MSR=1 

D |F(MTcST-2l 35,35, 3d 
Li MSR=2 

LOCATE tLEMENTS AND PtkFORN ADDITION 

i) 00 90 J = l,M 

00 90 I=1,N 

CALL LJC( I* J. IJRtN,M,MSRI 

IF{IJR] ^C^O.^iO 
) CALL LOCU,J.IJA,N,M,MSA} 

AEL-C.O 

IF( IJAl 53,60,50 
} AEL=A( IJA) 
) CALL LaC< It J. IJB.N.n.MSBI 

BfeL=0.0 

IFIUei TO. 60.70 
) BtL^BI IJBl 
) R(J JRI-AEL+BEL 
'. CONTINUE 

RETURN 

AUD MATRICES FOR OTHER CASES 

I 00 ilO I-L.NH 
I R( I )=A( II *6l II 
RETURN 

END 



NADO 
.MAUU 
MALO 
HAC-0 
MADO 
MAOD 
HAOO 
HAi;0 
MAtO 93 
MADO 100 
MAOD lie 
MAOD UC 
MAUi) 130 
MADO UO 

HAuii 15a 

HAl/0 loC 
MADO 170 
MADO 1 60 
MADO 190 
MALD 2CC- 
HAOO 210 
MADO 220 
MAOD 2 30 
MAOO 2«C 
MADD 250 
MADO ^60 
MAtD ^70 
MACJ 28C 
MADO 29C 
HADO 30C 
MAOO J 10 
lON MAUD 320 
MADO 3 30 
MAUO 3-10 
MAOD 350 
MAOO 36C 
MAOO 37C 
HADO 380 
MACD 390 
MACO 4UC 
MAOO 410 
HAOO 42C 



MADO 4<>0 
MAOO 450 
MADU 460 
..MADO 4 70 
MAtO 4 60 
MAOO 490 
MADO SCO 
MAOO 51G 
MAOO •>20 
MAOD )>C 
MAOO 540 
MACO 5 SO 
HADO 560 
MAOO 570 
MAOD SUG 
NADU 590 
MAOO &C0 
MADO 6L0 
MAOO 620 
MAOD 6JC 
MADO 640 
NADD 650 
MAOO 660 
MAOD 6 70 
HAOO 660 
MADD 69C 
HALO 700 
MAOO 710 
MADO 720 
HAOO 730 
HAOO 740 
HADO 750 
HADO 760 
HAOO 770 
HAOO 780 
HAOO 790 
HAOO 600 
MAOO BIO 
HAOO 620 
HADD 83o 
HaOO 840 
MAOD 850 
HAOO 860 
HADO 870 



SUBROUTINE HSUB 

PURPOSE 

SUBTRACT rXO HATftlCES ELEHENT BY ELEMENT TO FQRH RESUt-TANT 
HATRIX 
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USAGE 

CALL HSU8(A,B 



RtN|H,M$A,HSei 



DESCRIPTION OF PARAMETERS 
A - NAME OF INPUT MATRIX 

A ~ NAME OF INPUT HATRIX 

R - NAME Of OUTPUT HATftlX 

N - NUMBER OF ROWS IN A.e.R 

H - hUMBER OF COLUMNS IN A.B.R 

MSA - One OICIT number for storage mode of MATRIX A 

- GENERAL 

1 - SVMHETAIC 

2 - DIAGONAL 

MSB ~ SaHE aS MSA EXCEPT FOR MATRIX B 



SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
LOC 

HETHOO 

STRUCTURE Of OUTPUT MATRIX IS FIRST OETERHINdO. SUBTRACTION 
OF MATRIX A ELEMENTS FROM CORftfcSPUNOING HATRIX A ELEMENTS 

i^ Then perfurheo. 

THE FOLLOWING TABLE SHOWS THE STORAGE MODE OF THE OUTPUT 
MATRIX FOR ALL COH81NATI0NS UF INPUT MATRICES 



GENERAL 

GENERAL 

GENERAL 

SYMMETRIC 

SYMH£TRIC 

SYMMETRIC 

DI AGONAL 

DIAGONAL 

01 AGUNAL 



GENERAL 

SirHMETRIC 

DIAGONAL 

GENERAL 

SYMHETftIC 

DIAGONAL 

GENERAL 

SYMHETRlC 

OIAGUNAL 



GENERAL 

GENERAL 

GENERAL 

GENERAL 

SYMMETRIC 

SYMMETRIC 

GENERAL 

SYMrlETRIC 

DIAGONAL 



SUbROUTlNt HSUBU.U.R.N.H.HSA.NSiil 
OIHENSION A( 1) ,dl 1) ,R( II 

DETERMINE STORAGE MODE OF OUTPUT MATRIX 

iFIMSA-MSbl 7,5. 1 
S CALL i.OCIN.nt.\H,.^,H.HSAt 

GO rU ICO 
7 HT£Sr=MSA«NSa 

HSR>0 

IFIMTESTI ^0,20, IC 
C HSR-1 
IF(MTEST-2) 35,33,30 

HSR-2 

LOCATE ElEHENTS ANO PfcRfOKH SUBTRACTION 

5 00 90 J^i.H 

DO 9C I>ltN 

CALL LOCI i.J. IJK.N, M.MSK) 

Iff UKI 40,9C,40 
3 CALL LUC( 1. Ji IJA.N. M,HSAI 

A6L"C.O 

IF( (JAI ^.60, 50 
} AEL'AI IJAl 
"t Call luCI I , j. ijs. n. h,hsbi 

5£c=0.0 

lEI Uci 70, hO, JQ 
' bEL-o( Ijai 
; Rtl Jkl=A£L-rt£L 

1 CUNTINJE 
RETURN 

SUBTRACT MATKICeS FOR OTHER CASES 

t DU lie l=l,NM 
I Mil 1-AI I t-bi I) 

RETURN 



MSUB 

HSUB 

MSUB 

HSUB 

HSUB 

HSUB 

HSUB 

HSUB 

HSUB 

MSUB 100 

MSUB ILO 

MSUB 120 

MSUB 130 

HSUB 140 

HSUS L50 

HSUB 160 
MSUB 170 

HSUB lao 
HSU8 19C 
HSUB 200 
MSUB 210 
MSUB 220 
MSUB 2 30 
HSUB 240 
MSUB 250 
HSUB 260 
HSUB 270 
HSUB 280 
HSUB 290 
HSUB 300 
HSUB 310 
HSUB i20 
HSUa 330 
HSUB 340 
MSUB 350 
HSUe 360 
MSUB 370 
MSUB 380 
MSUB 39C 
MSUe 400 
MSUB 410 
HSUB 420 
HSUB 4 30 
MSUB 440 
MSUB 450 
MSUb 460 
MSUa 470 
..MSU8 4d0 
MSUb 490 
MSUd 500 
HSUB ilO 
HSUd ■>20 
MSUB 530 
MSUB 54C 
MSUb 550 
MSUB 56'] 
HSUB 5 70 
HSUB 5SC 
HSUd 190 
MSUa bZl' 
MSUd 610 
MSU8 620 
MSua 630 

MSUb 34C 

HSUB o5C 
MSUB 660 
MSUB 670 
MSUB 6^0 
MSUt) 69? 
MSUb 700 
MSUb TIO 
MSUB 720 
MSUb 730 
MSUB 740 
MSUb /5'J 
MSu8 760 
MSUB 770 
MSUB 76C 
HSUd 7 JO 
HSUB SCO 
HSUB e 10 
HSUB d20 
MSUB diC 
MSUa i]40 
HSUd 95C 
HSUb BbO 
MSUB a70 
MSUB 880 
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Subroutine MPRD 



Subroutine MTRA 



20 



SUtiKOJrihb HPHD 



PURPQSt 

MULTIPLY TWO HATRICES TO fORH A RfSULlANr MATRIX 



CALL HPK0{A,e.R.N.M.NSA.i1SB.Li 
iJESCtilPTION Of PAftAMtltRS 

A - NAMfc Of fiftsr Input matrix 
d - name uc sfccONO iNPur matrix 
R ' NAME Of Output matru 

N - NUMBtR OF ROWS [N A AtiO A 

M - NUMfttR Of COLUMNS I^ A AND ROWS IN A 

MSA - ONE JIGJT NUMoER ("33 STORAGE HQOE OF MATRIX A 

- (iEN£RAL 

1 - SYMMEiflIc 

2 - OlAGOAtAL 

MSB - SAMt AS MSA EXCCPT FUR MATRIX B 
L - MJHBcR Jl= COLUMNS IN d ANO R 

REMARKS 

MATRIX R LAAINUT Bt IM IH€ SAMt LOCATION AS HATKIC£$ A OR 
l4UrtBcK UF COLUMNS Ot^ MATRIX A MUST BE tOUAL TO NUMBER OF 
OF MATRU e 

SUdKGUTINES ANO FUNCTION SUBPROGRAMS ftEQUIR£D 
IQC 

MtTHOO 

THE M ay L MATRIX 6 IS PREMUL Tl PLIED BY THE N BY M MATRIX 
ANJ THE RfcSULT IS STQREi) IN THE N BY L MATRIX R. THIS IS 
ROW INTO COLJHN PKOOUCT. 

IHt FOLLOMiNG TABLE SHOWS THE STORAGE MODE OF THE OUTPUT 
MATRIX FOR ALL COMBINATIONS OF INPUT HATRiCcS 



GENERAL 

GENERAL 

&tN£RAL 

SYMMETRIC 

SYMMETRIC 

SYMMETRIC 

DIAGONAL 

DIAGONAL 

DIAGONAL 



3£NERAL 
SYMMETRIC 

DIAGONAL 

GENERAL 

SYMMETRIC 

DIAGONAL 

GENERAL 

SYMM£TR1C 

DIAGONAL 



GENERAL 
CtNERAi. 
GENcRAL 
GENERAL 
GENERAL 
GENERAL 
GENERAL 
GENERAL 
DIAGONAL 



SPECIAL CASE FOR DIAGONAL BY OIAGJNAL 

MS«MSA»10+MSB 

IFIHS-22> 30.10.30 
I 00 ^0 I'itN 
I R(I l-A{ U*U( I) 

RETURN 

ALL OTHER CASES 

I IR=L 

OO 90 R-l.L 

DO 90 J-I.N 

RIIR>=0 

00 so I-l.H 

IFIMSI 40.60.40 
I CALL LOClJ.I.IA.N.H.nSAI 

CALL LOCI I.K.IB.M.L .HSei 

IFIIA) 50.80.50 
I IFIIB) 70*00.70 
I tA-H*{ l-ll+J 

ie>H*llt-lMI 
I RURI>R( IK)*AI|A1«SIIB1 
I CONTINUE 

RETURN 

END 



MPKD 
, . . . MPKO 

HPRO 10 
MPRD *0 
MPRD 50 
MPRO 60 
MPRO TC 
MPRO 83 
MPRO 90 
HPRD 100 
MPRO 110 
MPMO t2C 
MPRO 130 
MPRO 1*0 
MPRD 150 
MPRD 160 
MPRO 170 
MPRO IHC 
MPRO 190 
MPRO ZCO 
HPRD 210 
MPRO 220 
MPRO 2 30 
MPRO 240 
MPftO 250 

e HPRO Z6C 

RUHHPRO 27C 
MPRO 2B0 
HPRt) 29C 
MPRD JOO 
MPRD 310 
MPRD 320 
MPRO 330 
MPRD 34G 
MPRO 350 
MPRD 360 
MPRO i70 
HPRO i80 
HPRO 390 
MPRO *00 
MPRD 410 
MPRO 420 
MPRO -tJO 
HPRD 440 
MPRO *50 
MPRO 460 
MPRO 470 
MPRO 480 
MPRO 490 
.MPRO 500 
MPRO 510 
MPRO 520 
MPRO 530 
MPKO 540 
MPRO 550 
HPRO 56C 
MPRO 5 70 
MPRO 5d0 
NP«0 590 
HPRO 600 
MPRO 610 
MPRO 620 
HPRO 630 
MPRO 640 
MPRO 650 
HPRO 669 
HPRO 6 70 
HPRO 6 60 
MPRD 690 
MPRD 700 
HPRD 710 
MPRD 720 
HPRD 7 30 
MPRO 740 
MPRO 750 
MPRO 760 
MPRD 7 70 
HPRO 7S0 
MPRO 790 

MPRO a 00 
MPRO a to 



SUBROUTINE MTRA 

PURPOSE 

TRANSPOSE A MATRIX 

USAGE 

CALL HTRAIA.R.N.M.NS) 

DESCRIPTION OF PARAMETERS 

A - NAME OF MATRIX TO o£ TRANSPOSED 

R - NAME OF OUTPUT MATRIX 

N - NUHSER OF ROWS OF A ANO COLUMNS OF R 

H - NUMe£R OF COLUMNS OF A AnO ROUS OF R 

MS - ONE DIGIT NUMBER FOR STORAGE MOOt OF MATRIX A (ANO R) 

- GENERAL 

1 - SYMMETRIC 

2 - DIAGONAL 

REMARKS 

MATRIX R CANNOT BE IN THE SAME LOCATION AS MATRIX A 

SUBKOuriNES ANO fUNCTION SUBPKQGAANS REOUIREO 
MCPY 

McTriOO 

TRANSPOSE N 6r H MATRIX A TO foRH M 6y N MATRIX R BY MOVING 
EACH ROW OF A INTO THE CORRESPONDING COLUMN OF ft. IF MATRIX 
A IS SYMMETRIC OR DIAGONAL. MATRIX R 1$ THE SAME AS A. 
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flO 



SUBROUTINE MTRAIA.R.N.H.HSI 
OIMENSICN AdI.RUl 

IF MS IS 1 OR 2, CUPY A 

IF(M5) IC.20.10 
) CALL HCPY( A.R.N.N.MS) 
RETURN 

TRANSPOSE GENERAL MATRIX 

I 1H = 

00 30 Ul.N 

IJ=I-N 

00 30 J=1,M 

1 J=IJ*N 

IR=IR*1 

Rl Irtl^Al IJI 

RETURN 

tNO 



MTRA 
.MTRA 
HTRA 
MTRA 
MTRA 
HTRA 
HTRA 
HTRA 
HTRA 
MTRA 100 
HTRA 110 
MTRA 120 
MTRA 130 
MTRA 140 
HTRA 150 
HTRA 160 
HTRA 170 
HTRA lao 
MTRA 190 
MTRA ZOO 
HTRA 210 
HTRA 220 
HTRA 23D 
MTRA 240 
HTRA 250 
HTRA 260 
HTRA 2 70 
MTRA 280 
MTRA 290 
MTra 300 
MTRA 310 
HTRA 320 
.HTRA 330 
HTRA 340 
MTRA 350 
HTRA 360 
HTRA 370 
MTRA 3S0 
MTRA 390 
MTRA 40C 
MTRA 410 
MTRA 420 
MTRA 430 
MTRA 440 
MTRA 450 
MtHA 460 
HTRA 470 
MTRA 480 
MTRA 490 
HTRA 500 
MTRA 510 
MTRA 52C 
MTRA 530 
MTRA 5*0 
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Subroutine TPRD 



Subroutine MATA 



sueROuriNE tpro 

PURPOSE 

TRANSPOSE A MATRIX AND POSTHULTIPLY SV ANOTHER TO FORM 
A R6SULTANT MATRIX 



DESCRIPTION OF PARAMETERS 

A - NAME OF FIRST INPUT HATRIX 

a - MAHE OF SECOND INPUT MATRIX 

R - NAHC OF OUTPUT HATRIX 

N - NUMBER OF ROWS IN * AND B 

H - NUH8ER OF COLUMNS IN A ANO ROMS IN R 

KSA - ONE DIGIT NUMBER FOR STORAGE NODE OF MATRIX A 

- GCNERAL 

1 - SVNNETRIC 

2 - DIAGONAL 

MSB - SAME AS MSA EXCEPT FOR MATRIX B 
L - NUNBER OF COLUNNS IN 8 ANO R 



20 



90 



SO 



IS NOT ACTUALLY CALCULATED. INSTEAD* 
ARE TAKEN COLUHNHlSE RATHER THAN 
CATION eV HATRIX 8. 

SHOWS THE STORAGE MODE OF THE OUTPUT 
NATIONS OF INPUT MATRICES 



SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
LOG 



METHOD 

MATRIX TRANSPOSE OF 
ELEMENTS IN MATRIX A 
ROWWISE FOR HULTIPL 
THE FOLLOWING TABLE 
MATRIX FOR ALL COMBU 
A 
GENERAL 
GENERAL 
GENERAL 
SVHHETRIC 
SYMMETRIC 
SVNNETRIC 
01 AGONAL 
01 AGONAL 
DI AGONAL 



GENERAL 

SYMMETRIC 

PI AGONAL 

GENERAL 

SYMMETRIC 

DIAGONAL 

GENERAL 

SYMMETRIC 

DIAGONAL 



GENERAL 
GENERAL 
GENERAL 
GENERAL 
GENERAL 
GENERAL 
GENERAL 
GENERAL 
DIAGONAL 



SUBROUTINE TPROf A.B.R.N.M,MSA.MSB.L I 
DIMENSION AUIfBI I) .R( t) 

SPECIAL CASE FOR DIAGONAL BY DIAGONAL 

HS-NSA*10*MS6 

IFINS-22) 30,10,30 
10 00 20 l>l*N 
20 R(II-A<II*ein 

RETURN 

MULTIPLY TRANSPOSE OF A BY fi 

30 IR-l 

00 90 K-I.L 

00 90 J>L.M 

RIIRt-0.0 

DO to I-L,N 

IFIMSI 40,60,40 
40 CALL LOCII,J,tA,N.N,MSAI 

CALL LaCU,K,IB,N.L*MSBI 

IFIIAI 90,80,50 
50 IFdBI 70,80,70 
60 IA-N*IJ-1)*I 

iB-N*(K-ll*I 
70 R<IR1-R<IR)«A{ IA)*B(IBt 
80 CONTINUE 
90 IR-IR*I 

RETURN 

END 



TPRO 

.TPRD 
TPRO 
TPRO 
TPRO 
TPRO 
TPRO 
TPRO 
TPRO 
TPRO too 
TPRD 110 
TPRO I 20 
TPRD 130 
rPRO 140 
TPRO ISO 
TPRD 160 
TPRO ITO 
TPRO lao 
TPRD 190 
TPRO 200 
TPRO 210 
TPRO 220 
TPRO 230 
TPRO 240 
TPRD 250 
TPRO 260 
TPRO 2 70 
TPRO 260 
TPRO 290 
TPRO 300 
TPRD 310 
TPRO 320 
TPRO 330 
TPRO 340 
TPRO 350 
TPRD 360 
TPRO 370 
TPRO 380 
TPRO 390 
TPRO 400 
TPRO 410 
TPRO 420 
TPRO 430 
TPRO *40 
TPRD 450 
TPRO 460 
TPRO 470 
TPRO 480 

.TPRO 490 
TPRO 500 
TPRO 510 
TPRO 520 
TPRO 530 
TPRO 540 
TPRD 550 
TPRO 560 
TPRO 570 
TPRO 580 
TPRO 590 
TPRO 600 
TPRO 610 
TPRO 620 
TPRD 630 
TPRD 640 
TPRO 650 
TPRD 660 
TPRO 670 
TPRD 680 
TPRO 690 
TPRD 700 

TPRO no 

TPRO 720 
TPRD 7 39 
TPRO 740 
TPRO 750 
TPRO 760 
TPRO 770 
TPRO 780 
TPRO 790 

TPRO eoo 



SUBROUTINE NATA 

PURPOSE 

PAENULTIPLV A MATRIX BY ITS TRANSPOSE TO FORN A 
SYMMETRIC MATRIX 

USAGE 

CALL HATAtA,R,N,H,HSI 

DESCRIPTION OF PARAMETERS 
A - NAME OF INPUT HATRIX 
R - NAME OF OUTPUT MATRIX 
N - NUMBER OF ROWS IN A 
H - NUNBER OF COLUMNS IN A, ALSO NUMBER OF ROUS ANO 

NUNBER OF COLUMNS OF R. 
MS - ONE DIGIT NUMBER FOR STORAGE nOK OF MATRIX A 

- GENERAL 

1 - SYMNETRIC 

2 - DIAGONAL 

REMARKS 

MATRIX R CANNOT BE IN THE SAME LOCATION AS MATRIX A 
HATRIX R IS ALWAYS A SYMMETRIC HATRIX WITH A STORAGE MODE" 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
LOC 

METHOD 

CALCULATION OF (A TRANSPOSE At RESULTS IN A SYMMETRIC MATRI 
REGARDLESS OF THE STORAGE MODE OF THE INPUT MATRIX. THE 
ELEMENTS OF MATRIX A ARE NOT CHANGED. 



SUBROUTINE NATAt A.ft ,N. H,MS ) 
DIMENSION AUI,R(1) 

DO 60 K=t,H 

XX=(K*fC-K>/2 

DO 60 J^l.M 

IF< J-K) 10,10.60 
I iR=J+KX 

R{ IRI-0 

DO 60 l*l,N 

IFIHS) 20,^,20 
I CALL LOC( I.J. lA.N, H.MS) 

CALL LOC( I.K.ie.N.H.MS) 

IFdAI 30,60,30 

IFdSI 50,60,50 

IA=N«(J-lt*I 

IB-N«(K-IJ*I 

R<IR} = R(tR|4-A( 1AI*A(IB> 

CONTINUE 

RETURN 

END 



HATA 
MATA 
MATA 
MATA 
MATA 
NATA 
MATA 
MATA 
MATA 
HATA 
MATA 
NATA 
HATA 
MATA 
HATA 
MATA 
MATA 
HATA 
NATA 
MAT* 
MATA 
MATA 
HATA 
HATA 
MATA 
HATA 
MATA 
MATA 
HATA 
MATA 
HATA 

XHATA 
HATA 
MATA 
MATA 

.MATA 
MATA 
HATA 
MATA 
HATA 
MATA 
NATA 
MATA 
HATA 
MATA 
HATA 
HATA 
MATA 
NATA 
HATA 
HATA 
HATA 
HATA 
HATA 
HATA 
MATA 
MATA 
HATA 



100 
110 
120 
130 
140 

L50 

160 
170 
180 
190 
200 
210 
220 
2 30 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
519 
520 
530 
540 
550 
560 
570 
580 
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Subroutine SADD 



Subroutine SSUB 



SUBKUUTlht SADL 

PUR past 

AOJ A SCALAR 10 EACH tLEMENT Of A MATRIX 10 fORH A 

MATRIX 

USACE 

CALL SAUDI A. C .R. N,H,Ms| 

LitSCRlPIlON UF PARAMiTcRS 
A - hAML OF INPJT HATKIX 
C - SCALAR 

k - NAME jF OUTPUT MATRIX 
N - NUMotft OF ROWS IN MATRIX A AND R 
M - NUM6ER OF COLUMNS IN MATRIX A AND R 
MS - UNt DIGIT NUMBER FOR STOkACE MODE JF MrtfRlX A 
C - OtNERAL 
1 - SYMMETRIC 

i - oiagomal 

Rl; MARKS 
NlJNE 

SU&ROUTiNES AND rUNCTIOh SU&PROGRAMS RfcOUlREO 
LOC 

M£THOO 

SCAL*R IS AUjEO TO EACH ELEMENT Of MATRIX 



SUBROUTINE SAOOt A.L.R.N.M.rtS) 
iJIMENSICN A( n,«< II 

COMPUTE VtCrOR LENGTH, IT 

CALL L0C1N,M,IT ,N,M,MS t 

AOO SCALAR 

OO i ]=I.IT 
R( I ; = A( I i*-c 

RETURN 
END 



SAUO IC 

. ^ SADO 2C 

SACD 30 
SAC-O ^.O 
SADO 50 
SADO 6C 
RESULTANTSADD 70 
SADO ac 
SAOO 9C 
SAtJD IOC 
SAOD 1 IC 
5ADD lifC 
SAOO liO 
SAOO X'tO 
SAOO 15C 
SAOO 16C 
SACD 17C 
SACO IHC 
(AND R} SAOO i9C 
SmLO iCC 
iAOO £1C 

SAOO ^^c 

SADD mC 

SAOO 24C 

SAOD ;?: 

SACD 2t>C 
SAOO 270 

SAOO zee 

SADD 290 
SAOO iCC 
SAOO 31C 
SAOO 32C 

SAOO 330 

SACD 3«.C 
SAOD 3 5C 
SADD 3t)0 
SAOD 37C 
SADD iSC 
SAOD 390 
SADO <fCC 
SAOO *flC 
SADO (,^Z 
SADO •'iO 
SAOO A^C 
SAOO AiC 
SAOO 46C 
SAOO *.70 



SUBROUTINE SSUB 

PURPOic 

SUBTRACT A SCALAR FROM E^CH tLfcM£Sr Of A MATRIX TO fORM A 
RESULTANT MATRIX 

JSAGE 

CALL SSUaf AtC 'RtN.M.MS) 

DESCRIPTION Cf ^ARAMETtRS 
A - NAMfc OF INPUT MATRIX 
C - SCALAR 

R - NAMc OF UUIPUT MATRIX 
N - NUMOtR Of RO-S IN MATRIX A AND R 
M - NUMBER OF COLUMNS IN MATRIX A ANO R 
MS - ONE OIGir NUMBER FOR STORAGE MCOE OF MftTfllX A (ANO Rl 

- General 

1 - SlfMMETRIC 
Z - Ul AGONAL 

REMARKS 
NONE 

SUBROUTINES And function SUBPROGRAMS REUUIAEO 
LOC 

methoo 

SCALAR IS SUBTRACIEO FROM EACH £ACM ELEMENT OF MATRIX 



SUBROUTINE SSUBI A, C.R.N, M.MS) 
DIMENSION AlUtRI 1) 

COMPUTE VECTOR LENGTH, IT 

CALL LaC(M,H, IT.N.H.MS) 

SUeTRACT SCALAR 

00 i I'l.IT 
Rm=A( l)-C 
RETURN 
END 



SSU8 

.SSUB 

SSUB 


IC 
2C 
JC 


SSU6 


4r 


SSUB 


5C 


SSUB 


bC 


SSUb 


IC. 


SSUB 


BC 


ssue 


9C- 


SSUB 


I on 


SSUB 


110 


SSUB 


liO 


SSUB 


I 30 


SSUB 


uc 


S5U8 


150 


SSUB 


160 


SSUB 


1/0 


SSUB 


IB'J 


SSUB 


I9C 


SSUB 


/oc 


SiUS 


?ic 


ssue 


??? 


SSUB 


240 


SSUB 


^40 


S5U6 


250 


SSUB 


260 


SSUB 


->70 


SSUB 


280 


SSUB 


2SC 


SSUB 


300 


SSUB 


31C 


SSUB 


3 AT 


.SSUB 


330 


SSUB 


StO 


SSUB 


350 


SSUB 


360 


SSUB 


3 70 


SSUB 


380 


SSU6 


390 


SSUB 


'.00 


SSUB 


4rlO 


SSUB 


MQ 


SSUB 


*3C 


SSUB 


*<-C 


SSUB 


-.iO 


SSUB 


460 


SSUB 


470 
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Subroutine SMPY 



Subroutine SDIV 



HOLXlPtt cACH ELEMENT OF A MATRIX flV A SCALAR JU FORM A 
RESULTAhT MATRIX 



OtSCRiPTION Jf fAHAMtrthS 
A - NAMt UP INfUT MATRIX 
C - SCALAK 

R - NAME Cf c*UTPUT MATRIX 
N - NUHatiH Jt <U*ii IN HATRIX L AND R 
(1 - NL'HOi:R Ot" CULUHNb IN MATRIX A AMD K 

MS - cue oi';ir numcii^h fum storage Moot of hatkix a iahd (<} 

- GtNtkAL 

1 - SYMMcTftlC 

2 - DIAGONAL 



REMARKS 



SUBROUTINES A.NO FU»iClION 5.U0PRJGRAMS RtiiiilRtO 
LQC 



SUSAOUT INt SHP¥(A.C|R.NiH,MS} 
ulMtMSiCf^ A[ 1) f R( IJ 

CuMPure VECTUk LENGTH, IF 

CALL L3C{N,M, U,,\i,M,MS» 

MULT [pLY ev SCALAR 

oa 1 1=1, IF 

K( I )=A( [1*C 

RETURN 
LHu 



SMPY 


IC 


. SMPY 


20 


SMf-Y 


io 


SMCY 


4c 


SMPY 


^c 


SMPY 


60 


SMPY 


TC 


iMPV 


Hf 


SMPY 


90 


SMPY 


ICC 


SMPY 


uc 


SMPY 


wc 


SMPY 


1 jC 


SMPY 


un 


SMPY 


1;.: 


Sm^y 


IbC 


SMPY 


17!J 


SMPY 


IrtC 


SMPY 


l'*L- 


SMPY 


2LZ 


SMPY 


2Lr. 


SMPY 


22c 


SMPY 


/K 


SMPY 


i^C 


SMPY 


ii'jC 


SMPY 


/C<L 


SMPY 


pt:, 


SMPY 


■/■d'^ 


LMPY 


^90 


SMPY 


jc: 


SMPY 


ilC 


SMPY 


iZ'^ 


SMPY 


3>C 


SMPY 


3 40 


SMPY 


J^C 


SMPY 


^bO 


SMPY 


37C 


SMPY 


3 60 


SMPY 


i<iC 


SMPY 


4C0 


SMPY 


'.li 


SMPY 


42: 


SMPT 


'.J'J 


SMPY 


'^'.C 


SMPr 


*5C 


SMPY 


460 


SMPY 


A ?0 



SUBROUTINE SOIV 

PURPOSE 

DIVIDE EACH ELtMENT Of A MATRIX UY A SCALAR TO FORM A 
RESULTANT MATRIX 



OESCRIPFION OF PARAMETERS 
A - NAME Of INPUT MATRIX 
C - SCALAR 

R " NAME OF OUTPUT MATRIX 
N - NUMtltK OF ROMS JN MATRIX A AND R 
M - NUM6ER OF COLUMN:. iN MATRIX A AN0 R 
MS - ONE LIGIT NUMBER FUR STORAGE MODE OF MATRIX A ( ANu R) 

- GENERAL 

1 - SYMMETRIC 

2 - DIAGONAL 

REMARKS 

IF SCALAR IS ZERO. DIVISION IS PERFOAHEO ONLY OrcE 10 CAUSE 
FLOAFINO POINT QVERFLUM CONDITION 

SUBROUriNtS AND FUNCTION SUbPROGRAHS REOuIREO 
LOC 



SUBROUTINE SOIV(A*C>R. N.M.MS) 
L-lMcNSION A( II,R( II 

COMPUTE VecTuR LENGTH, IT 

CALL LOCI N.M, ir,N.M,M3) 

OH/IDfc BY SCALAR llf SCALAR IS Z£RU, OIVIOE ONLY ONCE) 

IFIC) 2,1.2 

1 IF>1 

2 00 3 1 = 1. IT 

3 kH I = 4( Il/C 
RETURN 

tNO 



SDIV 10 
.SOIV 20 
SDIV 30 
SDIV ^0 
SOIV 50 
SOIV 60 
SDIV 70 
SOIV bO 
SDIV -SO 
SDIV 100 
SUIV UO 
SDIV i^O 

soiv lao 

SDiV UO 

StJlV l!)0 

SDIV 160 

SiJiV 170 

SDIV 180 

SDIV 190 

SDIV iroij 

SOIV 210 
SuIV 220 
SOIV HQ 
SDIV 21^0 
SUIV 2^0 
SDIV ^6C 
SOIV 270 
SOIV 2d0 
SDIV 2'*2 
SDIV >00 
SOIV lie 
SOIV 320 
SOIV 3iCi 
SOIV 3'tO 
SDIV 3iO 
SJIV ifcC 
SOIV i7C 

SOIV 'JJ3'^ 

Si. IV 3''C 
iOIV tt/O 



^«.C' 



SDIV 

SDIV '.bO 

SOIV '.'.0 

sl>i V 4 ro 

SOIV i.-iO 

SOIV <*■•,'-, 

SDIV i.CC- 
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Subroutine SCLA 



Subroutine DCLA 



.fc ?>L( A /U 



bUtfKlWjrlNt SCI A 

PUKPOSt 

:>Ll LACK LLtHtNT (If A HATHIX LOUAL Td A GIVtN SCALAH 

USAt;t 

CALL SCLA (A,C,N,M,HSI 

UtSCKIPTIIJN af PAKAMtlCkS 

A - NAMfc M iNPUr HAIKU 

C - SCALAK 

N - NUHULK U¥ KdWS IN HAThIX A 

N - NUMUtK Uf CULUMNS IN MAfHIX A 

MS ' IINL Jlull NUHULH hUK STUKAtiL MUUL UF HATKIX A 

- (^tNtKAL 

1 - SYNMfcTKIC 
2-01 AGUNaL 



SUBKUUriNtS AND FUNCTIUN SUBPKUGriAHS REQUIREO 
LUC 



SUBRUUTINE SCL Al A.C.M. H. MS ) 
OintNSiON Afll 

COMPUIt VtCrOR LtNGIH, If 

CALL LUCIN.H, ir. N.M.MS) 

RtPLACt BY SCALAR 

00 i 1=1. IT 
1 Al D-C 
KETURfl 
END 



SCI A It} 



SCI A 


ti. 


SCLA 


M 


^LL A 


•»C 


SCLA 


ino 


SCI A 


1 10 


SCLA 


I/O 


SCLA 


1 )0 


SCLA 


1-^0 


SCI A 


l',G 


SCLA 


IhO 


SCLA 


1 to 


SCiA 


IHO 


SCLA 


IVC 


SCLA 


<;ou 


SCI A 


.-IC 


SCLA 


^^0 


SCLA 


/iO 


SCLA 


/AO 


SCLA 


/'>0 


SCLA 


/tfO 


SCIA 


^ro 


SCLA 


^bo 


SCLA 


^■^^c 


SCLA 


100 


.SCLA 


110 


SCLA 


i/0 


SCLA 


no 


SCLA 


i<.0 


SCLA 


i'>0 


StLA 


160 


SCLA 


iro 


SCLA 


IHO 


SCLA 


JVO 


SCLA 


^00 


SCLA 


Air> 


SCIA 


'.^0 


SCLA 


AiO 


SCLA 


J. 40 


SCLA 


<.50 



SUBROUriNI: UCLA 

PURPUSt 

SkT t:ACH UlAGtMAL tLLMLNT UF A HAfRIX LtlUAL rO A VCAlAft 

USAGE 

CALL OCLA UiC.h.HSI 

UbSCRIPTIUN OF PAMAMLILkS 
A - NANt Jf= INPUT HATHIX 
C - SCALAR 

N - hUHULR UF HCIWS ANU COLUMNS IH MATRIX A 
NS - ONt DIGIT NUtBcK FUR SlURA&t HUDt Qf HATRlX A 

- GeNLRAL 

1 - SVHHLTRIC 

2 - DIAGONAL 

RLMARKS 

IN^JT MATRIM MUST BL A SUUARL MATRIX 

SUBRUUriNtS AND FUNCTIUN SUUPKUGAAMS REtiUlHt;0 
LUC 

MLTHUO 

tACM tLtMtNT ON 01 AGUNAC Of MATRIX IS RCPLACIO flV SCALAR C 



DO i I - 1 , N 

LUC Ml ul A;;uNAt tLtMbNT FOR ANV 

CALL LUCI 1. It IU,N,N,MS) 

KtPLACb tlAOUNAL (.LtMlNIS 

&( lUI'C 
ktlUkN 
ENU 



•IRIX STORAGE MUOt 



UC4 A 10 
.OCLA /O 
UCLA 10 
OCLA 4,0 
UCL A ^0 
UCLA 60 
UCLA ia 
UCLA 80 
OCL A 90 
OCLA 100 
UCLA 110 
OCLA l<fQ 
OCLA no 
UCLA ISO 
UCLA IbO 
OCLA 140 
OCLA 1 to 
OCLA lao 
OCLA 190 
UCLA 200 
OCLA 210 
UCLA 2 20 
OCLA :fio 
UCLA 2^0 
UCLA 2S0 
UCLA 260 
UCLA 2/0 
UCLA 2tl0 
OCLA 2ho 
.UCIA }00 

ociA no 

UCLA 120 
UCLA no 
OCLA it,0 
OCLA ISO 
UCIA JbO 
UCLA iro 
UCLA J«0 
OCLA )<<0 
UCLA iiOO 
UCLA 410 
OCLA HJO 



OCl A 



30 
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Subroutine RADD 



Subroutine CADD 



C SUMOUTINE HAOD 

C 

C PURPOSE 

C AOO ROW Of ONE HATRIX TO flOM 0^ ANOTHER MATRIX 

C 

C USAGE 

C CALL RAJO(A<IRAtRtIR(t«r«tH,M$,LI 

C 

C 0£SCHIPnCN Of PARAHETfRS 

C A - NAiie Of INPUT HATHU 

C IRA - ROM IN MATRIX A TO HE AOJtO TO ROW IRR OF NATRlX R 

C R - NAME JF UUTPUT MATRIX 

C IHA - ROW IN MATRIX. R WHERE SJtiMATION IS DEVELOPED 

C N - NOMdER OF ROWS IN A 

C M - NUMdER Of COLUMNS IN A ANO R 

C MS • ONE OISIT NUMBER fOR STORAGE MOOE OF MATRIX A 

C - GENERAL 

C 1 - SyNNETRIC 

C Z - DIAGONAL 

C L - NUH8ER Of ROWS IN R 

C 

C REMARKS 

C MATRIX R MJST 8£ A GENERAL MATRIX 

C MATRIX R CANNOT BE IN THE SAME LOCATION AS HATRIX A UNLESS 

C A IS GENERAL 

C 

C SUSRQUriNES AND FUNCTION SUBPROGRAMS REQUIRCO 

C LOC 

C 

C METHOD 

C EACH ELEMENT OF ROw iRA Of MAfRU A IS AOOEO TO 

C CORRESPONOINS ELEMENT Of KOW IRR OF MATRIX R 



SUBROUTINE RAOO( A, IRA.R. IRR«NtM«MS.L} 
DIMENSION A( 1)* Rl II 

IR'UR-L 
00 2 J-l.M 
IR*IR+L 

LOCATE INPJT ELEMENT FOR ANY HATXIX STDRAGE MOUE 
CALL LOCnRA«J.IA.NtH,HS) 

TEST fOR ZERO ELEMENT IN DIAGONAL HATRIX 
If (lA) 1.2.1 

AOO Elements 

1 RIIR)«A(lA}^AllAt 

2 CONTINUE 
RETURN 
END 



20 



RAOO 

.RADD 
RAOO 
RADD 
RAOO 
RAOO 60 
RAOO TO 
RADD BO 
RAOO 90 
RADD too 
RAOO 110 
RAOO 120 
RAUO 130 
RADO 1^0 
RAOO ISO 
RAOO 160 
RADO I TO 
RADO IBO 
RAOO 190 
RAOO 200 
RAOO 210 
RAOO 220 
RADD 230 
RADD 240 
RAOO 2 SO 
RAOO 260 
RAOO 270 
RAOO 280 
RAOO 290 
RAOO 300 
RADO 310 
RAOO 320 
RAOO 330 
RAOO 340 
RADD 350 
RAOD 360 

.RADD 370 
RAOD 380 
RADD 390 
RAOD 400 
RAOO 410 
RAOO 420 
RAOO 430 
RAOO 440 
RADO 450 
RADO 460 
RAOO 470 
RAOO 4ao 

RADO 490 
RAOO SOO 
RADO 510 
RAOO 520 
RADD 530 
RADO 540 
RADO SSO 
RAOD 560 

RADO sro 

RADO 5B0 
RAOO S90 



SUBROUTINE CADO 

PURPOSE 

ADD COLUMN OF ONE MATRIX TO COLUMN OF ANOTHER MATRIX 

USAGE 

CALL CAOOIA,[CAtR«ICRiN.N.MS*L) 

DESCRIPTION OF PARAMETERS 

A - NAME OF INPUT MATRIX 

ICA - COLUMN IN MATRIX A TO BE ADDED TO COLUMN ICR OF R 

H - NAME Of OurPur MATRIX 

ICR - COLUMN IN HATRIX K WHERE SUHHATION IS OEVELOPEO 

N - NUMBER Of ROWS IN A AND R 

H - NUMBER OF COLUMNS IN A 

MS - ONE DIGIT NUMBER FOR STORAGE NODE OF MATRIX A 

- GENERAL 

1 - SYMMETRIC 

2 - DIAGONAL 

L - NUMBER OF COLUMNS IN R 

REMARKS 

MATRIX R MUST BE A GENERAL MATRIX 

MATRIX R CANNJT BE IN THE SAME LOCATION AS MATRIX A UNLESS 

A IS GENERAL 

SUSROUflNES AND FUNCTION SUSPROGRAMS REttUIREO 
LOC 

METHOD 

EACH ELEMENT OF COLUMN ICA OF MATRIX A IS AOOEO TO 
CORRESPONDING ELEMENT Of COLUMN ICR SF MATRIX R 



SUBROUTINE CAOOI Af ICA.R. ICR.N,H,MS«LI 
DIMENSION Alii. RID 

IR*N«<1Cr-1) 
DO 2 I>1*N 
IR-IR«L 

LOCATE INPUT ELEMENr FOR ANY mAFRIX STORAGE MODE 
CALL LOC(I«ICA(IAtN,M,MSI 

TEST FOR 2ER0 ELEMENT IN DIAGONAL MATRU 
IFI lA) 1.2.1 

ADO ELEMENTS 

1 R(IRl«R(IXI»A(lAl 

2 CONTINUE 

RETURN 
END 



20 



50 



SO 



CADO 
..CADO 
CADO 
CADO 
CADD 
CADO 
CADD 
CADO 
CAOO 
CADO 100 
CAOO 110 
CAOO IZO 
CAOO 130 
CADO 140 
CAOO ISO 

CAOO 160 
CADO I TO 
CAOO ISO 
CAOO 190 
CADO 200 
CAOO 210 
CAOO 220 
CADD 230 
CADO 240 
CAOO 250 
CADO 260 
CADO 270 
CAOO 2S0 
CADD 290 
CADO 300 
CAOO 310 
CADO 320 
CAOO 330 
CAOO 340 
CM>0 350 
CAOO 360 
.CAOO 370 
CADO 380 
CAOO 390 
CAOO 400 
CAOO 410 
CADO 420 
CaOO 430 
CAOO 440 
CADO 450 
CADD 460 
CADO 470 
CAOO 480 
CAOO 490 
CADO SOO 
CAOO 510 
CAOO 520 
CAOO 530 
CAOO 540 
CADO 550 
CAOO S6Q 
CAOO 570 
CAOO 580 
CAOO 590 
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Subroutine SRMA 



Subroutine SCMA 



A SCALAR AND ADD TO ANOTHeR ROW 



sueftouriNE sama 

PURPOSE 

NULTlPLV ROW OF MATRIX BY 
OF THE SANE MATRIX 

USAGE 

CALL SKHAU.C.N.N,LA,LB» 

CJESCAIPTION OF PARAMETERS 
A - NAME Of MATRIX 
C - SCALAR 

h - NUMSER OF ROUS IN A 
H - NUMBER Qf COLUMNS IN A 
LA - ROW IN A TO 6t MULTIPLIED 6V SCALAR 
^a ~ Row IN A TO WHICH PRODUCT IS ADDED 

IF IS SPECIFIED, PROOOCT REPLACES ELEMENTS IN ROW LA 



REMARKS 
MATRIX 



A MUST S£ A GENERAL KATRIX 



SUeROUTlN£S AND FUNCTION SUBPROGRAMS REQUIRED 

NONE 

MErHOO 

EACH ELEMENT OF RQV LA IS MULTIPLIED 8Y SCALAR C AND THE 
PRODUCT IS ADDED TO THC CORRESPONOINS ELEMENT OF ROW LB. 
ROM LA REMAINS UNAFFECTED SV THE OPERATION. 

IF PARAMETER LB CONTAINS ZERO. MULTIPLICATION BY THE SCALAR 
IS PERFORMED AND THE PRQOUCT RcPLACES ELEMENTS in ROW LA. 



SUBROUTINt SitMAU.CtNtMfLA.LS) 
OIMENSION A( 1} 

LAJ=LA-N 
LBJ«La-N 
00 3 J=1,M 

LJCATf cLEMtNT IN BOTH ROWS 



C^eCK Lfl FOR ZERO 

IFILd} 1,2,1 

IF NOT, MULTIPLT BY CONSTANT AND AOO TO OTHER ROW 

A(LtiJI = A(LAJ)«C«'A(Lajl 
GO TO i 

OTHERWISE, MULTIPLY ROW BY CONSTANT 

AILAJI=AiLAJ)«C 

CONTINUE 

RETURN 

END 



SRMA 10 
. SRMA 20 
SRMA 30 
SRMA 40 
SRMA SO 
SRHA 60 
SRMA TO 
SRMA BO 
SRNA 90 
SRMA LOO 
SRNA 110 
SRMA 120 
SRMA 130 
SRMA 140 
SRHA ISO 
SRMA 160 
SRHA 170 
SRMA ISO 
SRMA 190 
SANA 200 
SRMA 210 
SRMA 220 
SRHA 230 
SRMA 240 
SRHA 250 
SRHA 260 
SRMA 2 TO 
SRNA 280 
SRMA 290 
SRMA 300 
SRMA 31C 
SRHA 320 
SRMA 330 
SRNA 3*0 
..SRHA 350 
SRMA 3&0 
SRHA 370 
SRHA 380 
SRHA 390 
SRMA 400 
SRMA 410 
SRMA 420 
SRHA 430 
SRHA 440 
SRHA 450 
SRNA 460 
SRMA 4T0 
SRMA 480 
SRNA 490 
SANA 500 
SRMA SlO 
SRMA S20 
SRMA 5 30 
SRHA 540 
SRHA 550 
SRHA 560 
SRHA STO 
SRMA 560 
SRMA 590 
SRNA 600 
SRHA 610 
SRMA 620 
SRHA 630 



SUBROUTINE SCHA 

PURPOSE 

MULTIPLY COLUMN OF MATRIX BY A SCALAR AND AOO TO ANOTHER 
COLUMN OF THC same MATRIX 

USAGE 

CALL SCHAI A,C,N,LA,LS) 

OeSCRIPTION Of PARAHETEBS 
A - NAHE Of MATRIX 
C - SCALAR 

N - NUMBER OF ROWS IN A 

LA - COLUMN IN A TO BE MULTIPLIED BY SCALAR 
LB - COLUMN IN A TO WHICH PROOUCT IS AOOEO 

IF Is SPECIFIED, PRODUCT REPLACES ELEMENTS IN LA 

REMARKS 

MATRIX A MUST Bt^ A GENERAL MATRIX 



MET MOO 

EACH ELEMENT OF COLUMN LA IS MULTIPLIED BY SCALAR C AND THE 
PRODUCT IS ADDED TO THE CORRESPONDING ELEMENT OF COLUMN L8. 
COLUMN LA REMAINS UNAFFECTED BY THE OPERATION. 
IF PARAMETcR LB CONTAINS ZERO, MULTIPLICATION BY THE SCalAR 
IS PERFDrtHEO AND THE PRODUCT REPLACES ELEMENTS IN LA. 



SUBROUTINE SCMAl A.CN.LA.LBI 
DIMENSION A( 1) 

LOCATE STARTING POINT OF dOTH COLUMNS 

lLA=N*(LA-i| 
1LB = N»CL6-U 

UO 3 1=1, N 

lLA=ILAtl 

ILB=ILB+1 

CHECK LB FOR ZERO 

IF(L6) 1,2,1 

IF NOT MULTIPLY BY CONSTANT ANO AOU TO SECOND COLUMN 

1 A(H_B|=A( 1LAI*C*4(IL6I 
GO TO 3 

OTHERWISt, MULTIPLY COLUMN BY CONiTANT 

Z A(ILA)=A( ILAI*C 
3 CONTINUE 
RETURN 



10 



70 



SCHA 

.SCMA 
SCMA 
SCMA 

SCMA 
SCHA 
SCHA 
SCMA 

SCHA 90 
SCMA 100 
SCHA 110 
SCMA 120 
SCHA 130 
SCMA 140 
SCHA ISO 
SCHA 160 
SCma 170 
SCHA ISO 
SCMA 190 
SCHA 200 
SCHA 210 
SCMA 220 
SCHA 2JtO 
SCHA 240 
SCHA 250 
SCHA 260 
SCHA 270 
SCMA 280 
SCHA 290 
SCHA 300 
iSCMA 310 
SCHA 320 
SCMA 3 30 
.SCHA 340 
SCMA 350 
SCHA 360 
SCHA 370 
SCHA 380 
SCMA 390 
SCHA 40C 
SCHA 410 
SCMA *2C 
SCMA 430 
SCHA 44C 
SCMA 4»0 
SCHA 4e>0 
SCMA 4 70 
SCMA 480 
SCMA 490 
SCMA 500 
SCMA 510 
SCMA 520 
SCMA 530 
SCMA 54G 
SCMA 550 
SCMA 5&0 
SCMA 5TC 
SCHA 5S0 

SCMA 590 
SCKA 600 
SCMA 610 
SCHA 620 
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Subroutine RINT 



Subroutine CINT 



ThO rows of a HAIitlK 



I. LA, LB t 



OtSCKlPTlJ'J OF PA«AM£T£RS 
A - NAME iJF MATRIX 

N - NUMbtR JF ROWS IN 4 

M - NUMdcK Of COLUMNS IN A 

LA - ROW TfJ BE INrEftCHANGEO UllH kOH LB 

IE - ROW T3 dt IMTERCHANCeO WUH ROH LA 

REMARKS 

MArftlX A HJSr B£ A GENtKAL MAIrtlX 

SLiB^lOUI INLS AND fjNCIION SUBPROGRAMS HtOUIReo 
NtlNE 

MerriOo 

EACH £LE^E«r OF ROW LA IS INrCRCHANGEO WITH CtHtReSPONOINC 
ELtrttNT OF ROW L8 



SUSRClUriNL RINT{A,N,H,1.A,LBI 
DIMENSION A( 1) 

LAJ=LA-N 
LBJ=LB-N 
DO i J=Itr1 

LOCATE ELEMENTS IN BOTH ROWS 



iNTckCHANOe ELEMENTS 

SAVE^AI LAJ] 
A(LAJ) = A(L6J) 
3 A(LBJI=SAVE 
RETURN 

tfJO 



90 



..RINT 20 
RINT 30 
RINT «0 
RINT 50 
RINr 
RINT 
RINT 
RINT 
RINT 100 
RINT 110 
HINT 120 
RINT 130 
RINT L40 
RINT 150 
RINT 160 
R{Nr 170 
RlNT ISO 
RINT 190 
RINT 200 
RJNT 210 
RINT 220 
RINT 230 
RINT 240 
RINT 290 
RINT 260 
RINT 270 
RINT 280 
..RINT 290 
RINT 300 
RINT 310 
RINT 320 
RINT 330 
RINT 340 
RlNT 390 
RINT 360 
RINT 370 
RINT 380 
RINT 390 
RINT 400 
RINT 410 
RINT 420 
RINT 430 
RINT 440 
RINT 450 
RINT 460 
RINT 4T0 
RINT 4B0 
RiNT 440 



SUSROUTINe CiNT 

PURPOSE 

INTERCHANGe TMO COLUMNS OF A MATRIX 

USAGE 

CALL CINT(A,N,LA.LB) 

DESCRIPTION Of PARAMETERS 
A - NAME OF MATRIX 
N - NUMBER Of ROUS IN A 

CA - COLUMN TO Bt INTCRCHANCEO KiTH COLUMN tB 
LB - COLUMN to S£ INTERCHANGED WITH COLUMN LA 

REMARKS 

MATRIX A MUST BS A GENERAL MATRIX 

SUeROUTINbS AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

EACH ELEMENT OF COLUMN LA IS INTERCHANGED WITH 
ELEMENT OF COLUMN LB 



30 



60 



90 



SUBROUTINE ClNTIAiNtLAtLB) 
DIMENSION Ad) 

LOCATE STARTING POINT OF BOTH COLUMNS 

ILA-N*(LA-1I 
lLB=N*(La-l} 

OQ 3 Ul,N 

1LA-ILA«1 

ILfl^Ue+l 

INTERCHANGE ELEMENTS 

SAVE=A(ILA) 
A(ILAI = A( ILBI 
3 A(1LB)=SAV£ 
RETURN 
END 



^ CINT 

i CINT 

CINT 
CINT 
CINT 
CINT 
CINT 
CINT 
CINT 
CINT 100 
CINT 110 
CINT 120 
CINT 130 
CINT 140 
CINT 150 

CINT 1«0 

CINT 170 
CINT 180 
CINT 190 
CINT 200 
CINT 210 
CINT 220 
CINT 230 
CINT 240 
CORRESPONOINGcINT 250 
CINT 260 
CINT 270 

CINT 280 

CINT 290 
CINT 300 
CINT 310 
CINT 320 
CINT 330 
CINT 340 
CINT 350 
CINT 36C 
CINT 370 
CINT 380 
CINT 390 
CINT 400 
CINT 410 
CINT *20 
CINT 430 
CINT 440 
CINT <,50 
CINT 46C 
CINT 470 
CINT 480 
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Subroutine RSUM 



Subroutine CSUM 



SUBKOUTINE RSUM 

PURPOSE 

SUN ELEMENrS Of EACH ROW TO FORM COLUftN VECrOH 

UiAQt 

CALL ASUN (AiR.N.M.nSI 

OcSCRlPTlON Of= rARAMErERS 
A - NAME OF INPUT MATRIX 
(t - lUMe OF VECrOR OF LENGTH H 
N - NUNBfcR OF ROUS IN A 
M - NUHBER OF COLUMNS IN A 
MS - 0N€ DIGIT NUM8ER fOA SrORAGfc MODE Of NATftU A 

- GENERAL 

1 - SYMMETRIC 

2 - DIAGONAL 

REMARKS 

VECTOR R CANNOT tt IN THE SAME LOCATION *S MATRIX A 
UNLESS A IS GENERAL 

SUBROUTINES *N0 FUNCTION SUSPROGRAMS REQUIRED 
LOC 

METHOD 

ELEMENTS ARE SUMMED ACROSS EACH ROW |NtO A CORRESPONOINC 
ELEMENT OF OUTPUT COLUMN VECTOR ft 



20 



$0 



SUaROUTINC R$UN(A«RfN«MiMSJ 
DIMENSION AdI.Rd) 

00 3 I-1«N 

CLEAR OUTPUT LOCATION 
Rdl-O.O 
00 ) J-l,M 

LOCATE ELEMENT FOR ANY MATRIX STORAGE MODE 
CALL LOC(I.J*IJ.N<M«MS> 

TEST FOR 2£R0 ELEMENT IN DIAGONAL MATRIX 
IfdJJ 2»3«2 

ACCUNULATE IN OUTPUT VECTOR 

iJ5iJJL-R*l»***l4J 
i CONTINUE 
RETURN 

END 



RSUM 
..RSUM 
RSUM 
RSUM 
RSUM 
RSUM 60 
RSUM 70 
RSUM 80 
RSUM 90 
RSUM too 

RSUM no 

RSUM L20 
RSUM 130 
RSUM L40 
RSUM ISO 
RSUM 1*0 
RSOH 110 
RSUM 180 
RSUM 190 
RSUM 200 
RSUM 210 
RSUM 220 
RSUM 2i0 
RSUM 24^0 
RSUM 250 
RSUM 260 
RSUM 270 
RSUM 280 
RSUM 290 
RSUM 300 
RSUM 310 
RSUM 320 
..RSUM 330 
RSUM 340 
RSUM 3$0 
RSUM 3A0 

RSUM aro 

RSUM 380 
RSUM 390 
RSUM 40C 
RSUM 410 
RSUM 420 
RSUM 430 
RSUM 4.^ 
RSUM 450 
RSUM 460 
RSUM 4 70 
RSUM 460 
RSUM 490 
RSUM 500 
RSUM $10 
RSUM 520 
RSUM 530 
RSUM S40 
RSUM $S0 
RSUM 560 
RSUM 570 
RSUM 580 
RSUM 540 



suaituuriNE csjH 

PURPOSE 

aUM ELEMENTS OF EACH COLUMN jO FORM ROU VECTOR 

USAGE 

CALL CSUMl A,R,NtM(HSI 

DESCRIPTION OF PARAMETERS 
A ~ NAME OF INPUT MATRIX 
ft - NAME (Jf VECTOR OF LENGTH M 
N ' MJM8EK OF ROWS IN A 
H - NjMa£R OF COLUMNS IN A 
MS - ONE DIGIT NUMBER FOR STOftAGE MOOE OF MATRIX A 

- GENERAL 

1 - SYMMETRIC 
2-01 AGONAL 

REMARKS 

VECTOR R CANNOT BE IN THE SAME LOCATION AS MATRIX A 
UNLESS A IS GENERAL 

SUdftOUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
LOC 

METHOD 

i:Lt:MeNrS ARE SUMMED DOWN EACH COLUMN INTO A CORRESPONDING 
ELEMENT OF OUTPUT ROU VECTOR R 



SUaROUriNE CSUMUtR(N*M.MS) 
DIMENSION Atll .Rf 1) 

DO 3 J'l.H 

CLEAft OUTPUT LOCATION 
RIJI-0.0 
DO 3 I-l.N 

LOCATE ELEMENT FOR ANY MATRIX STORAGE MODE 
CALL LDC(I.J.1J.N.M»MS| 

TEST For zero element in diagonal MATRIX 
IFIIJI 2(3f2 

ACCUnjLATE IN OUTPUT VECTOR 

2 R1J1-RIJ|«-AI IJI 
9 CONTINUE 

RETURN 

END 



30 
40 



60 



90 



CSUM 

...CSUM 

CSUH 

CSUM 

CSUM 

CSUM 

CSUM 

CSUM 

CSUM 

CSUM 100 

CSUM 110 

CSUM 120 

CSUM 130 

CSuM IM 

CSUM ISO 

CSUM 160 

CSUM 170 

CSUM 180 

CSUM 190 

CSUM 200 

CSUM 210 

CSUM 220 

CSUM 2)0 

C&UM 240 

CSUM 250 

CSUM 260 

CSUM 270 

CSUM 2S0 

CSUM 290 

CSUM 300 

CSUM 310 

CSUM 320 

..CSUM 330 

CSUM 340 

CSUM 350 

CSUM 360 

CSUM 370 

CSUM 380 

CSUM 390 

CSUM 400 

CSUM 410 

CSUM 420 

CSUM 430 

CSUM 440 

CSUM 450 

CSUM 460 

CSUM 470 

CSUM 480 

CSUM 490 

CSUM 500 

CSUM 510 

CSUM 520 

CSUM 530 

CSlM 540 

CSUM 550 

CSUM 560 

CSUM 570 

CSUM 580 

CSUM 590 
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Subroutine RTAB 

The function of this subroutine is graphically dis- 
played by Figure 7 (see description under ''Method" 
in the program listing) . 



Matrix A 



3<iB C 



Vector B 



6(1) 



— — — RdWJ — — — 



Matrix R 



L+1 



S(J) 



Vector S 



S(L+1) 



Figure 7. Row tabulation 



!i.CliC(.III>.t mn 



KELuie Bcks [f > H<is|> ic FC«» < sinnnr r<liiix 






MfSrft.n.f < 



CESCriFiick cf ftntrtjtn 

» ~ t,tH Cf IkCLl HAIRI* 

t - »iH Cf IkFLI VfCIO Cf ICNCIf k COKIMkC «t» 
• - »"l Cf CCIPCI IHI«H CCflUlklKG S<."B««» CF lOli 0*T«. 
II IS IMIIALLf SCT IC iCHC BIT IH« SceHCLTlNE. 

► : i;"[tS'cf'ic'i; r")" " '"■"' '** ""'■-« «^"" 

► - fcLI-etB Cf CCLLfhS Ih « «hC ft 
1 - I.LI>eER CF aCteS I*. It 

^S - Cfct CICII hereto fCP STCR«C€ l-CCI Gf r>«Ifl[X A 
CEkEKAL 



1 






P IS «lk«yS A GCfEVil HlTftlK 



StP«ClliM5 ifcC flfcCflCN StePRCCRA^S RECCIBEC 
ICC 
FfCC 

l-tT^CC 

•ChS CF C*T* U f*TRU J AR£ lABULlUC a«£EC Cfc Tt-£ KEY 



ftlAtJ 10 
.«T*6 20 
RTAe 10 

RTia 40 

RTAR 30 

ATAfl 60 

RTAb 70 

ATAe 80 

AlAe 9C 

HrAa 100 

RTAe 110 

fir«B 120 
KfAd 130 
ftTAe 140 
RTAS 150 
RTA8 160 
KTAB 170 
ftfAO IflO 
RTAB 190 
BTAB 200 
RTAe JIO 
RTAe 220 
RTAB 230 
fllAB 240 
RTAB 250 
RTAB 260 
RTAa 2T0 
RTAB 2S0 
RTAe 290 
RTA8 100 
RTAB 310 
RTAd 120 
RTAe 330 
RTAS 340 



CCfcTAINEC Ih VECTOR «. I^E FLOAIIKG PClKT Kl.t'eER \H Sill If RTAS 350 
TRLfcCAieC TC fCR*- J. IH n^ RCh CF A |$ *ODEC IC THE JIH RTAB 360 
RCh Cf R Eief»efcT e» CLEHC^I A^O CfcC is ADOEO IC S(JI. IF J RTAB 3T0 
li ftCT etThCEK C«t AHC I, C^E IS AOCEC ID SIHl. THIS RTAd 380 

fRCCiCLRC IS REFEAIEC fCR CvER) £tE#EM l^ VECTOR B. RTAB 390 

IfCh CC^RLEIICfc. Il-E CUIPLT KATRlA R CC#iTAII.S « SUfMARV CF RTAB *00 
?5^<Vc " S^CiFlEC eir VECTCB «. EACH ELEKEM Ih VECTCR S RTAB 410 
CCfcTAIAS t COCM Cf Thf kLr-BER Cf RCkS Of A l.5€C TC FCRM TPERTAB 420 
CCRRESfthCUC RCh CF R. EiE^-EKT S<L«1I CCMAIUS A COufcT OF RTAB 430 
Tl-E fttrEER CF RCkS Cf A fcCT UCLliCEC ill R AS A RESULT CF J RTAS 440 
etIAfi LESS It-Afc C^£ CR GREATER T^A^ 



SLEfCLIUE flACIA.e.f .S.f.^.^S.Ll 

clr'E^slCA A(it.efii.aiii«$(u 



CLEAR CUIRLT AREAS 



IT.r.L.Cl 



CAll ICCir* 
EC IC 1R-1.I1 
f>IIRJ-C.C 

cc jc i:-i.L 

SflSI-C.C 
SU411-C.C 

cc (C l-l.fc 

ICSI FCR If-C KEY CtlSIOC Tt-E RAKGC 

jA-riii 

If (JR-ll SC.4C.3C 
IF IJR-L) 4C.4C.5C 



ACC PCh Cf A TC RCh Cf R AfcC 1 TC CCLM 

CALL RACC |A, |,R,J|i,ti,f>.|>S*LI 

S(J(I«SIJRI«1.C 

EC TC CC 

S(L*II>!<141)4|.C 
CCAIIhLE 

RETCRA 
(AC 



RTAS 450 
RT*:; 460 
.RTAB 470 
RTAfi 4B0 
RIAB 4'30 
RTAB 500 
RTAB 510 
RTAB 520 
RTAB 530 
RTAB 540 
RTAB 550 
RTAB S60 
RTAB 570 
RTAS 580 
RTAB 590 
RIA6 600 
RTAB 610 
RTAB 620 
RTAS 630 
RTAB 640 
RTAB 690 
RTAB 660 
RTAB 670 
RTAS 6S0 
RTAS 690 
RTAB 700 
RTAB 710 
RTA8 720 
RTAB 730 
RTAB 740 
ATAfl 750 
RTAS 760 
RTAB 770 

RTAB reo 

RTAB 790 
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Subroutine CTAB 



Subroutine RSRT 



The function of this subroutine is graphically dis- 
played by Figure 8 (see description under "Method" 
in the program listing) . 



i 


M 


I [ Matrix A 



column J 
L \/ 







Matrix R 





B(l) 



S(J) S(L+1) 
J i 



M 
Vector B 



L+1 
Vector S 



Figure 8. Column tabulation 



stefCLiihE cue 



lfl> IC fQHf « SOfHAP> MATRIX 

tescunic* cf n»«nte«s 

t - XAME Cf IKPLT PAIRIX 

t - »»|il Cf UPLI VECIO CF LenGtf !■ CCMllNlkC K£» 
B - A^Pt Cf CCTPUT fi«1>(lx CCMAIMM; Siif'C'flT CF CCtUMN 0Ar«.CTA6 
il IS IMtlALLY SE1 TC 2EffC ev THIS SLflfCL T 1 NC . 

s - ^»^^ CF clipli vecice cF lEkCiF l»i ccmaimkg ccu^TS 

^ - NtCeFH Cf NChS IN A A^C « 

^ - ^tP€Ell CF CCLCNS If A 

I - HLfeeH CF CCLLfkS Ik » 

► 5 - CKE CIGIl M.^ilEf FLF SICfiAGE ^CCE CF ^AlfllX A 

C - CEKEBAL 

1 - iYffElflC 

2 - CI'CCNAL 



FiFfAFBS 

f/IFlX 



H IS AlhAVS A CEhEFAL BAIRIX 







CTAO 


30 


CTAH 


40 


CT*6 


SO 


CT*8 


60 


CT»B 


TO 


CT4B 


10 


CI*B 


90 


CTAB 


100 


CT*B 


no 


CTAB 


i^O 


CTAa 


130 


CTAB 


140 


CTAB 


150 


CT*e 


160 


CTAB 


170 


CTAB 


lao 


CTAfl 


191 


CTAB 


?an 


CTAd 


210 


CTAH 


?M 


CT46 


?»0 


CTAB 


?40 


CTAB 


?sn 


CTAB 


260 


CTAB 


2 70 


CTAB 


?«0 


CTAB 


^90 


CTAB 


300 


CTAB 


310 


CTAB 


J 20 


CTAe 


530 


CTAB 


340 



^LtlRCLTUtS >hC f^.^CIIC^ SiefUCGHAI-S KtCLlKtC 

LCC 

t/tc 

^■£T^ct 

CCLLPhS CF CAT/ it. fAIFl* A ARE lAEt-LATEC flAStC CK Th£ KEV 

CCMAIdeC IN VfCTCH », Tt-L fLCAHKC PCINI NC^eES IN BUI IS CTAB 3SQ 

IfLUCAICC IC fCPf J. 1^■^ lit- cCtO*^ Cf * is «CC(C TO IK£ JTHCTAB 360 

CdLKK CF f/TtllX AKC Cht IS ICOEC IC S(J). IF THE V'LtE Ct-CTAB 3r0 

J li NCT eE1hfC^ I ANC It C^E IS ACCEC TC SIL«i) CTAB 380 

LFCh CCfFlfllCh. Tt-E CCIFlT fATrilx U CChTAIhE A SUHMARV CF CTAd 390 

CClLCh CAT* A< iPiClflU t» WECICH E. EACF ElEfEfcT U VECTOBCTAB 400 

* CC^TAJ^S A CCCNT CF TfC MjfB£« CF CCLUHhS CF A tStO TC CTAB ^10 

FCVC C. ELffEftT SIL*l) CCOTAIhS T»-E Mj^'eCfl OF CLLUHNS CF A CTAA 420 
fCI UCLCCEC I*, f) AS A Ht^LLT CF J BEIKG lESS THAN ONE CK 
CfC/lE^ IFAA L. 



SCEiiCCTJKE CTAE(A,e,t),S.K,F',f<.ll 

cir'EfSUf Aii}.eiit,Dui,s(ji 

CLEAfi CtlFLT «fiEA< 

CAil LCClN.l. IT.h.L.CI 
CC K l<:>I.IT 
. «(lt))-C.C 
CC 2C l£-liL 
;il5l-C.C 
SU«1I-£.C 

CC tC ■■l.f' 

IE<I fCf) Th£ KEt CLIflUE Tt^t PA\6E 

Jfl'eill 

IF IJ«-li 5Ct4Ct3C 

If UP-t » 4C,«C,5C 

<CC CCtCh Cf A IC CCiUCN CF fi AKC I IC CCLM 



CALl CACC («< ltaiJR.h.l'.''S.LI 

S1Jf))«S(J|l)*l.C 

CC IC fC 

S(L*l)<5(i4ll*l.C 
CCfllflE 

FETLttf 
(Al 



CTAB 430 

CTAB 440 

CTAB 450 

..CTAS 460 

CTAB 470 

CTArt 480 

CTAe 490 

CTAQ 500 

CTAB 510 

ciae 520 

CTAB 510 
CTAB 540 
CTAB 550 
CTAB 560 
CTAB 570 
CTAB 580 
CTAB 590 
CTAB 600 
cm 610 
CTAH 620 
CTAH 6)0 
CTAB 640 
CTAB 650 
CTAa 660 
CTAti 670 
CTAtJ 690 
CTAB 690 
CTAB 700 
CTAfl 710 
CTAB 720 
CTAO 7 30 
CIAB 740 
CTAB 750 
CTAB 760 
CTAB 770 
CIAB 7(*0 



SUtS-^CUTINE kSRT 

^G<tT AQwS CJf A MATRIX 

USA^fc 

CALL kSRr(A.6,R,N,M,MSI 

Jt5c«IPTI0N UF PAftAHCTCRS 

A - NAHc OF I.NPUI MAIrtlX 10 oE SORTED 

d - NAME QF IN.>UT VECI3X MHICrl L-QhTAINS SORTING KEf 

R - NAME CF SOKTEL OuTPjT MATRIX 

N - NuMfldft OF ROWS IN A Ai^jO R AND LENGTH OF B 

.1 - iNUMtJ^R df COLUMNS IN A ANl; R 

MS - QUE JIGII NUMBtR FOR STJ-tA&fc MODE OF MATRIX A 

- General 
i - svmmeiric 
2 - diagonal 

RcMARKS 

HATRU R CANiViUr BE IM THE SA^^E LOCATION AS MATRIX A 

^iATRIX R IS ALMAYS A GENERAL KATRIX 

1^ MUST Bt GREATER THAN ONE. 

SUfcRCjTlf^ES ANO FUNCTIUN SUBPROGRAMS REQUIRED 
LCi. 

METriOO 

RO*iS OF INPUT MATRIX A ARt SORfEO 10 FORM OUTPUT MATRIX R. 
THE SukTtO RJM SEQUENCt IS OETERMINED BY THE VALUES OF 
::LfcMENTS IN COLUMN VECTOR 6. THE LOWEST VALUED ELEMENT IN 
B WILL CAUiE THE CCRft ESPONOING ROW OF A TO BE PLACED IN THI 
FIRST ROW OF R. THE HIGHEST VALUED tLEHENT OF 6 WILL CAUSE 
The CORRESPONDING ROW Of" A TO BE PLACED IN THE LAST ROW OF 
R. IF DUPLICATE VALUES EXIST IN Si THE CORRCSPONi}! NG ROWS 
OF A ARE MOVEO TO R IN THE SAME ORDER AS IN A. 



SUBikOUTlNE RSRTI A,B,R,N,M,MSI 
LtlMENilON Al 1 I , S( II tRI U 

MUVE SORTING KEY VtCTUR TO FIRST COLUMN OF OUTPUT MATRIX 
AND BUILD ORIGINAL SEQUENCE LIST IN SfcCONQ COLUMN 

DO IJ 1=1, N 

R< I i = ii n 

I2=ItN 
; R( 121= I 

SORT ELEMENTS IN SORTING KEY VECTOR (URIGIMAL StdUENCE LIST 
IS REStaUENCEG ACCORDINGLY) 

L = N*l 
; ISORr=0 

L = L-1 

DO 40 I=2,L 

IF1R( I )-Rt I-l( ) 30, 4C,4C 
: I SORT = 1 

RSAV£=R(1I 

R(l )=R1 I-U 

R(l-ll=RSAVt 

12=ItN 

SAV£R=R( I2J 

R(I2)=R( 12-1) 

t<( 12-lJ^SAVER 

CONTINUE 

IF( ISORTJ 2C,5D,2C 

MOVE ROWS FROM MATRIX A TJ MATRIX R (NUMBER IN SECOND COLUMN 
Of A REPRESENTS ROW NUMBER OF MAIRIX A TO BE "OVEOi 

DO 8-3 1=1tN 

GET ROW NUMBEK in MATRIX A 

12=I*N 
IN=R(I2I 

IR=1-N 

DO bJ J=ltM 

LOCATE ELEMENT IN OUTPUT MATRIX 
[R^IRtN 

LJCATc EttMcNT IN INPUT MATRIX 
^ALL LOCI IN.J.IA.N.M.MSI 

TcST rOR ^cRO cLEMENT IN OUGCNAl MATRIX 
IF( lAl 60, 7C,oC 

MJVc iiLEMtNT 10 OUTPUT MATRIX 

kl IRl^dl lAt 

GO TJ 30 
R( IRI=0 

CUNTfNJt 

kETURN 

END 



50 



RSRT 
..RSRT 
RSRT 
RSRT 
RSRT 
RSRT 
RSRT 
KSRT 80 
RSRT 90 
RSRT IOC 
RSRT 110 
RSRT 120 
RSRT 130 
RSRT 140 
RSRT 150 
R^RT 16C 
RSRT 17C 
RSRT 180 
«SRT 190 
RSRT 2G0 
RSRT 210 
RSRT 220 
RSRT 230 
RSRT 240 
RSRT 250 
RSRT 260 
RSRT 270 
KSRT ^80 
RSRT 290 
RSRT 300 

RSRT :io 

RSRT 320 

RSRT 330 

RSRT 340 

RSRT 350 

RSRT 360 

RSRT 3 70 

RSRT iSO 

RSRT 390 

RSRT 400 

,RSRT ".lO 

RSRT 420 

RSRT 430 

RSRT 440 

RSRT 450 

RSRT 460 

RSRT 470 

RSRT 480 

RSRT -vgo 
rSrT soo 
RSRT 510 
RSRT 520 
RSRT 530 
RSRT 540 
RSRT 550 
ftSRT 560 
RSRT 570 
RSRT 560 
RSRT 590 
RSRT 600 
RSRT 610 
RSRT 620 
RSRT 6 30 
RSRT 640 
RSRT 650 
RSRT 660 
RSRT 670 
RSRT 680 
RSRT 69C 
rSrT 700 
RSRT 710 
RSRT 720 
RSrT 730 
RSRT 740 
RSRT 750 
RSRT 760 
RSRT 77C 
RSRT 780 
R.SBT 790 
RSRT 8C0 

RSRT eio 

RSRT 820 
RSRT 830 
RSRT 840 
RSRT 850 
RSRT a6C 
RSRT 870 
RSRT B80 
RSRT 990 
RSRT 900 
RSRT 91C 
RSRT 920 
RSRT 930 
RSRT 94C 
RSRT 950 
RSRT 960 
RSRT 970 
RSRT 9tJ0 
RSRT 99C 
RSRTlOQO 
kSRTlCiO 
KSkTlC2C 
RSRT1030 
RSRT1C4C 
RSRtl(,50 
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Subroutine CSRT 



Subroutine RCUT 



10 



iUoRCjriNE CiKT 



PJkfOSC 

SOKT CULUMMS OF 



HATKIX 



CJciCKlPriCN CF *'ARAMtT£kS 

A - f.AMt U^ INPUT MATHlx TO bt SCft TtO 

J - NAKfc oF INPUT VEtTjfl WHICH caNTAJf^S iURTING Kd V 

A - ^AKE Of SUHItO IJUfPJT MATRIX 

N - r*JHdLR Of «OHS IN A ANO k 

M - NUMUER Uf COLUMNS IN A AN.; R ANO Lt:NCTH CIF B 

MS - out OIOIT hUMBtK FOR STOKAGfc MOOE Of HATRIX A 

- G£Nfc«AL 

1 - SYMMETRIC 
2-01 AGuNAL 

KLHaRkS 

MATRIX R CANNJT BE IN THE SAME: LOCATIUh AS KATMlX A 

MATRIX t< IS ALWAYS A GENERAL MATRIX 

M MJST Bt GREATER THAN ONt . 

SUBRLuriNFS ANO FUNCTION SUBPROGRAMS REQUIRED 
LOC 
CCPY 



CSRT 
..CSRI 
CSRT 
CSRT 
CSRT 
CSRT 

CSRI 70 
CSRT 80 
CSRT 90 
CSRT ICC 
CSRT 110 
CSRT 12P 
CSRT HO 
CSRT 140 
CSRT ISO 
CSRT 160 
CSRI 170 
CSRT 180 
CSRT 190 
CSRT 200 
CSRT 210 
CSRT 220 
CSRT 230 
CSRT 2*0 
CSRT 250 
CSRT 260 
CSrT 270 
CSRT 280 
CSRT 290 
CSRT 300 
CSRF 31C 

MfcTHCC CSRT 32C 

CCLUMNS UF Input matrix a are sorted to form output matrix CSRT 33C 
R. THE SOKTEO column SEQUENCE IS OETERMINiD BY THE VALUES Of CSRT 34C 
ELEMENTS IN ROW VECTOR 6. THE LOWEST VALUED ELEMENT IN CSRT 350 

B WILL CAUSE THE CORRLSPONOINC COLUMN Of A TO S£ PLACED IN CSRT 360 
THE FIRST COLUMN Op R. THE HIGMfcST VALUED CLEMENT OF 6 WILL CSRT 370 
CAUSE THt CORRESPONOING ROM OF A TO BE PLACED IN THE LAST CSRT 380 
COLUMN OF R. IF DUPLICATE VALUES EXIST IN B, THE CSRT 390 

CORfteSPONJlNG CULUHNS Of A ARE MOVED ID R IN THE SAME ORDER CSRT 40C 
AS IN A. CSRT 41C 

CSRT 420 
..CSRI 430 
CSRT 4*0 
CSRT 450 
CSRT 460 
CSRT 470 
CSRT 48U 
CSRT 490 
CSRT 500 
CSrT 510 
CSRT 520 
CSRT 530 
CSRT 540 
CSRT 550 
CSRT S60 
CSRT 5T0 
CSRT 560 
CSRT 590 
CSRT 600 
CSRT 610 
CSRT 620 
CSRT 630 
CSRT 640 
CSRT 650 
CSRT 660 
CSRT 670 
CSRT 680 
CSRT 690 
CSrT 700 

CSRT no 

CSRT 720 
CSRT 730 
CSRT 740 
CSRT 75C 
CSRT 760 
CSRT 770 
CSRT 760 
CSRT 790 

CSRT aco 

CSRT aio 
CSRT 820 
CSRT 830 
CSRT 840 
CSRT 850 
CSRT 860 
CSRI 870 
CSRT 680 
CSRT 890 
CSRT 900 
CSRT 910 
CSRT 920 
CSRI 930 
CSRT 940 
CSRT 950 
CSRT 960 
CSRT 97C 



SUakUuIlNc CSfir(A,6,ft,N,M,MSI 
DlMtN^ICN A( l],a( U ,R( 1 ) 

MLiVE SURIING Ktr VECTOR TO FIRST ROW OF OUTPUT MATRIX 
«Nl) build original SfcOUtNCE LIST IN SECOND ROW 

lK=i 

DO IC J^l.M 
ft(lK)^b( J I 
R( IK«i 1=J 



SORT ELEMENTS IN SORTING KEV VECTOR (ORIGINAL SEQUENCE LIST 
IS RtSfcyUENCeO ACCOROINGLVt 

L=M+1 
r ISORI=0 

L = L-l 

IP=l 

IQ=N+l 

DU 50 J=2,L 

iF(R{ Iy]-r{( IP) I 3C,4C,4C 

I SORT = I 

RSAVt=R(IO) 

Rll JI-R(IP» 

a( IPI=^SAVE 

SAVER=«( U*ll 

ftt Iw»l)=Rl IP»l) 

RCPtU^SAVER 

lP=IptN 

lU-I J*N 
I CONTINUE 

iFl liO^TI 20.oi.,JC 

MOVE CJLUHNS FrJm MATRIX A TO MATRIX R (NUMBER IN SECCND ROW 
OF R -ttPRtSENTS COLUMN NUfOER OF MATRIX A TO BE MOVED) 

10^ -N 

CO TC J=1..M 

10= lU+N 

GET CL.LUMN NUMBER IN MATRIX A 

I2=IJ*^ 
IN=R( 121 

M^Vt COLUMN 

IR-I J+1 

CALL CCPVU,1N.R( IK J.N.r.MSl 

CONI li\Jt 

HcTJRn 



bJoRLUriNE KCdl 

Pj^PCSt 

PARIITIUN A .4ATRIX oETMttN SPdCIFIfeO ROwS TO FORM TWO 
RESULTANT MATRICES 

USft>i£ 

CALL RCJT ( a.L.Rt S.N.^I.ISI 

UtiCRIPIlUN JF PAKAMETcRS 
A - NANc Of INPUT MAT.*U 

L - COn Jf A ABOVE WHICH PAKTIflONlNG TAKES PLACE 
K - NAMt OF MATRIX TO dc FORMdJ FROM UPPER PORTION Of - 
S - NAMc OF MATRIX Tu d£ FJRMcO FfiUH LOWER PORTION QF , 

a - iHUMdcR ue «QwS IN * 

M - NUMdtA u>= Columns In a 

MS - UMt JloIT KtUMSER fOA STJ^^AGfc MODE CF MATRIX A 

- CENE-tAL 

1 - SYMMETRIC 

2 - DIAGDNtl 

RcMAfiKS 

MATRIX H CAN.40T ai IN ^AME LOCATION AS HATRIX A 

MATRIX s Cannot be in same looaiion as matrix a 

HATKIX R CANNOT BE IK SAME LCCAriON AS MATRIX S 
MATkIX a ANC MATRIX S ARE ALWAYS G£N£kAL MATRICCS 

SUJttOUTlNfcS ANO fUNCFIJN SUIl.PRCGR AMS H£QUIR£D 



NcTnL,U 

ELEMtNTS OF MATRIX A AdJVE ROW L ARE MQVEu TG FORM MATRIX 
JF L-1 ROWS ANJ M COLUMNS. tLtMENIS OF MATRIX A IN ROW L 
ANU B£LO*« ARE MU^itO fC FORM NATkIX S OF N-L*l ROWS AND M 
COLUMNS 



SUoKUUlli^E KLJI < A|L ,R,S.N| M,i 
JlMtMilLN A( 1 (,R| II ,S( U 



I s = i; 

DO 7C J=1.M 
uO 70 l-l.N 

FIND LOCAIION IN OUTPUT MATRIX ANJ SET TO ^ERO 

IF( 1-L » tClCU 
', IS=ii»l 

SI isi^a .c 

CO TJ ic 
1R=M*1 

Kt 1HI = J.j 

LuCAIt cLEHtNf Fu.4 ANY MATkIX STJ<AG£ HDDfc 
CALL ..oCt 1, J.IJ.N.'i.MSl 

Ttsr FJK zt^j elcment in jiaGunal matrix 

IFIIJI <.],70i4i 

UtTER.IINt -HETHcR AfauVc U? BcLJW L 

IFU-L) aCSO.SC 
^l 1S1-A(|J| 

JJ TJ 7C 

.r( IR}^d( I J) 

CUNTi MJt 

■(tTURN 
tNO 



RCUT IC 
. .RCUI 20 
RCUT 30 
HCUT 40 
RCUT 50 
RCUT 60 
KCUT 7C 
RCUr 8C 
RCUT 90 
RCUT iCO 
RCUT 110 
RCUT 120 
RCUT 130 
RCUT 140 
RCUT 150 
RCUT 160 
RCUT iTC 
RCUT I8U 
RCUT 190 
RCUT 20c 
RCUT ?1C 
RCUT 220 
RCUT 2 30 
RCUT 240 
RCUT 250 
RCUT 2 60 
RCUT 2 70 
RCUT 2B0 
RCUT 290 
RCUT 300 
RCUT 310 
RCUT 320 
RCUT 330 
RCUT 34O 
t RCUT 350 
RCUT 360 
RCUT i70 
RCUT 380 
RCUT 390 
..RCUT 4C0 
RCUT 410 
RCUT 1*20 
RCUT 430 
RCUT 440 
RCUT 450 
RCUT 460 
RCUT 470 
RCUT 4B0 
RCUT 490 
RCUT 500 
RCUT 5iC 
RCUT 520 
RCUT 530 
RCUI 54C 
RCUT 55C 
RCUT 560 
RCUT 570 
RCUT 580 
RCUT 590 
RCUI oCO 
RCUT 610 
KCuT 620 
RCUT «i30 
RCUT 640 
RCUT 650 
RCUT 660 
RCUT 6 70 
RCUT 680 
RCUT 690 
RCUT TOO 
RCUT 710 
RCUT 720 
RCUT 730 
RCUT T-tO 
RCUT 750 
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Subroutine CCUT 



Subroutine RTIE 






SlIWcEN SPcClFlfcO CUI.UMN5 T(j FORM TWO 



jr (A, L. R.S.N. 



,nsi 



Kl^TlO'^ Jf I'A'^AMeitKS 

- Nttrtc Jr INPUT f1AT-(IX 

- COLtJ.<M Jf A rU IHE LErT OF HHfCH PA^T 1 1 lONI Nj lARfc 
PLACE 

- NaMc Ur SATSIX rO lie fORM£J FROM LtFf PO^^TION OF A 

- IM4.1C a*" '4ATRU TU tJE FOkM^O FftOM RIGHT PORTION OF 

- '♦JHOCS Ur HUwS IN A 

- A.lJM5->» Jf COLUMNS I.M A 

S - ONE Jl.iir NU?1dtS FOK SrjKflGE MOPE OF MAfrtU A 
C - k^t-McRAL 

i - SYMrtEFRIt, 
^ - Ui AGONAL 



MAr*tU 
.lATRlX 

lOC 



CANNOT Be IN SAME L0C4I10N AS MATRIX A 

wANNJT BE IN SAHE LOCAriCN AS MATRIX A 

CAMNOT BE l^ SAMe cOCXTION AS HAIftlX S 

A.O MATRIX S ABt ALilAl^i GtNtRAL MAMlCci 

AHJ FJNCFIUN SUBPROGRAMS RtOOIREO 



cLtMcM i Or MATRIX 
F^.«M MAIRIX R OF N 

MATRIX A IH COlUM\ 
MATKIX S JF N RGhS 



CCUT 
.CCuT 
CCUT 
CCUT 
CCUI 
CCUT 
CCUT 
CCUT 
CCUT 
CCUT 
CCUT 
CCUT 

CCuT 
CCUT 
CCUT 
CCUI 
CCUT 
CCUT 
CCUT 
CCUT 
CCUT 

ccur 
CCUT 

ccur 

CCUT 
CCUT 
CCUT 
CCUT 
CCUT 
CCUT 
CCUT 
CCUT 
CCUT 
CCUT 

ccur 

CCUI 
CCUT 



OiMENWC.'j a< u,Ri n .^( 1 1 

JU 7J J = i.>v 



uurt'uf matrj X 



ScT TO ZErtO 



iF(j-L) 2J,i:,i: 

SI ISIO.O 
&C TJ 3C 
21. IR=I«*1 

LUCAlt LLLMcNI FOR ANY MATRIX SIJsASE huiJE 

j; I.JLL LJCt I.J,IJ.r4..>1.M5) 

reSr rOft lc<0 ti-tMcNT IN OIAJOiMAC MATRIX 

1F( IJI ^C. 70. -.0 

iJcIc-^MIJc HHcIHcR RIGHT J-* L£FF Jr L 

•tC IflJ-Ll aJiiC.JD 
aC b( 1 SI = A( IJ t 

iu IJ T; 
&C ^( IR) = A( IJ t 

RtTURN 



A TJ THE LEFT OF COLUMN L ARE HOVtO TO 

ROMS A.MO L-i COLUMNS. ELtMENTS OF 

L A^O TO \Hc RIGHT Of L ARE MOVED TO FORMCCUT 

AND M-L«l COLUMNS. CCUT 

CCUT 

, CCUT 

CCUT 
CCUT 
CCUT 
CCUI 
CCUT 
CCUT 
CCUT 
CCUT 
CCUT 
CcUT 
CCUI 
CCUI 
CCuT 
CCUT 
CCUT 
CCUT 
CCUT 
CCUI 
CCuT 
CCUT 
CCUT 
CCUI 
CCUT 
CCUT 
CCUT 
CCUT 
CCUT 
CCUT 
CCUI 
CCUI 
CCUT 
CCUT 
CCuI 

ccur 

CCUI 



no 

1*C 

I 50 
L&O 
170 

Lao 

l-SO 
200 

no 
zzo 

a-to 

250 
260 
270 
zao 

290 
300 
310 
j20 
330 
340 
350 
360 
370 
380 
390 
AOO 
*10 



*90 
500 
510 
5 20 
530 
54C 
550 
563 
570 
580 
59C 
600 
6I0 
620 
630 
640 
650 
bbO 
blC 
680 
690 
700 
TIO 
720 
7 30 
740 
750 
760 



RUr<<»USE 

AOJUIN J^C .HAIftlCES H I f H SAMfc l-OLUMN OlMgNSlON TJ FORM ONE 
^£SJLTANI HATRix (SEE METHJDt 



JSAiE 

LAlL Hllt I a.6.R.N.M.HSA,MS 



. ) 



Oes.;«IPTluN QP r'AKAIEIERi 

A ' NAME Jr FIRST (NPUl MATRIX 

J - NAME OF icCUNO INPUT MATRU 

•< - NAMc OF OUTPUT rtAlKlX 

N - NUHBcR Df RJwS ts A 

•1 - NUMtJtR Of COLUMNS IN AtB.K 

.ISA - ;;Nt JIjIT NUMbtR FOR STORAGt MQOt OF MATRIX A 

J - GENERAL 

I - SrMMETRlC 

2-01 AGONAL 
*4Sd - SAMt AS MSA tXCtPI FOR MATRIX B 
L - NUMbtK UF ROWS IN 6 

REMoRitS 

MATRIX H CANNUI bE IN THE SAME LOCATION AS MATRICES A 0" 8 

MATRIX R IS ALWAYS A GENcRAL MAIMIK 

-iAlRlx A MJST HAVE THE SAMt NUMflER OF COCUt.NS AS MATRIX B 

SJEitOullNES ANu FUNCTION SUoPRCGraMS RECUIREO 
LOC 

HtlHOO 

MAT-'IX 6 IS ATT4CHE0 TJ THE flUTTJM OF MATRIX A . 

THE RESULTANT MATRIX R CONTAINS N«L HOw$ ANU m COLUMNS' 



bUSROUIlNE RTlt:4A,a,R,h,M,M^A.MSB.LI 
UlMENSlUn4 ul i I , d( 1 1 .R< 1 ) 

NN^N 
iR = 
NX= NN 
MSX-MSA 
00 9 J^ 1, M 
00 8 11=1.2 
UU 7 I = i , NN 
iR=IRtl 
R( 1R1=T .0 

LOCATE fcLcMcNT f JK ANY MATRIX SIJRAGE MOOt 
I.ALL L-JCl I, J, IJ.NN, M.MSXt 

ItSI FOR Z^AL iILEMEM IN DIAGONAL MATRIX 
IFII J) 2,7,2 

MJVc CLEMENT IG MATRIX R 

uU IJ( J. 4), I 1 

R(lR)=4(lJl 



cfii Aajvh 



RfcicI FJR NtHT COlJ^N 



RTIE 


30 


RTIE 


40 


RTIE 


SO 


RTIE 


60 


RTIE 


70 


RTIE 


RO 


RTIE 


90 


RTIE 


100 


RTIE 


ilO 


RTIE 


120 


RTIE 


1)0 


RTU 


140 


«ne 


150 


RTIE 


Lb'j 


RTU 


I7n 


RTIE 


180 


RTIE 


190 


RTIE 


20 S 


RTIE 


210 


RTIE 


220 


RTIE 


2)0 


RTIE 


2*0 


RTIE 


250 


RTIE 


26r 


RTie 


270 


RTIE 


2ao 


RTIE 


290 


RTIE 


30C 


RTIE 


(10 


RTIE 


320 


RTIE 


330 


RTIE 


340 


RTIE 


350 


RTIE 


360 


RT[£ 


170 


.RTIE 
RTIE 


jao 

390 


ftiie 


4C0 


RTIE 


410 


Rllt 


4 20 


RTIE 


4 30 


RTIE 


440 


RTIE 


430 


RTIE 


4h0 


RTIE 


4/0 


RUE 


4eo 


RTIE 


490 


RTIE 


^UU 


RTie 


510 


RTlE 


520 


RTIE 


5 3U 


RTIE 


b4D 


RTIE 


550 


RTIE 


560 


RTIE 


570 


RTif 


580 


RTIE 


590 


RTIE 


600 


RTI£ 


610 


RTIE 


6 20 


RTIE 


630 


RTIE 


?.4fl 


RTIE 


650 


RUE 


6o0 


RTIE 


670 


RUE 


680 


RUE 


690 


RTIE 


roc 


ATlt 


710 


RTIt 


7?0 


RTIE 


nc 


RTIE 


740 


RTIt 


7^^ 


RTIE 


r60 


RTIE 


7 70 


RTIE 


7d0 


RTIt 


790 
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Subroutine CTIE 



Subroutines MPRC and DMPRC 



ADJOIN rwu HAlRlCt^i .(irH SAHb ROM OIHENSIUN Hi FUftM 0N£ 
KcSULTAMT AAJRU (SLt leTKOOl 



JALL CTlEU,atR|N,H,MSA,MSfltLJ 

L^LSCf<If>riUN OF PARjlMtrtRS 

4 - NAMt OF fIRST INPUT MATRIX 

a - NAMt OF SECJND INPJT MATrtlX 

K - NAHf OF JUTPUT HATKIX 

H - NUMBtK OF ROHS l\i AttltR 

M - NUMBEft UF COLUMNS IN A 

^SA - UNb DIGIT NUHdtR FQA STjKAGt: HOL)£ OF MATRIX A 

- GtNtRAl 

i - Sy«HtTRIC 

2 - OlAGUNAL 
MS6 - SA«t Ai MSA tXCfT FOR iH*TRIX B 
L - NjMfltR Of COLUMNS IN a 

KcMARKS 

MATKIX R CANNUr 6t IN THt SAtIt LOCATION AS MATRICES A OA B 

MATRIX R IS AtMAYS A GENERAL MATRIX 

MATRIX A MJST HAVE THE SANe NUHd£R UF ROWi AS MATRIX B 

SUbAOUriNEi AND fUNCHON SliBPfiOGRAMS REQUIRED 
LCC 

METHCO 

MAIKIX 6 IS ATTACHED TO THt RIJHT OF MATRIX A . 

THt RESULTANT MATRIX R CONTAINS N ROWS AND N*L COLUMNS 



SUuHQUr IN£ cric(A,d,H|N.n.HSA,MSB.L) 
DlMENSIJ>'< Adl.BIU (Rl It 

MM=M 

1R=0 

«Sx=Mja 

OO 6 JJ=1.2 

00 5 J=^1.MH 

00 > l=i.N 

Ik=Ik*l 

R(lRJ-0.0 

LUt-ATE tLcMtNT FOR ANY MATRIX STJ^AGt M006 
CALL L.JCI I. Jf 1 JiNtMM.MSXI 

TcSr FOR ^tKC tLEMtNT IN DIAGONAL MATRIX 
IFIIJI 2,'>,2 

MiJWt: tLEMSMF TG MATRIX R 

^ GO 10(3,'.), JJ 
3 R(IR»=A<IJJ 

GO TO 5 
t, R(iit l = d< IJ] 
5 CUNTINUE 



Rf^cAT AHOVt FOR MATRIX B 



M$X=MSd 
MM=L 
6 CONTINUE 
RETURN 
tNO 



CTIE 
.CTIE 
CTIE 
CTIE 
CTIE 
CTJE 



60 



CTIE TO 
CTIE 60 
CTIE 90 
CTIE 100 
CTIE 110 
CTU 120 
CTlE 130 
CTlE 140 
CTIE ISO 
CTI£ 160 
CriE 170 
CTIE ISO 
CriE 190 

criE 200 

CTIE ^10 
CriE 220 
CTIE 230 
CTIE 2<tO 
CTIE 250 
CTU 260 
CTlfc 270 
CTIE 260 
CTIt 290 
CTIE 300 
CTlE 310 
CTIE 320 
CTIE 330 
CTIE 340 
CTIE 350 
CTIE 360 
CTIE 370 
.CTiE 360 
CTIE 390 
CTIE 400 
CTIE 410 
CTIE *20 
CTIE 430 
CTIE 440 
CTlE *50 
CTIE 4oO 
CTIE 4T0 
CTJE 480 
CTIE 490 
CTIE 500 
CTIE !>10 
CTie 520 
CTIE 5 30 
CTIE 540 
CTIt 550 
CTIE 560 
CTIE 570 
CTIE 560 
CTIE 590 
Cri£ 600 
CTIE 610 
CTIE 6 20 
C7IE 630 
CTIE 640 
CTIE 650 
CTIE 660 
CTIE 670 
CTIE 680 
CUE 690 
CTlE 700 
CTIE 710 
CTIE 720 
CTIE 730 
CTIE 740 



These subroutines permute the rows or columns of 
a given m by n matrix A according to a transposition 
vector ITRA= (ti, , , . , ts) or its inverse. (See the 
general discussion tmder "Permutations" for defini- 
tions and notation. ) 

1. Mathematical background 

Permuting the rows or columns of A according to the 
transposition vector ITRA means applying the per- 
mutation (1, ti), . . . , (s,tg) to the rows or columns of 



A, while permuting according to ITRA'-' means ap- 
plying the permutation (s, ts), - 



2. Programming considerations 



-1 
(1, ti). 



If the columns of A are to be permuted, the input 
parameter IROCO must be nonzero, and s = n; if the 
rows are to be permuted, IROCO must be zero, and 
s= m. Similarly, if the input parameter INV is non- 
zero, the rows or columns of A are permuted ac- 
cording to ITRA; while if INV is zero, the rows or 
columns of A are permuted according to ITRA-1. 

If m and n are not both positive, or if ITRA is 
not a transposition vector on S = { 1, , . , , s} , tiie 
subroutines are prematurely terminated and the er- 
ror parameter lER is set to -1 or 1, respectively. 
If there is no error, lER is set to zero. 

The matrix A is assuhied to be stored column- 
wise, and the permutation of the rows or columns 
of A is performed in s steps. At the i*^ step, if the 
permutation is according to ITRA-1, rows or col- 
umns i and sj are interchanged; if the permutation 
is according to ITRA, rows or oolumns s - i+ 1 and 
*s " i+ 1 ^^® interchanged. 









MPRC 


10 








..HPRC 


20 








MPRC 


30 


SUBOOUTINE 


Hppr. 


MPRC 


40 








MPRC 


50 


PURPOSE 






MPRC 


60 


TO P 


ERMUT^ THE ROWS OR COLUMNS OF A GIVEN MATRIX ACCORDING 


MPRC 


TO 


^n t 


, 1IVSN TRANSPOSITION VECTDR Of ITS INVECSF. (SEE THE 


MPRC 


60 


DISCUSSION ON PERMUTATIONS FOR DEFINITIONS AND NOTATION.) 


MPRC 


90 








MPRC 


100 


USAGE 






MPRC 


110 


CALL 


MPRC( A,H.N,ITftA. INV, IROCO, I EPI 


MPRC 


120 








MPRC 


130 


OESCRIPTION Of PARAMETERS 


MPRC 


I'.O 


A 


- 


'".IVeN M dV N MATRIX AND RESULTING PeP»UT£D MATRIX 


MPRC 


150 


M 


- 


NUMtiER OF ROWS OF A 


MPRC 


160 


N 


- 


NUM'iER OF COLUMNS OF A 


MPRC 


170 


ITRA 


- 


OIVEN TRANSPOSITION VtCTDR (OIMENSIDN M IF ROMS ARE MPRC 


ISO 






PtftHlJTFD, N IF COLUMNS ARE PERMUTEOI 


MPRC 


190 


INV 


- 


INPUT PARAMETER 


HPRC 


'00 






IKV NON-ZFnO - PEFMUTF ACCORDING TO ITRA 


MPRC 


210 






INV = - PERMUTfc ACCOOOING TO ITRA INVERSE 


HPRC 


220 


fROC 


T - 


fNPjr FAtmnR 


nm Z30 






MCCO N0N-2Er;c - PFtMOIE TNC COLUMNS nF A 


MPRC 


240 






IROCC = - PFPMUTE THE PP«S OF t 


rtPBC 


250 


lEC 


- 


"ESULTING EKXOP PARAMETER 


MPRC 


?60 






IFP = -I - M AND N ARE NOT BOTH POSITIVE 


MPRC 


270 






IcR = - NO ERROR 


MPRC 


280 






IPR = t - ITRA IS -iJOT A TRANSPOSITION VECTOR ON 


MPRC 


290 






1,...,M IF POMS ARE PcRMUTCO, 1,...,N 


MPRC 


300 






If COLUMNS ARE PERMUTED 


MPRC 
MPRC 


310 
320 


RE.MSRKS 






MPRC 


330 


tl) 


IF 


irB=-l THEi-E IS NO C0.4 ^UT ATION. 


H?RC 


340 


(^> 


IF 


ICR= 1. THEN COMPUTATION HAS OEEN UNSUCCFSSfUL DUE 


MPRC 


350 




TO 


csaoa, BUT TMf hATHIX a WILL «FLFCT THt ROW OR 


MPRC 


360 




CPLU-i^ IMTflCHANGtS PtHrn^Mfo 6EP0RE THt ECROR WAS 


MPRC 


37U 




OEIFCTTtO. 


MPPC 


380 


(3) 


IMF 


MITCIX ^ IS ASSUMED TO fic STORED COLUMNwrSE. 


MPRC 


390 
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NJNF 

McTHOO 

THE BOwi OR COLUMNS ARE PERHJTCn tLEMENTWjSE, ! NTfcRCHANG ING 
ROW OR COLUMN I «ND I THAd J , . . . ,1f)W VR C0LU1N K AND ITfcAlKt 
IN THAT nCDCC If INV = 1, *N0 OTHEOMtSt^ I MTEF rHANGI NG B0« O" 
COLUrtN K AN.1 ITftAIiC l,...i*(OW OR CCLUMfi 1 AND ITAAILI, UHERE 
K IS « C1« N DEPENDING OH WMETHEn UL PERMUTE BOWS OR COLUMNS. 



suaaouTiNt HpRC(A,w,N.irit4, inu.iroco, r e«) 



DIMENSION 1( I) ,II5a( n 

TESf Of OIMpNSlONS 
tF(M)14. U, ] 
If (Nl U, ]',,?. 

DEfEHMlNE WHICH ARE TO BE PERNUfED-THE ROWS OR THE . OLUMWS 
IFIIBOCOIS,'..; 



L=M 

LL*N 
GO in 5 

INITIALIZE FCP ROW INTERCHANGES 

KHH=H 
L = N 



LL = 



ITIflLWE LC'CP OVE" 4LL POWS OS COLUMNS 



TEST fllR INVERSE OPERATION 
IF(INV}6. 7,6 
IA = LL 
ID=-1 

DO 12 I=1,LL 
K=rTRAII Al 

IF(K )13, 13, 10 
IF(LL-KJ 13,10,10 



PEOFORN ROW 0" COLUMN INTERCHANGE 
DO 11 J=l,L 
SAVe = A( ID 
A(U1 = A(KI 
fl(KI=SAV£ 
K<K*HHM 
IL=IL+MMM 



NORMAL EKIT 
IER=0 
RETURN 

£^ROR RETUftN IM CASE ITRA IS NOT 4 TRANSPOSI TCOh VECTOR 
IER=1 
RETURN 

ERROR RETURN IN CASE OF ILLEGAL DIMENSIONS 
lER^-1 
RETURN 
END 



MPRC 400 

MPRC <ilO 

MPRC ^120 

MPRC A 30 

MPRC 440 

MPRC 450 

MPRC 460 

MPRC 4 70 

MPRC 480 

MPRC 4*90 

MPRC 500 

.HPRC 510 

HPRC 520 

HPRC 530 

MPRC 540 

MPRC 550 

MPRC 560 

NPRC 570 

MPRC 580 

HPRC 5<)0 

HPRC 600 

MPRC 610 

HPRC 620 

MPRC 630 

MPRC 640 

MPRC 550 

MPRC 660 

MPRC 6 TO 

MPRC 680 

MPRC 690 

MPRC TOO 

HPRC 710 

HPRC 720 

MPRC 730 

HPRC 740 

HPRC T50 

HPRC 760 

HPRC 7 70 

MPRC 780 

NPRC 790 

HPRC eoo 

HPRC 810 
HPRC (120 
HPRC 830 
MPRC 840 
HPRC 850 
HPRC 860 
HPRC B70 
HPRC 8B0 
HPRC 890 
MPRC 900 
MPRC 910 
HPRC 920 
MPRC 930 
HPRC 940 
HPRC 950 
HPRC 960 
HPRC 970 
MPRC 980 
MPRC 990 
MPRC I 000 
HPRCIOIO 
HPRC 1020 
HPRC1030 
HPRC 1040 
MPRC L 050 
HPRC1060 
MPRC 1 070 
HPRCIOBO 
MPRC 1 090 
MPRCttOO 
MPRCUIO 
HPRC 11 20 
HPRC It 30 
MPRC1140 
MPRC 11 50 
MPRC1160 
MPRC1170 
MPRC1180 



M£THOO 

THE POHS OR COLUMNS ARE PERMUTED CLEHGNTWISE. INTERCHANGING 
ROW OR COLUHN I AND I TRA( 1 1 , . . . .ROW OR CIKUHN K AND ITRAfK) 
IN THAT OR0£R If INV=0, AND OTHERWISE INTtRCMANGING ROM OP 
COLUMN K ANO I TRA ( K I , . . . , RUW OR COLUMN I AND lTRAIL>f WHERC 
K IS H OR N OEPENOING ON WHETHER WE PERMUTE ROWS OR COLUMNS 



SUBROUTINE DHPRC ( A ,H ,N . ITRA, INV, IROCO, I£R) 



TEST OF DIMENSIONS 
IFIHt 14,14,1 
1 IFINH4,14,2 



INITIALIZE FOR COLUMN INTERCHANGES 

3 MM"H 
MMH=-1 
L = H 
LL=N 

GO TO 5 

INITIALIZE FOR ROW INTERCHANGES 

4 MH = 1 
MHH=H 
L = N 
LL=H 

INITIALIZE LOOP OVER ALL ROWS OR COLUMNS 

5 IA = 1 
10=1 



TEST FOR INWEPSE OPERATION 
IF 1 1NV)6, 7,6 

6 IA=LL 
IO = -l 

7 00 12 1=1, LL 
K=ITRA( lAt 

8 1FIK.H3, 13,10 

9 IF(LL-KU3,10,iO 



OR COLUMN INTERCHANGE 



INITIALIZE ROl 

10 IL-IA*MM 

K=K*MM 

PERFORM ROW OR COLUHN INTERCHANGE 
DO U J=1,L 
SAVE'AI IL I 
At 1L) = AIK) 
A{K|35AVE 
K=K*MMM 

11 IL=IL+HMH 

ADDRESS NEXT INTERCHANGE STEP 

12 IA=IAtID 

NORMAL EXIT 
IER=0 
RETURN 

ERROR RETURN IN CASE ITRA IS NOT A ICANSPOSI T ION VECTOR 

13 IER=1 
RETURN 

ERROR RETURN IN CASE OF ILLEGAL DIMENSIONS 

14 IER=-1 
RETURN 
END 



OMPR 420 
OMPR 430 
OHPR 440 
OMPR 450 
OMPR 460 
OMPR 470 
OHPR 460 
DHPR 490 

■DMPR 500 
OMPR 510 

.OMPR 520 
OHPR 530 
DMPR 540 
OMPR 550 
DMPR 560 
OMPR 570 
OMPR 580 
DMPR 590 
DHPP 600 
OHPR 610 
OMPR 620 
DHPR 630 
OMPR 640 
DMPR 650 
OHPft 660 
OHPR 670 
DMPR 680 
OHPR 690 
OHPR 700 
OMPR 710 
OMPR 720 
OHPR 730 
DMPR 740 
DMPR 750 
DHPR 760 
OMPR 770 

OMPR reo 

DHPR 790 

OMPR 800 

OHPR 810 
DHPR 920 
DMPR 830 
OMPR 840 
OMPR 850 
DHPR 860 
DMPR 870 
DMPR 880 
DHPR 690 
OMPR 900 
DMPR 910 
DHPR 920 
DHPR 930 
OMPR 940 
OHPR 950 
DHPR 960 
DHPR 970 
OHPF 960 
OMPR 990 
DMPR 1000 
OMPFIOIO 
OHPR 1020 
OMPRL03O 
OHPR 1040 
DHPR1050 
0MPR1060 
DMPR 1070 
OHPR 1080 
DMPR 1090 
DHPR 11 00 
DMPRlllO 
0MPR1I20 
OMPR 11 30 
OHPR 1140 
OMPR II 50 
OMPR 1160 
OHPRllTO 
OHPRllSO 
DHPP 1190 
DMPR 1 ZOO 



SUflROUTINE DMPRC 

PURPOSE 

TO PERMUTE THE ROWS OR COLUMNS OF A GIVEN MATRIX ACCORDING 
TO A GIVEN TRANSPOSITION VECTOR OR ITS INVERSE- (SEE THE 
DISCUSSION ON PERMUTATIONS FOR DtFINITIONS AND NOTATION,) 



IX AND RESULT ING 



IF POWS APE 



PEFMUTE flCCORDING TO ITRA 
PcRHUTE ACCORDING TO ITRA INVERSE 



DESCRIPTION OF PARAMETERS 

A - GIVfcN DOUBLE PBECISICN 

PERMUTED MATRIX 
M - NUM9ER OF ROWS GF A 

N - NUMBER Cf COLUMNS OF A 

ITRA - GIVEN Tf ANSPUSITION VECTOf lOIHENSION 

PERHUTED, N IF COLUHNS ARE PERHUTEDl 
INV - INPUT PARAHETER 

INV NON-ZERO - 

INV = - 

IfiOCO - INPUT PARAHfreR- 

IBQCO NON-ZERO - PERMUTE THE COLUMNS OF A 

IROCO = - PERHUTE THE ROWS OF A 

lER - RESULTING ERROR PARAMETER 

lER - -1 - « ANO N APE NOT BOTH POSITIVE 

1£R = - NO ERROR 

lER = 1 - ITRA IS NOT A TRANSPOSITION VtCTOR ON 

l....,M IF ROUS APE PEfMUTEO. 1. ,N 

If COLUMNS ARE PERMUTED 



IF IcR--i THERE IS NO COMPUTATION. 

IF ieR= 1, THEN COMPUTATION HAS BEEN UNSUCCESSFUL DUE 

TO ERROR, BUT THE MATRIX A WILL REFLECT THE ROW OR 

COLUMN INTERCHANGES PERFORMED BEFORE THE ERROR WAS 

DETECTED. 

THE MATRIX A IS ASSUMED TO BE STORED COLUMNWISE. 



DHPF. 10 
DMPR 20 
DHPR 30 
DHPR 40 
OHPR 50 
DHPR 60 
OMPf TO 
OMPR 80 
DMPR 90 
DMPF 100 
DMPR 110 
DMPR 120 

DMPR 130 

OMPR 140 
DMPR 150 
DHPt- 160 
OHPR 170 
DHPR ISO 
DMPF 190 
DMPR 200 
OMPR 210 
DMPh 220 
DMPR 230 
DMPR 2^0 
DHPP 250 
DMPR 260 
DHPR 270 
OMPR 280 
DMPR 290 
DHPR 300 
OMPR 310 
DMPR 320 
OMPR 330 
DMPR 340 
OMPR 350 
DMPR 360 
OMPR 370 
DMPR 360 
DMPR 390 
DMPR 400 
DMPR 410 
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Subroutine MFUN 



Subroutine RECP 



SUe»<OUTINc MfUN 

APPLY A fUW;nON TO EACH ELcM£f«f CF A HATRIX TO FOKH A 
itbSULTANT MATHlX 

USA^t 

CALL MfUN ( A.F.R.Ntflf HSI 

AN External itAJtHeur must PRtCcOt call srAT6M£Ni in order 

ro lutNJ tFY ^ARAHtrtR F AS Trie NAhE OF A FUNCTION 

l)tSCRI?riON OF PARAMEieKS 
A - HAHt QF INPUT MATRIX 

F - NArtt OF FQjtTRAN-fUftNISHcU OR UStR FUNCTION SJdPRQGRAM 
K - NAME Qf OUTPUT HATflU 
N - NUMUcR OF ROWS IN MATRIX A AnO R 
M - NUMdER OF COLUMNS IN MATrIx A ANO ft 

MS - ONE uIlilT NUMSER FOR STORAGE MOoE OF MATRIX A UNO Rl 
>C - GcM£RAL 
i - SYMHETKIC 
^ - 01 AGONAL 

KEMARKS 

PRECISION IS DEPENOENT UPON PRECISION OF FUNCTION USED 

SUSROUTUlS ANO fUNCTION SUBPROGRAMS KtU'JIREi) 
LDC 

McTHCO 

FONCriO.^ F IS APPLIdO T3 EACH cLEMENT Of MATRIX A 
TC fUK« MATRIX ft 



IQ 



SC 



COMPUTE VICTOR LENGTH, II 

CALL lOlIN.M. ir .NtM.MSt 

dUlLO .lATftlX R fOR ANV STJRAGc MJOt 

UO 5 1= 1,IT 
ft( I )=F( A( i I ) 
RETURN 
tNU 



NfUN 
.MFUN 
MfUN 
HFUN 
MFUN 
MFUN 
HFUN 
MFUN 80 
MfUN 90 
HfUN LOO 
HFUN 110 
HFUN UO 
MFUN 130 
HfUN 140 
HFUN 15C 
HFUN 160 
HFUN 170 
HFUN ISO 
MfUN 190 
MFUN 200 
HfUN 210 
HFUN 220 
MFUN 230 
HfUN 240 
MFUN iiO 
HFUN 2bC 
HFUN 270 
HFUN 2B0 
MFUN 290 
HfUN 3U0 
MFUN 310 
MFUN 12C 
HFUN 3 3C 
HFON 340 
HfUN 350 
,MfUN 360 
MFUN JTO 
MFUN i60 
HFUN 390 
HFUN 400 
HFUN 413 
HFUN 420 
HFUN 4J0 
HFUN 440 
MFUN 4 5L' 
MFUN 46 C 
HFUN 4rc 
HFuN 480 
HFUN 490 
MFUN 500 





• «•..- J 


...KCLP 2U 
RcCP iO 


rj(.(.l iu''J ki:CP 




RECP 4C 
RECP 50 


r'JK^ilSL 




kcCP 60 


CAlCUlATL -UClPftUCAL OF A,i tLcPlfcNT. dHlS IS 


A FUriTRAN 


RCCP 70 


rUNCriUlX i'JII-KOyRAil WHICH HAY at UitO AS AN 


ARGU'ltNT BY 


RECP «0 


.UuKuuriNL y.(-uN. 




fiecp 90 

HECP 100 


JSaje 




RECP 110 


^lCP(£J 




RCCP lilD 
RECP 130 


JciL«lPr(uN J(- PARAMbTtflS 




RECP 140 


t - MATRr* fLtMENT 




RECP 160 


KfMARK j 




RECP 170 


•<fClPKCi.aL Kjf Z£^lJ IS TAKcN ID «c l.Ct75 




RECP IdO 
REcP ISO 


iUa.<CjH?4tS «tO FUNCTION liUSPRUORAMS KtOUIRfcO 




RECP 200 


iMCNt 




RECP 210 
RECP 220 


MtlHOJ 




RECP 230 


<tCI»>XOCAL LF ELEMtNT t IS PLACfcO IN «ECP 




RtCP 240 

RECP 2S0 

...RECP 260 



FUNCriUN RLCPI dl 

QiG=i.je7s 

TEST LLtrtENT FOR icfiU 

iF(e ) i.*;. I 

IF .HUN-ltRQ, CALCULATE RtClPRULAL 

1 RECP=l.D/E 
RE TURN 

If 2lRu, ScT €QJAL to li'jFINirY 

2 r£CP = 3IGn( diLi.Lt 
RETURN 

END 



RECP 2 70 
RECP 280 
RECP 290 
RECP 300 
RECP JlO 
RECP 320 
RECP 330 
RECP 340 
RfcCP 350 
RECP 36C 
RECP 370 
RECP 380 
RfcCP 390 
RECP 400 
RECP 410 
RECP 420 
RECP 430 
RECP 440 
RECP 450 
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MATHEMATICS 

Matrices: Inversion, Systems of Linear Equations 
and Related Topics 

Subroutine MINV 



PJkF>JSL 



CALL HlNVJd.MjUrL.HJ 

Jt'SCKJI-T lUN Jf PA«AMtrc«S 

A - iNt'OT *^A[Rlx, Dtir,<UYtU l.i CUMPUTATIUN AHO RcPLACfcO BY 
h^ciUL fAWr InlVLRSt . 

■M - CI«Ock JF MATklX A 

J - RtSUi-rAhir DETtRrHINANr 

L - wUKK ViiCrUR L)l- LtNuIH N 

M - WJKK VtCrOR Of LtNGTH N 



;^ATkIX A HJST fa£ A GcNtRAL MAf-^IX 



FUNCI IiJN suap« 



AHS HEOUIRtU 



FHiE SIANUA^O GAdiS-JOKJAN METMUIj IS UStU. THt DtTESMlNANT 
iS ALSO CALCJLATtU. A J£TtKMI.NANT UF ZtRO INUICATE^ THAI 
THc MATfiU IS S1NGULA«. 



IF A JGUSLE PKLClSiON VCRSIUN Qf THIS ROUTINE IS UtSIRfcO, THE 
L l.'^ CULJHN I bHOULU BE KLMJVEO FROM THE DOUBUt PRtClSION 
STAltMLNT WHICH FaLLQWS. 

UuUbLc PRtClSION A. 0, tilGA,Mlii.y 

THt L -lUSr ALSO tit KtHJVEJ FRUH UJUbLE PRtCISIUN STATcMtNTS 
APPtAKlNG IN OTHcR ROUTINES USED IN CONJUNCTION Ml TH THIS 
RJUr lN6. 

THt OUUiJLt PKtClSiUN VcRSItJN OF TH 1 5 SUBitOUtINt MUST ALSO 
CUNTAlN OOUriLE PRECISIOM FORTRAN FUNCTIONS. ABS IN STATEMENI 
10 MUST UL CHANoEO To UAdS. 



StAi<LH FOR LAKGtSr fcLcMLNT 

0=1.0 

00 no k^Un 
NH=^hK+N 
L(K»=K 
M(Kl=K 
K,K=NKtH 
blGA^Al i^iCl 
DO 20 J=«..N 
1Z=N#IJ-IJ 

oa 20 i=K,N 
[J=U*I 

iFI AbStolGAl- AbblAdJJM lb, 20, 20 
I 61GA^A( iJ) 
L(«(l= I 
M(Kl=J 
CONTINJc 

iNTbSCHANGE ROWi 

J=H<) 

IF( J-K.J 3i, it),2b 

> Kl=K-N 

00 10 1=1, N 
M = KI*fli 
HOL J=-4(K I ( 
JI=KI-K*J 
AtKI )^4( Jl ) 
AIJIl --HtlLL! 

INT £Ki,HArtGt LULJMNS 



JI=^JPtJ 
HOlJ=-AIJn] 

A( JKI^A(J I 1 

a{ ji I =hijllj 

jIViJb lOlJM.j Ai MINUS PlVuI 
CJNThI ■iCJ IN tJ IJA) 



VALUE Uf PIVOT ELEHtNT IS 



lF(dI^^( 't^.'.c, ^ 


■f 


^-c .: 




r<fclURf>. 




no t>:> 1=1, J, 




ifii-<i ici-i.'j: 




iK-^NKtl 




rtHO- il I.<l/(-dI, 


;a) 


cONTMJt 




Ktl,Jc= 1A(.<1< 




'J J 5 J I =l,.\i 




1K^I^<.I 




-lOLJ^Al IM 




1 j^ I- ; 





.MlNV 20 
M](-4W 30 

MINV ■^O 

MlNV SO 

MiNV 60 

MINV 70 

HINV UO 

MINV 90 

MINV 100 

HIMV 110 

MINV 12J 

MINV iiC 

MINV lifC' 

MINU ISO 

niNV 160 

MINV 170 

HINV 180 

MINV 19C 

MINV 200 

HINV 210 
MINV 220 
MfNV 230 
MINV 2'.0 
MINV 250 
MINV 21,0 
MINV ^70 
MINV 2B0 
MINV 290 
NINV 300 

.MINV 3LC 
MINV 320 
MINV 330 
MINV i^'O 
MINV 350 

.MINV 360 
MINV 370 
MINV 380 
MINV 390 
MINV '.00 
MiNv 410 
MINV 420 
MINV 430 
MINV ^-tO 
MINV 450 
MINV 4bO 
HINV 47C 
MINV 460 
MINV 490 
HINV 500 
MINV 510 
..MINV 520 
HINV 5 30 
MINV 540 
HINV 550 
HINV 560 
MINV 570 
MINV 580 
HINV 590 
HiNV &00 
MINV 610 
HINV 620 
HINV 630 
MINV 640 
MINV 650 
MINV 660 
MI»JV 570 
MINV 680 
MINV 690 
MINV 700 
MINV 71C 
MINV 720 
MINV 73q 
MlhV 740 
HINV 750 
MINV 760 
MINV 770 
MINV 7ttO 
MINV 790 
MINV 800 
MINV BIO 
HINV 820 
MINV 8 30 
MINV S'.O 
MINV B50 
MINV 360 
MINV 870 

MINV aao 

MINV a-JC 
MlNV 900 

MINV 910 

HINV 920 

HINV 930 

MINV 9*.0 

MINV 450 

MINV 950 

MINV 970 

MINV 980 

MINV 99C 

m;nviooo 
minviuic 

MINV1C20 
MINVlOiQ 
MlNVl040 
HINViOSO 

MINVlOaO 
HiNV1070 
M1NV1C90 
MINV1J9J 
HINVlIOd 
MINVil 10 
MINVUZ3 
MlNvll iO 
MINVI140 
MINVI 150 



00 65 J=l.N 

IJ=IJ».^ 

|F( I-XI oO.6j.6J 

IF(J-K| 02,65, o2 

AJ=IJ-I *K 

A I 1JMHCLJ«AIKJ 1 tA( IJ) 

CONTINJt 



01 l/IJc 



<.y*i 



PI VfJT 



KJ=K-M 

00 75 J=I.N 

KJ = KJ*-i| 

1F( J-<I 70, Ta, 7J 

AIKjJ-AlKJI/tllGA 

CUNT li^Jt 

PiiOjUCT OF PIVOTS 



KtPLA^^ PIVJI tJf RtClP.<DCiL 



FI^iL rtOrt AND CJlUMN interchange 



10: 


^M^-I1 








IF iKI 1!)J. l^' 


0, I 1 


J 3 


1C5 


I=L(M 








1FI1-<I 120, 


120, 


. lOB 


1 Jt 


jy=M*( .<'i) 








jR-i^*( i-n 








00 lie J=l,IM 








jK= JJ* J 








hclo= ai Jt.) 








jl-JRt J 








Al JK (^-A< J] 1 






lie 


AlJII ^HOLj 






i^". 


J=M( K) 








ii-t---<) icj,; 


IJJ, 


li!r> 


125 


<^I=^-^i 

■oO 13- 1= l.p\ 

HLlLJ = Ai -CI ) 
J1=K1 -<'J 

a(KI1^-A[ Jl 1 






13-: 


^(JII --■^0,.Q 







MINVli60 
MINVa70 

MINVlldO 

MINVI190 
HINV1200 
MINV1210 
HI NVl 220 
MINV1230 
MINV1240 
HINV1250 
Ml NVl 260 
MINV1270 
MINV1290 
MINVJ290 
HINVI300 
MlNVL3i0 
MINVU20 
HINV13iC 
HINVU40 
MINVI350 
MINVI)60 
MINVi370 
MlNV136a 
NIhV1390 
NINV1400 
MINV1410 
MINVI420 
MINVI430 

HINVl't'.O 

HINV1450 
MINV1460 
MINV147D 
MlNVi480 
MINV1490 
MINVi500 
MINVISIO 
MIKVi520 
MINV1530 
MINV1540 
MINV1550 
MINV1560 
MlNVi57C 
MINVlSdO 
MINV159C 
MiNVlbOO 
MlNVI6iO 
MINV1620 
ri|NV16>C 
MiNVio40 
MINVlopy 
MINVI06O 
MINVI673 
MlNVloB? 
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Subroutines SINV and DSINV 

These subroutines invert a given symmetric positive 
definite matrix, using factorization by subroutines 
MFSD and DMFSD. 

1. Mathematical background 

Given an n by n symmetric positive definite matrix 
A, an upper triangular matrix R= (rji) exists such 
that 

T 
A = R R 



.-1 



-1/R-1\T 



Then A"^ = R"^(R"-^) ^. The elements rji^ of R" 

are computed using the following recursive 

formulas: 

k _ 

r"., = -d/r..) ( Z r. F , ) 
ik 11 . , im mk 

m=i+ 1 



r., = 1/r.. 
ik 11 



^ik= ' 



i<k 

i=k 
i>k 



2. Programming considerations 

The given symmetric positive definite matrix A is 
stored columnwise in compressed form, that is, 
only the upper triangular part in ^(^"*'-'^) successive 
storage locations. 

Subroutine MFSD (DMFSD), which is called 
internally, returns the elements rj^ (i ^ k) of the 
upper triai^ular matrix R in the storage locations 
of A. The inverse (upper) triangular matrix R"-*^ 
and at last the resultant upper triangular part of the 
inverse matrix A~^ are calculated and stored col- 
mnnwise in the same storage locations. 

If any calculated radicand rj^ (k = 1, 2, 3, . , . , N) 
is not positive, further calculation is bypassed, and 
the error parameter lER is set to -1. This means 
that matrix A is not positive definite, possibly due 
to roundoff errors. lER is also set to -1 if the in- 
put parameter N is less than one. 

Let all radicands be positive, and let r\^ be the 
first radicand which is no longergreater than the 
internal tolerance TOL = |EPS . a^kj . The sub- 
routine gives the warning lER = k-1; however, 
calculation is continued. The warning indicates fliat 
there may be loss of significance at factorization 
step k due to loss of significant digits in the cal- 
culation of rj^. 



SU'S'SOUTINE SINV 

PURPOSE 

INVE«T A GIVCN SYMMETRIC POSlTIVg OCFINITE HftTRtX ^ 

USACF 

CALL SINVt A,N,EPSi lER) 

DESCRIPTION OF PARAMETERS 

A - UPPER TPIANGULAP PART OF TM{ GIVEN SYMMETRIC 

POSITIVE 0£FINITe N BY N COCFFICIEKT MATRIX. 
OH RETURN A CONTAINS THE RESULTANT UPPER 
TRIANGULAR MATRIX. 
H - THE NUMBER OF RCWS (COLUMNSI IN GIVEh MATRIX. 

EPS - AN INPUT CONSTANT WHICH IS USED AS RELATIVE 

TOLERANCE FOR TEST ON LOSS OF SIGNIFICANCE. 
lER - RtSULTIMG ERROft PARAMETER C6OEO AS FOtLOUS 

ieR=0 - NO ERROR 

[ER=~l - NO RESULT BECAUSE Qf WRONG INPUT PARAME- 
TER N OR BECAUSE SOhE RAOTCANO IS NON- 
POSITIVE (MATRIX A IS HHT POSITIVE 
DEFINITE, POSSIBLY DUE TO LnsS OF SIGNI- 
FICANCE) 
lER^K - WARNING WHICH INDICATES LOSS OF SIGNIFI- 
CANCE. THE RAOICANO FORHEO AT FACTORIZA- 
TION STEP K^I WAS STILL POSITIVE BUT NO 
LONGER GREATER THAN ABSIEPS^AIKf LtKt II I. 

REMARKS 

THE UPPER TRIANGULAR PART OF GIVEN MATRIX IS ASSUMED TO BE 
STORED CQLUMNWISe IN N*(N*ll/2 SUCCESSIVE STOPAGE LOCATIONS 
IN THE SAME STORAGE LOCATIONS THE RESULTING UPPER TRIANGU- 
LAR MATRIX IS STORED COLUMNWISE TOO. 

THE PROCEDURE GIVES RESULTS IF N IS CHEATER THAN ANO ALL 
CALCULATED RAOICANOS ARE POSITIVE. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
MFSO 



SINV 

• SINV 
SINV 
SINV 
SINV 
SINV 



60 



SUBROUTINE S INVI A.N,£PS 1 1 ERi 



DIMENSION A| 1) 

OOUBLE PRECISION DIN.MORK 



FACTORUE GIVEN MATRIX 

A = TRAMSPQSEITI • T 
CALL MFSOI A,N,EPS,IERI 
IFIIERl -StI, 1 

INVERT UPPER TRIANGULA* MATRIX T 

PREPARE INVERSION-LOOP 
IPIV>N*(N«^l)/2 
INO-^IPIV 



BY MtANS OF SUeROUTINE MFSD 



c 




INITIALIZE INVERSION-LOOP 
DO 6 I-I,N 

01N=t.00/0BLe(A( IPIVK 
A(IPIV)=DIN 
MIN'^N 
KEN0=I-1 
LANFsN-KENO 
IFIKENO) 5.5*2 




2 


J-IND 


c 






c 




INITIALIZE POM-LOOP 
DO 4 K-l,KEND 
HORK=O.DO 
MIN=MIN-1 
LHOR^IPIV 
LVER=J 


c 






c 




START INNER LOOP 
00 3 L=LANF,MIN 
LVEP»LVEP+l 
LHOR=LHOR+L 




3 


WORK*HaRK«-DeL£(A(LVER)*A(LH0Rn 


c 




END OF INNER LOOP 


c 




AU)=-WORK«OIN 




. 4 


J-J-MIN 


c 
c 




END OF ROH-COOP 


5 


IPIV-IPIV-MIN 




6 


1ND=IN0-1 


c 
c 
c 




END OF INVERSION-LOOP 




CALCULATE INVEHSEIAI 8Y MEANS Of INVERSE(T) 


c 




INVERSEIA) = 1NVPRSE(TI * TRANSPOSE ( INVERSE ( TJI 


c 




INITIALIZE MULTIPLICATION-LOOP 
DO fl l=l,N 
IPIV=IPIV+I 
J=IPIV 


c 






c 




INITIflLI^'E BOW-LOOP 
DO 8 K=I,N 
WORK =0.00 

LHOR=J 


c 






c 


r 


START INNER LCOP 
00 7 L=K,N 
t.VER=LHO«>.»K-I 

WORK=MORK»DBLE(AILHDRI*A(LVER) I 
LHOR=lHDR*L 


c 




tNO Cf INNER LOOP 


c 




A(J1.W0RK 




6 


J = J*K 


c 
c 




END OF ROW- AND MUL TIPL ICAnON-LOOP 


1 


RETURN 






END 



SIMV TO 
SINV 80 
SINV 90 
SINV IDO 
SINV tlO 
SINV 120 
SINV 130 
SINV 140 
SINV 150 
SINV 160 
SINV 170 
SINV 180 
SINV IQO 
SINV 200 
SINV 210 
SINV 220 
SINV 230 
SINV 240 
SINV 2S0 
SINV 260 
SINV 2T0 
SINV ZBO 
SINV 290 
SINV 300 
SINV 310 
SINV 320 
SINV 330 
.SINV 340 
SINV »0 
SINV 360 
SINV 370 
SINV 380 
SINV 390 
SINV 400 
SINV 410 
SINV 420 
SINV 4}0 
.SINV 440 
SINV 450 
.SINV 460 
SINV 470 
SINV 480 
SINV 490 
SINV 500 
SINV 5L0 
SINV 520 
SINV 530 
SINV 540 
SINV 550 
SINV 560 
SINV 570 
SINV 580 
SINV 590 
SINV 600 
SINV 610 
SINV 620 
SINV 630 
SINV 640 
SINV 650 
SINV 660 
SINV 670 
SINV 680 
SINV 690 
SINV TOO 
SINV 710 
SINV 720 
SINV 730 
SINV 740 
SINV 750 
SINV 760 
SINV T70 
SINV 780 
SINV 790 
SINV BOO 
SINV 810 
SINV 820 
SINV 830 
SINV 840 
SINV 850 
SINV 860 
SINV 870 
SINV 8B0 
SINV 890 
SINV 900 
SINV 910 
SINV 920 
SINV 930 
SINV 940 
SINV 950 
SINV 960 
SINV 970 
SINV 980 
SINV 990 
SINVIOOO 
SINVIOIO 
SINVI020 
SINV1030 
SINV1040 
SINVIOSO 
SINV1060 
SINV1070 
SINVI080 
SINV 1090 
SINVllOO 
SINVlllO 
SINV1I20 

simno 

SINV1140 
SINV1150 
S1NVL160 
SINVlI7a 

SINVllBO 
SINV1190 
SINV1200 
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SUBROUTINe OSINV 

PURPOSE 

INveoT A GIVEN SYMMETRIC POSITIVE OEflNITE MATRIX , 

USAGE 

CALL OSINVI A.N.EPSt lEK) 

OESCRIPTrON OF PARAMETERS 

A - OOUIJLE PRECISION UPPER TRIANGULAR PART OF GIVEN 

SYMMETRfC PnsiTIVE DEFINITE N BY N COEFFICIENT 
MATRIX. 

ON ReTUHN A CONTAINS THE RESULTANT UPPER 
TRIANGULAR MATRIX IN DOUBLE PRECISION. 
N - THE NUM8ER OF ROWS (COLUMNS! IN GIVEN MATRIX. 

EPS - SINGLE PRECISION INPUT CONSTANT WHICH IS USED 

AS RELATIVE TOLERANCE FOR TEST ON LOSS OF 
SIGNIFICANCE. 
lER - RESULTING ERROR PARAMETER CODED AS FOLLOWS 

rF«=0 - NO €R«OR 

l-^R--! - NO RESULT BECAUSE OF WRONG INPUT PARAME- 
TER N OR BECAUSE SOME RAOICAND IS NQN- 
PDSITfVE (MATRIX A IS NOT POSUIve 
DEFINITE, POSSIBLY DUE TO LOSS OF SIGNI- 
FICANCE) 
UR = K - WARNING WHICH INDICATES LOSS OF SIGNIFI- 
CANCE. THE RADICANO FORMED AT FACTORIZA- 
TION STEP Ktl HAS STILL PCSITIVE BUT NO 
LONGER GREATER THAN AfiS( EPS* A (Ki- 1 ,K + l I I . 

REMARKS 

THE UPP£fl TRIANGULAR PART OF GIVEN MATRIX IS ASSUMED TO BE 
STORED COLUMNWISE IN N*(N*n/Z SUCCESSIVE STORAGE LOCATIONS 
IN THE SAME STORAGE LOCATIDKS THE RESULTING UPPER TRIANGU- 
LAR MATRIX IS STORED COLUMNWISE TOO. 

THE PROCEDURE GIVES RESULTS IF N IS GREATER THAN AND ALL 
CALCULATED BAOICANDS ARE POSITIVE. 



METHOD 

SOLUTION IS DONE USING FACTORIZATION BY SUBRDUTUE DMFSD, 



SUBROUTINE DSINV(A,N,EP5. lEB I 



FACrORIZE GIVEN MATRIX flV MEANS OF SUBRCUTINE DMFSD 

A = TRANSPOSEir I • T 
CALL D«FSO(A,N,EPS,IER) 
IF( lER) <), I. I 

INVERT UPPER TRIANGULAR MATRIX T 
PREPARE INVERSION-LOOP 

1 IPIV=N«(N+U/2 
IND=IPIV 

INITIALIZE INVERSION-LOOP 
DO 6 I^l.N 
DIN=1.D0/A( IPIV) 
A(IPIV)=OIN 
MIN=N 
KENO=I-l 
LANF=N-KEND 
IFIKEND} 5»5.Z 

2 J-INO 

INITIALIZE ROW-LOOP 
00 A K=l,KENO 
WORK=0.00 
MIN=MIN-1 
LHOR=IPIV 
LVER=J 

START INNER LOOP 
DO 3 L=LANF,MIN 
LVeR=LVER*l 

lhor=l-hor*l 

3 WCRK=NORK#A(LVERI*A{LHOR| 

END QF INNER LOOP 

A( JI--WORK»OIN 
* J=J-MIN 

END OF ROW-LOOP 

5 IPIV-IPIV-MIN 

6 IND=INO-l 

END OF INVERSION-LOOP 

CALCULATE INV£RSE(A| BY MESNS OF INVERSEIT) 
INVERSEiA) = INVERSFITl * TRANSPOSE ( INVERSE 1 I I I 
INITIALIZE MULTIPLICATtON-LOOP 

00 8 l=l,N 

IP1V=IPIV*I 

J-IPIV 

INI T I ALIZE RCn-l OOP 
00 8 K = I ,N 

WCII:k=O.DO 
L-^OR^J 

STAST INKER LTOP 
DO 7 L=K.N 
lVEa=LHOR»'<-I 
WORK=t.ORK*fl ( I HOR MA (L VE*^) 

7 LHOR=LHOR+L 

END Cf INNER LOOP 

A( ji =W0RK 

8 J=J*K 

FNC r>f A3H-- AND MUL I IPL 1 CA T I ON-L G^P 



RETURN 
END 



OSIN 10 
-OS IN 20 
OSIN 30 
OSIN 40 
OSIN 50 
OSIN 60 
OSIN TO 
OSIN to 
DSIN 90 
OSIN 100 
OSIN 110 
OSIN 120 
OSIN 130 
OSIN 140 
DSIN 190 
OSIN 160 
DSIN 170 
DSIN IdO 
OSIN 190 
OSIN 200 
DSIN 210 
OSIN 220 
DSIN 2)0 
DSIN 240 
DSIN 250 
OSIN 260 
DSIN 270 
OSIN 260 
OSIN 290 
OSIN 300 
DSIN 310 
OSIN 3 20 
DSIN 330 
OSIN 340 
DSIN 350 
■DSIN 360 
OSIN 370 
DSIN 380 
DSIN 390 
DSIN 400 
OSIN 410 
DSIN 420 
DSIN 430 
DSIN 440 
DSIN 450 
DSIN 460 
DSIN 470 
. .DSIN 480 
OSIN 490 
OSIN 500 
OSIN 510 
DSIN 520 
DSIN 530 
OSIN 540 
DSIN 550 
OSIN 560 
OSIN 5 70 
OSIN 580 
OSIN 590 
DSIN 600 
DSIN 610 
OSIN 6Z0 
DSIN 630 
DSIN 640 
DSIN 650 
OSIN 660 
OSIN 670 
OSIN 680 
OSIN 690 
DSIN 700 
DSIN 710 
OSIN 720 
OSIN 730 
OSIN 740 
DSIN 750 
OSIN 760 
DSIN 770 
DSIf« 780 
OSIN 790 
DSIN 900 
DSIN 610 
DSIN 820 
DSIN 8 30 
DSIN 640 
OSIN 850 
OSIN 660 
OSIN 670 
OSIN 880 
DSIN 690 
OSIN 900 
DSIN 910 
OSIN 920 
DSIN 930 
OSIN 940 
DSIN 950 
OSIN 960 
DSIN 970 
OSIN 980 
DSIN 990 
DSINIOOO 
DSINIOLO 
OSINIOZO 
DSIN1030 
OSIN1040 
DSIN1050 
0SIN1060 
DSINI070 

osiNioao 

DSIN1090 

osiNino 

DSINlllO 
0SINI120 

DUN1130 

0$!N1140 
DSIN1150 
DSIN1I60 
OSINllTO 
DSINUSO 
DSINI 190 
0SIN1200 
DSIN1210 
DSIN1220 



Subroutine SIMQ 



SJd-<OjriNE ji.-io 



JbTAiN SOLJIiUN OF A Scf Of SIMULlANtOUS LINEAR cQUATIONS, 



CALL S IM;3(A,dtN,KS) 

UtSCKIPTIUN Or" PARAMtlc^S 

A - HATKIX UF COcFFICIdNIi SIJt<tiJ COLUMNWlSC. THc SE ARE 

JtSTRUYEJ IN THE C J.HPJTATI UN . THE SIZE OF MATRIX A IS 

N BY H. 
J - VdCTJR L.F URlGlr^AL CJNSTA.JTS (LENGTH Nl . TrttSt ARE 

kE?L4Cci) OY I^INAL SOLUTION VALUES. VECIUR X. 
J - WdMdaK OF tUUATIONS ANO VARIABLES. N MUSI 6E .GT, ONE. 
-^S - rjJTPU'- DIGIT 

fan A NORKAL I^OLUTIUN 

1 FOR A SINGULAR ScT OF EgUAIIONS 

HcHaRKS 

MAIRU A MUST BE GL.NtRAL. 

l^ MATklK IS SINGULAR , SGLUTIUN VALUES Aftt MEANINGLESS. 
A\ ALTtRNATlVd SOLUTION HAY 8t UBIAlNtO 6Y USING MATRIX 
INVb-^SlGN (MINVt ANJ MATRIX PttOUUCT (GMPRO). 

SJoROUTINES AND FUNCTIJN SU8PRUGAAHS REQUIRED 



'iETHUJ QF SOLUTION IS tjr ELIMINATION USING LARGEST PIVOTAL 



SIMQ 10 
. S I MQ ?0 
SI MO )C 
SIHd 40 
SIMQ 50 
SIMU 6 
SIMO 70 
SIMQ 80 
SIMQ 9C 
SIHU 100 
SIMQ lie 
SIMQ 120 
SIMU 130 
SIMQ l<r0 
SIMQ 150 
SiMQ 160 
SIMQ 17C 
SIMQ ISO 
SI HO 190 
SIMQ 200 
SIMQ 210 
SlMy 220 
SIMQ 230 
SIMQ 240 
SIMQ 250 
SiMU 2bO 
SIMQ 270 
SIMQ 2B0 
SIMO 290 
SIMQ 300 
SIMQ 310 
SIMQ 320 
SIMQ 330 
SlMQ 340 



JIVISjR. EACH SrAi,E OF ELlHlNATlUN CONSISTS OF INTERCHANGINGS IMQ 350 



WHEN NECESSARY TO AV3I0 DIVISION ©Y UxO OR SHALL 
ELEMENTS. 

THE FORWARJ SOLUTION TJ OBTAI,^ VARIABLE N IS UJNE iN 
^ STAGES. THE BACK SOLUTION FQ,* iHt OTHER VARIABLES IS 
CALCULATcO 8Y SUCCESiWE SUd S fl I UT I ONS . FINAL SOLUTION 
VALJcS ARE OtVELOPEC IN V£CrGR A, WITH VARIABLE I IN B(l)> 

VAKlABLd 2 IN &12) VARIABLE N IN diNI. 

IF NU PIVOT CAN dt FOUNJ EXC££JlNG A TOLERANCE OF 0.0, 

IHt MATRIX IS CONSIDERED SINGULAR AND KS IS SEl TO 1. THIS 

TjLtRANCc CAH Be MOOIFIEO BY REPLACING THE FIRST STATEMENT. 



SUBROUTINE SIHJIA.d, 
OIMtNSfUN Ad). 31 LI 

FO^irfA'^J SOLUTION 

I Ol = J . 3 

KS=0 

JJ=-N 

00 o5 J^l.N 

JY=J*1 

JJ=JJ*N*1 



SEARCH FOR MAXIMUM COEFFICIENT IN COLUMN 

IJ-IT*I 

If (A6S(oluAI-ABS(AI IJ}) 1 20.30,30 
2C cllGA = A( IJ) 

I MAX = I 
3C CONTINUE 

lEST FJR PIVOT LESS THAN TOLERANCE ISlNGULAR HATRIX) 

IFIAiJil BiGAl-TULJ 35,35.40 
35 XS=1 
RETJKN 

INTtRCHANjt ROWS If NECESSARY 

40 U = JtN»lj-2) 
II=lrtAX-J 
DO 5J A=J.N 
I1=I1+N 
I2=Ii*iT 
SAVE=AI II] 
All n = A<I2l 
A(I2t=SAVE 

uIVlOE EQUaTIJN oY LEAOINJ CDfcfflCIENT 

5C A( I 11=AI 1 U/BloA 
SAVE=d( IHAXI 
fl( IMAXI^Bl J) 
BlJl=SAV£/6IGA 



ELlMINAIc 



XT VARIABLE 



If ( J-N( 


53,70,55 




55 1QS=N*(J-1) 




JO 65 1 


X=JY,N 




IXJ=I JS 


♦ IX 




IT=J-U 






00 6C J 


XijV.N 




IXJX = .1J» 


(JX-1)*IX 




JJX=IXJ 


K*II 




6C AdXJXI 


^A(UJXt-lA( IXJ)«AIJJXM 


65 B(lAl-o 


IIX)-(ctlJI 


*A(IXJ)I 


BACK 


SULUTlUN 




7C ^Y-N-| 






IT-N*N 






DU 6'. j! 


■l.NV 




IA=iT-J 






IH=N-J 






IC = N 






DO 30 K= 


i-> J 




Ell3i-'H 16l-a( lAI- 


'ddCI 


lA=la-i4 






lu IC=IC-i 






RETURN 






ttiO 







SIMQ 363 
SIMQ 370 
SIMQ 360 
SIMQ 390 
SIMO 400 
SIMQ 410 
SIMQ 420 
SIMQ 430 
SIHQ 440 
SIMQ 450 
SIMQ 460 
...SIHQ 470 
SIMQ 480 
SIMQ 490 
SIMQ 500 
SIMQ 510 
SIMQ 520 
SIMQ 530 
SlMg 540 
SiMQ S50 
SIMQ 560 
SIMQ 570 
SIHQ 580 
SIMQ 590 
SIHQ 600 
SIHQ 610 
SIMQ 620 
SIMQ 630 
SIHQ 640 
SIMQ 650 
SIMQ 660 
SIMQ 670 
SIMQ 6S0 
SIHQ 690 
SIHQ 700 
SIMQ 713 
SIMQ 720 
SIMQ 730 
SIMQ 740 
SIMQ 750 
SIHQ 760 
SIMO 770 
SIMQ 780 
SIMQ 790 
SIHQ 800 
SIMQ 810 
SIMQ 820 
SIMO 830 
SlNQ 840 
SIMQ 650 
SIHQ 660 
SIMQ 8 73 
SIMQ 880 
SIMO B90 
SIHQ 900 
SIMO 910 
SIHQ 920 
SiMQ 9 30 
SIMQ 940 
SIHQ 950 
SIMQ 960 
SIMQ 970 
SIMQ 98: 
SIHQ 990 
SIMQIOOO 
SIMQIOIO 
SIMO1020 
SIMQ1330 
SIHQ1040 
SIHQIOSO 
SIMQ1060 
SIHQIOTO 

iimm 

SIMQI040 
SIMQllOO 
SIMQlUO 
SIMQ1120 
SIM01i30 
SINQ1140 
SIMQ1150 
SIMgil60 
SIMQllZO 
SIMQLIBO 
SIHQU9C 
S1MQI2C0 
S1HQI210 
SIM01220 
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Subroutines GELG and DGELG 

These subroutines solve a system of general simul- 
taneous linear equations by Gauss elimination. Con- 
sider the system of general simultaneous linear 
equations: 

A * X = R (1) 



Now transform the elements of pivot rows in ma- 
trices A and R by multiplying with 1/p, and the other 
elements by adding -a^j times the new first rows of 
these two matrices to the other v rows, thus gettir^: 



11 



+ ^^(1 =2, 3, ..., m) 



(4) 



with an m by m coefficient matrix A and an m by n 
right-hand side matrix R both stored columnwise. 
Solution is done by means of Gauss elimination with 
complete pivoting. If matrix R is the identity ma- 
trix, solution X is the inverse of matrix A. The 
solution X is generated in matrix R. Thus, the 
computation of the solution requires no additional 
storage requirements. 

Explicitly, the given system (1) is of the form: 



11 



12 



a a 

21 22 




2m 



11 



21 



12 



22 



In' 



2n 



a a ... a 
ml m2 mm, 



rr,, r,„ r, \ 

11 12 ln\ 



r r . . . r 
21 22 2n 



r , r „ ... r 
I ml m2 mn 



X X „ ... X , 

ml m2 mn/ 



(2) 



The first step is to search the whole matrix A for 
the element of greatest absolute value , say aij , 
and to select it as first pivot (p = aij) . With 
aij, generate the internal absolute tolerance for 
testing loss of significance in the following way: 



tol = I a 



ij 



with a given relative tolerance e . 

Suppose that pivot ay is equal to a^^ • K it is not, 
interchange the first rows of matrices A and R with 
the i*^, and the first column of matrix A with the j^^, 
and save column interchange information by storing 
the difference (j-1) of pivot column index j and step 
counter k = 1 [^interchanging column 1 with column j 
means interchai^ng of variables Xjj with Xi- (1=1, 
2,...,n)]. 



.(1) 



= + 



11 



11 


- p ^^ 


A, U, 


(1) 

vl 


= %1 - \\ 


■4? 


(1) 

i'l 


= \l - \l • 


'S' 



, n) 




(5) 


(1= 2, 3, .. 
v= 2, 3, .. 


.. m; 
., m) 


(G) 


(1 =1,2,. 
v= 2, 3, ., 


., n; 
.. m) 


(7) 



If column interchange information is saved in the 
first position of the main diagonal, the result of the 
first step is the two matrices: 



/0-l)aj2 ^3 ••• ^m 



,(1) 



a<l> a(^) 
22 23 



^32 ^33 



2m 



3m 



a(l>aW...aW 
m2 m3 mm 



and 



rW = 



11 12 



21 22 



■ • r, 



In 

(1) 
2n 



ml m2 * * ■ mn 



Now repeat this procedure m-2 times , starting at 
each step with the matrix A^*^) of the step before 
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without first k rows and first k columns, and the ma- 
trix r'*^' without first k rows. The total result after 
m-l steps is the matrices: 



-1) a<'> a<^> 



ao-2) ai^j 

^2 ' 23 



rm-1) 







(J3-3) 



. . a 



Im 

2 m 

(3) 
3m 



and 



"m ' ' 



R 



(m-l) 



r 


12 


r<^> 


/ r(2) 


,(2) 
22 


• • • '^2n 


r(3) 
31 

1 


32 


• • • '^3n 


\r<-) 
\ml 


m2 


• « • 1 

mn 



Now work backward and set: 



(m) (m-l) (m-l) (m) „ , 1 

1^ n , = I" 1,-a^ n • I* , (1=1,2,. .,n) 
m-1,1 m-1,1 m-l,m m,l ^ • 



(m) ^ (m-2) _ (m-2) (m) 

m-2,1 m-2,1 m-2, m-l' m-1,1 



M . ^(m) 

m-2,m m,l ^ ' 



''l,! - "^11 ^2 ''21 ^13 ""31 



(1) (m) „ 
4m- ^ml (l=1.2.....n) 



(8) 



After each step of back substitution, rows of solution 
matrix X = r("^) have to be back-interchanged ac- 
cording to interchange information in the correspond- 
ing main diagonal element of matrix a('^~^'; in order 
to get the correct sequence of right-hand side column 
elements r'^) corresponding to the sequence of left- 
hand side column elements ap'. 

The only case in which the above procedure can 
fail to give a solution occurs when at any step all ele- 
ments of the rest-matrix of A^ ) become zero, and 
no pivot element can be found. In this ease the pro- 
cedure is bypassed, and the error message ier = -1 
is given. Actually, because of rounding errors , a 
further check of the absolute values of pivot elements 
is performed by the procedure. If at elimination 
step k this absolute value becomes less than tol (see 
equation 3), it is likely that matrix A is singular too. 
But as this is not necessarily the case, and as this 
test depends highly on the choice of the relative 
tolerance c"*" , the procedure gives only the warning 
ier = k-1, indicating that there is a possible loss of 
significance in the results computed by the algo- 
rithm . In case of a well scaled matrix A and an 
appropriate choice of the relative tolerance, warning 
ier = k-1 may be interpreted to mean that matrix A 
has the rank k-1. If there is only one equation to 
solve (m= 1) , the test on loss of significance is sup- 
pressed. 



+For subroutine GELG, a relative tolerance f 
between 10"^ and 10""^ is suggested; and for sub- 
routine DGELG, between 10"^"* and 10"^®. 
-H-For example, e = 10"^ and warning ier = 3 mean 
that there is a possible loss of about five or more 
significant digits in the initial values of elimina- 
tion step 4, and that matrix A seems to have the 
rank 3. 







.gelg ^0 
GcLG iD 


aJOKOJl Irjt 


:-i.L<^ 


ocLO -.C 


t-jKt-'Jit 




*,tLt. 6C 


ru >ULVt 


4 ucNt-tAL SrSrS.'i Of ilrtJLTANgUlJS L1NE4R cUUATIOnS 




jiii^f 




GEL J ■*!: 


i-iLC .^lL 


iH.<,A,n,l\,^PS, [cf<l 


ocLG 10': 


Jcat,'v|»'nON 


i)r »Art^MtrcKS 


i-icLO 1^0 


.{ 


lilt M 5* M HAr<i< JF KIjHT HAnJ slJti. IJESrRJrtL, 


j^c-Li; li'i 




.)!'< ficlO-iU < CU.glAlMi InL iuLuTlLN „(- TH^ cwUAIIGNS 


-ucLL. 1*0 


A 


rnc 'I ^Y « Cll^FfUlc«J ;4-r«lK. lUcil^Ul^tO) 


vfcLO IrJL 


■^ 


r-it f*jA6ct If -^JUATlONS JS IML bVSUH. 


^lLO leC 


N 


iHt MU.IJtK Uf .*iv,nT rlA.Su a I Dc V,.CT:;kS. 


ucL^ 1?: 


cPi 


AN l\>'Of CJfVSTa.^T WrilCH li USci; Aa -KELAIlVc. 


Cti.-J liC 




1:)LtAA/4Cc r^'rt r£sr ON tGib. Uf SI i^Hl t- I CA,V_ t- 


o;lj hj 


I i:K 


K^a.lLTIMj ixACA >>AKAI^^li.fi CCOcU *S FUi.Li)«i 


ulLG iJC 




l.;l%:i - \u LKr^JK. 


utLu tlV 




[cK^-t - \0 .*!:iULT JcoAUSE OF M i_tiS IHA.* I Urt 


CcLJ 22C 




PIVOI LLtrtLi^r AT ANY fctlJtiNAriJM JfcP 


OcLo JiJ 




tJUAL TJ C, 


i^eiG j<.c 




.'U = A - ^A'<!ilfi^ JQC ]J mSlQlt ICS^ Of UCMfl' 


UU Jij 




C-thCt |;NJJC.ITlJ at tLlMIMATl^N iTc»> K*i, 






'*ii-'<; P;VJ? ^L-WlM .v«i LlSS HAN cH 
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^ie.'i ir-.i-i 




uCLG jK 


JN.'Ol l^-»l 
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oct« >^; 
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ucLij JIC 


joL^I ],;a, 
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IH. r'-lj'.t: 


JjAf olVti ..LnULfj Ir li,L hJMi.H OF .jj-.rin,\i iH IS 


ucLu «:)"■ 


J IN - 4 1 ciN r 


u\ .; it,. ,-;v.r .LLi-i^pXili aT AtL ^Hil^iH-.JN irf"! 
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ItN^ ^ii l-L 
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)',~LI„ Sj 
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..,:Lo ?T. 


1 iHt (.iNt-.NL t 
■ 1 U .U T .u 
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Nj U^ ^^uii-ELIHIfum-N -I7h 



4IjiT L^_<1^:.■l^ l.H A^UK 



I t>IV>Td 

AU I li ^IVJT tL::Mt»tT. I>IW CJUAINS THt *dSCILJTS vALJc Of A(II. 



Lsr-1 

iF(*»IV-lL,4.l6tt>. ? 

j = n-ii/H 



of PIVOT fcLfcHEi^I 



PIVOT rflW REyJcTIO'^ iiNJ KCf l.'ifckCHA.^O 

f B=f lVl»RlLLt 
t^(Ll-T J 



1^ ttlllNATION I;. 
IFtit-HlS, 16, In 

LtNC^LiT*"*-* 

I I-J'-* 

UJ i 1 L-LST.Lc\(J 

AIL1-&4LL) 

rd'Pivi«»(i.Li 

alll'Ta 



IK KiGHT HAND jJOE « 



I^Ti 



pwur *'j» RfcOocriu\ i^ hwt^ia 



ftftiJ hcxi PIVJ! 4 



iLcrtt-Jl ^fcJJi-Ii 
five. 

J'O 

03 i3 ll^LST.ttNJ 

Pivi--^(iii 

lST«i[*h 

i-L-i-J 

A(Lt«^AUt**'IVi*'*(LL J 

Tb=«La<AUtl 

If «Tt-PIWI 15, Ib.i- 

PIV"ld 

1>L 

(.UNI IKIJC 

LL*L»J 

l.i.T-L3.I*M 

L.aLi UF Ltl^l^AIiilN Li-kJF 



tfACK SjBiT IlL-T ICV A.'»0 i^ACH lNItt^CnA^j£ 
1 Flh-U *::,;.;, 1 ■J 

LS»-«*1 

DO .;! l-i.« 

I1=LST-1 

iSr=liT-tST 

i.-AILI'-.'j 

lU 4.1 J-il.N1..^ 

tu*>tl J> 

Kt JI=klKl 

i 1 AlKl-To 
4^ KtTUK'X 



cknUK <ETU(tt> 
kCIURN 



JtL'i ^7C 



itLG 



■ii-Li 39C 



ucL(. 


/i>- 


-tlli 




C£Li; 


7 2G 


.icLo 


7i? 


^eLi; 


/to 


u = I.C 


T^J 


wrLi 


T6C 


0£t.^ 




«ci.O 




GfeLG 


r9: 


j£Li 


3, J 


CtLG 




M^L-^ 








GELGl^ir 
(.ElGlCaC 

ge;lo:od: 

UELC.'iC 

GELC.ll--' 
GLLulii: 

uELGll->C 
uftCU J.. 

iiCLGil^C 
;*tLOtl=C 
iicLGll*. 

JcLGl^c; 
GcLOiii: 

GcLGliaC 
GtlGi.-: 

«ELGJ3'.: 

GELGUTC 

GctGim 
JELGll-:- 

jclgui:' 
(jtLGi-.^: 

liELGltJC 

i,El.Gl-.<.C 
GcLGU^C 

uElglho;' 

JtLGi.-.K 
JtlGUdC 

celguv: 

G^lGI^^C 
GELCl3>C 

GELG155C 
JELCl^s: 
GELGiiTC 
uELulsiC 
GELG159: 
GcLGls.: 
.i€(.Gl;>i: 
CEl-Glo^C 
GclGIoj:; 
./cLGIo— : 



^UbKOuTlhE iJ^tLG 

PgKPQSf 

XO ^JLVE A GtlVcAAt. SrSI£M OF :)lHU4.T*hfcUUS LINEAK tUlJATlOMS. 

USAGE 

CA«.t. L>GEt.G(f<t A,H,h, cPSt IcAl 

OcbCklPTIGh lie PAAAHETtRS 

A - OJUdLE P<vEClSIJr< H &Y r« (ill>HT HANU SiOt MATAIx 

liJt^lriuVcb)) . 'JH licTUKN K LUNIAIUS THt SuLUTIuhS 
L,F IHc tJJATIOi-ii. 
A - JJLIi.Lt PktClilUN « 6* »- CUtfFlCltKT HAI.<1X 

rjLirROVtCj. 
M - Trit MJrtbtK 0^ EtjJATlG.xS ih fHt SYSIE*-. 

1. - Wtc NUJ.tLrt OF «iGh7 tiAfiu MOt VfCTLkj. 

tPS - ilfijLt Pf.tLISIUN INPUT CLhSTANT WHIkH li USED AS 

KtLATlVt rjLt«Ai4tt H* rtST ON LOSS UF 
ilGNlf ICANLt. 
lEA - AcSJLTING ERhuK PAMMf^ETtl^ CObtU AS fOLtJuS 

lEK'C ~ NO tK«(m, 

|t« = ^l - Uu RCSUtT atCfcUSt Of « LtiS TnA#. 1 OR 
P;i/uT ELtMfcNT AT AMV EllMlfailOK STEP 
tijUAt TO Ci 
Itft.K - tiAhiiING uui. IiJ POJ-SIBLE tCSs CF StGNlFI- 
CAHc {"tOICArtO Al fcLIHlNATtOh SrtP K*l, 
hhERE PIVCT EiEHEhl HAS ttS^ triAN bfl 
E<.U<'L r^ TMc INIfcklUL TOLtKANCE EP& TIMCS 
AtKSL'LUTELr u<<EA|esi ELCMtNT Jr HATRIA A. 

mE.hark» 

1M>UT MATRICES it AhJ A A>(c ASSii^El^ TC ik. STCREJ -uLUMMi^tSc 
IN n*»i IsESP. n«H SUCCESSDTE SIJAAt^E UrCATIONS. C"! AtTURN 
SOLJTICN KATftU R IS SfCREu CULU^hrilSf TOa. 

The PKCCcOjHe gives HiSuLTS IF \Hk ?«UNiE*t ur tvUATIuNS M IS 
Gt>EATl.r4 THAN ANO P I VJT cLEiHc-^TS AT ALL ELlHINAriOh STEPS 
AAc DIFFc^icNT F^OK 0. rlJ«Ev£;t «^4N|fiG IE4-II, - IF JIVEN - 
IKJICAftS ^DialiJLE LOSS JF SliNlF ICA^itc. iK CAit OF * MEIL 
iLALEJ ^AlnU A AhO APPRiOPftlAT^ TGLtRANCE EPS. IcK'K Hav Sc 
|NTERPx£TEJ THAT f<ATRlK A HAS THc AA*tK ii.. Nu MAANIhu IS 

'jlv€N IM Case f^'i^. 

SUEAOJir^ES AMJ FJj«CTIJ^ SJlPitOGi<AiHS •tECfUIRcO 



rc 



»*ETriCJ 

SCLJTICN IS JUNE bT ^tftNS 
Ct^PLc'e PWoTlNO. 



Of JAJaS-ELIMINATt^N rtlTH 



SUttftJuT Uc 



ELS(R. A,f4.,\.tPS.l£ill 



L'lnEhSIu^ AlIl.xUI 

t,0i;3Lfc PrtEClSI^N li, A,PIw,Td,rJL.Pl¥l 

SEaACH FCK G'tcATcST cCc^ENT iH lAIAM t 
i lER'C 
PIV-C.OC 

JJ 3 L'l.H'l 

T&*JAbS(AIL) I 

Irlfo-PIVt 3.3,^ 
2 PIVTd 

I'L 
i ..JNTlNJE 

TuL-cfi'PI V 

A(I» IS PIV-I rLC.-tiMf. PIW i.J.<TA|Ni iHc AflSOLOTc VALJd OF All). 



LSl-l 

iJO 1 7 it = i»H 

TEST u.^ Sl.-iuJLAAiTf 

IFtPI V)<3,^3,4 
•i iff itR) 7. 3, I 
5 |FlPlV-TdLl6,6, 7 
o it«-A-l 
7 Pitfl-l.uC/Al 1 I 

JsII-lt/M 

i>|-J*.'*-fC 

I*K IS HO-.-l»L)t<, j*t( CJlUKM-I^JcA J- PUCT cLtHc'.T 

PIVUT hC'i' ^l^jCfi:.!^ t,!*0 ■i'Jt, I.<4TEALHA\uc IN KIGht HAND SIJc R 
(,0 6 L«K, «'<,•■ 
LL-CU 

ra = P|WMA(LLl 
^UCl = RlL) 
3 -IL l-TS 

IS ELlHlhATIJN T^RIlKATEtJ 

CJLJHfD INTfcRCHANuC IN l4Ar:<IK A 
<i LtNO-LiT'M-K 
IFI Jll^,l^,t j 
l<. 1I-J"K 

i>Q 11 L>LST.LE\J 

To-AILI 

LL>C*I 1 

A(Ll-A(L. I 

It iittlCTa 

AjM INTtHCHurui^t A^KJ PIVOT kG« REDUCTION IN MATRIX A 

12 iO U L'iiUnn,H 

LL»L»I 

IB'PIVl 'AlLLl 
«.(LLI-Aai 
U A(4.l-T5 

SAV£ CJEUNM INTERCHANGE 1NF0A<1A T lOh 
AUSTI-J 

ELEMENT RtDoCTlJj A«.0 N€«T PIVGT SEAACM 

PIV'O.JO 

LST-iST+l 

J«C 

OC 16 I l-LSTtLcKJ 

P1VI--AI 111 

isr-ii*N 



OcLG 
StLG 
UELG 
Cfct G 
CcLG 
bfc'LG 

uelg 

OcLG BO 

OElG 90 

OtLG ICC 

OcLG 110 

DELG I2C 

UcLG 13: 

UElG I'.O 

UCLG Ibc 

OELG ;^c 

DcLG 17; 
JtLC icC 
UlLO 1 /C 
CtLG iCt 
UELG 2iC 
OtLG 4;2C 
OfcLG 2 3C 

JELC e-vc 

DtLG <*C 
OElw 2S0 
CtLG ^Tj 
OtLG ^fcC 

JELG 14::' 

OELG 3.: 
OtLG 31C 
JELG 3^: 
OcLG 3)C 
U£LG Si: 
JELG 3^: 
iJtCS iaO 
J£LG j7J 
OtLG 3d: 
OcLG 392 
DctC *C0 
3«LG *iC 
DELG oJO 
OELG «iC 
DcLG ^4: 
DELG *5C 
OcLG ••oCi 
OELG (>rc 
OELG *a; 
OELG *iC 
OtLG iCZ 
DclG SIC 
0=LG 32C 
..UELG 53J 
OELG 5*C 
OELG 55: 
L^cLG 3&V 
i/cL- 57J 
OELG as: 
OtcG 5«: 
OtLG s-:-: 

DcLG Si} 
JcCG o^C 
OELG »)': 

OcLG 3<t: 
OcLG t»3; 
OELG ti&: 
OELG S70 
OcLG 6i} 
OcLG 19: 
OELG 7:3 
OELG 7i: 
0=lC 72: 
OtLG 73; 
CcLH 7'*.' 
OclG 7SJ 
wELG To3 
OtLG 77? 
3cLG Td: 
DELG 7)C 
3ELC iCI 
JcLG di: 



■jELi; 



B^: 



DtLG ij: 

uELG d^: 

OcLG ii7 
OElG db^ 
OELG d7C 
GELS 3!)D 
OELG i9: 
OcL:* 90G 
DctG 913 
OELG 92C 
OELG 930 
OEt-G 94': 
OELG 930 
OEi-G 9^C 
OcLG 970 
DELG •'3C 
UELG 99C 
OfLG12:r 
JcLGiClC 
OtcGlOiO 

DtLCi-:3': 
OELGi:*: 

OcLGi:50 
JElGICoC 
DeLGU73 
OcLGICSJ 
0ELC139C 
OcLGUC^ 
OELGlllC 
OcLGll^C 

bELGUoC 
DELG1IS3 
OELCildC 
L)cLG117C 
OcLGliaC 
DEL SI 190 
JELGL^CC 
OCLG1217 
OELC122C 
OELCl.^30 

OELCliSC 
CELGU60 
OELGl^rC 
OELGL^eO 
DEtC129C 



Mathematics — Linear Equations 123 



LL'fJ 

it rv(i.Ll-R(ti.l*f=lVI*'<( L) 
IT LSl-l.Sr*rt 



4t if (y-ll i"3.£*!,t-. 

L-o 2i 1 = ^.1 

i i«Lir-i 

I6=W( Jl 

i.u ^. K-I>T,*<r(,rt 

2l Tb=Tc-AUI*^(LLl 
^=J♦^. 

il 4IKI=Ti 



£> ItH'-l 

tJtQ 



UcLC.tii. 






JcLGl 
OdLii 



>7, 
L.cLGli.>0 

DtL015LC 
CtLGI6<:0 

ticLOio^: 



Subroutine RSLMC 

This subroutine computes an approximate solution 
to a system of linear equations when the coefficient 
matrix has been factored into a product of two tri- 
angular matrices. 

1. Mathematical background 

Consider a system of linear equations 

Ax = b (1) 

having a nonsingular coefficient matrix A. There 
exists a permutation P such that PA = LU, where 
L is lower triangular with unit diagonal, and U is 
upper triangular. Putting c = Pb we see that (1) is 
equivalent to the system 



Ux = y 
Ly = c 



(2) 



Let x^ be a trial solution of the given system. It 
can be improved by means of the iterative process 



r(P) 
Ad<P) 



(P) 



= b - Ax 



= x<P) . d<P^ 



(3) 



where the correction vector d is computed using 
L and U as in (2) . 

If A is not too ill-conditioned, this process will 
give a satisfactory solution, provided that r(P', the 
residual vector, is computed with sufficient 
accuracy. 

2. Programming considerations 

This routine may be used to solve a nonsingular 
system of linear equations whose coefficient matrix 
has been factored by means of subroutine FACTR. 

Let € > be a relative precision parameter 
(input to RSLMC). In the following discussion we 
use the notation ilxll =E |xj| . The process (3) 
is applied to the system (1) starting with x(°) = 0, 
and is stopped when one of the following situations 
occurs: 

a, iEn= 0. The components of the correction 

vector d^P' satisfy the inequalities 



(P) 



s c 



(P) 



i = l,2, n. (4) 



Then x = x is returned as the solution. 
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b. Assume that p > 1, for some i the inequality 
(4) fails and 

1 



.(k) 



,(P) 



2 
2 



> 1 



.(k-l) 



,{P-1) 



k = 1,2,>, 



.p-1 



Then: 



lER^lif Ild^>ll -e ||x<^>|| . 

IER = 2if \\M\>^ II x^P^li . 

c. IER = 3. II d^-^^ II ^Ylld^^^ll . In this case 
the trial solution is too far from the exact solution 
and the process cannot converge. In general this 
happens when A is badly ill-conditioned. 
lER = 4. U is singular, 
in all cases x = x^^) is returned. 
Note : To obtain accuracy in the computation of 
the residual vector, each component is computed in 
double-precision arithmetic. 

For reference see: 
(1) H. J. Bowdler, R. S. Martin, G. Peters and 
J. H. Wilkinson, "Solution of Real and Complex 
Systems of Linear Equations", Numerische 
Matheraatik, vol. 8, no. 3, 1966. 



(2) 



J«H, Wilkinson, The Algebraic Eigenvalue 
Problem. Clarendon Press, Oxford, 1965. 



iUftP.OUflNf «SL»(C 



SCCJTIOM OF A ^VST€« Cf lINftr^ COU'TIOM Bl-S 






,Af ,9,r.r<,ff'<(i,ifF.u,v,'ep| 






DCSCCIPTIGN OF PkPtf»€Tf9^ 
« INPUT MATRIX 

Af *PftAV ff TMC F*CTO«IZ*TIOH CF ThC rfflGISAL «*TRIM 

fl tlGMT HAhO SIO€ V«TCR 

V VeC"JP CONTAINING TM€ 5Q;.UTIC« ON rttUfN 

N 0PC6« OF THE SirSTE** 

fI'=LAT|VE ^PtCISCCN INCrCATCWIBtOOIfftC IVPUTJ 
fo-jpB INtlCATn" 

• IF FIICM rO^PQIttKT CF I HftTS Thf PtfCISir.N I 

•I IF ONLV The HW^ Or X METS TUS buECUION 

-2 IF THE PRECISION IN T**i KCHW CF THC CO'4PUTtO «U«< 230 

SOlUTICN li tOhSa rHA\ £PSI P^L" 2J1 

»J I* THE SOLUTION ObTAlNtO HAS hO ••CAtilNC *" »H. »U* ^'i.f 

-* IF i OIAGCSAL T£^"! 3F Th6 li#Pe« TPfANGUtAP «St»" iJ") 

FACTOR 1^ tESC ' «SL« 2^J 

if?e OF Trtt floSI DIMf'^SirN AiSIGKEP :r friE Afr^AT A iSlK ?70 

rN IHf CALLING PPCGPA*! -HeN TI-.E MAT. I It I". IN DCU^LE «SL« ^^J-i 

Sj3^'"6IPTeO OAT* STOFA^.e «»GOf. M'fc WMFK THE «ATmX ASt" ^'5') 



IS IN SSP VtCTOO SIOfiAGt "OOt . 

WijarING stcpa';e veCTOS 

CT-'ekSION CF V •'uST BE SP^tft^ thAN 

y^J."".- HHifi af^LTATIONS OF ^OMS r* 

STOHEO 

OrM<-NSION CF PfP NUSI jE GCCATeR r>'AN C« E3UAL fP N 



Cf EGUAl TC N 
THE HATFIir APE 



■SLH 
ASL" 
»SL« 
• SL»' 



THE M«Tt-U or IMF SVSIf« WAT t)E 
FACTi IN TMt Aa^AV *f <»'I0« T? 
IME trV" rilANGUl.A"! fACTOP "^IJi 
FPSI IS M';ntf|£0 WHEN !tF-2 

JUet-QiJT !•«€<; ASd fUNCTICfc SjePAC&ft*' 
N0N5 



A TPi,.L ';cL'jri* :s Fi-tsr CL.f-'iiito. 

C»LCUt.4T!rc FRC* ^FS'Ok<«l VECT^IdS. 



«Ef £«£«IC^< 

J- H. WILKINSON - 1-4f *LG€ttPt-ir 
ClAaESOl* PRESS JXF"":, 19*5. 
5. *»'=T£P:, AVO J. -1. wIlRINt?'.. 
'Of'»ltK i.VST*»«5 :iF LI'.Eic ccj — 
VCL. e, ^-"1. 5, U*6, :i7-23«.. 



FACTCaWcO 

«r«V TO TMI3 iUfi'lUTtNE 
ftArfC AN UMT ;iA5n-j»i_. 



PSL-^ J": 

THE SUO.HOUTINS^SLK m 



TMft. c^e-ecncNs a«e 



PSl" *.?T 
tSL« -JO 

«St 
tSl 



•St" 430 



• SIP" 



*»5 



"St" 50J 
PSLM ^1) 
asc 5?i 

■ Sf S33 



SUnPC*JTI»E PSLJ«C C;,Af,a,x,- ,f p^i.irs 
OlffENSlOS A<tl.Ar=fl|.P.ftl.Xlll,Vlti,3: 
DOUStE P=?CISrC*: 3» 



(rlGE^IVALUc PRC?Lc»< - 
-. J. SCNDLEP. P. S. PAftTIN 
♦S-rtUlir** IF PcAL ANO 

:;*is', »u»'FRis':»-c mathc*!atm,rsli 

•SI" 5^0 

•St-N S*.! 

A St" 5 TO 

A Si" «?0 

lA.v.PEai pst* 500 

Mil =st» -Sl-^ 

ASlf 613 



INITIAL liATir-. 

DO-0. 
ICP-0 
IfE'O 
on 10 i>i.> 

Vll 1-6(1 > 
10 Illl-O. 
in irf-iTf*i 

iME PtR«uTAriON< OF aou^ ut A $m aoplicd td v 

00 10 1-1. N 
^-PEflll 

IF I«>l >2f) )0.?9 
>*> OI-VIKI 
Vmi'VII I 

vm-f>i 

30 CONTI>4UF 



TPIANCULAk SYSTEM 



SOLUTION 0= THE LOWCI' 
on 50 1"2,*4 

INI-I-l 

D»-V(II 

It(-I 

00 40 R-l , I-*! 

0P-D»-1,C0«4F< m**-**! 
40 IK.IK*IA 
^0 V( I l-OP 

soL'nnr tf Tne uppet- T^iAN&uLAa s»stf«« 

iriAFIUII ^ii.*»4.*,F. 
t»*. lEP-4 

GO TP a? 
58 W(M|.i>P/Af U< I 

DC- 70 I-?.'* 

IHI-N-I* 1 

INF-I«).l 

OP = VI I-^l) 

U") INI- lMft*lMl 

r| = AFt :»r I 

00 f,-i ir.ISf ,«« 



u 



*0 r.P»PP-!.0')*eFl IK)»V(FI 
70 W( IHll-CiP/:^! 



t/l-f;l*a8'.(v( I I I 

02.02*!cS(Xi I I I 

IF CAS3IV(ril-FPSl*A8S()({ril» 60,80, TS 
75 KL^-I 
tie CUSIIN'ff 

IF Utf Il40.»'2,fc*> 
^2 PFTOAN 

as IF tirf.-ii\M),'»n,^i 

JTfdJTIJNS •'•£ <TO">rrj wfM TH? 
IMA'* rULF CF T"E ON? OF Tm^ FQH 



»=< OF »rt€ ro' 







-7 


IF (OO-2.*31ll20.S.0,»0 


RStN 


10 


JO 


00 « 1«I,N 


■ Std 


20 


#5 


I'd l-KUI.VI II 


•«.N 


W 




00 110 I'l.N 


• StM 


*0 




CP-9II) 


• StN 


=>0 




11-1 


• S4N 


60 




DO 100 r-l.N 


PSt" 


*0 




DP.uP-i.u'j*A(;iti*xui 


«$l" 


a.-} 


lOG 


l — IMIA 


■ SL« 


90 


llO 


VI II .OP 


■ StM 


!0f> 




00«OI 


fSLN 


11'; 




GO TO 20 


RSLN 


120 


l?'5 


IFIITE-ilMI. 140,125 


IISLN 


I'O 


12S 


IF (01-EP;I»3?l!27,l2r,no 


ASLP 


140 


I?7 


ie»-t 


«Sl» 


I SI 
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Subroutine FACTR 

This subroutine determines a decomposition of a 
real nonsingular matrix as a product of a lower tri- 
angular matrix with unit diagonal and an upper tri- 
angular matrix, 

1. Mathematical background 

Let A be a real nonsingular matrix of order n. In 
general, A can be factored into a product of the 
form A = L U, where L is lower triangular with unit 
diagonal and U is upper triangular. 

The elements of L and U may be computed recur- 
sively as follows: 

p-1 



a. = a. - 
ip ip 


2. 

k=l 


ik kp 


i=p, p+1, . 


. ,n 


1. = 5. / 
ip ip/ 


/i 
PP 




i=p,p+l,. . 


• ,n 


u = a 
PP PP 











P-1 



.rE 



u.=a.- > 1 , u, . j=p+l,p+2, ... ,n 
PJ P] L^ Pk k] 
k=l 



Using these formulas for p= 1,2, . . . ,n,the 
decomposition can be carried out in n stages. 



p-1 

% = %-Z) 'ik\p i=P.P+l.---.n 
k=l 

Each term a'^ replaces the corresponding term 
of A in storage. 

b. Equilibrated partial pivoting. 

Let m be the smallest row subscript such that 



(1/Np) 



mp 



= max 
i^p 



(1/N.) 



IP 



If a.jjjp = 0, the error message lER = 3 is given 
and further calculations are bypassed. If a ^0, 
the m'''^ and p*'" rows of A are interchanged, 
PER(p) is moved to PER(m), and the number m is 
stored in PER(p). Thus the first p positions of 
PER contain the information on the permutations 
needed so far in the form of a transposition vector. 

c. Computation of the p**^ column of L. 



1. = a. /a 
ip ip PP 



i=p+l,p+2, .. .,n 



These terms of L replace the corresponding 
terms of A in storage. The diagonal terms of L, 
which are all equal to 1, are not stored. 

d. Computation of the p*" row of U 



u = a 
PP PP 



2. Programming considerations 

Even if A is nonsingular and well-conditioned, the 
above process can fail when a leading principal 
submatrix of A is singular; furthermore, the pro- 
cess is numerically unstable whenever a leading 
principal submatrix is ill-conditioned. 

In order to avoid these inconveniences, a tech- 
nique of partial pivoting combined with an equili- 
bration of the matrix has been built into the 
algorithm. 

Initially, the maximum norm of each row vector 
is computed; 



p-1 



N 



J 



PJ 



p=l,2,, 



If any Np = 0, the error parameter lEH is set io 
3 and further calculations are bypassed. Other- 
wise the reciprocals l/N^ are computed and stored 
in the vector PER. 

Then, assuming that the first p-1 columns of L 

and p-1 rows of U have been computed, the p*" 

stage of the factorization process is: 

a. Computation of the a. . 

ip 



u = a - 7 1 u 
PJ pj JLu pk kj 



j=p+l,...,n 



k=l 



These terms replace the corresponding terms 
of A. 

Note : Double-precision arithmetic is used to 
compute the inner products needed in steps (1) and 

(4). 

For reference see: 

(1) H.J. Bowdler, R. S. Martin, G. Peters, and 
J. H. Wilkinson, "Solution of Real and Complex 
Systems of Linear Equations", Numerische 
Mathematik, vol. 8, no. 3, 1966. 

(2) J. n. Willdnson, Tfie Algebraic Eigenvalue 
Problem. Clarendon Press, Oxford, 1965. 
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Subroutines MFGR and DMFGR 

The followii^ calculations are performed for a 
general rectangular matrix: 

1. Determine rank and linearly independent rows 
and columns of a given matrix. 

2. Express a submatrix of maximal rank as 
product of triangular factors. 

3. Express nonbasic rows in terms of basic ones. 

4. Express basic variables in terms of free ones. 

1. Theoretical backgr ound 

Calculation (1) is most critical. It is not claimed 
that MFGR will give the correct rank in all cases, 
due to the intrinsic difficulty caused by performing 
calculations with a finite number of digits. 

The rank is determined using the standard 
Gaussian elimination technique with complete piv- 
oting. This implies that the rows and columns of 
the given m by n matrix A are interchanged at each 
elimination step if necessary. The interchange 

information is recorded in two integer permutation 
vectors IROW and ICOL: 



The i 



th ( row ) of the interchanged matrix 
( column f corresponds 



nROW(I)th row 
° ® UCOL(I)th column 



in the original 
matrix A. 



Initially IROW(J) = J and ICOL(J) = J. 

The notation A^ is used for the interchanged 
matrix implied at the i*'^ elimination step.t 

a. First elimination step 

Let ajk be the absolutely greatest element of matrix 
A, which is found first in a columnwise scan. The 
internal tolerance TOL is set equal to |EPS 



a. 



jkl 



If I aj[f| ^ TOL, further calculation is bypassed. 
Otherwise rows 1 and j ana columns i and k of matrix 
A are interchanged, giving A^ . The same inter- 
changes must be applied to IROW, interpreted as 
column vector, and to ICOL, interpreted as row 
vector. 



a1 is uniquely expressed as product L^ 
by imposing the following conditions: 



Dl • Ul 



(I) U is the n by n identity matrix except for the 
first row. 



-I- 
Superscripts do not mean powers. They merely 

indicate the number of the elimination step at 

which the result is obtained. 
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(II) L is the m by m identity matrix except for the 
first column. The first diagonal element has 

a value of one. 

(III) D-'- is an m by n matrix with first diagonal ele- 
ment equal to one, while all remaining ele- 
ments of the first row and column are equal 

to zero. 

Partitioning of matrices A-*^, L-*-, D-*-, U leads to: 



r- 


^^ 


k 


22 / 


or explicitly: 


1 


1 


4. 


-<. 


4i 


= 4 




11 



22 



= l; 



u. 



21 12 



+ D 



1 

22 



This means: 

(I) The elements of the first row of U are 



11 



^1' ^2 



1 11 

\2' ■••' ^n = ^n 



(II) The elements of the first column of L are 



i = 1' 4 = 4Ai"--'Ci 



1 / 1 
V/^ii 



Note that it is possible to record all nontrivial 
entries of L-*-, D-*-, U-'- in the storage locations oc- 
cupied by the original A, storing only: 




b. Second elimination step 
,1 j^ 2 



Let d. , > be the absolutely largest element of 

D . If I d . ^ TOL, D„„ is interpreted as beine 
22 ik I - 22 



'22' " I jk 
the zero matrix. 



If D is not zero in the above sense, it may be 



decomposed analogously. In the compact scheme. 




rows 2 and j and columns 2 and k are interchanged, 
obtaining : 




The same interchanges must be performed with 
IROW (interpreted as colunm vector), with ICOL 
(interpreted as row vector), and with A^ giving re- 



sult A' 



2. 




U 



12 



(III) The elements of submatrix Di, of D^ are 



d., = a., - 1.. 
ik ik il 



i = 2, .... m 
k = 2, . . . , n 



Ik 



Ik ik 



11 



Capital letters are used as notation for ma- 
trices or vectors throughout. means zero 
matrix, I means identity matrix; dimensions 
are implied by compatibility. 



Now D may be expressed uniquely as the product 
of the form LDU, imposing conditions I, II, HI. 
The result is: 



D, 




22 



It is easily seen that A^ = L^ D^ U^, 
1 0> 

with: L" = I 1 " 1 
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D 








J D„ 



1 2 2 
^1 ^2 ^13 

u U 
22 23 



Neglecting the small elements in D this may 

be written more compactly as: 



^'"= (lr) ("'U«) 



with: L 




0- • -0 
1 



r2 



where 




<"12' Ul3> 



LR = <L^+i,l' Vl,2 Vl,r^ 



c. Final result of elimination process 

2 
At the next elimination step D is factorized, and so 

r 
on. Now assume that finally D , , equals zero 

r+1, r+l 

in the sense that all its elements are absolutely less 

than TOL. This means that A has the rank r, and 

the end result is the factorization A^" = L^* D^ U^": 




r2 



L" L 

r+l, 1 r+l, 2 



r+l, r 




U 



UR 



11 


12 





2 
"22 


6 






lr 



rr 



K.rn\ 



u 



2. r+l 



Kr+l/ 



L is of dimension r by r and unit lower triangular. 
U is of dimension r by r and upper triangular. 
LR is of dimension m - r by r; if the given matrix A 
is row regular (that is, m = r), LR is absent in the 
final factorization. 

UR is of dimension r by n-r; if the given matrix A is 
column regular (that is, n = r), UR is absent in the 
final factorization. 

d. Further calculations performed 

The problem of matrix factorization arises in connec- 
tion with the solution of systems of equations AX=R. 
Three different cases must be distinguished: 

(1) r = m = n 

A is nonsingular, and AX=R has a uniquely 
determined solution. 

(2) r < m 

A is not row regular; solutions of AX = R 
exist only if the linear combinations among 
the rows of A are also valid among the rows 
of R. 
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(3) r<n 

A is not column regular; AX = fi has 
nontrivial solutions. 
The cases (2) and (3) may occur combined.' 

The solution, if it exists, is uniquely determined 
if r = n; otherwise it contains n - r free parameters. 
It is quite natural to ask for the linear combinations 
among the rows of given matrix A and for the linear 
forms expressing basic variables in terms of free 
ones. Therefore, instead of LR and UR, matrices 
C and H are returned, containing linear combina- 
tions and homogeneous solutions respectively. 

Observe carefully that the calculated factorization 
belongs to the interchanged matrix A^. Therefore 
A^X^ = R^ is dealt with instead of AX = R, where 

{fr} is obtained from Q using the (J^Q^^^'j^th} 

element of < > as 'j ^th/ element of 

X^ 
R^ 



N 



1 = 1 n 

J = 1,. • • , m 



r r ,^^l\ f\ 

Let X , R be partitioned into | I and j 




Then: 



/l \ (U, UR) /xA ^ /rA 



or explicitly: 



L • U • X + L • UR • X = R 
LR • U • X^ + LR • UR • X = R 



Since L and U are nonsingular, this implies 
-1 



X^=U 

L-% 



LR 



L-1 • R - U"l • UR • X 

. = R- 



For the convenience of the user, LR is replaced 
by LR • L"-*^ = C; UR is replaced by -\J~^ UR = H, 
while L and U remain untouched. Consistency 
requires that R2 = CRj^, and homogeneous 
solutions are given by X^ = HXg. In case of a con- 
sistent system of equations A"^ X^ = R^, the general 



solution is X = 



ft) 



with X = U'''" l'''' R +HX 

X J. ^ 



while the values of the free variables contained in 
X2 may be chosen arbitrarily. 

2. Format of Results 

Subroutine MFGR returns matrices L, U, C, H, D 
in the storage area originally occupied by the input 
matrix A in the compact scheme shown in Figure 9, 



-IRANK- 



M 



V 

Z 



\. u 

L \v 


H 


C 


D 



Figure 9. Format scheme (MFGR) 



3. Numerical examples 



GO' 



a. Let A = ( , ^ ], EPS = 1.0E-7 

Subroutine MFGR returns as results: 

L = (1), U = (5), C = (0. 2), H = (-1. 0) 

combined in the compact scheme: 

/s.O - 1.0 \ /u I h\ 
^0.2 0.6E-7J \C I D/ 

IRANK = 1 
ICOL =(1,2) 
mow =(1,2) 

The value 0.6E-7 is obtained instead of the correct 
value 0, due to roundoff errors. 

This example shows that a proper choice of EPS 
is somewhat greater than 10"", if d is the number of 
significant digits in the representation of floating 
point numbers. 

With EPS = 0, MFGR would give the incorrect 
value of 2 for the rank. The choice EPS = may 
well result in an incorrect value less than the correct 
rank, as shown by the following. 

If the element a^o is slightly decreased, resulting 
in a matrix A of correct rank equal to 2, then sub- 
routine MFGR gives an incorrect value of 1 for the 

rank with any choice ol the relative tolerance EF6, 

even with EPS = 0. 



b. Let A 




EPS = l.OE-7 
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Subroutine MFGR returns as results: 



combined in the compact scheme: 



^10 

L =1 0.2 1 

1 0.6 -0.3333330 1 



5 13 -0.48E-7 -0.9399992 

12-2 -0.2499999 -0.2500009 
,0.6 0.2 1.6 -0.2499999 0.7499991 



U 



'5 


3 


1 > 





2.4 


0.8 








0. 6666664 



/I 0\ 

\l q) 



IRANK 
ICOL 

mow 



(JJ.) 



= (4,2,3,1,5) 
= (2, 3, 1) 



combined in the compact scheme: 



Homogeneous solution of A • X = 



( 


f5 3 

0.2 2.4 
0.6 -0.3333330 
1 
Vl 


1 > 

0.8 

0. 6666664 



/ 


IRANK 
ICOL 

mow 


= 3 

= (3.2,1) 

= (1,3,4,2,5) 






x^ = -0.48E-7 • X 
4 1 



0.9999992 • x 



X = -0.2499999 • x, - 0.2500009 • x 
2 1 5 

X = -0.2499999 • x + 0.7499991 • x 
o 1 5 

X and X may be chosen arbitrarily. 



U 



fa a a 
24 22 23 

^4 ^32 ""33 

a a a 
14 12 13 




Linear dependencies among rows: 

row (2) = 1 • row (1) + • row (3) + • row (4) 
row (5) = 1 ■ row (1) + ■ row (3) + • row (4) 



'a a a 

13 12 11 



L • U 



33 



c . Let A = 



32 



31 



a a a 

43 42 41 




, EPS = 1.0E-7 
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..MfGk ^C 

MFt-ft JO 

MF&R ■.; 

MfOft 5C 

rtfC*< ijO 

■IF Ok l3'- 

i^FC-R loJ 

HfiiR 170 

rtfOK lb:: 

J'FLR lie 

«FOk ^IJ 

MFOk .^i.: 






-Its 



LcFI HiNj rKlAN^ULAft FAoI^a IS NLRHAlWcl; i 
JlAjJ'^rtL Cof«TA]ft,<, iLL uiVti iNUi ALLCWiiVi; Ij 
iDrf>,IAGo\ AL (>A-JT. 



: I That 



Subroutine MFGR returns as results: 



L = 



H = 




-0.48E-7 

-0.2499999 

-0.2499999 



U = 




-0.9999992\ 

-0.2500009 1 

0. 7499991/ 



^- IS US£J fb-i LJL.JcAtlL.-* 
- '.i VfeN "(Arfil A. 



^ A-ICftS 



C HtlHOJ 

L ..Auvil^iJ cL l:ilNATIG.\ TtCrt 

C Jf frtc f-d.UiULA.* FALTuki 

C -i.MP..tIc CH/^TING IS DJILT IfJ. 

C [M ,-»3t JF A Si;^uI;la« -^aTrix j,4l» ihe T-^Iaj^u 

c JF 4 iJJ'^■^fKU J'' maIhm •o.hk ah kcHlHt.^, 

C The -(t«4lNj.4G P4!(rS Or THi ^EiJlTANT MaTRM ^U- riE 

i: J-.^=»Jd.\C((:> Or KL»i A.wu THt SoLUTIGN UF TH-i h j +j j t iil JdS 



SucKUJf P,c Ir Jt;(6,M,N,cPS. M4f*C, lAb^, I CUD 

uHci^jluNfcU L.'JMHV VAftlAoLcS 
L/iHcNili.J 4UI,I^UW^lJ,JCJLl II 

Tfcil Or iPiCiFIEj i.I.'^thSI.^NS 
IFIMJ.^,^, I 

£ lH*.rtl< = -I 

►■tlU'^f; \^ LAse OF FLri^AL l'*MJ-<S 



MFjri J). 






MFCK Ji7 

HfGk ^^^. 

MFCS I): 

HFG« j^: 

MFCt. 3-:^ 

HFC-* 5;: 
MfGt 330 
1FCR 59': 
MFCk 6OC 
HFG'' blC 
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slaacm FiKsr Pivor cLtHt^^r 

00 o J= L.J 
UO ■» 1 ' I . ■* 

JJ=JJ»l 

H<JLj:A( JJI 
IC = J 

jj 7 I- L. i 

INirULUc cLirtl.-JAnON LUJP 



■J IhlA.^n= .H^NK* 1 



JJ=in-l At-HK 

i'J U(j 11 J^l .<AMK .N«l, M 
i=J*JJ 

A( JJ=flf It 

iH^Ml ]>vA.<lrv) = JJ 

l«It"K»,MANG^ ■-■JLJ.iNS If NLCcSJrtKV 
li JJ= ( IL- [-(Ai'K l»H 



Al 1)=jAV- 



If |.i,i»i (■-..■ J.^^ 

i«.A,sf )km cjfir,ti\'T so9M*.rfl;x anj itARcH Ntxr Pivor 

is JJ=LL 

iAve=pi V 
JJ=JJ*1 

Itil i:j-i LAiT C:,1_>J*1N 
IF< I^A.JK-N» 1 ', 1--. !■' 
17 11= JJ 

U = i i ♦ . 
.MM= 1 I -L 
«( U )=A1 1 I t-HOLi;*A(rtM) 

iF-(Aas(;.( iin-Aji(»ivin'r,i9. u 

16 PIV = AI Ul 
IC=I 

icf UJ MATRIX tX^K^SSl^G 'i.'J'l JtP^.i JcNC IE S 
2: 1F( IRANK-il j,2i,^l 
21 IR = i_L 

Jj=Jotl 
«f1^ JJ 
iC= IR 

HULJ = r1 JLO*A(nfHl •«( 11,1 
lL=lC-l 

2t CUrtTjNJc 

fLbf rjR CJlOMN HtJUL«HlTV 
^b |F(N-i'<AN<) j, J,^, 

iLf IIH- MATKlX CRI>A£SSING rfA S I C tf4«lAfaLiS IN TcBrlS GF Ffti: 

PArtA.ltTtKS (HJIuGchcdUS SOlUTUN). 
^6 IR=LL 

jU jO J = i,UANK 

JJ=lk 
LL=1 
HULJ=C . 

27 11=11-1 

■ Fill )^V, 29,29 
^« H0LD=H0LJ-A) JJl "AiLL) 



nfOk 


ojO 


HFG^ 


o'.O 


HFG»^ 


J"iC 


MFGK 


of>C 


MFOk 


67: 


MFGR 


6du 


MFO« 


s-JC 


MFGrl 


70 i 


MFOn 


/ t.J 


HFl.<* 


'/C 


MFtH 


7r 


HFG^ 


7'.C 



MF&K 


7 jC 


HfGA 


74-- 


MFGr^ 


dOO 


MFOK 


iV- 


MfGx 


6^ 'J 


Mi'Gk 


J JC 


MFCf* 


avv 


MrG« 


f--)^ 


MFCK 


It.- 


Mf G-( 


dfi.- 


MFGK 


a^C 


MFbK 


ij-*',' 


MFCft 


■jc; 


MFGrf 


•HO 


«r[,K 


^i.'- 


HFGR 


V )C- 


MFL-K 


vtC 



•trGKK'. '. 

IFGKI- IC 
MFCRl jJC- 
MFGf*l^ *'- 
MFGkl'.-^i", 



Xfi 



«1'.' 



,iF&Ki:d; 


MFG'<i„'JC 


MFG«U-C 


MFGhl ilC 


^f-GillL-LL 


MFG^lijC 


HrGKil'.'; 


.1FGt<i lt>3 


.-1FG;<iU.- 


MfGrvliT'. 



MrGi^UVf 
Mt^O-tl^CL 
MFG'l! .:ii- 
MFG^U<iL 
MFoKU )■-' 
><FCK12'*: 
MFGKl<;'JC 
hFO-(Uo- 
MFGfil^'C 
MFGkU'jO 
MFGKli-*'- 
MfGKLl j;c 

KfGhiii; 

MFUKl J^C 
MFO'^lijC 
■^FGKIJ^C 
MFG-ill50 
MFG«lioO 
SFGKli/C 
MFG"ilj^' 
MFG-^IJO' 
MFCrtKC'" 



mf: 



«U2.j 



rtFG^l'- 



f.FGhl'.^C 

MFGftUdL 
MFGfii*.4C 
rtFGRlbO'. 
MFGKltii: 
f',FGt*l3 20 

t^FGfclj'fk. 

MFGRl5oO 
1FGAlb7: 
■iFoKi^d. 
MFGiii^'JC 
MFGRlti':C' 
MFGrtlolD 
MFGfilfe2C 
MFGRlbiC 
MfGMli.'.C 
^lfGrtlt.;iC 
Mf G«lfafiC 
KFG«l67U 
MFGrilb^C 
HFGMloyC 
SFGR170C 

mfokuk 

.■4fGR17^0 
MFClfiC 
IFlvKI ^-rO 
MFGRi750 
1FG«1 fbJ 
MFGH17 7C 
MFGt*17D0 
MFGR17V0 
MFGRU^O 
MFGRUIO 
«1FGHla20 
MFGKldaC 
MFGRld'tO 

HFGftlii60 
MFGR1O70 
HFGRlaea 
MFGRlttflO 

MfGKlSCC 
rtFGRI910 



LI. = L L - 1 

COTU 27 

A(Li.l = 1H0*.U-A(LLI »/A( JJ I 

lh=IR-l 

RETUKN 

tND 



MFGR193C 

rtFGKl<)4D 
MFGRl-JSC 

HFOK1960 

MFGRl<i7C 
MFbRl9oO 



Fur a GUfci^ t1 tJV N MfttKIX IHC rOlLUWlNi C ALCUlATI UAiS 

AUc ffcKFUkHtJ 

11) DeTcRHINE AANK AHo L1Ni:ARLV 1 rtJcP tn(L«t NT RlJMii ANG 

I.ULUMNS I bAilSI. 

( ■>! FALTOKlZc A :>UbHATAlX uF -IaaImmL KAMK. 

IjI tXPKcS^ .^j\-hA^lC '(a<JS iM TERNS Uf BASIL UhtS. 

(-.1 c«Pkcj:> dAili. VARIASLcS li4 tckrtS OF f«Et JNti. 



GALl J1r^K( A.HtN.FPSt IRAt4<i IAJh, ICJL) 
.iAtHlX 



Ra^s 



LiL^HTIi;.- ur PAflAHETiiWS 

;. - iJUJuLt PRLCISidN GIV 

AND N COLUHhS. 

1j:4 XlilUKN A CONTAINS T.ic TRIANGULAR FACTORS 

JF A SLiijMATRU OF HAXIMAL RANK. 
.^ - NU.1i>iR Jf Ki,WS OF MAThlA A. 

N - AiUMa::^ OF LULlW.^S uf HaIKiX A. 

LPi - »lNij.Li: PKfcGlilUi* TCSTVALUC HiH. ZtRO AFFctTti 

;iJUNJuFF NOISE- 
1K«.<^ - RLiSJLr^NT KAf^K JF GUiN MAIKlH. 
IKUh - INTlGcR VtC[Ut< jF DI^^t^SlCJN M CJNTAIMNj TMi 

iJjSCKlPTS Jf BASIC kUWS IN I *0W ( 1 ) , . . . , I kOh ( I RANK 
iGiIi. - iNTtGtK VLCTUX UF ulHENllU*^ N CUhiTAl ^^l NG TMt 

iUL.Si.hlHIb OF BASIC COLUMNS IN ICOHU jf TO 

ICijL ( iHrtNK t . 

fMt Ltr-r Urt.'Jj iKliiNGULiH rAGTj^v ib NLiKMALIZcJ SjCH THAT 
frit alAjuNAL U;.»lAl.^4i 4LL ONci IrtUi ALLU-ING Tj STOHc ONLY 
rH._ SU3i>l ^•j'j'iAL PAHT- 

Jo.-<GjTI.ML-> ANO FJNGTIUN SOdPKoG'<«rtS RtUJI«ca 



l)MGH 10 

•JMGH ^0 

DMCR 3C 

OMGK *.€ 

UMGR 50 

t>MG^ 6C 

JM«K 7C 

uMijR eo 

JMCR 9C 

UrtGk i:c 

OMGR lie 

OMGH UC 

JrtGR 131- 

OMGK l<.0 

OMoR 15C 

OHGR 100 

iJHGft 1 7C 

uHGR IdC 

0>Mjh WG 

tMGB .'JC 

iJNGR ^IG 

iJMGK ^^C 

■JM&K 2 3C 

»JMt,K J*.? 

0*1 UK i'tiD 

fMGH ^60 

OrtGK ^?C 



UMGR 


>i: 


JflGk 


333 


D«G« 


Ji-O 


J^CR 


3e: 


urtGK 


jfi'- 


JMG^ 


i'j 


[JMGS 


330 


UMGK 


JSu 



.itlHLj 

GAJJSiAN ;;Ll>1lNAU^N rcCHlJltUc I i UStU FOR CAlC^lATIuN 

JF He TRlANGJLA'i FAtr,,'*^ uf 'i oIVL'N MATRIX. 

„UilPLtTi: »>lVJTi.^l, IS ctUUT IN, 

IN i.AS£ JF A ilNGULAii rtAT-<lX JNlY IH£ TRIAMCUlAH riCIOrtS 

JF A Su-j^AT^lK Jf >^AA1'4AL kAUK ARt. KtfAlNtU. 

IhL KuHaI;41,'«G t-AHTS Ul- Trie fttiJLT^NT MAIklX iJltft iMt 

J^PL.iJL.MCItiS UF RUMS tnJ THc iULUirGN Of THE HGrtJoENt {JUS 

iAlHlX c-jjAflUN A*K=C. 



SOoKOUT l.\_ iJHFG.<I Ai .1, N, EPi. I HANK, l<*Jii, (Cui 1 

JIM^NilJ.'^tu Ul(rt,1Y i/AKlMtLcS 
JlMon<Slw,\ A( 1 I.IKUJ t II tICULI II 
uuUdLl Pr<cLl:-IJ^4 A,t>IV.MQLl3,SAVE 

Ti-sr ur ^'■LCirict- oiulvsIjNS 

iF(rt)£t.J,l 
1 Ir(.«)^,J.'t 



JMGK *20 



(NiTIALUc GJLJi'*"! INUtX VcC TJft 
StARCH rltjST JJVJT tLcHcNT 
•. JRAlM^ = ■:, 



Ju o J:=i,;'l 

ICoLl Jl =J 

JJ=JJ*l 

r^OLiJ^AI JJ( 

in JAoSlFlVJ-DAtiSlrtJLJl )5,o,6 
t. PIV-=HGLD 

1^=1 

IC = J 

c OJNriNJE 

h^irULlZE Kji. INGtx WcCTJR 
uLi / i = l,M 

; iRUM{ 1 I -[ 

>tr uP iMIcAN-iL TCLt*<ANl,t 
ruL^u^il ci>s*SNGLI t'lVJ ) 

lNlTlALl<:t ELlMliUriCN lCJP 
NM=-iJ*.1 
Uu 19 iNCJL = NiN1,f4 

TtSr rui* FEASltJlLlTY GF PIVJ7 
a iF(A(>Sl:>.«ui.( PIV I l-TGLI 2C,<fC,9 

I.^IchCHjnGE KUWS if Nt^-cSSARr 

1F( JJ|12,1^,1C 
iC i>u 11 J = lh.HHK,Nli,H 



J*JJ 



SAVl=A1JI 
A( JJ=A( II 

11 *u; = S4Vt 

UPwATt K(j- iNJtX VtCTiin 
JJ^IRCrfdKl 
lrtJ«( IRI = 1«0.^( IRAM) 
lRo«( ISA^K)=JJ 

INTcAi-HAUyc GULJINj IF NcCtSSARY 
l^ JJ=( 1C-IRAN^1*N 



u-iGK 


•.3c 


D«b.^ 


-.-vc 


Jr4GK 


4^U 


UHCR 


•.oO 


GN„R 


'i?.-' 


0«GR 


•.oU 


UHGR 


-•^■; 


uMGK 


5:3 


JMGrf 


alJ 


. .OMGk 


52j 


D.'iGK 


^ji: 


OMGk 


■>4C 


UMGR 


_>5C 


0,1 GR 


56: 


GMGR 


3 70 


UMGR 


ad-j 


L>HGR 


!>93 


JKGK 


6CC 


DMGR 


olG 


OMG« 


o<;: 


J«&« 


ojO 


OMGR 


n^O 


JHGH 


os; 


ONGH 


o6* 


OHlfP 


ot; 


OMGfl 


toSC 


OHGk 


69C 


OMGR 


7GG 


OnQR 


710 


GMGK 


72C 


ijWGR 


730 


OrtGR 


7fcC 


U«GK 


/50 


OMGR 


76C 


t;MUR 


77G 


DMGK 


730 


i;MGR 


79C 


DHOh 


acc 


OMGR 


oi: 


i;mG-< 


b*;.: 


JMGR 


aac 


JMGK 


•s'.C 


UftGR 


S50 


O.HGK 


6o0 


DMGR 


d70 


OMGR 


f^dO 


jMGR 


9 40 


LiMGK 


iJO 


UMGR 


9 13 


JMGK 


9i;J 


UMGR 


9i: 


DMCi 


940 


JMv,R 


i5C 


UMGR 


■ibQ 


LfMuR 


J70 


CHCH 


9cC 


U,>10R 


99C 


GMGKi 


:oc 


JMG-^l 


JIC 


0MG«1 


-tO 


JMGRl. 


: 5C 


UMGRli 


j40 


D«GRi: 


350 


OMCKlCfeO 


OHGHl: 


>7C 


UMGRi: 


:-sG 


DMi,Ri; 


;9o 


ONGhllCC 


J'lGRlUO 


OMGRIUC 


t>Hv,RU 


ij 


ijmgku*.; 


1JMGRI15D 


OMGR 1 1 


&v 
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LiL l^t J=l,M 
l=lt<»JJ 
SAV£=A(KKI 
A(KK)=A( 1 I 
ltK«tCK-i 
I<. A) I)=SAVc 

Ji^JATt COLJM.V l.iOtX VtCrOK 
JJ=ICJHit.3 
|CUL( IC)':lCui_( I RANK I 

lb RK"IKAniK*l 

TwAivSrO^H vJ.*Kfc\T SUoMarHEX AN^ ScAftCH NEXT PIVOT 
16 JJ=lL 

t/U 111 J-.\((,t« 

ri6i.J=i( JjJ/>AW£ 
A( jJl =Ma^ 

rtir e.M last cjLJdN 

IFl tk-NK-M 17, If, li 
IV J]=Jj 

CD 19, I =\K,\ 
1 1 = 1 I 'rt 

J-( I 1 f = .l) II J-Hul. J'Al M^t 

IF ( jAojUI nil-^^o5{t=iV»H9.l5.ia 

13 PIi/ = iM I I) 

tC = I 

1^ t-i^riNJi 

j^r Jr^ .1AT.<M c<^S£SSlNC- ajW i;fcPtNJENC]tS 

^C It-l l'<i^^-lJ3,I;t-.;l 

^l JH=LL 

u,U ^t J=^»l -i^i-^K 

ll=J-l 



JJ=JJ*1 
r r_ = i rt 

>.J ^^ L^l. Jl 

HL,'L^-NJLj*a(rtrf) *A(i C» 

iC= u-t 

Jh CJNTlNJt 

TcSr fun CUL^HN Kt&JLAKlTY 

ici -P .-IjIkJX iiX|JRtii.I.\b ^AbU Va^lADLtS iN rfc'Hb OF rkEt 

25 IR-Ll 





1.U JJ 


= 1. 


-(AjMK. 




Jt. 2^ 


-K< 


i^M.rt 




^J = I« 








LL=i 








riOLi^=0 


DO 






n = J 






27 


n = n-i 








if-( iiu 


^-t..' 


-td 


it; 


LL=LL-1 




J JJl "AILLI 


i^ 


«(LL1 =( 


hiJw^ 


-'t(LL) 1/C( J J 


i. 


IK^irt-l 








KSTJ^rtl 








tf.J 







OMGRtUD 
UMt;«ll90 

aM<;fii200 

OiiGRl2lO 
0MOA12ac 
i)HORU30 
0«GR1,;4C 

0NGR1260 

UHGRl2eC 
D»1GB129C 
t/MGRLJJO 
ONGAL313 
0NGRli23 
Of1GRl33!j 
DNGMU<tO 
OMGRli50 
UHGR1360 
0«GRli70 
D«6R1380 
DHQRiitC 
OMGkt<.i?C 
OMGRl^tlC 
0M&K1*20 
UNGRUii:) 
0MGRU40 
•JHGR1-.30 
JMGRUbO 
OhGRU70 

0MCfti'.9C 
DKGRiaOO 
UHG»<1& IC 
Li.<GRl3 20 
J«iGkUjC 
jMG^.ls^C 
jMGRlSbC 
JHGRiSi: 
DMGftli7C 
OlGRlSdC 
UMGK139C 
OHGRloJC 
UMOkitlC 
L>MGW16Zj 
uMGh..l6 3C 
CMGkibi,: 
0MG.^163C 
0^G«lt6C 
£ty,G^lo7C 

OMGkloQC 
OM&Ri^CC 
DliGKiriC 
OhGR17<:; 
LJ1GKIT3C 
Li«Ghl 7-^0 
U«G'<17 5C 

i;«c-<i7fcc 

D«Gi^l77C 
JNG=^176': 
JMGK179C 

JMCRlfeCC 

OMG-iiaiC 
OKGRISZI 

iJMG«185c 
OMGkloiC 
0MGHld7C 
0MGr<ld6C 
LJ>1GRi5S0 
JMGkl90r 
iJMGKiSlC 

uMGrtW^c 

JMGKl JJC 
DMGSl'i^O 

JrlCKl'»7C 

JMi.kl,^': 

aMCf.l^^C 
Df1Gk2CCC 
OrtGR^OlC 



Subroutines GELS and DGELS 

These subroutines solve a system of simi^ltaneous 
linear equations with symmetric coefficient matrix 
by Gauss elimination. Consider the system of simul- 
taneous linear equations 



X 



R 



(1) 



with symmetric m by m coefficient matrix, the upper 
triangular part of which is stored by column in 
m * (m+l)/2 successive storage locations, and an m 
by n right-hand side matrix R stored by column in 
m * n successive storage locations. Solution is done 
by Gauss elimination with pivoting in the main diago- 
nal of matrix A. If matrix R is the identity matrix, 
solution X is the inverse of matrix A. Solution ma- 
trix X is placed in positions of the right-hand side 
matrix R and is stored by column also. Thus, the 
computation of the solution requires no extra m by n 
array of storage. Only an auxiliary storage array 
named AUX with (m-1) storage locations is neces- 
sary. 

Explicitly, the given system (1) is of the form:"*" 



^^11 ^12 ^13 • " ^Im 



^21 ^22 ^23 '" ^2m 



a a a • . • a 
31 32 33 3m 



la ^ a ^ a -. , • a 
\ ml m2 m3 mm 




^11 "12 



In 



21 22 2n 



^31 ^^32 • • • ^3n 



ml m2''* mny 



r r 
11 12 



In 



^21 "^22 ••• ^2n 



(2) 



"31 



32 



3n 



r , r „ . . . r 
ml m2 mny 



The first step is to search the main diagonal of 
matrix A for the element of greatest absolute value, 
say ajj, and to select it as first pivot (p = ajj). 
The reason for pivoting only in the main diagonal 

Of A is that rest-matnc&s of A(^) 



■•"Note that subroutines GELS and DGELS require 
only the upper triangular part of matrix A; that is, 
the elements a^; a^a, agg; ajg, ags. agg;. . . ; 

^Im' ^2m' • • • ' ^mm- These elements are under- 
lined in formula (2). 
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(k = 1,2 m-1) must remain symmetrical during 

the whole algorithm. With ajj , generate the internal 
absolute tolerance for testii^ usefulness of the sym- 
metric algorithm in the following way: 



tol 



JJ| 



(3) 



with a given relative tolerance e . 



Suppose that pivot element a^j is equal to sl-^-^' ^ 
It is not, interchai^e the first rows of matrices A 
and R with the j^^ and the first column of matrix A 
with the jth, and save column interchange informa- 
tion by storing the difference (j-1) of pivot column 
Index j and step counter k = 1 [interchanging column 
1 with column j means interchanging variables x, , 
with Xj. (1 = 1, 2, . . . , n)J . 

Now transform the elements of pivot rows in ma- 
trices A and R by division with p, and the other ele- 
ments by adding -a^j^ times the new first rows of 
these two matrices to the other v rows , thus getting: 



11 



,(1) 
11 



11 
= (1= 1,2,... ,m) 



P 



(1) 

f 1 vl vl 



(1 = l,2,..,,n) 
(1) 



a^ ' (1 = 2,3,... ,m, 
1'= 2,3,...,m) 



(4) 

(5) 
(6) 

(7) 



As column interchange information is saved in the 
first position of the main diagonal, the result of the 
first step is the two matrices: 



/a 1) \2 h3 



22 23 



.(1) 



'^32 ^33 



Im 



2m 



4'^ 

3m 



and 



^m2 ^mS 



,(1) 



■H-Note that transformation of pivot row in matrix A 
destroys pivot column, which is, due to symmetry, 
stored in the same locations . As pivot column is 
used unchanged for transformation of rest of A and 
R, it has to be saved in auxiliary array AUX before 
transforming pivot row. 



R 



(1) 



/" 


r(l) 

12 


...4^ 


/4^ 


22 


r(l) \ 


r(l) 
31 

\ 


32 


• • • ""Sn 
/ 


\ml 


m2 


mn/ 



It is easily seen from equations (4) - (7) that the rest 
of matrix A^-'^) —that is, matrix A^-"-) without the first 
row and first column — is symmetrical and that actu- 
ally only the underlined elements must be calculated 
and stored. Therefore, the range of index 1 in 
formula (6) reduces to 1 = u , v + 1, . . . ,m. 

Now repeat this procedure m-2 times, starting at 
each step with the matrix A^' of the step before 
without the first k rows and first k columns, and the 
matrix r' ' without the first k rows . The total re- 
sult after m-l steps is the matrices: 



'"i 1) ^12 ^13 ••• ^im 



ao-2) a; 



(2) 
23 



4'^ 
2m 



,(m-l) 



V^)-4m 







. . . (1 -m) 

"m '' 



and 



R 



(m-l) 



/" 


r(l) 
12 


...r</) 
In 


/ 'f.' 


r(2) 
22 


r(2) 
' • • '^2n 


4? 

1 .... 


r(3) 
32 




\ ml 


m2 


. . . r(™) 
mn 
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Now work backward and set: 

^(m) ^(m-1) (m-1) . ,(m) 

m-1,1 in-1,1 m-l,in ml , 

^(m) ^ ^(m-2) _ ^(m-2) . ^(m) 
in-2,1 in-2,1 m-2,m-l m-1,1 



,n) 



(m) 
11 



(1) (1) (m) 
""U ^12 • 21 



^13 ^^31 



>(8) 



a o ■ r ,' (1 
m-2,m ml 



Jm-2) 

.(1) 
Im 



1,2, ....n) 



- a 



C «=''^ "> 



After each step of back substitution, rows of solution 
matrix X = r("^) have to be back-interchai^ed ac- 
cording to interchange information in the correspond- 
ing main diagonal element of matrix A^"^" ' . in order 
to get the correct sequence of right-hand side column 
elements corresponding to the sequence of left-hand 
side row elements. 

The only case in which the procedure described 
above can fail to give a solution occurs when at any 
step all elements in the main diagonal of the rest- 
matrix of A^^) become zero, and no pivot element 
can be found. In this case, the procedure is by- 
passed and the error message ier = -1 is given. 
This may — but does not necessarily — mean, that 
matrix A is singular. Possibly subroutines GELG 
or DGELG (which are working with complete pivot- 
ing) will be able to find a solution in cases where 
subroutines GELS or DGELS fail. Actually, because 
of rounding errors , a further check of the absolute 
values of pivot elements is performed by the proce- 
dure. If at elimination step k this absolute value be- 
comes less than tol (see equation 3) , it is likely that 
there was loss of significance in the computation of 
the diagonal elements. But as this may not neces- 
sarily be the case, and as this test depends highly on 
the choice of the relative tolerance e + , the proce- 
dure gives only the warning ier = k-1, which indi- 
cates that there is a possible loss of significance in 
the results computed by the algorithm.'^ut here it 
is also possible that subroutines GELG or DGELG 
will give better results. If there is only one 
equation to solve (m = 1) , the test on loss of signifi- 
cance is suppressed. 



"""For subroutine GELS, a relative tolerance be- 
tween 10"^ and 10"^ is suggested; and for subrou- 
tine DGELS, between lO'^^ and 10"^^ . 
-H-For example, e = 10"^ and warning ier = 3 mean 
that there is a possible loss of about five or more 
significant digits in the initial values of elimina- 
tion step 4. 



SUAROUTlNt G£lS 



ru iULVc rt SyS1£H OC SiHU|.TANtOU& LINEAR tQCATIiJNA hi TH 
SVMMerRlC CufcFftCIE'^r MTi^IX UPPcR IftlANOUiAh 9ARX 0^ MHICH 



IS aSSUNEO to 3E SlUt'tO COLUHNUISt. 



2C 



50 



ec 



JSASb 

CALL SliLSIH. <../"« 



NttP&.lcK) AUX) 



JtSCHIPTION 0<= PARAMETERS 

R - M er N RIGHT HANJ SlOt MATRIX. lOtSTROfEOI 

Ot RcTJxK K COii^TAlNS rH£ SOLUTIO<V OF Tne EQUATIONS. 
k - \jPPik IRUNGULAk PAftT OF THE SYMNETAU 

« oY fi CUEfi^ICIiiNr HATkIX. (oeSTRUYcJI 
M - THt ;%JM»tft nf t^UATlUNS IN THt SYSTeM. 

H - THc '*JMbtR Llf .{[ijlir HANU SIDE VtiCTOrtS. 

tPS - AlH INPyT CONSTANT WHICH li UitO AS RtLATlVfc 

Ti]Li:KAMCfc FOK TliST QH LOSS Cf SI..NI F Ii.A.<4Cfc. 
leK - )<£SJLT[NG ERrtJR PARAMcTgH CUBED AS ^OLLJWS 

I£K>C - UU ERAClR. 

Ick'-i - M AESULT 6cCAUSE Of M LE^S THAN 1 Oft 
PIVOT ciLcKENT AT ANT ELIHINAflUN STEP 
tUUAL TO 0, - 

Uk'%. - bAftNlniG not TO POSSIfiLE LUSS OF SIGNIFI- 
CANCE INOICATcO AT £LIMINATIJN STEP K* I . 
WHcftE PIVuT EL&HENT MAS LtSS TriAN OR 
cyUAL 13 JH£ [NrSftNAL TOUi^ANCt cPS TIHtS 
ASSULUTELY b-lcATtST HAI.M OlAGiitAL 
ELfcMtMT Cf flATRlK A. 
AUK - M AUXILlAKr STU<<AGE ARRaY WITH J|HeN$lON H-1. 

AcMAkKS 

-JPPtS r-*lAi4uULAK PARI OF MAT«IX A IS ASSUMcu TO }t STuRtU 

COLJHNflISc H i^*tM*l)/^ SUCCESiiVc STORAGE LlJCAriaNS, RIGHT 

hAMU iiJc rtATKlX R Ca.'JHNWISt IN N*M SUCCESilVt ST0R40S 

(.GCaTIONS. u^ TidIU«N SJLOriiJN lATHIX R IS SICivEi; CaLUMN*<ISE 

TOO. 

TH£ PKLiCtDjRc ;IV€S REiJLTa IF THE NUmtR OF cUUrtTIONS M IS 

GAtATER THoN ANu PIVJT tCt»1E\TS AT ALL ELIhINATIUN STEPS 

ARE LtPfiHt-f^I f4CM 0. HJWEVER rfARNINli lER-K - IF GIVcN - 

INUICATcS POSSltJLE LOSS Of SliMJf ICANCE , IN CASE LiF A k£LL 

iCAi-tG MAT-tU A ANU aPt'SOPRIATt TOLERANCE EPS, ItR«t( MAY 8= 

IITiRPKEIEJ THAT MATitlX A maS ThE RANK K. NO WARNING IS 

JIVcS IN i:«sz H=I. 

tPRJR PASrtMErtR l£R=-l SiJtS NJT NtCESJAAlLV Mfc•*^4 THAT 

HdTkiA A L'i SIN.;uLAk. as ONLY MAIN DIAGONAL ELEMENTS 

Ahc USED ^S PIVJT ELtncNTS. POSSlbLY SUBRQUTINc ^ELG ItilHlCH 

*i.'«.KS t-ITH UTAL PiVOriMGJ t.i.JLJ BE ASLE Tu F lHi> A SOLUTIGN, 



GELS 
GELS 
SELS 
GELS 
GELS 
GELS 
GELS 
GELS 

GELS SC 

GELS ICO 

GELS lie 

GELS i^C 

GELS 130 

GELS 14Q 

GELS 19C 

.GELS 160 

GELS i7C 

i,cLS lao 

GELS i« 

GELS 2CG 

GfcLS ^lO 

GtLS 12C 

CCiLS J3C 

GELS ^4C 

GELS diQ 

GtLS 260 

GELS dlZ 

GcLS ^30 

GELS 2^0 

GtLS 30C 

GELS JIC 

GELS 320 

GELS iiQ 

GELS 3*0 

GcLS 350 

G£LS )6C 

GELS iJi) 

GELS 3dO 

GELS 3'JC 

GElS *0</ 

GELS '^lO 

Gas *20 

GtLS *30 

GtLS 44C 

GELS 4S0 

GELS -(.'jO 

GtLS *f70 

g£L5 <fao 

GtLS tttO 

GELS iOO 

GELS 510 

,GCLS 52C 



SUdROJUNtS XtJ.fiJiiCTlJH SJSPkDG^A^S RfcuOlkcD 



.HfcTHCD 

SULJTlljAi IS OjNd or MEANS CI- GoUSS-ELIM ( NAT ILN w 

?lVUll»^ It ■■iAii'i LilAGoNAL. U UkDER TO PRtSEKVc 

>Y(1.1ETKY I'^ AlMAINING COtFFlCIcMT MATBICES. 



GELSlKf A.HtNiEPS.IEA. AUX) 



JiMcntSIUV A( l)f RUl tAUXI 1) 
|F(H>^';.24.1 

SEARCH *-i;^ GREATEST HAIN OIAGJNAl ELcMENT 

IE.^=J 

PW = ;. 

L«G 

DC J K=l,n 

L=i** 

lB*AriS( A(L) 1 

|F( ta-PWJJ,3,2 

PIW=rb 

I=L 

CGNriKJL 

TU.«fcPS*PiV 

AAIM UlA'.,U^AL ELEMENT Am=A(J,J» IS FIRST PIVOT ELEMENT, 

RIV CuNlrtlNS THE AdSULUTE VALUE UF All). 



^TAifT ElIrilNAIlLiN LJDP 

lST-3 

nh»n«n 

Lt.^iJ"«-l 
uU Id K = l.-4 

TESr Ui^ USbFULNLiS uF SrHlicTKIC ALGORITHM 

IF<<'IV)24f^4t4 

IF{ IcRW.S.T 

IP<PIV-TaLla,A*7 

IER=K-1 

LI=J-K 

LST-LST+X 



PlVni ROW •icUULTION AND ROW INTERCHANGE iS HIGHI nANJ SILE R 

pui=i./A{n 

DO L-K(N:HtM 

ll-l+lt 

T6"PlVI*<i«LLl 
RlLLl=K(LI 
d R(LI-TS 

IS ELIMINATION ItRMINATta 
1F<>C-H)9. 19.19 

HUM ANJ CJLUNN INTERCHANGE AND PIVUT ROW HEOUCTIOn IN MATRIX A. 
cLEIcNTS Jf PIVOT COLUMN ARt SAVtO IH AUXILIARY veCrOH AUX. 

) L*i-Lsr*/Lr*(<+j-iii/3 

LL«LA 

U-L5T 

DO 14 lt>K.LENO 

L=L+II 

LL-lL*l 

IF(L-LRI12.10.L1 

A(LL)*A(LSTJ 

rH>A(L) 

GO TO 13 

LL-L»LT 

Td-A(LLI 

AILLI-AtLI 

*UX(lII>Ttl 

A(LJ«Plvl*TS 



cLS -j3C 
GELS 340 
i,ELS 550 
GELS i60 
GELS 57C 
GcLS iriO 
GELS 5^0 
GcLS 6&C 
GELS frlC 
. .GELi 6^C 
GELS 630 
GcLs O'.O 
GELJ iSO 
GELS bbO 
GtLS b7C 
GELS t-SO 
GELS 695 
uELS 7».0 
GELS 7iC 
GELS 72C 
CELS 7 3J 
GELS 74: 
GtLS 7&0 
GtLS TcC 
JfcLS 770 
GELS 7b:' 
GELS 79: 
GCLS 30C 
GELS die 
GELS s^r 
GELS d3C 
GELS H40 
GELS biO 
GELS 860 
GcLS 8TC 
GELS dSO 
GELS (JVC 
GELS 90c 
GELS 'iilC 
GELS 920 
GtLS 93C 
GfcLS 94C 
GELS 95C 
GELS 960 
GElS 970 
GELS -iac 
GtLS 99C 
GELSIOCC 
GELSIOIO 
GELSIC20 
GELS1C30 
GELSI040 
GELSlCaC 
GEL51C60 
GELSlOTO 
GELSICSC 
GELS1G9C 
GEL SI ICC 
GELSlllO 
GELS112C 

GELSIUO 
GELSU50 
GELSlloO 
GELS 11 70 
GtLS use 
GELS119C 
GELSI^OC- 
GELSUIO 
GELSI220 
GELSU3C 
GcLS1240 
GELSL250 
GELS1260 
OELSW70 
GELSI2SC 
GELS129C 
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5*Vt vJLUrtN iiHTt-*C'-i* 



lNP0ftH4r lUN 



tLc-ltNT acJUCriU.J ANO SE*i»CH FOR K6<I PIVOI 
PU«C. 
LI.iI-i.ST 
LT-C 

1)0 la ll'K.LtNJ 
PI Vi>-AUXl Jl t 
LfLLST 
LT-Lf*! 

00 IS LLO-l l.k.t.<IL> 
LL»LL*LLiJ 
L-LL«LI 
i3 A(L) =A|LI **'IVI»A(LL 1 
LLSI-llST*!! 

Ib-idi( A( LK) ) 
If ( To-PIV)17,lT.lb 
It PIV=ri3 
l=Lrt 

LL»tK*Ll 
It «(Li»-.<(LLl*t>tVl«K(Lk» 

tf*0 ~tf LL iHliVATldt LUu? 



dAcP. SJb:>IlIUT Iu^. (..^0 <JAC^ I'^rcrtCHM. 

00 ^Z i=i,H 
tST=LST-i I 

ii«n-i 
L^AiLsr I*, 3 

•v'Lir 

DO .^i LI^I1.L:N(J 

K=R*LT 
<;i Td»Ia-4l^)♦r (LL J 

rJ( JI^RI K) 
^* R(ICI = lt> 



KtlW 



uCLS13'JC 
G£LiU20 

(;el:>l)>o 

CELSlJSC 

GtLSli'O 
uELSijs;] 

&£lS1J90 
G£LS1<.00 
GEISUIO 
^£LiiU2J 
GELSU30 
titLSl'i'rO 

^*tLSU60 

GkLSl<.aO 
o£LSl*iSC 

(jifcLSlbC: 
GELSlaiC 
GELSll>^C 

GcLSl53i, 

■.-CLS1561. 

;.tLiii JO 

oELSloCO 
JEi.ilt.iO 

i;tLSi6.;c 

OELiloSO 

itLSibtiC 
G£lSl£,6C 
i*ELSi6 7.: 

GcLSi7: :. 

GtLSWi'j 

GLLSU*.L' 
OELS1751, 

GtLiir?': 

GtLSl MO 

GELSiaOC 

JtLSloli. 
<^fcLSla20 



^UsKJwr i.yt 



jCLS 



SYrtrlLlKlC LOLt^ 



I GF SIHJLTAMtiJUS LlKEAi^ EQUATlO^ilS mITh 
IcDiT HATAU U<>»'cK TklANGULAK PARI Lf khlCH 



ijLiCKlPIlGN G^ PARArtcT 



ClilU.J I 



rtlGif HANJ 

contai.\s r 



,1l>i 



MAIril K 

SJLUr!O.M OF 



THL LgJAIlONi. 

.J.>PlH Ikl*.\GLiLAK fAkT O r^t SVM.HtTK.C JUUbiE 

P^tCl^lJN ^ aV rt CutrrltltM MATHIX. OcSTROYfOI 

Tht fJUHiiLk L<l- tJUATlJNi j ;^ THE irSTtM. 

rnt '>»uMbtH LF ftlJHT nAfjD S I Dt VcCTUftS. 

jlM^Et. PRlClSlJN INPUT Ci>NSrANT MHICH li UbCL. *$ 

Kii«fl¥£ TtiLERANoc FUR ItST ON LilSS uF 

StG.*IHLANLE. 

.^tSJLn^^G erru.* PArtA^tTER cuOlO as fgllJws 

Uk=-1 - NJ kdSJLl dj-rtJiE Uf H LESi THuN 1 OK 
PlVtll tLtMfc,-H( AT ANV £LIMINATIiJN STEP 

tJUAL TQ 0, UtLS 

ltR=< - hAKNlMG uJc TCJ POSSI ,Lt LCiS U^ ^IQHlfl- j£LS 

CANCi 1'*J1C*.1I:J AT LlInINATION STEP A*lt J(-LS 

HHtkc PIVUI cLtMEM ^AS UtiS THAN O* JfciS 

LgJAL rj THc li'iTEHhAL rOLEKiP^C: EPS TlMtS jELS 



JcL^ 110 

UtLS 12: 

DELS li-l 

DEES l<n^ 

UELS ISC 

OEti liO 

UCLS 170 



uEES 1^0 

JtLS i!iC 

DELS .Jiv- 
JcLa ZtfC 
JcLS ^5C 
UELS 26C 
uELS 2 7,; 
JELS zoC 

UtLS i'iC 
j£LS jCO 



■'II. 



AdSULUrei-V jo-lATESF HaIN [ylAtiOi^AL 
ELEMtMT a^ rtATRl« A. 
Lc PKi^lSIU.^ AUXU[AKr STiJRASE A«^AT 



JtLS i-*!, 
JELS iiC 
j£Li 16C 

utts ^7^: 

UcLS ioti 

trtAKKS IJtLS 390 

JPpt^ TKl«ft«GJLA-t PART Uf MATftU A iS ASSUMEG To dt STOftcO ^tLS ^UG 
CjLUMr^yiSc I.'^ H•^H*H/^ SUCLE>SIVE STORAlit LOCATICIUS, HIChT JELS ".IC 
HAUj SIGt MAfKlX « GQLUMMWIic IN h*M ilKCtSSIVE SlOkAGE UtLS -i^O 

LJLAIIuN'x 0>i ^ErUKN SOLUTION MaTSIX R IS STORED CJLUHNWIS6 DELS '• 30 
rju. wEES ■V'.O 

THi. PHaCcJJ^c GIVES «t*JEri if IHE NUMoER jF cJU-illONS H IS JELS *tiiC 
GRfcATER TM-N C ANJ PIVOT £(.Ei4ti*»TS AT ALL EL IHJ WT I UN STEPS wELi *.60 
Akt OltrtKtNT f«U« 0. HOrft^tK UARhlfiG ttLh = K - IF GIVEN - LfELS -J. 'C 

INuiLATcS PGiSJiLE LdSb Jf SIGNIFICANCE- IN GJSt Gf A -ELL JtLS *.bO 
iCALcJ MAI-vU A AtO A^KHClPhlAlL TOLtHANLt EPS. ItR^K HAV Bt Oci.i -iqC 
INrE.<PkiirtJ TftAT MATKlX *. HAi Tm£ RANK K. NU UAHrilUfi Is L>£Li ^O^j 

ilVEN IN t-Sc H=l. OtLS 51C 

tKKoK P«KA.^Ef;f^ ltR = -l UOEi not NcCESSARILy MtAN THAT OElS 5^0 

HAIKiX A li ilNuULAH, AS JNL V HA ( N DIAGONAL ELcHENTS DcLS 3 30 

ARi_ Jifcu -S fIVOT ELEHEnTS, PUSSIttLY SUa«OUTINt OGELG lUHICHOtLS JtO 
•iu^n.:, WITH TOTAL PlVOTiNO) •'OJLJ &E At)L£ TO FIMJ A SOLUTION. GLlS tiSC 

UELS ibC 



fUNCTIUW SJJPkUG-^AMS HfcUUIREO 



iTHUJ 

SCLUriOM iS JONE bV «tANS Of GAOSi-fc Ll MI NA f I ON WlTN 

PIVOTING l.<4 f^AIN l/IAGU^AL. IN ORDER TO P^tESERVE 

SYMrtLIRr l.ij RchAIMNG GOtfFltlENT MATRICES. 



OELS 50C 



DELS 620 
OELS 63C 
DELS 6<r& 



SUdRjOT I'iL UL/tLS<k, A.HiN. EPS . I£R . AUX 1 



UIHt<<lSIl.N Al 1 ItRUI ti^JAI II 

tiOJdLc P-iECi^iIUN Kt At AUX.P I V.Tdt TOE rP I VI 
IFM)^:'..^-*,! 



OcLi <oC 



AltSI HAIK Jl^jLiHAn. tLcHENT 



SEARCH f^ti I 
1 IcR'O 
PiV=. .UC 

L-0 



ifUu-Plv)3, i,^ 

i PIV-TJ 
l"L 

3 i:o.^TlN<it 
IciL-cf i»^i V 

rtAIN UlAGiji.At, cL^HuNT A(II = a(J,J1 IS FIRST PIVOT ELEM 
PiV CO.^TaINj Tut AJSiJLUTi VaLUe ^f AH). 



JIAKI i,Ll.-llN 
LST«C 

Nn«><*H 



TLST i>.-j jitfJl-Ncj 
lF(^iVl(t.2'i,'. 
-. (rl IlRI 1,-3, t 
', 1F(CIV-IUL 16. t. 7 
t. iEHiK-1 

LST'LiT..-. 

PiVI - 1 .G-/«( I I 

'IL 3 L^r-MVfl.M 
LL-L'LI 
Tt^r' Itf I --mLL 1 
K(LL»^K(L 1 
O h ( L ) = I •( 



.10^ MHJ ^.jLJn^ l.'»fLKi:rtA,\, 
LLii^t.^rS oF PlV^I ^t;LJH.s 
■« Lk-L^THL(--lt(»J-ni/2 
LL = lH 
L = L 'j ' 

L-o l-. 1 UK.Lt.JJ 
L=L*i 1 



rMStT^ii, aLuu'^.iTM 



IN ■A^\ iJHT h4«.^ ilOt R 



i.JJ PIV^T MOW REuUlTJON \* 

: '^AVlJ I(* AUXlLl«t.r k^ ii, I , . 



IFd-LRJU.K.ll 
i;> -(Lt)-AILlt) 

f3"Alt) 

Go TJ ij 



11 



• LT 



il Io=A(LL) 

AILL)=-iL) 
I J AUX< I I l-TD 
1-, Alt I -PI Vl-Tts 



rtAi.jt LNFO.trtATIuN 



LLEH£Nt '.clAJCT lUi, ANU icA.^CH 

^•IV«: .J( 

LLST^LST 

LT='. 

00 Id 1 I = K,LcNU 

f'lVl=-AUKlIIJ 

^L = Ll:>r 
LT^LT*! 
tJ'J l-j l.LJ=l I .L;.'0 

L=Li.»Lr 

I'j «tL Ma) I It^iVI^-AILL » 

Ltii^LL jT*I I 

lH = Ll->1 "^X 

if ( ru-->wi I/. 17, If. 
io fJV=Ii; 
l=LK 

j=n»i 

1 7 4JJ Id Lk = K,^><1,M 



oAL< iJbsriTurijj ai«u bA^:< i'*t£Rcha.'^ 

i; If iLu'.-lJ I2i,23,21 
00 i£ 1-2, ^ 

tST'Lsr-i : 
u = n-i 

L=A)Lir )♦ .>UCi 

Tb'RI J I 

LL = J 



NEXT PlvGT 



<-l:i 

■jo 21 Ll-II.LE'^0 

LL=LL*1 

^■tttLl 



11 fi(KJ = To 
23 RtlUkN 



ERRUK RtTURN 

14, Itfi"-I 

RETURN 
End 



GcLS 


^■,;- 


GELS 


7*:; 


DcLS 


71^' 


OtLS 


IV'-. 


OELS 


7i: 


OtLS 


7*^0 


(JLLS 


7v; 


DLLS 


?(»r' 


ULii 


7 70 


OtLi 


73; 


OcLS 


^■^J 


i^ELS 


a:': 


JlLS 


- 1 •;■ 


DELS 


<Sly. 



UtLS 


et.'; 


OcLS 


tj-.'7 


L/tLS 


9 J, 


OtLS 


-li-: 


OcLS 


V2C 


JcLS 


■*ie 



OtLS -,7^ 



D^LSIO^: 


LiELSiC J'" 


JLLjI.-- 


ocLai.'-i'; 


LcLSiO-jr 


G^LSi: 7: 


o-lil.-*'. 


j.LSu y- 


.IfcL J. K'^ 


GclSI 1 K 


jLLbl 1^'- 


;jLL5a>: 


JCLSt l-.] 


JtLii IHO 


utLilK.'; 


c-:.L:.iJ 7, 


jcLSUti.: 


JclSll *L 


U L L S 1 ^ C C 


ut.L >i^i: 


o^LS12?: 


yCLSl^iC 


Glilsi^'.: 


UCLSI23: 


L^fcLSi,..,' 


JLL il. V. 


C-LSl*:o: 


jcLiU'*': 


J.LSliCC 


ucLSi ji : 


jtLSl )2C 


dLL bli.'- 


•jlLSijj','. 


Otiii .M 


j=isi>^: 


UtLSl WC 


ucLSi ).v; 


OtlSlj-. 
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Subroutines GELB and DGELB 

These subroutines solve a system of simultaneous 
linear equations with a coefficient matrix' of band 
structure by Gauss elimination. Consider the sys- 
tem of simultaneous linear equations 

A * X = R (1) 

with an m by m coefficient matrix A of band struc- 
ture and an m by n right-hand side matrix R. Solu- 
tion is done by means of Gauss elimination with 
column pivoting in matrix A. If R is the identity 
matrix, solution X is the inverse of matrix A. 
Solution matrix X is placed in positions of right- 
hand side matrix R and is stored in the same way 
— that is, columnwise in m*n successive storage 
locations. Thus, the computation of the solution 
requires no extra m by n array of storage. 

As storing matrix A by row results in a much 
more effective inner loop than storing by column, 
the procedure assumes that band matrix A is stored 
by row in successive storage locations, the number 
of which is equal to the number of elements appear- 
ing in the main diagonal and upper and lower 
codiagonals. The elements to be handed to the 
procedure by the user are underlined in the 
following explicit writing of formula (1) in the 
special case of a 7 by 7 matrix A with three upper 
and two lower codiagonals: 



a a a a 
11 12 13 14 







a a 
21 22 


^23 


"24 


"25 





^31 ^32 


^33 


"34 


^35 


-36° 


' "42 


"43 


"41 


"45 


'^46 -47 



a a a a a 

53 54 55 56 57 



a„, a.„^ a„^ a„„ 
64 65 66 67 



a a a„„ 
75 76 77 



''ll "^12 • • • ""m 



^"21 "^22 • " ''2n 



^31 ^32 • • • ^3n 



"^71 "^72 




'^ii "12 •••^m 



""21 ^^22 • • • "2n 



r r . . . r 

31 32 3n 



(2) 



r r . , 
71 72 



7n, 



Immediately following the matrix elements there 
must be some auxiliary storage locations used by the 
procedure, such that in the general case of an m by 
m matrix A with "mud" upper and "mid" lower 
codiagonals the total number of storage locations of 
array A is:"*" 



ma = m 



mc 



(mc-mld - l)(mc-mld) 



(3) 



with mc = min (m, 1 + mud + mid). (4) 

That means, in the special case of formula (2), 
that the 33 underlined elements of matrix A must be 
Stored by row in the first 33 sucxiessive locations of 
array A, which consists of 36 storage locations. 
In the first part of the procedure , matrix A is 
searched for its absolutely greatest element, say a^j, 
and the absolute tolerance for testing loss of ' signifi- 
cance 



tol 



« 



(5) 



is generated with a given relative tolerance £ 
Close together with this search, the elements of ma- 
trix A are moved backward, and a triangular area of 
zeros is inserted in the last positions of the first 
(mc-mud-1) rows, according to storage require- 
ments of the Gauss algorithm for band matrices. 
After these manipulations , the special matrix A of 
formula (2) will occupy the 36 positions of array A 
by row as shown in Figure 10 (the underlined ele- 
ments are tiie main diagonal elements of matrix A). 

In order to make the description of the band- 
algorithm easier, the elements of array A are re- 
named according to their arrangement in Figure 10, 



Mathematics — Linear Equations 137 



°u 


°U 
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"14 
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°22 
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"24 


"25 





"31 


°32 


"33 


"34 


"35 


"36 


°42 


^43 


% 


"45 


"46 


"47^ 


"^53 


^^54 


"55 


"56 


"57 


/ 


"64 


^^65 


"66 


"67 


/ 




"75 


^^76 


V 










a „...a 
mr,3 mr,mc-l 



mri-1,1 mrH,2 mr+1,3"" mr+l,mc-l 



m2 



m3* * * m,mld+l 



mr,mc 



-fS~ 



Figure 10. Array A 

thus generally giving the array shown in 
Figure 11 (main diagonal elements are underlined). 
Each of the first mr = m-(mc - mid - 1) rows in 
this array contains mc elements ; in the following rows 
the number of elements decreases steadily by 1 until 
the last row, which contains mid + 1 elements. 

Now Gauss elimination can start. In the first 
step, search the first column of matrix A 
(that is, the elements of the first column of 
array A with row indexes from 1 up to 1 + mid) for 
the absolutely greatest element, say a^(l= j=l 
+ mid), and select it as pivot element (p = a^). 
Assume that j = 1. If it is not, interchange the first 
rows in array A and matrix R with the j rows. 
Now, transform the elements of the pivot rows (that 
is , the first rows) of array A and matrix R by divi- 
sion with p, and the elements of the following mid 
rows by adding -a-^i times the first rows to the i/ th 
rows (i'=2,3,...,l + mid). At the same time, 
shift back the elements of the i/*" rows in array A by 
one position and insert a zero in the last position of 
each transformed row. This transformation is de- 
scribed by the following set of formulas: 






p 

p 
I'l 



(1 = 1,2,., 

(1= 1,2,,. 
.(1) 



mc) 



n) 



(6) 



(7) 



f 1 



11 



(1 = 2,3, , . . , mc)J 



a(l) = 
J'.mc 



(" = 2,3,..,, 
1+mld) (8 J 



Figure U. Array A renamed 



"=2,3,, 
1+mld) 



. ,n; 



(9) 



Rows with row indexes greater than 1 + mid remain 
unchanged; nevertheless, they are marked with the 
superscript 1. The result of the first step is shown 
in Figure 12 (main diagonal elements are under- 
lined). 



R 



(1) 



'■<;; 


12 


In 


r(l) 


r(l) 


r(l) 


^21 


^22 


••• ^2n 


r(l) 


r(l) 


r(l) 


""si 


'^32 

• 


••• ''3n 


r(l) 


r(l) 


r(l) 


Vl 


m2 


mn 



This procedure is now repeated (m-1) times, start- 
ing at the k* step with array a('^~-'^) and matrix 
R(k-1) . 



Note that the user must provide this number of 

storage locations of array A by the dimension 
statement in his main program. 
■•+In case of a matrix A without lower codiagonals , 
tol is set equal to zero, whether e is zero or not. 



138 Mathematics — Linear Equations 



_L 


°12 


°13 


-»- 


1 ,mc-l 


l,mc 


4? 


"S 


°23 


•• 
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4? 


4y 


°33 


•• 


°3,mc-l 
mr,mc-l 


3,mc 
mr,mc 


mr, 1 


mr, 2 


mr,3 


•• 


°mr+1,l 


°mH-1,2 


°mr+l,3 


<s— 


^(1) 
mH-l,mc-l 

m,mld+l > 
/ 


/ 


ml 


m2 


mo 


/ 







Figure 12. Array A 



(1) 



-^J- 



^ 
Y 



'l2 13 ••• ),mc-l l,mc 



22 23 
^ ^32 °33 



i,mc-l z,mc 

,(3) ,(3) 

3,mc-l 3,mc 



, (mr) (mr 

mr, 2 mr. 



mid zeros 



Figure 13. Array A 



(m) 




ID 
N 

-a 

E 



The rows which must be worked through at the k*'" 
step are the rows with indexes i = k, k+1,..., 
ilr = min (m.k + mid). As soon as ilr becomes 
greater than mr, the number of elements in any row 
of array A which have to be transformed decreases 
by one in each step k. The total results after m 
steps are shown in Figure 13. 



R 



(m) 



4? 
41^ 



r<^) 

12 

,(2) 
22 

32 



j.(mr) ^(mr) 
mr,l mr,2 



ml m2 



,(1) - 
in 

,(2) 
2n 

(3) 
r 
3n 

^.(mr) 
mr,n 

Jm) 



Now, working backward, generate solution matrix 
X in the locations of right-hand side matrix R by 
means of the following equations: 



^(m) ^ (m-1) _ (m-1) . (m) 
m-1,1 m-1,1 m-1, 2 m,l 

(l=l,2,...,n) 

(m) ^ (m-2) _ (m-2) ^m 
m-2,1 m-2,1 m-2, 2 * m-1,1 

--1";%- ^m\ a=1.2....,n) 
m-2, i m, 1 



^„., _ (m-mc+1) _ (m-mc+1) 

m-mo+1, 1 ~ m-mc+1, 1 m-mc+1, 2 



Jm) 



m-mc+2, 1 
m 



(m-mc+1) 
m-mc-l,mc 



% a = 1.2 n) 



^(m) _ (1) _ (1) (m) _ (1) (m) 
""ll ^ "^11 ^12 ■ ""21 ^13 ■ ""si 

-...-a</) • r<"^>, (1=1,2.. ..,n) 
l.mc mc.l ^ _ 



(10) 
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Note that in the first mc-1 equations of formuia (10) 
the nxomber of terms to be subtracted increases 
steadily by 1 until this number has reached vmc-1. 
From the (mc-l)st equation up to the last equation 
the number of terms to be subtracted remains con- 
stant. 

The only case in which the procedure described 
above can fail to give a solution occurs when at any 
step (say the k^'^ step) all elements in the k^^ column 
of the transformed matrix A [that is, the elements 
in the first column of array A with row indexes k up 
to ilr = min (m, k + mid)] become zero, and no 
pivot element can be foimd. In this case, the proce- 
dure is bypassed and the error message ier = -1 is 
given. Actually, because of rounding errors, a 
further check of the absolute values of pivot elements 
is performed by the procedure. If at elimination 
step k this absolute value becomes less than tol (see 
equation 5 and second footnote), it is likely that ma- 
trix A is singular, too. But, as this may not neces- 
sarily be the case and as this test depends highly on 
the choice of the relative tolerance e , the proce- 
dure gives only the warning ier = k-1, which indi- 
cates that there is a possible loss of significance in 
the results computed by the algorithm."*^ In case 
of a well scaled matrix A and an appropriate choice 
of the relative tolerance, warning ier = k-1 may be 
interpreted as meaning that the rank of A is less than 
m but not less than k-1. If there are no lower 
codiagonals (mid = 0), the test on loss of signifi- 
cance is suppressed. 



+For subroutine GELB, a relative tolerance be- 
tween 10"^ and 10"7 is suggested; and for subrou- 
tine DGELB, between 10"!^ and 10-16. 
■H-For example, e = 10"^ and warning ier = 3 mean 
that there is a possible loss of about 5 or more 
significant digits in the initial values of elimina- 
tion step 4, and that matrix A seems to have a 
rank less than m but not less than 3, 
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l-ELSlbTC 

GELdlo9C 
GELBirc: 
CELSl/lO 

GeLB1740 

oeLbi/sc 

CcLai760 
GtLiJlT7C 
i;£L6l7o3 
GtLB17^0 
GcLBlbi.': 
GElBLc IC 
G£LBLe2C 
GELdl£3C 

GELBldiC 
GELBUoO 
CELai^7c 
CfcLbUbC 
G£Lei69C 
GELS190C 
GeL6191C 
GELl>192C 
GELBI93C 
GELgl94C 
GE16195C 
GELSl^bD 
GE18197: 
G£L6l9dC 

GELeiy-sc 

GELb2CC0 
GtLB2C10 
GiL&2C«C 
G£lB2:3C 
GELB204C 
GEL 6*. CSC 
GtLS2(.bC 
GELB2CTC 
GELB2CoC 
GELB2C9^ 

GELB2ilC 
GEiB212G 
GELB2130 
GEIB214C 

GELB2lbC 
GEib216C 

GEIB217P 

ec(.B2iec 

GELe219C 
G£LdZ200 
GeLB221C 

&ELb22^C 
GEL6^23C 

GELB22->: 
GcLU<2^0 
GtLfi22t: 
Gett22?J 
C£La22S0 
GtL622')C 
Gti.62^CC 

G£LS^320 

CEL623sC 
GEtBi35C 
GtLB2JtC 
GLLB2j7C 
GELe23tiC 
GELB2J9C 
GtL6240C 

CELS24 2G 
GELtt2430 

G£*.a2<,4C 

GfcLB2<i^0 



SUBROUTINE UOELD 

PukPOic 

TC S&LVt A SVSTEM OF SINOLTANEjUS LIHEAK ECUAT IUMS Vi TH A 
CUtfUCltNT MATRIX Uf dANO STRuCTUi^E, 

USAuE 

CALL otjtLblA, AtHf NiMOOiMLJiEPS* lEKl 

OtSCRlPTIC.% uF PARAWtfERS 

K - bOUjLc PKtCiSlON M oV « RIGHT HAND SIDE MATRIX 

(OtSTROvEGj. J.\ REIURAi R CONTAINS THE SjLUTlON 

Of TM£ iCUAIIONS. 
- i-CJoLt ofifcCISIOh M 3f M LCEFFICIEM MAT.*iX niiTM 

AAhiU STKuCtukE (JtSIrvGCtOJ. 
rt - rrt£ rtUHdik OF EitdATlU'^S IN THE SVSTfcK. 

N - ImE NoMtJfcK UF >(IuHr NAIvO siOt vtcrDK:>. 

Hu'J - THE MJUBlk CF JP?c« Cl-OIAGOKALS I THAT MEANS 

(.oOIAoONALS A6JVc H^l>t t'lACCNAL). 
■iLi. - THt MU«UtR uf LOwtH CDOIACOhfcLS (IHAT "ScANS 

CQOlMiOKliLi tElOm MAi,\ i>lAGUNAL). 
cPS - ilNGLc- PRLCIblJN INr'JI CONSFANT KHICH IS USCO AS 

AtLATIVE ICLLiLtMCt foR Tt&T ON LLiS Cr 

SlG.Vlf ICAhCt. 
Id* - ktSJLTINO tfvRJK PA.(A*ieTe« COOEO Ai fULLiirti 

Ifct< = -1 - No kESoLT dECAUSc Of WRQNG IStJjI PARAH£- 

Tfc.o rt.^UO.htJ CR BECAUSE <jf PIVtT ELEMEf.TDtLD ilC 

AT A.^V tLiNl.\-IlCN STtP taUAL fC C, litLB i2: 

IdK^K - KArM^u i;Uc Tu PCSil&Lt LOSS CF SlGNIfl- JcLb jaC 

Ci^Ct INiJiCAftC AT ELlKIN-^IIuN STEP K*l, btL6 i^C. 

Hh£fle PiVtlT titHENF wfiS LtSS THAN OB CLLo J e-C 

EQUAL lb The iMtRKAL ToLtKAhCc EPS TlrttS bcLB J6C 

AbSuLUfcLr uHtATfcST LLcMLNT Lf MATKIX A. JtLE 371. 



otca 


iO 


.OELd 


2J 


OcLB 


la 


OcLfi 


4fl 


U£LB 


50 


otLB 


6C 


UcLB 


7C 


OtLb 


ao 


OELB 


90 


OELB 


ICC 


OtLB 


no 


;)ELB 


120 


OtLB 


1 )r. 


oelb 


140 


OELb 


15Q 


OfcLS 


IbO 


L»cL6 


i7C 


J£LB 


16; 


uELH 


I9r 


utLij 


2C0 


JELfl 


<rlO 


OlLb 


2 2C- 


DtLb 


2iC 


OElC 


i'-C' 


i}i.Lb 


2-C- 


i,H.& 


26 U 


out 


^70 


UtL6 


23i; 


uELb 


£•^1 


uelb 


aJC 



L>A.^J M4TV;a a Is ibiJf'iJ Tj oJ- 
,-iA = rt»^C-.tL* (.■4L* I I/.L A^ j 



rtl^rtT nA.Nv ilJt 


.1A[^, 


U >^ 


ib 


[K .■s.*'! jJ'.C" 


:SS1 






L. 


^AIklx K li 


^Ij 


nc^ L.t-LJn4N 


-Jl- 


Uvl^Jf rK.%4'1i 


-I £« 




'<JJ, 


^11 • 


«tir>^tLri.i\- 




r-Uu 


■*-,T 


Lt 



ti AiS'JMi, 



.jlL.i 39 
iTt^Kcl KUk<t<JSt IN THt flRST C^LtJ 4: 
Of lOlALLY httiitJ MA .^tLb 

rtc = MA-Ml>«(MU*l 1/^ WITH ^cLe 

■.lU, MiJ = MC-l-HUJ. L)i.Lb 



IC 



j:C 



Tb BE 



5.\S- 



Tbf^tb COLUMNWISE bcLo 
UKN SOlUHuN ULLb 



MLi 



^JT L 



iCRC 



Jl :-.xiaTcR Than 

SS-J^ IcR=-l TAK 



■,c Jblli,. ccilQcJ LRHJs ^cSS-J^ IcR = -l TAKLi f>LA^<_ Jf THtbE 

SLbtKicnojj A-^E ^L) r :,AT»>*-itj. 

Ific ^•^^C^-'JkL ^iV[^ Ht-S'JLTi If IHI. RESTRJbULNS iJN i f-t'U T 
iJtkAfi'ircr,!! Jx-.iL iAi;-jfl[iJ A^i"5 IF k" U u T fcLL>ltMi aT ALL 
tLlrii.\ATJ.'i', il^l-i AaC ^If-fLivt.,! FftLH C. Hi.'v; VE^ ^ARf-ilNG 
l£-. = K - if- ^iViiN - l'>*jlCAlLi ^-^^.iiaLc LCSS ijr Si i^Nl MCanCE. 
I\ _i3c „r - bClL S^^LlJ u.^T-i]* A ANO A Pf kbr^il «Tc TULERANCt 
cf'i, ICR = ^ HaY Lt Ir. r..K^KcTc^ HaI flAfRiX A HAi THt nA.\iK K. 
Nu rtA^N;,-... iS Gll/EM ir MATRlA A HAS NO L>3wtR CCDIbGONAL. 

sJav&UriNES k\ij FUNCIij.\ JUoPK0oi<A<1S KEUtllREu 



C0LJK\ r'IVjTi^J uNLr, 

1\ <iMAl-i,i -ji, CCEff Ui 



ia.'^b Ur jMjSS tLiMlMATIuN ^ilh 
IN JRJfcn TO PRfcStHVE fcANO SlRuCTURc 
-T MATnlCcS. 



OtLb Dl 

OtLb fc2i 

JEL« oi 

OELB t><.. 

DtL6 o'i 

OcLB ob- 

UtLb t,?. 

jLLd b3i 



;CUaLL Wc^lil'j.^ R. A.Pl V, TitTOL 



sr 



fc-^O.^. 



JF(MLLiK7,I,l 

1 If (MbOI4J,2,2 

2 MC=lt.-l*_L*,»^UiJ 

If ) ICt 1-.*1-,'', I 3, 



;7 



^^LPA^.L I\Ti:Gt'i r A-< A.-^t I Lr, i 

ni= ^uf-^^a Jf ^JLUrti'jS I-'- matrix a 

MJ-NU«^cR Jf ZtKOS TC ot INJtKTdJ if^ FUST KUH uf MATRIX A 
*'.L="iO>:3t« Jr *liSSlNb ELtMtijTS Ift i.«$T ROH Of MArf<!X A 
MrtMrocX of LibT KOh Irt J^ATRIX A .vITH MC ELcMEi'-rS 
rtZ = rCIAL \J.dt.:n uf- 2L-*Ji T3 it I,«StRT£t IH mATkIX a 
■HaiILTaL WtucK Jf ST^.-<A;;l LuCATIJ.-i NECESSARY fd .MATRIX A 
^^'. = l1JJrtJt'^ Jf .LcMciUS Ii\ 'MATRIX < 

i If (MC-. -1)^,5.- 
4 WC = M 

b i-.lJ = nt.-.-iUD-l 
,■^L = ^■^.■->ILL•-I 



LAk'.m FJ.i AiiiCLUTaLV jf'c'iltl.T LLtW 
.-.ATftlX -ilhO'JI tbW-A CuOUJ^.^ALSI 



Wk = l 


•,-J..L 




;Vi=i 


iMJt I.' 


<U*i> Mi 


I«.A=. 


■l-»rrC-( 


-L«IML * 


\M^I 


M*H 




MJVl 


- ^...> 


,;NTS ?A 


(Nbl 


r \lV<L 


iSARr f 


1 ^1^- 






Pi V: 


■ o.j': 




IFlrtLj) iH 


'• 14. ri 



UtLB 


7i: 


cjcie 


/<c 


JlLS 


1 iZ 


UELd 


IhV 


JEL-J 


r^c 


jtLB 


/bC 


CcLS 


r/'^. 


DLLd 


7 = 


JtLfc 


7^: 


■^LLb 


oC'l 


OcLa 


ei" 


Jt-LB 


3^. 


JcLB 


<)=:■ 


OtLfi 


o4C 


^cLB 


j5(: 


liLLu 




ULLS 


e7'. 


ucLb 


ab."" 


:.i.to 


5-i:: 


ocLB 


VCC- 


LtLb 


9K 


CtLb 


')^^ 


UtL6 


■^JiC 


JcLB 


V4C 


iJtLD 


9^: 


bCLfl 


^1.:; 


CcLB 


9 7i.' 


uti^-o 




Dcta 


94-'.- 


■ivcLtJl 





Iri Fo-Pli/Jy.-;,? 

7 PIVMo 



rir 



I.>« 



If (M2 J I-;, i^, IC 
IC JJ^l 

!..= UMJD 

JO 13 l=i,Mj 

QO 13 ^ = 1 , MC 

a( JJ)=C .uo 
IF(K-IC}U,ll, 12 

11 A( JJ J ^A [ jl 
J=J.l 

12 jJ-JJ*l 



fUST MU KCrti I.^jr .\iCeSSARY [N CASE M^=CI 



fJcLtsl; ■^l 

D=Lbl j5v 

iJcLbl .tij 

jtLbt :7: 

;JcLbIOJ': 
L>tL6lC<iC 

jtLdUc: 
jtLtiU i: 

bf Lsll 3'- 

L*cLHl l',C 

JtlbUaO 

ueLaiiftij 

ucLbl I 70 
OclBllbC 
UcLBll'iO 
OtLol^OC 
Oi:L3i21C 
UdLB1^2b 
JcLS12iO 
OtiBii<,r. 
"OtL6l2SO 
UtL61230 
DtLtJ1270 
ueL6i<;3C 
JEL6129C 



Mathematics — Linear Equations 141 



Subroutines MTDS and DMTDS 



FOR SlNi^JLAKUt HcL'ilii: 

DcLBl Ji-r 

JtlBl3f>C 

iTA-<TJtL'J-1PC*i(T[(J'JLiJJP LicLeiJoS 

l^=MC-l JCL3139C 

1& ij=i;j^r otLftitJC 



Given a general matrix A and a nonsingular upper 
triangular matrix T, these subroutines will perform 
one of the following six operations, depending on 
the value of an input parameter TOP: 
lOP = 1: A is replaced by T-lA. 
ui^r "-— ^-^j;^; jQp _ _^. ^ .g replaced by AT~1. 



flVJf StA^i.M IN fUSr CLLJHN (tiUrt INJtiAti FnUM 1=,-. UP TJ l = lLkl ■JtLBlfJC 

rt,= jda5(A) 111 1 



.-1^J = .^^T*l 





JJ=I-H-(-l 




IrlJJI )t,3I, j: 


3C 


I J=iLi-J J 


j1 


PIi/--i( I^t 




J = 1J'-1 




OJ j2 J j= ■tJ.rti 




-( J-; I =t( J ] *hU!^4( J Jl 


3^ 


J = J*i 




«(j-ii = !:. ^: 




i.^j .-i-vrxis :< 




J^r^ 




■jc a jj-i ,y-i,.-i 




K( jjj -rti J ji *-'iy*-ii J J 


33 


j= j'-rt 


3<. 


Ksr=<sri-^!, 




Il=( lc^-MKl 3!), if,, i^ 


3 = 


iC-JC-i 


3t 


ID=K-^W 




1F( Il)138. id.ir 


i7 


RSF=«jf-!J 


3fc 


CONTINUE 




END ^F U.^OrtPCilTUN LOOP 




bACK sueifiTuTijN 




lF(MC-i )'.t.,'!.6, 3*) 


39 


IC = 2 




KST^M4tML-MC+^ 




1 1=.^ 




UU 4 5 I=Z,M 




KSI-^Sr-r^C 




ii-n-i 




J = 11 -Ms; 




[ F ( J 1 4 I , 4 1 , 4 L 


'-C 


Ksr^<sfj 


•.L 


UO '.^ J-l I,NM,« 




T&-KIJ1 








ID=J 




DC (.^ jj = <ir,MZ 




in=iu+] 


a; 


TK=T^-Aijj|»RI :i;) 


43 


K1JI=(0 




lF(IC-^CI'.4,4i,'.5 


<t<r 


H.= 1C*I 


■i^ 


CfirtTUUt 


-ib 


KE7Ufc"d 




tftrtUH Ktrush 


47 


1ER=-1 




RtTURr* 



lOP =2: A is replaced by (T"!) Ta, 

lOP = -2: A is replaced by A(T-1)T. 

iHiii' ^*^^ ^^'- ^^^ replaced by(T'rT)-lA. 

HtsiHj ^OP - -3: A is replaced by A(tTt)-1, 



id ll^ll*lD Jt:L613^0 

TLSI 'j-^ SINoULafillY iJ.:LiJlt)i: 

lF(PIVi-.7.t7,23 JlL31j2'. 

25 if ( i t'*1^6,<?4,<;3 JcLSlo3C 

^4 JFiPIW-TjL)23f^3.a3 UtLiSlo^: 

2t PW^UUG/il J^) JdLi>l6o:' 

UtL3lt7; 

PIWl)T /<Ut. rvtJUCT ] J.'< ^'JJ K 1>- JMrtK,:rHU^:;t; IN ^IGHT HaNj jIOl R UtLDlji'J 

JU ^'7 I^.'.jN.I.M JcLBW.J 






A( I ) =rii ill j^i.6ir;i : 

fl( n I- 'f jcLei<i_:r. 

I 1 = 1 M I L- c L o U J .J 

l^^^<-!LK) ^ J. J--.. 3-. iJcLtHi'^ 

11=-;. 1 J-LtJlTi-' 



jll^^ ;3? 
0cLe,r :*►■: 



c L a2 1 i 
JcLdii 7 D 

c t L D^ ^ J : 



DtLt.2-.c: 

JtL32-,*.0 
OtLb2'.Sf} 

ueLe2'.t:o 

OcL824rc 
OtL62<-eO 



1, Mathematical background 

a. Calculation of X =T~1a is done using back- 
ward substitution to obtain X from TX =A. 

b. Calculation of Y = (T-1) Ta is done using 
forward substitution to obtain Y from T^y = A. 

c. Calculation of Z = {T^Tj'^A is done by first 
solving tTy = A and then solving TZ = Y. 

The remaining three operations are reducible to the 
above three, 

2. Applications 

Subroutines MTDS and DMTDS may be used to 
compute the solution of a system of equations 
BX = A with symmetric positive definite coefficient 
matrix B. The first step towards the solution is 
the triangular factorization of B by means of 
subroutine MFSD or DMFSD, The second step, 
which may be repeated for different sets of right- 
hand sides A, is the calculation of (tTt)"1a by 
means of MTDS or DMTDS with TOP =3. Another 
useful application is the computation of the product 
A^B'Ia with symmetric positive definite B and 
arbitrary A in only three steps and without addition- 
al storage requirements: 

a. Replace B by T where B =tTt. 

b. Replace A by C = (tT)-1a, 

c. Replace B by CTc. 
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INVr ?^ Sr ( T I, I\Vf«i( (I'='N5fL:>EI I ) 1 J** 1 NVt ^ISE ) TRAHStHJSt U »T 1 ) "ITJS -i' [^ q^ j^ j 

r»-£ T-4 I Jfvr.lJL AH M4TH I K T IS S f :i * 'i CTLUMNWI SErMCHMPaE^SfiD MTOS 'JT "SIC-^I^ 

cCft". 1."^. UPPPS T'«IA^OULAR >fiRT C\L<. -^TOS I'.)) I'Oci ^.'^j 

«'TS lin pr li ( 

i>SAr,e tins K'"^ -j-^iiwrr. 

CflLl .".fCSU.M.N.r , lOP.IER) «TOS HI 



GlVeW GCME'-At KfiTflX rtHITH M "qw^ flt>,j \ CJLJMNS. MliTS Iti) ^q jj 

fjuMPtK 0'- .iows Of MAr-*lx a "»ljs l^n 

M,'MP,EH 0- CCLUMMS OF ■^ararx A M!OS 1=>J 

OIVCN IftiAN&ULAk MATKIjI SfO^-^C CCL J^'N^xI SE JPPER MTOS l'<:) 

IRlANOOf^K PAftT ONLY. IIS NUHSEO "JF '■.:^'i 4NQ MTDS i">') 

fLiLUf^NS t( IS IMPLIED flV COf.PAT I P. I L I TV. KTRS 211 

K = M If UP !S POilTIVe, WTOS ^'0 

K = N IF lOP TS NfC;«fIVE. MTDS 23'J 

OCCUPIES K*(K*H/? STORAGE POSIHONS. MT;) 



.■^ rns] ] 7'; 
MIOSI 1^ I 

"TOSi:?!" 

MTISI.'.'t 

"TO?!?'-.] 
„ ., , HT0SU6J 

"5 1^'^' Lrx-Lr: rTCSl?fO 



n'^LI.-^nb'J^-'lLI -^-(LL I FTPSI i'"'l 

iL = iL*LL Mnsi 3n 

L-L + L"'' MTf)<^ ; -i^r 

LDX-I f)X*L* KTU^l J -0 

IF(^(L)M'..i.iA f^fotii'-ri 

a ILL i--(f.SJ*wa<i.i. nniii ktosh 'i 

"Tnsi -'.0 



INPUT VA-ilAPCf fO"; SHffTIL.^ OF D»E-lIia\ MTCS ^-iO ,- j c ( | fj (;/,,! r, i f f^TO^IJ'iO 



iffPLACta ar INVE4SE(T)*ft Mills 

top --1 - A IS hEPLACEO ftY A'lfJVtflSein MIDS ?70 



KTOS 



icp = 2 - A IS '-tPiA':';:^ ^Y rjve«sf:(T-A.-jiPasE(TM*A mt.t; ^■'■i ,7 jFUfpf 111, ik. it Min^uio 



[C'» : 3 - £ IS i^tPLACt.) -ly iMVcrtSFITJAI.SPQSEaj'THA^TOS ir«1 c ISI'li'Lt/E 



MTn51'. 
KTOSl'. 



MNVF3S=(I-»aNiO'.>S£(Tl«TtMT.^S MO ,p ,fR,, MTO^l'.^n 

fA - "ly.JUl^ii, (--iK'-h P»l.A-'tttk TTS i'O MEND = IM[NO MT')Sl'-50 

lE^ ^-1 -^FANS K A^J^ N «=F 0<( T JfJTH C-flTivc MTflS T^J MK-;4»'i fTOSl^-^O 

AHD/oK ;nP IS ILLEGAL MT.IS V.r. LLD=-I-<^ fTDSI^TO 

I--.^ = ME4MS ::Pc«aI!D\ fc-AS SUCCFiiSFJL '■"'TS J'l MSFt = M1 Hrci-^l^lO 

iFw : I ."Ea^s ;" lANCiiL ^=( «at-;ik I IS ivryji.A^ mtos 'j1 cuti--i vrosi'-^o 

"''-' *"'■"■ Mx=n "Tcisisao 

<="; "^T-JS l^L- LD--M«1 f«TDS15lO 

u-kgutine mios .^av pe used rn calculate n*; sjljiicin of vt.^s ?<^n ^'^i mt,tsi5"'o 



aTIONS FflTH <V1*'-TrJrC P'^SiTIW 



MT35 1^5() 



r.T( fFlc lef.T F-ATRIX. THE FIRST STCp TOwAqOS TH^ iuLLlTION KTUS -V 1 G f^jr) MTISl 

IS !■: J flNGuL'-i; FAf ro'J I MT [::n ?v m'^sns of -^fso. thl sicgno vus -^j 

'4T-"-> IS /!''°LIC*TIDN CF MTDS. "TjS '. 1 ; 

SUH,?lLlTINrs MF5U A>47> "^OS MAY .3^. JSE 3 IN Of. 

ThF ^■^l-:)■JCT IP ANS^r S£ I i I * I NVf '^ SF ( "i 1 ^^V -ITH 

"Cil"IVt:;-Fl\IIPJA\n&IVtNltFF[:iFNTLYi\'"H-FFSTFOS '*'T)S-T.) 

II [■■- 1 flMf.'JLfc cACTap [ZATiON L.f 1= ( .i):T-iiNs>=';s.-^ ( r J ?r I mios '.tj 

?.) ^ULT I^LICAriOiN UF A J\ IMt l.cM 6i I Nv t ft S-H T -^a^SPOS t ( T I I "TiiS '•^■i 

A ib 'EPLA-cO PV C = INV(:"RSr ( fk^A-Ji = '^bF( Tn =A "'OS '■■'-'■'} C D**TD 

W LflLCiJLaTIO,\ nc iHr! kESJL'' '"'JflMING Tk Ai\SP'":<,; C. ! "C '*T)'^ ^■^'^ f OMIC 

Mn^S '-K; C OMTO 

"'ouuvf; ivui FU''JCTij\ ^uPPBi:i,^i>'> ^r.-ui=!'^': mtt.s '"■"•■j c subrcutine o«ids omtd 

»:C\' M'C;'-. 5!0 C tJMTD 

f,r[y' 'li.j C PURPOSE OMTO 

wros ')■■ • C MULTIPLY 4 C6WESAL MATFIX A tiN THE LEU OF FIChT RY DMTD 

IS D'.'^- l>il\". ■'-v:<-A^r) f.roS ■>!-; C INVEftSeiTl.INVERStURANSPOitUn OR INVtRStlTBANSPCSt HOT)) OMTD 

<y : A. "res ': " ! C THt TRIANGULAR MATRIX T IS STORED CCLUMNHISE IM C ir"^PR£ S SE iJ 

ii^''5i(I)l*A IS -■•-■■■!.- JSIn;. «'-.i= --lil C FORM, I.E. UPPEF TCIANGULAR PART ONLY. 



fFTHfO 








TALl-iJ 


L A T [ ; ,\ C F X 


= I WE 


RSf 


si;-isi 


ITUT Ilj\ 10 ' 


lFlflI^ 


If h 


'.Ai. C.U 


LATir'^ '.'F V 


- rvf 


--bt 


FP^VA 


WD SUfSTiTUTIO*. -'2 


■ I!!'. 


r fli f'' 


L'TTi--N TF 7 


-- INVf 


= SF 


^CjLVI 


ijG F tfiST tf; 


ir.SP.-^p 


( T» 


JSl j:^ 


V-'i ;.'iu-.r 1 


1-0 S 1 f 


^■s 



".rQS ^■';^ 



.M,N. T, lOP. lEPJ 



Ei:,w":it H'^TUM'-' I'! CASl .'F RLtoAL 



C ULSCRIPTION Of PAKAMtTERS 

KTr-^, t'.T C A - GIVEN &ENEF6L MAIFIX WITH M fCwS AND ^ CnLUMNs. 

Mils Q*^- C A HUSI 6E OF UOUflLt PRECISICN 

SU'IROUTIN- KT ,1 0, ^l,"^. T , ILIP, ['^"l ''Tv<^. -'■■ C « - NUK3EK Of R :;wS CE HAT.*IX A 

SUOS tio C N - NUKBtt^ LP COLUMNS OF HAIHX A 

KTO': h'-'i t T - i,IVEN TKIAN5ULAK MATRIX STOt-ED COLUMNhlSE UPPER 

0r^EM<^lC\ "Ml. '"Ill ^■TP'; sl'1 C TRIANGULAR PART ONLY, ITS NUMBEK OF AOwS AND 

■inoi'L' t"-'. is'uN ) uM *''^rs ':j c column^. ^ is implied by coMPitiBiLi ty. 

MTUS 71) C K = M If [UP IS POSITIVE, 

^t_rj ,. ^|,s.r-.i<ii[ ^ "''-■' T- ' C K = N If IHP IS hEGATIVc. 

[rjv,,-^,^.l wT.~S 7>: C T OCCUPIES K*(Ktn/2 STOf-AGE POSITIONS. 

if{t)'^_,:,'. "t;s r-.'.' c T Kusr at of uouuLt precisicn 

T-s 7,0 C ICP - INPUT. VARIASlE FOrt SELECTIOK.Gf UPERATIUN 

r lOP = 1 - A IS pEPLACED by INVC'<5E(T»*A 

C lOP d-l - A IS replaced by A«IN»^d^SefI) 

C lOP = 2 - A IS REPLACtO fiV INVER SE I TRANSPOSE I T 1 ) *A 

C lOP =-2 - A IS REPLACED EY A»|NVERSE ( TRAMSPOSt I T 11 

C ICP = 3 - A IS REPLALED fiY lilVE-^SE I TRANSPOSE ( 1 1 -T 1 

C ICP =-3 - A IS REPLACED PV A*lNVES SE ( TRANSPOSE ) Tl •? JOM 

C IE' - RESULTING ERROF PAKAMETER 

C lEB =-1 MCANS M ANiJ N ARE NOT BJTH POSITIVE 

C AND/OS ICP IS ILLEGAL 

C lEF = U MEe.NS aPFRATlON WAS SUCCESSFUL 

C lER = 1 MtA\i TRIANGULAR 1ATRIX T IS SINOlJLAfi 
C 

C -EMAFKS 

C SUSROUTINt OMICS MAY BE USfcD FO CALCULATE T t-E SCLUTION lF 

C A SYSTEM Of EOUATIONS WITH SYMMETPIC POSITIVE DEFINITE 

C COeFFlCIENT MAIKIX. TMt FIRST STEP lOwAROS THE SOLUTICN 

C IS TRIAKGULAH f AC TO ^ I Z A T I CN flV HEANS ^■^ DMfSL, THE StC3ND 

C STEP IS APPLILATION OF DMTDS. 

r SUftf*OUIINES DMfSO AND ONTUS HAY Ht USCO IN ORDcR TO 

C CACULATE The PRODUCT TRANSPOSE I A) « I ^'</ERSE I P t » A .JITH GIVtN 

C SYKMETRIC POSITIVE DEFINITE h AND GIVfM fl IN TrittF STEPS 

r 11 li^IANGULAK FACTDRUATION OF b ( 6 = TKANSPOSt ( T I »I ) 

C ii MULTIPLICATION OF A CN THE LfcET BY I \ VER SE ( Tft ANS P"S£ I T 1 1 

C A IS REPLACED EiY C= INVERSE ( TCftNSPOfE ) T 11 "A 

r J I CALCULAT ILiM OF ThE RESULT FU^M [NC- Tt- AN i POS E ( C I «C 
t 

C SUH-^UUTINES ANO FUNCTION SUfiP*- CGR AMS '^EOUI'^EU 

C NGNE 
C 

C fIt'HCO 

C CALCJLATIUNOFX^I NVtRSfc I T ) "A IS DONE USI NG BACKWARD 

C SUPSTITuriON Tf. CbTAIN X f-Hat* T*X = A. 

C CALCULATIGN OF Y = I NVEJ- SE (I S ANSPTSE ( 1 M * A IS gONE USINi 

C FCKwARD SutJbinuriON TO OBTAIN Y FROM TRANSPOSE I T I 'Y = A. 

C CALCULAIION CF Z - I NVtRSc ( T f- ANSPOSt ( 1 1 * T t*A IS 3JNE 

C SOLVING fl<;ST T- anSPOSEI Tl«v ^ A ftND ThlN T»Z ^ f. It. 

: USING THt AdUVE I.«0 STEPS IN REVERSE ORUER 
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DMTO 


240 
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UTlNe DMTOSIA.M.N.T, lOP, ISRI 



TtSI DF DIMENSION 

1 IF(N)2,^,'. 

FStOfi PETUCN IN CASE Of ILLEGAL DIMENSIONS 

2 !eB=-l 



INITIALIZE DIVISICN ?R3CeSS 



KS = M 

1MEN9=M 

TEST SPECIF lED OPERA 
IF 1 lOP IS, 2, 6 

'i MM=:M«(Ntl)/; 
Kf. 1=N-1 
[RS=K 
ICSH 

1 MfcNO=MN-M* I 

t ICPE-MCO( inP+J,31 

in !46S( 10P)-3)7, 1 ,2 
7 IF(lDPE-!)d,Ili,8 

INITIALIZE SOLUTION 

LLD= IRS 



TRANSPOSE (T)» 



DMID 


670 


DHTD 


680 


OMIU 


690 


OHIO 


700 


DMTD 


710 


OKTC 


7^o 


DMTO 


730 


OHIO 


7<-0 


OMIO 


750 


DMTD 


760 


DMTD 


770 


DMTD 


7eo 


CTO 


790 


DMTO 


BOO 


OMIO 


ftlO 


OMTC 


620 


OflTD 


830 


OMTD 


a^o 


OMTD 


8=0 


DMTD 


660 


owro 


870 


OMTO 


«ao 


DMTO 


B90 


DMTO 


900 


DMTD 


910 


DMTO 


920 


D«ro 


930 


DMTD 


9'tO 


CMTC 


150 


DMTD 


960 


UfTO 


970 


OMTD 


<ieo 


DMTO 


990 


OMTDIOOO 


OMTDIOIQ 


OMTDIOOO 


O^TD103fl 


0«roi040 


DMID1050 


liMT01060 


DMT01070 


OMTD1080 


OMT01090 


OMTDIIOO 



TEST FUa NONZtf-b DMCO«JAL TERM IN T 
9 IFl riMSIA) ( 10,3,10 
10 C^ 11 l=MeND,MN, ICS 
U «( n=A( [ J/T(MSTA1 

IS M tOUAL 1 
IF(MMl)2,i5.1Z 
12 DO l-i J = l ,MM1 
MSTA=MSIA*MOfcL 
MDfcL=MOEL*MX 
DO 1*. I=MENQ,MN, ICS 
DSUM=0.00 
L=MSTA 
LDX^LD 

CO 13 K-l.J 
OSU'«-DSUM-T(L >«A(LL> 

LL=IL»LID 
L-l«-LDR 
t 3 10X=L0X*LX 

1* e4LL 1<I0SUH*A(LL> t/T(L I 

TEST €N0 OF OPeRAIION 
15 1F( lE^ 116. 17, 16 
U IER-=0 
RETURN 

17 IFl I0PEI18.18.16 

INITIALIZE SOtUTION OF r*X = A 

18 IER>1 
M€N0-IHENO 

LLD—IRS 

MSTA«M« 

H0£t"-1 

MX=0 

LD«-«Ml 

LX-l 

GOTO 9 

END 



OMIOUIO 

DMToll^o 

0MT0U30 
OMTLi l*iO 
0MT01150 
DMTDU60 
DMIDE170 
DMTDUeO 
0MTC.1L90 
DMTD1200 
DMTDIZIO 
0MTD1220 
OMTCUSO 
DMI012*.0 
DMT01250 
0«T01260 
DHTDiJTO 
0MT01280 
OMT01290 
0MTD1300 
DNT01310 
OMT01320 
DHT0H30 
OHTDU^O 
DWTD1350 
0MTD1360 
0HT01370 
OMTO1360 
ONTO 1390 
ONTDKOO 
DMTD 1*10 
0«TDi*20 
0Mr01«30 
0MTD1*«0 
0MTDU5O 
0MT01*60 
OMTOIATG 

oMToi*eo 

0HT01490 
0KT01500 
DHTD1510 
0MTD1520 
DMT01530 
0«TD1**0 
0MTD1550 
0MT01S60 
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Subroutines MLSS and DMLSS 

These subroutines will compute the least-squares 
solution of minimal length of a system of linear 
equations 



AX= R 



(1) 



with symmetric positive semidefinite coefficient 
matrix A. That is, they will determine that vector 
X of smallest Euclidean length ||x|| for which 
II AX - R||= minimum. 

The matrix A is not used directly as input. 
Instead, MLSS expects the matrices U, T, and Tu 
and the permutation P that would be obtained if sub- 
routine MFSS were used with A as input matrix (for 
details see MFSS under "Final result of elimination"). 

The given vector R is replaced by the solution 
vector X. 

1. Mathematical background 

Instead of (1), solve the system of equations: 

(PApT)PX =PR (2) 

Any solution PX of (2) determines the solution 

P~l (PX) of (1) ; therefore it suffices to consider (2). 

Using the decomposition: 



T 
PAP = 



I o 




'As 


o' 


"I u' 


_UT I_ 




p 


o_ 


p I. 



(3) 



where Ag = (T)Tt (see MFSS), it is easy to see that 
(2) is equivalent to the system: 



As(Xi + UX2) =Ri 
0X2 = R2 - UTRj^ 



(4) 



where PX = 



X2 



and PR = 



Rl 
R2 



If rank (A) = n. 



formula (3) reduces to PAPT = Ag, and (4) is 



AgX =R 



(4') 



In solving (2) , or equivalently (4) , three cases must 
be distinguished: 

a. Rank(A) = n. Then the unique solution PX is 
given by PX -Ag"! R, which is computed easily 
using the triangular decomposition Ag =(T)Tt, 

b. Rank(A) = r < n and R2 = uTr^ (a compatible 
system). Then the solution of minimal length is: 



Xi = (I + UUT)-lT-l(T-l) Trj 

X2 = U^Xi 

Using the identity (I + UUT)-1 = i _ u(I + uTu)-luT 
and the triangular factorization of (I + uTu) = 
^u^U' ^1 i«a-y be computed by the following sequence 
of operations: 

Xi = T-1(tT)-1rj 

X2 = Tu^Tu-l)TuTxj 

Xi = Xi - UX2 

c. Rank(A) = r< n and R2 /^ U^Rj (an incompatible 
system). Then the least-squares solution of minimal 
length is: 

Xi = (I + UUT)-1t-1(tT)-1(I + UuT)-l(Rj + UR2) 
X2 = UTxi 

Xi may be computed using the following sequence of 
operations: 

Xi = Rl + UR2 

X2 = -Tu-l(Tu-l)TuTxi 

Xi = T-1(tT)-1(Xi + UX2) 

X2 = -Tu-l(Tu-l)TuTxi 

Xi = Xi + UX2 

2. Programming considerations 

Cases a, b and c above are easily combined into one 
Sequence of op)erations: 

(1) X = PR (interchange given right-hand side) 

(2) Xi = Xi + U X2 

(3) X2 = -UT Xi 

(4) X2 = (Tu)-l ((Tu)T)-l X2 

(5) Xj = Xi + U X2 

(6) Xj = T-1(tT)-1x^ 

(7) X2 = -uT Xi 

(8) X2 = (Tu)-l ((Tu)T)-l X2 

(9) Xj = X2 + U X2 

(10) X2 = ^'^> Xl 

(11) X" = p-1 X (reinterchange calculated solution) 

In case a, the only steps performed are (1), (6), (11), 

In case b, only steps (1) and (6) up to (11) are 

performed. 

In case c, all steps are performed. 
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PURPCSF 



CSS [S THt ^tT.Qtjr, 5TEP IN ihf PPCCtil) 
CflLCULATiP,)'-, THt LF\<,T SOUiPt*: SncuTION OF hTN;"*! 
Of ft SYSIt*^ Cf^ SIWULTANtOUS LINcflH EgUA|]nN<, ,: 1 1 ( 
PCSITlVe S-HI-OfF INIT*^ COtFt IC ItNI 'MATai Y. 



,U, ft CNK, T-^f (■ , iiyr 



. Itc I 



OfcbCBTPTIP\ r^ PARA»<lTtHS 

ft - COEFFICIFNT MilMX ]^ f/CTCfiEO FOR*-' LT: 

3r SL'e = CUTiWE K^ SS f h '. •' IMTI*lLY GlVi 
ecu Fi- ir. i-^M M^iFi). A sro'.eti :n ^•(^.!l 
fi FfMAir.S UNCHi*T.EC 
!■* - DIMENSION Of COeFFICIENI t-iTWlX 

I5ANK - FAMK OF CrEFFiriENT CiltjK. C flLC L'L « T 1 ' 
SUfPCUTlN' VFSS 
vrCTCO Of C!MrN5(C\ K CLMfllMNG iHf 

SUBSCRIPTS riF PIvriT R'>wS AN1 riOHIKhS. 

PRCOUCT «E?ctffMftTt:;'j IN T?^NS3(^^IT !!■ 
pr-'MUiaTICM W^irh ^aS ftPPLItJ TO =Ck.; 
(IF a IN THE F/f TC» I?AT tUN PFrCESs 
TP.tC IS A fifSULTA'^T l^Pfl-' TF SJ3^L"Lr|l>i 
INPUT VA^IfiBLC WHITH 5Hl'jl.l, CrMAI\ f t- ' 
If THE SVSIfM HF Sli'^Ll *NfnUS ?OUflTir:; 
in Be CCMPATit^LE ANS ; \nN7£R0 VALUE '- 

TN RETURN RHS CCNTArJ'j Ti"" "IMHAl. 1 f ,\ ' 
^^fSULTAN- F^c.^Cy f"*-; A*if. fr - 

ICR = IFANS NO !l«R(:w'. 

IE" =-I >h*NE N AND/fJ' [RANK IS NCJT t>'.,I!lVE 

i*;a^« is 0-jcati:?) THa\ n 

!E0 = 1 hItANS THf FACTO- (;JT lOr. tiJ^■'■]J = [; IN 
ZL"R:i DIVIStJC:' '■NLVG'- IRAT C';r^T'51\S 
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APPLIEO TO 


^nwS AN-) 


■:.n 


...IV.N 


i n? . 


OPFf^ATinM 


j^ pyPAecf-, 


i\. CZ-St^ 


RF 


.1 \: 


IN pr> 


UF I HANK 












SUP.RnnTIN£5 1 


ifT ruMCTiCN 


-,,i=-c^;-,,-.; 


iM^ 


p.:, 


:i,!i''.i . 


N'lf^E 












METHr'" 












Lfi r, u. 


lU 8t THE C- 


^CPPNt^Ti 


rf 


TH^ 


■ fAn 
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PAtt XI Gf 
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U6N< Ajij 
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^rri 


irx p.- 


U-\-.ViK. X 


HcN TH[ rui.l 


.■]:■: :u'~, "! '< 
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ill ARt 
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H-^l 




«L'^'^ 


JP 


in 


N 


MLSS 

Mi.sr 

MLS*; 


f.e 






MLS^. 
"1LSS 



Sf cjjLNce 

( I 1 iNTrRrMAV'GE t^ IGHT 
12: X! = XI ♦ U - X^ 
^-To.'.HSfnSf (iJl 
=■ IWERSEf TUl '■ 
= XI * IJ * X? 
= lNV£ftS-(T) e 
s-^i^aNSPCSFIJl 
= INV£i*Sc( TU> '• 
■ U > X? 



INVf '^S£( TiJ^NSPCS? ( tU) 



XI 



1^1 
( 5) 



(t } 



(lo^)XZ = T^ANSPT-.r(iil * XI 

(II) "JflNT-RCHAN"".: CALCULa^'Fn '-.CtUtlfJN 

IF THF SrSTfJ' UF II KilL I ANiCUS iI\[Afl (^OUA I I iZrsiS 

T(J -iF Cr."13,UISL' THF\ SIEPS (? 

r,A'-<:ELl.Er>. 

IF ThL C.OC-FriCIfN' Hirm), ^A*. "AV 

i'f'^rn:MFo flFB (u, (t.i ANo nil. 



(3). C) At; 



tLSS 


'1 = 


!L'^* 


6'iO 


'LSS 


rn,) 


ILSS 


710 


ILSS 


/^O 



ru 1? J-LIO-AN* 

JJ=JJ+l 
W" SUM=SlJ*'*A(JJl«Rf'S[Jl 

GCTOt n, 13,141 , TSw 
13 SUM--Siiyi 

i" sHsni-S'ji 

1"^ ISTA-ISIA*! 

i",OTO{ I'.,2'-?,i01 . ISW 

IN! T| ai_ 1 ?p s'FP I AI C.K 
lf> [STS = IX^ 
lEND^N 

JJ^lTPtlSTA 



T'iNSPCSi; CF T'llANGULAf; MA T -1 1 X 



uivisnw OF 

17 SUM=').00 

on 20 I = ISTA,I'_^C 

IF(fllJJI 1 If, 31i I 3 
Xn FHS<il=(F;-,S(M-SU^)/iiJJ) 

If n-i-\'jii<?,2i,2i 

19 JJ=JJ»|STA 

Sy*i=o.no 

00 20 j=i'^Ta,i 

suM=bU(-.*rt( jj)*FHs; J) 

?n jj=jj*t 

CIV ISI':^ OF M BY TRIANCUL A« " ATKI I 

11 = 1 EM' 

DC 2*. I = ISTA,IE>;D 

RHS( IM = <rtHS(l II-;UM)/A(JJ) 

IFII I-ISTAI Z5,i'>,Z2 

22 KK=JJ-l 
SUM=O.I'0 

on 23 J=nt lEND 
S(jM=sur»a(KK)*PHS( Ji 

23 KK=KK+J 

jj=jj-i r 

?'i !I = !1-1 

?^ IF( I0eFI26,;0,26 

26 CCTO(27, 11,61, IS-m 

PERFOfM STPP (5) 

27 ISW=2 
GOTO 8 

pe-<Fr;-<»< s tep * b i 
:'£ ISTA^i 

lEND^IRANK 

jj = : 

I5k=2 

GOTO 17 

PEflFPr.iH STEP (91 
?9 ISW=3 
GOTO 16 

R^INT EOCHANG: CALCULATEO SnLUT10^' 

30 II^N 
JJ = -1 

Gno <, 

fPfiCfi PETUf-N IN CASE OF U^O CIVISOO 

31 160=1 
?? RETURN 

ERROF OFTURN IN CASC 0*= ILLEGAl OIMENSION 

RE^UR^ 

END 
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MLSSIS60 
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KLSS1590 
MLSS 15-90 
MLSS1600 
HLSS16I0 
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"LS5.I 6?C 
►'LSf.l6'.0 
MLSSI6^0 
fLSSUftO 
ML5S1&T0 
MLSSI'iSO 
MLSSlfcgo 
MLSS 1 TOO 
MLSS 1 710 
MLSSl 720 
MLSS1730 
MLSS1T40 
MLSS I 750 
MLSSi 760 
MLSS17TJ 
MLSSITSO 
ML SSI 7'50 

MLSsieoo 
MLSsieio 

t-LS^iezo 
MLSS' HJO 

MLSSie'.o 

MLSSI 850 
MLSS1360 
MLSSMTO 
Mtssi eeo 
^;LSS1890 
•*LSS1900 
^■LSSI'JIO 
MLSS1920 
MLSSl'iJO 
MLSSll'.O 
MLSSI950 
MLSS19frO 
kLSSl970 
MtSSi9eO 
MLS5l9go 



CCL""!N'F Mlt^Stfl 



■N, I- A^^, T:Ar . I\C . 



DIMtNSICM A( 1 J,T--4CU). M5M J 
DO'JF^LE PHtCISICM SUM 

TEST '-.f SPfCIFIfrO ■JI»'^^'.i^^S 
rOEF=N-IP%r;K 
IF(MI33. a, 1 
If {IkAMK }ii,^>,Z 
TF( lOLFJ ?3, *,? 

rALrULtlt 4UXM lABY VALUi'S 

ITt= i^A^x-rl 'RAN<tl i/2 

IX2=IHA>JK*I 
NP1=N*1 

iEa = o 



UNO sint 



INTERCMANf-iF R IGHT 
JJ = l 
II = l 

'• DO 6 I - 1 , N 

j=rRAci 1 1 1 
IFU131. 31,5 

5 H0LD=RHS (lit 

PHSUIUPH^I J) 

RHS) ji = h[:l[) 

ft Il=ITtJJ 

IF( J J)3?,7, 7 

PERFOR.-^ STEP ' If NECESS4R 
7 ISW=1 

IF ( IMC'IJEF JP, ?a, S 

CAtCULATf XI = Kl ♦ u * (^ 

e isrA=iTF 

00 10 1=1,1 ^A\K 

ISTd^l'iTA*! 
JJ=I5IA 
SUM=O.DO 
DO 9 J=IX2,N 
SUM^SU-UAt JJl«hHS( Jl 
9 JJ=JJ*J 
10 BHS<n=fHS(I Ur.U'* 
GOTO( 1 1, 2a, II) , ISW 



CALCULAre X? 
11 ISTA=|TE 

DO l-i 1= 1X2, N 

JJ=1STA 

SUM=O.OQ 



TPANSPnSEUn • XI 



•-LSS 


7 = 


KLSS 


790 


■*LSS 


AOO 


MLSS 


Bin 


MLSS 


!i?C 


MLSS 


S30 



MLiS P'JO 



MLSS i'=■^^ 

M| ss S-^O 

■II SS 970 

MLSS 9ao 

MISS 99n 

MLSFlClO 

Mi.ssnio 

ML -^ "^ 1030 

MLSS1040 
MLSSinSO 
"LS; 1060 

PL -^ Sir' 70 

MLSSl.iaO 
MLSSIO'iO 
MLSSI irjo 
^'LSS1 I !0 
MLSSI 120 
.■1LSiJ JIO 
VLSSl 1^0 

MLSsmo 

MLSSllSO 
fLSSIi70 

MLSSI leo 

MLSS! 190 
MLSSI 200 
MLSS1210 
ML5.S12?0 
»'LSS!2iO 
MLSSI2'.U 
Ml SSI 250 
MLS?12^0 
MLSS1270 
MLSS12fiO 
MLSSI290 



SUBrtCUTINE DMLSS 



SUe-ROUTfNE OHLSS IS THE SECCNC STEP IN THE PBCCEOJRE FOF 
CALCULATING THE LEAST SiJUARES SOLUTION OF MINIMAL LENGTH 



OMLS 
.DHLS 
OMLS 
DHLS 
OMLS 
OMLS 
OMLS 
OMLS 



89 



OF A SYSTEM OF S I HUL TANfeOlJS LINEAR EOUATIONS WITH SYMMFTRIC OMLS 90 
PnSITIVE StMI-OEFlNlTE COEFFICItNT M4T31X. 



USAG= 

CALL DMLSS(i,N,MANK, taAC, I.VC ,mS , I Er* | 



DESCRIPTION CF PAHA^IETErtS 

A - rOEFFICIErT MATBIX IN .'^ACTOR^EO FflPM AS GE-^ERATEO 

BY SUBROUTINE MFSS FROM INITIALLY GIVEN SYMMETRIC 
COEFFICIEMT MATRIX A STORED IN N*(N^l)/2 LOCATJPNS 
A REMAINS UNCHANGED 
A "UST e£ OF OOUPLE PPFGISIOM 

N - DIMENSION OF C3EfFlCIC-ia MATRIX 

IKANif - RANK OF COEFFICIENT MATRIX, CALCULATED 3Y MEANS OF 
SUftRPUTINE DMFSS 

IRAC - VECTOR OF DIMENSION N CCNTAIMNG THE 

SUBSCRIPTS OF PIVOT ROKS AND COLUMNS. I.E. THt 
PROOUCT REPRESENIAl ICN IN TRANSPOSITIONS OF THE 
PEftKUTATlCN WHICH WAS At'PlIfO TO ROWS AND COLUMNS 
L.F A IN THE FACTOR I ; AT r UN PROCESS 
TC_1C IS fl EESULTANT CORAY HF SUeCDUTIKE MFSS 
TIAC MUST «F OF OSUELti PRECISION 

INC - INPUT VARIABLE WHICH SHI-ULO COf'Ulr, The VALUE ZERO 

IF THE SYSTEM OF SI HUL I A^EOUS EOUATIPNS IS KNOWN 
TO SE CQMPATIPLF AVO A NOhZEPLl V4LUF CiThEPWISE 

UHS - VECTOR or- iJIMENilON M CCNIAINING THE 

ON RETURN RhS C3NTAINS THF MINIMAL Lf 
RHS MUST BE ?F DPUf^lE PRECISION r>MLS *60 

lER - RfSULTANT fRHQt uAPAMETtP DML "^ 3 7C 

lER =-\ MEANS N ANO/OR IRANK IS NOT PPSITIVF AND/03 DMLS '90 
IHANK IS GREATER THAN N oy,i^ j;oo 

IF« = 1 MLANS '"HE FACTORIZATION CONTAINED I N A MB 
ZECD OrVISO«iS AND/OP TRAC CCNTAf^S 
VALUES CUTSIOE THE FEASIStf RANGF 1 UP '0 



OMLS 100 
OMLS UO 
OMLS 120 
DHLS 130 
O-^LS 140 
OMLS 150 
OMLS 160 
DHLS 170 
O-^LS 190 
OMLS 100 
DMLS 20c 
OMLS 210 
DMLS 220 
DMLS 230 
OMLS 240 
OMLS 250 
DMLS ?60 
DHLS 270 

OMLS 280 

DMLS 290 

DHLS ?00 

DMLS 310 

DMLS 320 

DHLS 310 



REMARJ^S 

THF MINIMAL LENGTH -SOLUTION IS "HOOuCeo IN T^f sT 
tCCATIONS nCCUPIfO &V THE SIGHT hanO SIDE. 
SfJR'nuTINe DMLSS COfS TAKE CA^!i QF THE PERv^TaT)- 

WHICH WAS APPLieo Tp R-ws ano cqlimn:, of a. 

CPf^ATICN IS BYPASSED IN CASC OF 1 NPN PQSI T 1 VF v 
CF iptNK 

SUP^ruTINES AND FU^CTI^N Si,dPRc;3fll!iS REJUIREO 



riML<- 

D ML *■ ".20 
i 'DMLS 430 
DMLS 440 
OMLS 4 50 
OMLS 460 
QML S <. 70 
DHLS 4P,0 
DHLS 490 
DMLS 500 
DMLS 510 
n*<LS 520 
DMLS 530 
OMLS 5£,') 
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Mtrnro 

ifT I, U. TU et THE CGMPONEMTS OF I HC F*CTrSIZ 
4NC LEI THfc PICHT HANfl SIOE 8E Pi^TITlPNcO INT 
PftttI XI UF DIMENSION IRANK ANO A iECONO PA<»T X 

14- t SANK. TH'K The FDLLUMING noe^ATIONS » 

StOIfENCf 

(U INICBCHANCE "» IGMT HAND ?rpF 



1 ?) 



Kl 



(31 X7 



Kl 



TceNSPOSf (u 

(*) y.2 = INVtftSECtUl • INVEkSt I rflANSPDSE IIUJ I • 

151 Kl = XL tU* K2 

<6I XI = (NVtRSEU) • INVt-:R$t<rfi*NSPOSE(TlI '' X 

(7) X? =-TqANSPQSEIUI • XL 

(81 X? = rNVERSflTUJ • INVtI-SEfTCANSPQSC (TU) I «■ 

(<51 Kl = XI ♦ U • X2 

( 101 X? = TKANSPDSE lUl • XI 

llll RElNTtUHAMCE CALCULATED SOLUTION 

IF THT SYSTEM Of SIMJLTftNFOUS LINEAR EOUATIdNS 

If' 8€ CCMPATIPLF IMtN STEPS Hi, (31, («) ANO 

CANCEILED. 

IF TH"^ COfFF[CICNI MATRIX HAS « ANK H, TMEN TH£ 

PEBPQSMCO ABE (II. t*l AND lilt. 



SU«RQUTINE DfLS«( A.Nt l<5aNK,T0AC. INt .^H«,,IEi;| 



OMLS 550 

ONLS 560 

ITION UF A, OHL^ 570 

) A FIBST DHLS 510 

; Ot^ DIMENSIONOHLS 590 

L lEP IN OMLS hOO 

* PMLS 610 

DMLS 620 

OJ^LS 6 JO 

DHLS S'.O 

OMLS 610 

OMLS 660 

OMLS 671) 

OMLS 6B0 

n-^LS 690 

OMLS TOO 

OMLS 710 

DHLS 7?0 

IS SPECIFIEO CMLS 710 



ARE 



PNLY STEPS 



OIHtN^ICSeO uUMMY V*RI*Bl. = S 
OIMENSICN A( 1 I ,T«aCt I I.RH^l 1) 
OOUSLE P«fClSION SUM, .".RHS^TOAf .HOI D 

I6ST '^f SPEClf^lfeO Dir'ENSICn'S 

IDEF-N-I3ANK 

IF{N)33,M,I 
I (f ( IRA><K) ii, 33,? 
3 IF(IDEFrn,>,3 

vALues 





CALCULATE AUXILIA= 


3 


ITC. !i^ANK*( !t(ANK*l 1/2 




1X.'=IRANK,«1 




NPt=N*l 




1EW = 




INTEtiCiiANOE '-ilGHr ! 




JJ'l 




ir = i 


<. 


Pn 6 i=i.N 




J = TRA<;{ 1 D 




1 F ( J ) 3 1 , 3 1 . -^ 


•y 


HCiLD^fiHS) ( I 1 




fiH-:!!! 1 = ((H'^! J) 




EHS( Jl=Hnin 


1^ 


II-! !«JJ 




IKJJl?;,?.-' 




PE>;Fi1c.^ SFEf ? IF * 


7 


ISh=l 




1*- ( INC-I^^F J e.pfi.fl 




CALCULATE t\ -- Xi i 


A 


I5TA=ITE 




DO 10 1=1, [RANK 




ISTA-ISTA*! 




JJ=ISTA 




^uM=o.on 




00 9 J'^IX.'.M 




SUM = SUMtA(JJt<-fiMi( Jl 


9 


JJ=JJ*J 





HHSI I J=»HS( 1 M'^UM 




GOTOUI,?'i.ll), ISH 



«ANSPnSE(Ul • Kl 



; CALCULATE 

11 ISTA=r'F 
no 15 I=M^.N 
JJ=($T* 

suM^o.no 

XI 12 J=l, IhANK 
JJ"JJ*l 

12 SUM=SU«*A( JJI*RHS( JI 
(^0T0(13,1 Jil-VLISW 

U SUM:>-SUM 
1* RHSCn*SU'^ 
15 ISTA»IST4*I 

GOTOI 16,?9,30) , ISW 

INiriALI7F STEP (41 0^ STEP |8I 
l(. !STB = IX2 

!END--:N 
JJ=ITF*ISTA 

DIVISION GF XI RY T-JANSPHSE OF TKIANGULAF MATEIK 
17 SUM=0.00 

DO 20 I-(STA. IfcND 

IF(AUJt lie, 31, IB 
IB «HS( I I^IIHJ 1 I )-SUM|/A( JJ) 

IF( I-JcNTI 19,21.21 
19 JJ-^JJ^IbTA 

SUM=0.00 

ilO 20 J=ISTA, 1 

':UM»'SU'<*A(JJ l*PHS( J) 

JO JJ=JJ+I 

DIVISION OF XI PY Tl* lANCULAH MAHIX 
21 SUM=n.00 
II=IFNO 

DO ?A I=ISTA, lENO 
BHS( U 1^ (HHSn I I -SUM l/Al JJ I 

lF(Il-ISTfl)25.,■:^,22 

?2 KH=JJ-l 
SUH=O.UO 

u" zi j^u, :eno 

Sl/M = SUM*A(»(«; l*KHS(JJ 
23 KX=K««J 
JJ=JJ-I I 

2*. 11 = 1 r-i 

25 [F( lOFF ) 76, 10.25 

26 GOTOI? ', (1,B1, I SH 

PKWFORM STEP 15) 
2 7 !SW=2 
GOTC a 

PfTSFORM STEP (()] 
2 3 [SrA=J 

IF^^o=l«AN^c 



CMLS 7^.0 

PMLS 750 

f\,^ 760 

OMLS 7 70 

PXLS 730 

.D«L5 7S0 

P*«LS BOO 

CMC 5 FIO 

OMLS ^20 

THLS B-\Q 

OKLS fi40 

^^'LS eso 

nMl S fc60 

HMLS flTO 

PMLS bflO 

(iML« (190 

OMIS OOO 

OMLS •'lO 



OMtS 

DML<: 



020 

PML5 '^•*0 
OMLS 9 50 

D»iLS ''(SO 
DHLS 970 
n»«l.S ■530 
DMLS 9'?0 
0"L510nO 
OMLS 1010 

OML «lOiO 

rwLSio-io 

OML Sl'i-'O 
OMl '=1060 

niLSioro 

O'lLSlOBO 
OWL SI J90 

n^"LSiino 

o;'L';i 1 1(^ 

ilMLSI 1 JO 

OMLSino 

D>«Lil l-t-O 
CMIS1150 
DMI. r 1 1 60 
0'<LS1 (70 
DMLSI l<tO 
OML 51 190 
DHL 11 lOO 
1IHL5I2 10 
nMLSI?20 
0«LS12in 



o^u <;i 



'40 



DML5I2SO 
DML '". ! ?60 
O'll M.Vi^ 
CML-Jli^O 
OML<:ir<JO 
0ML51 l-^O 
OML Si:* 10 
OML'iUJO 
tlML'^l'iO 
DMLS134C 
DML SI 5 50 
DMIS1360 
OMLSl 370 
DML SI 3. SO 
OML SI 390 
CMLSl'.OO 
CMLSUIO 
OMLfl^iJO 
DMLSMIO 
PMLSU^O 
DMLSl<i'iO 
DMLf 1<.50 
OML SI*. 70 
OML SI ABO 
OMLS 1*90 

OMisiino 

OML 5 1*^10 
0<LS1520 
DMLS1530 
CMLSl 5^0 
DMLSISSO 
DHL SI 560 
OMLSl^TO 
0'*\. SlSRJ 
D-LSl^qO 
flMLSlSOJ 
[iMLSl6in 

pMtsi'jro 
r'^L<;i6 3i'> 

OMLS! wo 
DMLSI6'.0 
OMLSIf^O 

O'^LSIftHO 
DMI SliS'»0 
OML SI 700 
OMi <;i7l0 
OML'ilT.-O 
DHL SI 7 *T 
OML SI 7^0 
OML SI 7 so 
n><LS17nO 
DMI. <:i7 70 
OMl SI 730 

n^isi7')0 

UMLSl-iOi) 
OMLSltllO 
DMLSm^O 

DML S 1 fl m 



PERFORM STEP (RI 
29 ISW=3 
GOTO 16 

REINTERCHAMGF CALCULATED SOLUTION 
10 H-N 
JJ«-1 
GOTO 4 

FRHOR RETURN IN CASE OF ZffiU OIVISOP 

31 IEP=l 

32 RETURN 

ERROR RETURN IN CASE OF UtEoAL OIMENSION 

33 IE"— I 
RETURN 
END 



OML S 1 diO 
0MLSH50 
0MLSIB60 
DMLSiaTO 
DMLSIRRO 
DMC513V0 
0«L S 1 900 
D/iLSl910 
OMLS 1920 
0MLS1930 
0MLS19<.0 
DMLS1<J50 
0HLS1960 
D'*L51970 
nMLSI<»80 
DMtS19')0 
0MLS20')0 
DMLS2010 
DMLS2020 
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Subroutines MCHB and DMCHB 

These subroutines will compute a triangular factori- 
zation 



-1,T 



A=(Tu) 't^ 



(1) 



of an m by m symmetric positive definite band 
matrix A. They may also be used to replace a given 
m by n matrix R by A-1r, Ty-lR, or (Ty-l)TR, 
depending on the value of an input parameter lOP, as 
shown in Table 3. 

1. Mathematical background 

The upper triangular matrix T^ is computed using 
the following recursive formulas: 

k-1 <2) 

tkj = (1/tkk) (akj - Z tiijtij) k = 1, . . . , m 

i= 1 j =k, k+l,...,m 

k 

(Any symbol E Xj is to be interpreted as zero if 

i = J 
J>k.) 

In the special case j = k, equation (2) may be 
written: 



'-kk 



* i = 1 



ik , k = 1, 2, . . . , m (3) 



When A is a symmetric band matrix with mud 
upper codiagonals, all elements a^j are equal to zero 
if j >k + mud. From formulas (2) and (3) it is easy 



to see that the same is true for ti 



•kj= 



t^j = if j > k + mud 



(4) 



Therefore formulas (2) and (3) reduce to: 

k-1 (5) 

tkj =(l/tkk) (ay - ^ ty^tij) k = 1, 2, . . . , m 
i = io j = k+1,. . . , min 

(m,k+mud) 



Iq =max (1, j-mud) 
tkk=Wa, 



..JT^'.^ 



kk ^ "-ik 

i = i 



E tjk k= 1, 2,...^ 
o 



(6) 



i = max(l, k-mud) 



Computing (Ty ) is equivalent to solving for Y 
in the system of equations: 



t'T Y =R 



(7) 



The solution of (7) is computed using the following 
recursive scheme: 

k-1 (8) 

ykj = (l/tj^) (r^j - X; tikyy) k = 1, 2, .... m 



j =1, 2 n 



Iq =max(l, k-mud) 



After each yy is computed, it may be stored in the 
location of r^i . 

Analogously, computing T^~'^ R is the same as 
solving for X in the system of equations: 



Ty X= R 



The solution of (9) is given using a similar 
recursive scheme: 



(9) 



(10) 



i = k+ 1 

j = l,2,...,n 



io =min(m,k+mud) 

A"1r is computed by first computing S = (T'r)~''R 
in the locations of R, and then computing " 

T-1 S, again in the locations of R, If R = I, this 
process replaces R with the inverse A~l of A. Note 
that in general A~l is no longer a band matrix. 

2. Programming considerations 

The input matrix A is assumed to be stored in 
compressed form, that is, main di^onal and mud 
upper codiagonals rowwise in successive storage 
locations. Therefore, the total storage require- 
ment for matrix A is m + mud (2m-mud-l)/2 
storage locations. The general m by n matrix R is 
assumed to be stored columnwise in nm successive 
storage locations. 

The operations performed by the subroutines 

depend on the actual value of the decision parameter 
lOP. 

Table 3 shows input and output depending on the 
value of lOP. 
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Table 3. Dependence of Input and Output on lOP 





lOP 





I 


-1 


2 


-2 


, 3 


-3 


INPUT 


A in 

compressed 

form 


A 


A 


T 
u 


A 


T 
u 


A 


T 
u 


R column- 
wise 


irrele- 
vant 


R 


R 


R 


R 


R 


R 


OUTPUT 


A in 

compressed 
form 


T 


T 

u 


T 
u 


T 
u 


T 
u 


T 
u 


T 
u 


R column- 
wise 


un- 
changed 


a-'r 


a-'r 


t-'r 

u 


t-'r 


(tIVr 


,T-')^R 



If lOP is not equal to one of the values listed in 
Table 3, no action except error message lER = -1 
takes place. In this case A and R remain unchanged. 
The same is true if mud (the number of upper codi- 
agonals of A) is negative or if m (the number of rows 
of A) is less than 1+mud. 

There is one way in which the factorization 
described above may fail to give a solution, which is 
easily seen from equation (6) . If at any step the 
radicand of equation (6) is not positive, the procedure 
is bypassed, and the error message lER = -1 is 
given. The interpretation may be that matrix A is 
not positive-definite; however, failure is also possible 
due to roundoff errors. 

Backsubstitutions may fail too, as is easily seen 
from equations (8) and (10). If any main diagonal 
element of Ty is equal to zero (this is only possible 
if Tu is given by input), (he procedure is bypassed, 
and the error message EER = -1 is given. 

A further test on possible loss of significance in 
the factorization part is performed by the subroutines. 
If at the kth factorization step the radicand of equa- 
tion (6) is not greater than | EPS, ay^ | , with the 
relative tolerance EPS given by input, the subroutines 
give the message lER = k-1. 

For subroutine MCHB a relative tolerance between 
10"6 and 10""^ is suggested, and for subroutine 
DMCHB, between 10-14 and IQ-l^. The message 
lER =k-l, in case EPS = 10"^, means that there are 
about D or more significant digits lost in the compu- 
tation of the radicand in formula (6) at the kth 
factorization step. The interpretation may be that 
there is loss of significance in the factorized matrix 
from the kth row on, while the results of rows 1 up 
to k-1 may be better. Loss of significance in the 
lower part of the factorized matrix may affect the 
results of matrix divisions. 

For reference see H. Rutishauser, "Algorithmus 
1 - Lineares Gleichungs-system mit symmetrischer 
positiv-definiter Bandmatrix nach Cholesky- 
Computing, " Archives for Electronic Computing , 
vol. 1, iss. 1 (1966), pp. 77-78. 



PURPOiC 

Fr^ A G1V5N PfSITl Vt-OEf INi IE S 3Y M t^flTRIX A talHi SVHME TR I 
9AN0 STRUCTURE AND - IF NECESSARY - A CilVEN GENERAL » BV \ 
.'^IT'^IK "J, THE FOLLUKING C«LCUL'IiaKS (OEPENDENT J>) THE 
VALU£ OF THE DECISION PARAMtTEk lOPI AHE PEPFORHED 
111 MATRIX A IS FACTHBUiO (IF ITP JS NOT NESATIVEI, THAT 

MEANS RAND HATRIX TU WITH UPPEB COJI AGGNALS ONLY IS 

GE^CtATFD ON THE LDCATIGNS CF A SUCH THAT 

TRANSPOSti IU1«TU=A. 
i?l 1ATRIJI R IS 'MULTIPLIED ON THE LEFT 3Y INV£RSE(TUI 

AMO/O^ INVERIlEl TRANSPOSf (lUl 1 AND THE BESUtT IS STOSEO 

\\ THC LuCATJONS nf q. 
IH15 SUHFnUTINE ESffCIALLY CAN be USuD TO SCLVE H£ SYSTEM 
IF SIMULTANEOUS LINEAR LOUATICnS 4«X=ft mITh PCStTIve- 
CEFINITE C^EFUCIFNI ."MATRIX A ^F SY«"^£TRIC flANJ ST^UCIU^E. 



USAGF 

CALL MCM9 IB 



A,M,K,MU0,ICP.EPS.IE^1 



DESCRIPTION Of PAflA'lETER 
3 - INPUT (N CfS 



aiGHT 



] \'PU 



!'-* = 



5 IO'>=-5. -2,-1, 1,2,3 ! 

HA^J S10E f AIR 1 X , 

IN CASE ICP=C rPRclEVANT. 
UTPUT IK CA5ES ICP = 1,-I INVERSE I A ) •», 
IN CASE? lCP=2.-2 lNVEa5E(Tuj*c, 
INCASES ICP=3,-3 INVE^tSE I T-J ANSP JiS t lU 1 I *R 
IN CASE IC;P = tNC-^ANGcC. 

IK CASES I0P = 0.1.2,) M 6V M POS ITI Vc-D.-.-lM T 
C'JcFFKIfNT MATpJU OF SV^METRIC BAND ST = 11C- 
TUf= STHCEO IN nio^ESS'^O FIRM (SEC «£MahKS» 
l"* CiSES ICR = -U-2,-3 •< BV M 34N0 ■<ATRIx TU 
WITH U^-PER CCOtaGHMAlS '^NLV, SI"?.EO IN 

C':MPPEiScD FU^M (i'=E P.triARKSI. 
OUTPUT IN ALL CASES ■iflND <<ATO]X TU WIlH UP^"^?. 

CCOIAGONALS QJLV, STOKEO IN CCMP^SS^EO FOR*^ 
(THAT MEANS LNCHANGCR I*^ 1 0P = - i , -2 . - 3 I . 

INPUT VALUE SPtClFYINC THE NUMSER CF RCWS ^\0 

CCLUMNS CF A a~D THf MuMAga OF aO«S OF '. 

INPUT UALUE SPEC [ FY I *3 THE NUMB Eft OF CHL'JMNS DF R 

MPPtLEVANT IN CASE IOP=OI. 

IVPUT ViLUt Si»ECifYnG TnE VU'^SER OF JPPE^ 

CGDIAuCNALS OF A. 

G'.E OF Th(- VALUiS -3.-2,-1,0.1.2.3 r.IV£N AS INPUT 

A\i) USt'J AS Otf.ISIUN OAPAMfTEK. 

[\PUT VALUf VStU AS S-ELAFIVE TOLERANCE f21 TEST ON 

I -'S3 C.f SIGMIFICANT niGITS. 

^^SOLTINO C-^Pi DASC'fTES CLOEO AS FQLLCWS 
l-i>.= Z - NC EitSCR, 

NO RESULT "if cause Cf MP.'KC- INPUT 
''^'JA-ETckS M,MiJD,JCP (SEE RE^-fiaKSl, 
rjc seC-iUSE .:f A KO-wPCSI TIVE "AOITAS-O AT 
?G^E F4C"^*>lZeiK.N STEP, 

OP e^tCAUSE ::f a iTt.c diagonal tLe-iENT 

AT SOME LiVlSinN STEP. 

hA:;N!Ni> CUE TC PCSSiaLE LCSS OF ;i3M = I- 
Ci^!CE [NCiriTtO ar facto? I ?eTio\ step k,* 
WHERE -^iiilCANO WAS NO L0NGE1 GREATER 
IhAN erS«A(Kf I ,K*n . 



•jpocQ oici CF SV><!-€TFIf rtNf <\T-r:n /. CUNSISTIN" 3F ^A'N 
?I4',a\AL A? "UD U^PE= CCDUG"lNfil.S C^fcSP. 6AN0 MATfllX TU 

c'^iSisn^G :!F MAI': ;iAGc\AL AN3 MUD UPPER rrciAGrNALSt 

:^ :iSSU-l£C TL be SICREC l\ CC'^'i^tSSf J rORf^, I.E. IjhWl^E 
:•. TOTALLY N^fcDED M»Mu.-;»(2*--«un-n/2 SUCCESSIVE Srj^yr.e 
L[:C^TIC^S. Op* RETU-^N U^PcS f,A.ML, f-CtO- TU ( C\ THE LCCA1I3NS 
■:F J1 is iTJpfcD !f, 'i-f SAVE «rAV. 

SIGHT ham: sue HATRIX R IJ BSSU^'EO TC BE STC^FT CCLUMNkISE 
iv (J'M 'UCCSSSIVC '■'3f'G^ LCCfi' lOf.-?. ON CCTuci: -«SUL T M/TE|: 

I^VE^StU»*fi n« invcRs^i iui*k ?k invef'SECTranspcsei tui i*r 

!5 srcrsc.-) C'JLUMNWI^c TLJ (U Th; lUCAIIUNS CF f-. 

i>l.'-JT PA^fi-^ETfcRS v, »i;iO, [m iH-^ULD SATISFY THE fCLLZ^'.t-.G 

-=s^<icri&\5 Mjn \0T L^ss "han Zf-'^c, 

i**"U:) NOT GSr tXl.i. Than m, 
A.3S(I2P) \2T -.a^ATE-* THAN 3. 
V"- \CTnN EESfOES E-^RTB «tSS455 KR"-! TAKES "'.ACE IF T^eSE 
^e^TrilCTIGNS ARE NOT SATISH^J- 

TMC psoCEOUPF GIVES RESULTS I- THE C^ s jo K T Ii;NS C\ INOJT 
o*iAHCT£^S AR£ SATISFIEG, IF ^IJICAN.v^ AT ALL F AC fDP 1 Z AT I ON 
STEPS A^E POSITIVE AVD/^R IF A' L JH'JINAL fcLF^rVTS 3F 
jpsfl SAKJ fflCTCft T[J tRi \CKZ-AC-, 

T«CUT IN£3 AN J FUNCT I CJN SUBPRDG^A«S REQUIRED 



F^Cr:-; I.'ITICN IS OJNE JSI\r, C^:L75<'r-S SaUARF-RCOT MEIHCO. 
M'-ICf- Gf\eSAT?S THE UPPER 3A\ 3 HATRlx Tu SUCh That 
rcn-«(Si>-iS£( TU)«TL--*. TU IS i-'ETJ^vcj j- ^cSULT :^N ThF 
LLCATICNS -F A- FU-^THES. DEPtNJFNT CN TriE flC'UAL VAlJE CF 
irip, ^■IVISI'T'"' Of '■ ?Y T''a\S'>:3- ITUl '^^n/0^ TU IS PtRFC^ffcS 
A,\C THE ''t'-UtT IS ^FTUPNcJ "'. fwi La-..ATIONS CF «. 
fL^■^ aiTFi-aF'CE. SfE ^. ftUHSHlUieS, ALJr-^lTH^US 1 - LIVEARES 
-.L^IZ-i-JNJT-YSTcM »■ I T SYH-EIHISC^'^ PnSITl V-OEF.M'^E^ 

-s'o-irsiif NACH CHQi Er<y - , rc'*;>jriNG (secNives f^c, 

,-l'=lT!^D«:C Cn-1PUTi:,G> , VJL.l. ISS. I (1^661. pp. 77-78. 



mChf 


10 




20 
10 


MCHI 


PCHB 


'tO 


MCHft 


50 


MCHR 


SO 


CHCH6 


70 


MCHB 


AO 


fCHP 


=*0 


MCh" 


100 


MCHlj 


110 


MCHf 


120 


MCHP 


130 


MCHB 


I4Q 


•ICHP 


l')0 


MCHfi 


l.-^O 


MCHfl 


170 


MCHP 


MO 


MCHP 


iin 


HCHR 


zao 


f r.H«» 


210 


MCHS 


??n 


^CH3 


210 


'"CH3 


2',Q 


HCH" 


?so 


m:hb 


2^0 


WCHS 


^To 


«CH6 


?^o 


MCHft 


290 


Mrn.^ 


30 J 


,HCM« 


310 


y-lHS 


3'0 


EMCHrt 


333 


MCHfi 


i4^) 


,m.:h6 


ISO 


MCua 


3V) 


"CHB 


IfO 


T.H" 


3t<r> 


MCMR 


390 


MCHO 


400 


MrHH 


itO 


"CHo 


A?-" 


m:hb 


-fl3 


MCHH 


S'.D 


■*Ch3 


A-iCI 


MCHA 


A60 


MCH- 


•i70 


MCHfl 


<i^0 


KC^T 


-^90 


«Cne 


500 


"C^P 


',10 


fcTH" 


5^0 


.* CHI; 


s^n 


MCHB 


5A0 


"C-ia 


bhn 


«CH = 


•ibO 


f""HP 


S/0 


^ChP 


■^30 


-CHB 


■ii") 


■^:r,3 


6'10 


l-CHc 


frlO 


MCt-a 


*.■"? 


»CJ=* 


* 3) 


"CM? 


O-i'.l 


"r.H5 


.^ST 


mch" 


^hJ 


-.Chi 


670 


MCHS 


6t>0 


MCi?? 


f~.) 


."CHB 


7:-o 


MCH = 


71.1 


VCH^ 


720 


^THP 


T'O 


xMrnfl 


740 


"c^e 


7fO 


*THp 


760 


«CHn 


7 70 


■'C'-? 


7.H3 



'■iZH". 


e>a 


M^H" 


.^M1 


MCPP 


^-3 


•THP 


OiO 


M"-^ 


R';o 


yZH^ 


9 JO 


-CH? 


<310 



SUJ^-QUll NE "ICH^ (^ ■ A, M.N,.^UD, lOP.EPS. IcKI 



TEST ON WHIIVG INPUT P A5 A-'f T l <=. S 

IF(IA1<.1 1CJ)-31 1.1.^3 

MC=MUO»l 

IF |M-HC)<.3. 3,3 

HR=M-MUD 
IER = 

MC IS THe MAXIMUM NUM.^ER C^ ELtHf.TS IF* THE RiJi^S OF ARRAY a 
MR IS ThS INDtX CF THE LAST RU- ! •. fiPRAY A WITH HC CLE"*fNTS 



STA-iT .'^ACTO^IZATIDN Cf MATJTx 4 
If I '"PI?'.,'.,*, 
IEN0=0 
LLOST^vuc 
00 2 3 K-l.M 
ISr= icNO^l 



"CHP. 'J^O 
«CHt 480 

MCHn q^.T 

mchoiooo 
i-chjioio 

MCHei030 
fC-i^lCiO 

MC<-=.'T50 

"CHdlOtO 

MChFlUSO 
MCh°lC<)0 

"CHSl I 10 

"CH=.l 1 10 



MCi 



: !2n 



MCHOi IVO 

"CnailoO 
•'Cf-'il 170 

*":hpi ie,i 

"CHl-llSO 

"CH-iiroa 

-C H6 1 2 1 
•f'CH5t220 
»'CHei230 
MC-^B12'.0 
MCHB125i) 
'»:"El-'60 
KCHpl 2 70 
MCHSL'RO 

HCHt^l^oQ 
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J.K-" "HtZ'^'ir lMI.lv, ..,,*,, ,7 

Ifljlft,...'; «'„« i,^ " "iv.l.Bo/i-iv 

5 ltNO=lfijr)-j ';"«!." l-lsl.l 

6 IflJ-lld,J,T 
T LLr^T = Ll J'T-I Iir!^pin!^ ^ S T A« I h AC< SUfc S T H Uf I L 



IMJIIO.IO.O «'„° M '"" 



Mf 


MP 1 lie 


MC 


Hfl] 5?0 


T. 


Hftl!-(0 


Hfi 


HM )<.0 


»<ri 


'^pt 350 


h"*! 


li-ll ?6fl 


•THBHTO 


»-•:( 


■<i'l jfjfj 


MCMi^l ^00 


HCHHHT) 


MC» 


•11*. 10 


"CH^IUJO 


HCt 


ihl<iin 






nC 3S LL=C,IENO !!rJ2^t^« 

r,.^, • -, -A,m|..^ij (11-11,. 1 "CHfiJTOO 



on 23 [ = r.T.IE\'0 »rHP L *'^ SUm=!.u^^* i( LL )•« ( Lll ) 

11 LL=[SI IK i. J 4-0 *" '"'^^ '^ ^ACKSLtt^I ITur luK 



'CH^.i^lO 


ir.HAi5?o 


H:^'P.l 5n 


IC'"i;-,'.0 


'r.Mfisio 


T.l' MS-iT 


ICH^I^TO 


'■-"^1 510 



»'CHt5pr7o 

MCHP, ^»;T0 



IF(LI_D-«U0U2, li,13 p,iM-,-,,i !^ 



13 ':OMIKUE 

tvc I].- (N.NT > LTCP -O'-i*;''.-^ r "•"••• — • — ••••'••••'*•••'•••"■•..•..•.♦.*♦<<,...<..•••♦. ^r.MfiirfeRO 

TPaNSfJfi-( CLtMPNT ftdl IrnlWpn ^ ^"^'^'^ ^ " ' ' "* ^"^^ °^ *"'^^*^ ""*''' ?ft'*«METEaS Cf PIVOT ELEhEM HCHfi^-iOfl 



16 IF 1 SJM-r }L n 7,17, 19 

17 I F I I F = I H . I 4 . I < 
1 H IFRi--! 



SU'iPOUT INE DMChE 



OHCH 10 



2 1 io=ir*i 



10 ANC t.'^AK uf^.-_;i.-,r C HE*Nt BAND MA 



f^OC ft GIVEN POSlTlVE-nEFINlTE ►- ev M MATRIX A yiTH S V«^ E TR I C 0-CH 5? 

B*:-D ST-uCTu'^t AND ^ If NEC£SSa*.y - A (.Iv^.n gfk^p.l h Hy n onrn 90 

MAIRIK R, THE FOLLOWING CAlCULATiaKS (OcPENDEM O". IhE n^-cV <)0 

ViLUE DF THF OECl-ilON PAftiWtr^R lOP) A^E aE^Prfti-fo r^.p .f,, 

(1) MATPIK A IS FACTfRUfO (IP lOP IS KOT NEGATIVtl, IHAI o-^h 10 



Uopfo Cnoi AGONAL S ONLY IS 



GENERATED ON Trig LCCHIDNS Oi^ A SUCH tMil 



rFiio-ji^i,??.?? vr^^,^.. c r?.ANSPnseiTu)«ru=., (.„-. ... 

r^^Jltr'"' -CHr,,^C C (2, MATRIX fi IS -.ULl I PL 1 £0 CN THf LEFT HY INVE^SEtTUJ OHrn 150 



■'!^ir'/.f!l^'''"':?\M')':' • '■'' '■'^■'' «C"f^i->.^ c r-13 subpcutIn? "es^'?/. u.u' tan .1= useo 10 SGivt r-E iVSTE*. dmc'm mo 



bTfiOT CitVfSIC'J BV TTANSP.'JIst l<f 

LCr.JTI jr;S OF A) 
fST=l 
L'»A)( = ') 



P1V=A( iCTt 



r^c-i-it^f? 


•T H^lOJC 


'«f.^=l'-r3': 


"CHf-tc^C 


fr.H^>1';0 


HCHf lqf,0 


MChf :97C 


ur.uoi<va,(; 


"C-'^iqoo 


'^Cne^COr; 


«^HF.^clo 


Kf.Hs?'^?': 


"CH^^OJfj 


fc^izoi-r. 


*":^-f3i;5', 


«r-.f2P'.0 


*"",'-"=? CO 


HCHt2lj = C 



IN THE LCCAIICNS OF 

L' rAN ri= USEO 10 



£Nrj r,= FACTO- IJ/VT 10', OF -/iri-IX -- «r(.e;,,,,^ C Qf SI'fbLTANECJS L !N 

OEFiMTE OEFFICIfNT 'lATBlX A 0^ SVMMfc T- ic ? AS^^ STAUC ^ueE . C«Ch 200 

D»<*"M 210 

- - - ostzt ty 

PEPA^-E MATPrX JiVISItJNS -CH(^tc^C C CALL OICHE I ? , 4i -.,% ,»i JD. KjP , E^S. I FF ] D-C^- 2J0 

24 ID = N"« HCHflq^o C DESCdPTION OF PA:(AMET;pS nlrT ^-2 

■'u^ir?^''',;';^ '^'^•'•"'^ \ ' ' ''""' '" "''^ l-.P = -3.-2,-|,..2.3 DLUR... - .^ . . U :!.?:;c. 2^0 

F( JENC)?..35.?5 Mr>-oKi3r C « av N ftlGHT hanj SiQg MATPIX. OICh ? 70 

I^I CAS£ ir»=j IP^tLEVANT. o.,r- isr) 

OijTf»uT IN CASES rC = =l,-l I»lVEe''.E ( A t *= . d-''h 29" 

INCASES \-y^=Z,-Z INVfRSEd'JI*^, C^'.H jtJ 

IN CASES i:.Pi3,-l INVEHS6( ri»aSi?-S£(Tui )«3,3H'-'-' i'O 

|f: CASE irP«0 UNCHAN&ED. O't'H 120 

INPUT IN CASES ljP=Ctii2,3 DGJU- P?'^'. I "^.I -,N H ^y ^ijMCr- iiO 

P'JS! 'I Vf-O^FINITE COEFri:i€f.T ii'.T=ix ';p -«-»- ,^0 

, , „, , . .. -. SVMfETftIC iJAND STAUCTUCE STCPEG If. 0*'^ ^-io 

^^''r'^':' „ -CM'=?C'0 C COKP^ESSfL frPM ,S5£ ^eHA>..rS). 0-CM 3« 

.. ^^/ri'^ HCHt2u=c c IN CASES i:p = -i,-?,_3 :r,j3i.e p^c'.i-,;.-:.. v .y wn-'H it^ 



SAr.O viTijr TJ WITH UPf't; CCOU'-.'V.iLS r.^Lt, 



P1V=1.D0/P!V vC-FIUa C OUTPUT IN ALL CA.tS iA-C -Af^IX TJ .II« JP^^^ c-:- ^\o 

■'CH^.^]^o t courj'-'iflL; t^ly. ST'-ieo I'. c','^p^-ss£'^ f-o« n-r- iio 

START rACKSU3STITUTICN-L0r^ f r,H «-r" ^OW GF Ht-^XY » "^"--21^0 C (THAT KEA':: UNC-ANGEJ if IC P — 1 , -2 1 - 3 i' . ' Q-'^H WT 

00 ^n I^f.lD.M MC^E2i<.0 ^ H - INPUT V^LJE SPECIFYING THt NUMaEB 



1=0. DO 



27 LL=IST 
LLL=I 
LLD=LLDiT 



^CHi 


■.^l^o 


»ru: 


- 2 1 10 


HC-fE2i<.0 


"CME^i'.O 


•'C-' 


^2160 


WCH' 


i2I70 


Wt-t 


•2l»0 


•^CH' 


'?l«^C 


"CH' 


^2300 



CCLOfSS T'F A an: T-e Mj^3EJ CF 1G-S 



IFILMAKnO, ■>0,2"' •'€-'^2160 C S - tv^-ur VALj? SP- CI F y| ■■:;, th^ su^Afa rf 

WCH5 2I 7 C ( I oaf LEVANT I' C A S*^ r.P = " I. 

PC^PASE INNEF LOC." wC-PaiBO C *<.jO - lf,?UT VALU= SPECIFriNri Th? NJfOE? Pf u"-''^ 



CEJ'^IAGONALS CF A. 

ONr GF iMi value: --'.-2i-l,C. 1,2.3 Sl.f. AS IvpuT D-'-r- 4-„j 

2210 I"- ANC USEi AS OecISiCS PflaAKETCP. "vr- ^T) 

.,,,- ,,.„ ,„^„ ''C-^r222') •: EPS - SINGLE orE-ISlT. K.sj' V4(.'JE O^EO »< -FL*i:Vt C-rn ',10 

^I :..';'l;^! *-" HC--22-'' ^ TOLEKANCt FC3 TEST f;-. iC^S fe S I S», ! - t Ca", T CI'^ITS. J-f.H 5?T 



OD 2«; L = 1,LMAK fC-?22''0 C !'i - -ESULTI-^f. £3PC-1 oAPAHEr^a CCjED AS flL"-' 

l-^-'LL-LLI) MQi. = 225-0 C IE& = - «'" E-<-t.-, 

^C^';2260 C IEfl^-1 - UC fitSJLT gtrjuSE CF W=C.'i;^ T'-^JT 



LLL=LLL-1 



IF(LLfi-'<U0122,29.2<i HCh<^2250 C C^ e^CA 



LL0=LLD*1 

ENO yf INNER LOOP •'CMF??tO 



M'.PCSITi J 



CHtZZTO C SC«<E FiCTr'UATIJN STf 

St •- A lE'Z OIACr.-tL CLLi'*".' Z^'.- 590 

DI Vi -IC. STEP. J-'--, ^.''0 

WHP^JJG f IF-^i' - KOM.-.C -JL.= TC PGSUSLE L^SS ' ? '.\f.\?\- c^- - t.'". 

■^ANSFO^". eLclENT SO HCHP233-1 C CANCi (t-LICA^Er AT f ACT2^ t 7 1 T i _,'. ST^? r^'C"".. .7". 



ic^T -ADICao was N" L0*':-£'- •"ideate; CC-" 6'.0 

AS EPS«A(i<»l,K*n. c,«-i. f,^-;. 



to 0(n=Pivan3L£(''(T) J -SUM J -CHcJi^iO 

EN'J "F BACKS'J^SI ITu:iO%-Ln?P FG'' •.-TM RO^ D^ fajaix R MCHP2350 C 

»<Ch^2 3^0 r ,,„_-, 

UPQATE PARAKflEBS L-^AX, 1ST ANC LL.IST MCH'>;3'»r} C FEKAi-S -u-_ Ti" 

I'=[HC-< J32, 32i31 -C"a?390 C UPPz- PAi- T OF Sry^ETFIt EA'O 1irS|x A C^NSIST['.G "« ^-AT. T-'-'h -^7,- 

31 L'iAX = K wCMa^iqo C DtAO'NAL AND fJO UF*f3 CC : I AC ' ' -• ;. S I f^.f SF-. dA',C "tTJlX 'I ^-'- --' 

'- IST=IST*<C Vi;H«2<.00 C C.n:IS'1«-C Cf -A|l. :,IAS.;.tL t\r^ -u-> u^ = cc COMO-'MSl -•"- -■',- 

iluU..,.,,, 'Jrllll" ' ;■• t^f-"' '' '' ='"'' '•■ '^-"■'f''iO fOi'i, l.i. ^f..,|'■^ ii'i- r- 

34 cosrixijE "r.Mn?*Ao c ;f ., j; ,„:.£, ,., ,p; ,...j ^j,_ ■ -^^ _;^ ■ 

*'**•* -" ".-..•... , :^:^i:^2 I ;;.]r:!?,;^t^:rir.:^; n^'t^'iiY:].^,:; ,.,-,.- -- ;- 

,F,?L".;«'^;'"- "'""'"'""'' '5 ^""^ " Lcc«,n-,s OF ., liZilTr, c "sr.icTioNs »u: «; Lijs t-^., z€.o. " "- ' ;„:.,:/ 

!■ ISr — .lHOO.IH— -«ri|/J., CrM.,,,^ r „ AOiCICPl SJT GREATER THAN J. i,-,. .,, 

■■"''■O '" r ^° ACTION eESIOfS E-3n: "t5-,[;= Ire, j,<p5 p. .^r .j , „- L. : , 

K.^ "CHi!J5«0 C BESTJICUOMS AlE NCI itUili':, ~^' J^ " '" 

3S IE-lD=ISr-. IrTil^l?, r '"' """OJHE GIVES SES.JLIS I? I«f aEir^ICIK-,, ■, ■.,= „ ,;.-! ''„ 

MC-s^-ieo c ijopf: UNO Firras ij is; N~,£-<~ ?": -^ 
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iCd*"'; REOilIltD 



suei-^ur iN'^s ANfi fiiNCTiON sunn 

f itTHR I?AT inf: IS r^ONT USING CHfllSKY-S SOUAPt-H<"ni MtTHrO, 
WHICH OtNFRATfS THf tUTtf tl*^D "ATRIX TU SUfH IHATS 
Tt AWPf SF I Tul«TU-e. 1U 15. H Tl'Cl.fn «S <:f SUl T r\ iMf 
ll(*TII*iS fir A. fL'KTMtk, tf^tMHNl ON THF ACTUAl VALU6 T.F 
TOP, ['WISION Of V P.T FHANSPC'SI (TIJl ANO/GB TK IS ICPIOUwrO 
AM' IH' PI-MJL1 IS Bflllf.*i(lj Of' Uif LOCATinN'". f;l M. 
rOh fitffRINCt. set H. KUlIStltir.fl, Aiat.SITM^'US l -.llNfAec; 
r,i.f iTMUNcssvsitM Mil '.YMMHf I :.rt'n* p<jsi II v-nn iNin f 

HAhPMA|P|)( MATH CHOIFSKY - , [.IIMPUUM- (A'lCHIVfS ft!H 
£lfCI«n*4IC CHMPUTING), Vfl . 1 . 1 "iV. 1 (IShM, PF.TI-Tfl. 



T^n (IN wtnur; input 
IF( UFi',( inP)-3) l.l,*3 
IF(MUO)*.l,?,? 
HC=M!in*l 
irtM-MCl'VI, 3,3 



ir 



.im 



Mr 11 rnf maximum NunnfR n( tLl-^-^rs In Tnt 
MO IS 'HT INrirx (If THF lA'.r «I(W IN ARBAV a 



SIABT ( ACT'lk IZAI nN I;F MATBJK 

IF) in**iz*..<..<. 

ILOST^MIJD 
DO ? » K= 1 .f^ 
nT.IFNO*l 

iCNn-isi'Muo 

I "^ IJ 1 6 , ft . 5 
. IFNO-riKD-J 

. ir(j-i)R,''..7 

' LLtJST^Ll [I'.I-l 
, LMAXiMg:) 

J = MC-K 

|F I.J)10,li).=5 



STftRI lAClQ-ll/AI UiN-l mP (1V^W K-Tf 

on ;■ 1 1 = i-.i , fFNi) 
in .Mflx) i^. It,, II 

Pf<EPARF INNfR lUrjP 

IL'IbF 
LlO=LLi3:,I 

STA«T JNMFK LHHP 
OQ 1 J L'l.LMAX 
LL=LL-LID 
ll_L=LL*in 

SUH=SUM*A(LL 1*fl( lit } 
If (LLO-MU'Jl 1?, 1*. 13 
' LI D=LL0*1 

I r.QNTi^ue 

FNO OF INNEP LdCP 

TPANSFHRK Elt"f MT A( I I 
, SUM=ftl I l-SUM 

IFtI-I«iI)15.l5,7fl 

AU) lb niAGONAL ELEMENT. tCHPk H 
I IFlSU'i)*-3,^3,16 

IfST (1*1 LOSS nf ^If.MFir.AKT L* K, 1 ' ' 
. IF(SUM-TnL) I Tt 17, |t) 
' IF I irRHH.lfl, 1<* 

COMPUIATICN L'F P I VDT tLf.MINT 
I ('IV=DSO«TI SUW) 
AI I 1=P|V 
PI V=l .00/PIV 
GO TO 21 

AU) IS urr DUGDNAL ELE>*FNI 
) A( 1 MSlW + oiV 

UPDATE ID A^D I MA X 
. ID=IO»I 

IF( ID-J»i3, 23,2? 

• LfA)t = LMAX-l 
1 CONTINUE 

END Of FACinRI/AT lON-LnnP CwfF If - T 
END OF FACTORIZATION Df MATRIX fl 

«**«*>■**■«*«••* •*•*•*«•*•***•■('•***■ 

PREPARr f^alRIK DIVISIONS 
Iff 100)2'., li^. ?*. 
, lO^NeM 

I£ND=f ABSI ir)P)-2 



&N0 WAFNINL 



DMfM tjin 

DMCM 910 
OMCH 1?0 
O-CM 5 It) 
DmCh 9^n 

OfTH T-iO 

iiMCM 9'in 
n«f.M oTd 
r.Mctt '(HO 

OMI.HinOO 

DMr.HioU) 

DMr.HlO'ii] 
')V,l'il()nO 

n^r.m in 
Die HI I in 
[,'■«'■ H J wn 
D'^fi'i I «o 
ii*^f,Hi 1*0 
i;sci*i i-io 
N-'rHiihT 

DTl'i 1 10 
()><[,Hl 110 

P'^r.Hi no 

DMr.H1200 

n^'". HI 7 10 

()-ir.Hi?/T 

• DMr.H'. ? *.) 

nMCin/'.o 

' Mr.Hi7*-i» 
[»«tf,Hl -?70 

iT^r.m 7 MO 

ri>icHi?70 
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Subroutine MFSS and DMFSS 



a. First step 



Given a symmetric positive semidefinite matrix A, 
MFSS will: 

(1) Determine the rank and linearly independent 
rows (and columns) 

(2) Compute a triangular factorization of a 
symmetric submatrix of maximal rank 

(3) Express nonbasic rows (and columns) in terms 
of basic ones and express nonbasic variables in 
terms of free ones. 

1. Mathematical background 

The rank is determined using the method of Cholesky 
(square root method) with pivoting along the main 
diagonal. Pivoting on diagonal elements means that 
the same permutation is applied to the rows and 
columns of A, thereby preserving symmetry. The 
interchange information is recorded in the auxiliary 
vector TRAC. The notation A^i is used for the 
interchanged matrix determined during the rath step. 
The given matrix A is assumed to be stored column- 
wise in compressed form, that is, upper triangular 
part only. 



A = 



^11 H2'" ^In 



a. 



nn 



To allow for easy pivoting, the diagonal terms of 
A are moved into vector TRAC. 

The following two facts will be used repeatedly: 

(I) If S=(Sjj^) is symmetric with Sj-^ > 0, then S 
admits the unique decomposition: 



S = 



t 




1 







t 


V 


v^i. 




_P 


D_ 




_0 


I_ 


Pll ^12^ 






1^21 


^2 


2 _ 











(1) 



where t r/sii, V =(l/t)S^2 ^^'^ ^=^22" V^V. 

(II) If S is symmetric positive semidefinite: 

Sjj s for all j and jsik j s max(sjj) for all i,k 



Let ajj =max(aii), ^ ^jj =0. formula (2) implies 

i 
A = 0, and further calculations are bypassed. 
Assuming ajj > 0, rows 1 and kj = j and columns 1 
and kj of A are interchanged, obtaining Al. 
TRAC(ki) is replaced by TRAC(l), and ki is stored 
in TRAC(l), Decomposition of Al gives: 



a1 = 



11 



Al 



12 



a1 a1 

21 22 



'^n «' 




1 




ti yi" 

tjj V 


(Vl)T I 




D^ 




I 



where tji=/aj^, V^= (l/t^^)A^^ Sind 

Dl = A^2 " (V^)'^V-^. D^ is not calculated explicitly, 
only its diagonal terms are computed and stored in 
locations TRAC (2) through TRAC(n). 

The first row of a1 is replaced by * j^, V^. The 
compressed storage scheme now looks like this: 



11 



V^ 

^h 



b. General step 

Suppose that after m steps (1^ m <n) we have deter- 
mined a transposition vector (ki, k2, . . . , k^), an 
m by m nonsingular upper triangular matrix: 



p,m = 



11 12 



22 



Im 

2m 

t™ 
mm 



an m by (n-m) matrix: 



V^ 



m 



V: 



ym 
2 



ym 
m 



(2) 
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and an (n-m) by (n-m) matrix D™ such that: 

(T™)T [ 



Am Am 
^11 ^12 



Am 
■^21 



D 



Am 
^22 



m 



(yi 



nm 







I 



ym 



I 



(3) 



where A™ = pniA(P"i) , and P™ is the permu- 
tation m^atrix associated with the transposition 
vector (ki,... .kj^). Again, D'^ is not known 
explicitly, but is computable from: 



D 



m; 



^m 

22 



(ym^Tym 



(4) 



T™, V™ and A^ are assumed to be stored in the 
following way: 



V^ 



22 



If A"\ = 0, it follows from (4) and the fact that T>^ 
is positive semidefinite that C^ = 0. Then (3) is 
the desired factorization, and the process termin- 
ates. J£ Affl, ^ 0, there is at least one positive 
diagonal term a^, and we may compute: 



where D'™ =A' ^ _ (v'm)Tv'm_ ^j^^ q jg ^^ 

permutation matrix associated with the transposition 
(m+1, k^^j). Now decompose D ' '^: 



D 



tm+1 
m+l.m+l 



(Vm+1)T J Q p 

_ m+1 



m+1 



m+1, m+1 m+1 



and store t"^ , 1 ™.i.v"^j^, in the first row of 
m+ 1 , m+ 1 m+ 1 

A ' ™ . Let A'^'t-'^ denote the remaining rows and 
columns of A 5i, and rename the elements of V "^ 
as follows: 

.m+1 



•m 



m+1 
l,m+l 

m+l 
' m,m+l 



V 



1 

m+1 
m 



The storage area now looks like this: 



t=^T^T="r (^>kl I 4^«} 



From (4) and (2), max dfP 
i,k I 



< t max ani 



If t s e , the norm of D™ is small compared 
to the norm of A5i, and we interpret this as D"^ = 0. 
Assuming t > €, rows m+1 and kj^+j = m+j and 
columns m+ 1 and kj^+ -^ are interchanged in the 
compressed storage areas, obtaining 



A 'm 

^ 22 



TRAC(kin+i) is replaced by TRAC(m+l). andkj^+l 
is stored in TRAC(m+l). As a result of these 
interchanges: 



QA'"Q 



(T-mjT Q 



(V'"i)T I 







D'nij 



fin V'''^ 



I 



(5) 



m+1 

l.m+1 

m+1 

m+ 1 , m+ 1 



m+1 



V 



^+1 
m+1 
.m+1 
A 22 



^m+l 



Let T'"^"^ be the enlarged triangular t-array indi- 
cated above, (that is, add the column of t's to T™) , 
and let V""'*'-'^ be the V-array. An easy calculation 
shows that we are back in the situation (3) , (4) with 
m replaced by m+1. This completes step m+1. 

c. Final result of elimination 

The above process is continued until for some m=r, 

say, D^=o (in the sense mentioned above) or until 

m=n whichever comes first. In the case r < n, the 
result is the factorization: 



r r r T 
A = P A(P ) ^ 



r T 
(T ) 



r T 



I 







r r 

T V 



I 
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where P is the permutation matrix associated with 
the permutation: 

P''= (r.k )(r-l,k J..(l.k ) 
r r-l 1 

T^ is nonsingular, and we may compute U'^ = 

(T^) "ly'' in the same storage locations occupied by 

V^. An easy calculation shows: 



d. Dependencies among rows and columns 



The basic rows of A are A^ = Ag [I, U ] . The 

nonbasii ^ 

columiiE 

(Ab)1"U. 



nonbasie rows are then U^Aj,. Of course basic 
columns are (Aj))'^, and nonbasie columns are 



e. Systems of equations 



I 




A 
s 







I 


u^~ 


(^V i_ 







0_ 




_0 


I _ 



A^ = 



Where A^ = (T'^)'^T^. We also compute I + (U^) u'' 
and store it in the last n-r rows and columns of 
A, producing the storage scheme: 



Subroutines MFSS and DMFSS may be used to solve 
systems of equations 

AX = R 

with positive semidefinite coefficient matrix A. 
Using the permutation P, this system is transformed 
into the system 



A V = r'^ 



(8) 



U 

r T r 
1+ (U ) U 



where x" = PX and r"^ = PR. li A has rank r=n, 
equation (8) is 



We now operate on I + (U^) U^ in the same way 
that we operated on A. Whenever it is necessary to 
interchange two columns of this matrix, we also 
interchange the same columns of U'^ in the storage 
area. Interchange information is recorded in 
TRAC (r+1) up to TRAC(n). The foregoing proof 
establishes a permutation matrix Q and an (n-r) by 
(n-r) nonsingular upper triangular T^ such that: 

T rTrT rTTrT 

(T^) T^ = Q(I + (U"^) U'^)Q = 1+ (U Q ) (U Q ) 



r r T n-r 

Let T = T , U = U Q and p 



I 



Q 



calculation then gives the final results: 



a"=pap^ = 



T T 

(T ) T = I + U U 
u u 



I 







A 
s 







I 


u 


T 

u 


I_ 















I_ 



An easy 



(6) 



(7) 



n-r r 
where P = P P , The final storage scheme is 



T V 
T 



A X 

s 



R 



-1 -1 -1 T 

which is easily solved since A = T (T ) 

Assuming v <n, the vectors X^, R'^ are partitioned 
as follows: 



X^: 



X, 



x„ 



and R*^ = 



R. 



R, 



where Xj consists of the first r elements of x'^, 
etc. Using the decomposition (6), it is easy to see 
that (8) is equivalent to: 



A^(X^ + UX^) = R^ 



(9) 



0X„ = -U R, + R„ 

2 12 



(By equivalent systems we mean they have the same 
solutions. ) 



= U^i 
has the n-r parameter family of solutions: 



If R2 = U-'^Ri (a compatible system), equation (9) 



X. 



a" R, 

S 1 



UX, 



(10) 



u 



X = arbitrary 



TRAC contains the permutation P in the form of a 

transposition vector (k, ,k„, . . . ,k ). 
12 n 



If R2 7^ U Rj (an incompatible system), it is natural 
to ask for a least-squares solution of (8) , that is a 



2 - 



minimum. 



vector X'l such that Ha'^X'^ - R°|| 

This problem leads to the system of equations: 
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(A°)V = aV (11) 

Given the factorization (6) of A , it is easy to show 
that B" = (a'^)^ admits the factorization: 



b'^ = 



T 
U I 



B 

s 



I U 



I 



where B = A (I+UU ) A . Using this fact, (11) is 
s s s 

equivalent to: 



(12) 



O.X2=O.R2 



which is clearly a compatible system. Therefore 
(12) has the solutions: 



g. Accuracy 

Determining the rank of a matrix on a computer is a 
difficult matter, and it is not claimed that MFSS 
will compute the correct rank in all cases. This is 
an intrinsic difficulty due to the fact that we work 
with finite arithmetic. 

h. Error returns 

Normally IRANK contains the computed rank r. A 
nonpositive value returned in IRANK means: 

IRANK =0 A has no positive diagonal element, 
or |e| a 1. 

IRANK = -1 A nonpositive dimension of A was 
specified. 

IRANK = -2 I + uTu is ill-conditioned and/or 
the relative tolerance € was spec- 
ified incorrectly. 



X^ = B A (R + UR ) - UX 
1 s s 1 ^ 'i 



X = arbitrary 



(13) 



Now the identity (I + UU )~ = I - U(I + U U) U 
shows that it suffices to know (I + U^U)"! in order 
to compute B~l. But by (7): 

T -1 -1 ,^-l.T 

(I + UU) = T (T ) 
^ ' u u 

and Ty~l is easy to compute, since T^ is upper 
triangular. 

f . Solutions of minimal length 

The solutions (10) or (13) contain n-r free param- 
eters Xg, and it is possible to choose them so that 
X"^ has minimal Euclidean length, that is so that 
llx'^ II = min. Some easy calculations show that 
in the compatible case (10), X" is given by: 

T -1 -1 
X, = (I + UU ) A R^ 
I s 1 

T 
X^ = u X^ 

and in the incompatible case (13), a is: 
X = (I + Uu'^)"^a"''"(I + Uu'^)~^(R +UR ) 

i S i ^ 



^2 = U ^ 



se«i 



PPlNli^ 



fF-^S 

►-FSS 
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SURaOUTINc -(fSS 
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USAOF 

CALL MFSS) A.N.EP'i.nANK.TCfl'-) 
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NFS'; 



iir; 
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MF'^S 120 

KFS*^ 130 

MFSS 1*0 

f.FS5 150 

^•FSS lAO 

KFSi ITO 

•*fSS ItfO 

fFSS 190 

fFSS 200 

MfSS 310 

MFSS 220 

MfSS 230 



FPS 

iPfiN"; 



DEFINITE MATRIX STOREi? CQLUMN*.*ISF l^ rOM 

CN PEUFN a CONTAINS THt MATRIX T AND, IF IRANK IS MFSS ?50 

LESS THAN N, THc fiAISICES U ANC TU PFSS 260 

- DIMENSION OF GIVfch MATAIK H KFSS ?T0 

- TESTVALUE FOP ZFBO AFFfCTEO BY ROUNO-CFF NCjISE «F<;r. 2«0 
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MATOIK a IF A li SEMI-CEFINITE MFSS 300 
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AND/Ca tPS IS NDT AtSOLUTCLT LESS THAN ONFMFSS 3?0 



IRANK --1 MEAN* DIt'ENSIi'N N IS NOT PPSITIVE 
IfiA\K =-? MFftNS CaHPLETF FAILUfl-, PP5S!»«tY OUt TO 
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SOURCE INDEX Of THF I-TH PIVOY ^Ow IN IT": I-TH 
LOCATION, IHIS Mffii-S THAT TRAC CONTAINS THE 
PRODUCT SePReSEhTATICN CF THE PF^MUTATIOK WHICH 
IS APPLIED Tfl PPWS AN3 COLUMNS OF A IN' Tt-tMS OF 
TRANSPOSITIONS 

«EMAK<S 
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£0 



METHOD 

THF SOUAi^E -QOI" HETMOO WITH DIAGONAL PivaiINC IS US€D FC« 
CALCULATION Of THE RICHI HAND TRIANGULAR FACTCl. 

IN CJ5E Of AN QSL1 S^V-Cif\HlU MITRIX [HE SmmJl^t 

RET'JRNS THE IRANK X HANK LPf^'i TRI AfUGUL Aii FACTJP T OF A 
SU*^MATDlK OF MAXI.'UL ^fUK, THE ISANK X IN-IFANKt HATFIX U 
ANO THE (N-IRANKI X (N-IRANKI UPPER TRIANCULAB TU SUCH 
THAT TRANSPOSE (TUI»rU=I+TPANSPOS£<UI*U 



SURflOUTINE MFSSt A,N,FPS.i:*ANK,T«AC) 



OIMENSIONFO GUMMY V4CH6LFS 
OIMENSICN Al 1) ,TP«CI I I 
DOUBLE PRtC 15I0N SUM 

TEST OF SPFCIFIEO DIHENSION 
IF(NI 36.36, t 



MFSS 330 
MFSS 340 

MFSS 350 
MFSS 360 
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MFSS ?90 
MFSS 390 
f*FSS *00 
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MFSS *^0 
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KFSS 520 
"FSS 5?0 
MFSS 540 
MFSS ^50 
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F«FSS 3T0 
MFSS 560 
f'^SS 590 
MFSS 600 
MFSS 610 

ms no 

MFSS 610 
VF5S 640 
MFSS 650 
MFSS 660 
MFSS 670 
-MFSS 680 
MFSS 690 
MFSS 700 
MFSS 710 
MFSS 7 20 
MFSS 7 30 
MFSS 740 
MFSS 750 
MFSS 7^0 
MFSS 770 
MFSS 7ao 
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lt4lJ\ALl7t TCI4*.GULAP F«CTns I 7ATI IS 
1 I«AN« = f> 
ISUR=0 
KPIV=0 
J=0 
PI v=o. 



DO 3 



StABC" FIRST PlVOr ELEMENT 



= 1.N 



ALL ROWS rf 4 



TRAC(K 1 -*( J t 
IF(AIJ (-PfV)3, 3,? 

2 prv=Aiji 

ltPiV = K 

3 CCKTIWUE 

START LOOP 
DO 3Z J^l.M 

* KKI=KP!V-[ 



P£f;f:,f'W PARTIAL COLUMN 1 NTEOC-ANGE 
Jt=KSUS-K«I 
IOC=JI-ISUR 
JJ=I'>IJP-1M1 
00 fe K=JJ, ISUR 

KK=K* 'or 
Hr)LD=fl('< ) 

PcHenRi-* PARTlaL COW INTe^CHA\r,t 



HCl.O = fl(*« t 




A(KKJ=fl( Jl) 




t( 1 1 )=Hn ■) 




7 KK=KK*< 




pe^F^?« pshain: 


^;^, iNrtflC 


JJ=KP|V-l 




Il = lSiiP 




DO C K=],JJ 




HOLD=aiin 




A (I I 1 = A ( J I > 




A( JI JsHi.l ■) 




ii = n»K 




p J[=JI.I 




•5 in ISAWK 1 ?2, 10, 10 





C Recede IfyTEi:CN,''NGE I ^ T c fl\ s pr c ] j ( ^y vECTlJf 

IC TRACtKPIVI^TPaCt I) 
TRACd )-KPlV 

C HOOIfV CURRENT pivQT gQw 

PIV=C. 

jj=rsuH-i 

DP IC K=[,N 

SU*l=O.')0 

; BJUn UP SCALAf- P«ODUCT tf ^E(■fcSS/,PV 

iFiKo: !, ij, :i 

11 DO 1.? J = KM[ , JI 

suK^sii"-' (J i«iirj<) 

iZ JK=JK+1 

13 JJ=JJ*K 
IF(K-I( 1 >,. 14, 16 

U SUM=A( ISU=.)*5UM 

TSST RAOICAND FOH LOSS hf SIGMF'CANCE 
IF(S;JM-A'iSl «1 ISUaCEPSI JZO.^0. 15 
15 A( ISU'*l = r)S(3RT(sU'<) 
KPIV=I*1 
GOTO 19 

14 SUK=(A(J'4)*SU''1(/AI ISUS) 
AIJKJ^SUM 

SEARCH FOR NEXT PIVOT ROM 

TFdIJJl 119, 19,17 
17 TRAC(KI=T?t«CtK(-SUM*SUM 

HOLD=TftAC(KJ/A( JJ» 

IF(PIV-HaL')n8.l9,19 
13 PIV=HOIO 

KPTV=K 

19 JK=jj + I0r. 
liOTH 3? 

CALCULATE fiAT-^K OF OePPN^FNt. I ES (.' 
70 IF( ieANK)?l.?U37 
Zl I«ANK=-1 

GOTO ^ 
22 I«aMK=I«l 

ll*ISue-TRANK 

JI = T I 

00 2t: K=l, IRANK 

JI*JI-I 

JK=ISUB-1 

JJ=K-l 

00 26 J=1,N 

IOC=l'»ANK 

SU»=O.DO 

«il=ji 

KK = JK 

IF|JJ|^5,?5,23 

23 OO 2* L=1,JJ 
I0C=I0C~1 

SUM=SUK-«(KMIJ*A(tCK) 
KMI-KMI-IDC 

24 KKsKK-l 

25 41KK)=tSUM + A(KK))/AfKMn 
?6 JK*JK,«J 

CALCULATE l+TRANSPnSE(Ul "U 
JJ"ISU9-I 
PIV=0. 
KK"ISU8-I 
00 ?I K=I,N 
JJ=JJ*K 



MFSS 790 

»^FS5 eoo 

HF?S 810 

KFSS 820 

HFss aio 

fFS5 8A0 

MFSS 650 

MFSS P60 

*1FSS 670 

WFSS 890 

MF?S 8^0 



MFS5 963 
rPS!^ -570 
VFSc <;an 
fFSS 990 
Kpssiono 
^IFSSIOIO 

wF';!;io;r* 

MFSS103T 

MF^SlOAO 
MFSblO50 

"FSSIO^O 

'<F<;^1070 

HFSS1080 
MFSSIC^O 
•IF^-iUOO 
^■FSMllO 
'4F';S112C 
MFSS113C 
MFSSl !<,0 
HFSSI150 

VFSSE 17? 

"FSSll^O 
•'FSS1190 

MFssizn 

«tsS1220 
'*FSS1230 
MFSSlP'tO 

^■P5Sl^50 

Kf SS17&0 
*'FSS1270 

*'FS5l2fliJ 

MFSS1300 
^•FSSl310 
1«FSS1^?0 

HF^^1330 

MrSS135C 
"FSSIJ&O 
HF5S1 370 
MF^$1 390 
MFSSl i9r- 
MFSSl^OO 
MfSSKlO 
•'F551420 
^■FSSIA30 
MFSSU4n 
"■FSSI^SO 

Mf S'Jl^foO 

1FSS14T0 

wFSsi'.eo 

fFSSlAOO 

MFSSl*iO0 
MF?<;i510 

HFSS1530 
MFSSI^'.O 

MFf SISSO 

MfSS1560 
HFSSl^70 
MFSS1580 
HFSS1590 
KFSSltJO 
Mf SS1610 
M'^SS1620 
''F5'il630 
KFSS1640 
MFSS1650 
MFSI1660 
MFSS1670 
1FSyi630 
MF?;ji6<)0 
^FS5170O 
"FSSITIO 
MFSS1720 
MFSS1730 
MF5SI740 
MFSSl 7'-i0 
MFSS1760 
MF^^1770 
MFSSi730 
MFSS1790 
MFSSISOO 
MFS51P10 

MFSsie^o 
Mf SSI e30 

MF5SIR40 
MFSSldSO 

MFSSie70 

t'Fssiaao 
''Fssie'50 

MFJflSOO 

«fSS1910 

HFSS1920 
MFSS19 30 
MFSS1940 
MFSSI950 
MFSS1960 
MFSS1970 
MFSS1980 
H*'<;SI990 

f1FS52000 

MFSS2010 

MFSS202r 

MFSS2C30 

MFSSiO-iO 

*^FSS2050 

iHFSS20SO 

MFSSZ070 



loc-n 

on 28 JsK.** 

SUM=e.DO 

K1I»JJ*I0C 

DC 27 L=II,KK 

JK-L+IOC 
7 SUM=SyM*fl(Ll*A(JKI 

AlKMI | = SUM 
3 lDC=IOf.*J 

AtJJ»=A(JJt+l.OO 

TRAC(K)=A( JJ ) 

SEARCH NtfXT DIAGONAL ELEMFNT 
IF(D1V-A( JJ) 129. 30, 30 
' tCPIV=K 
K.5Ue=JJ 
PIV-A(jj I 

) ri=n+K 

RK=KK*K 
, CONTINUE 

GOTO 4 
! CONTl^tUfc 
I IFI lfiAN<]35, 3*, 55 
> IFANK=N 
• RE-^UPK 

FHRCH ReTyR^S 

RFTU«K IN CASe OF ILLtGAL OrMFNSlUN 
. lRAhK=-l 
RETURN 

INSTAGLE FACTUF IZATION GF I *T RANSPOSE (U) ♦U 
IRANK=-2 
RfTURN 
END 



MF';s20P0 

fFSS2n90 
MFSS210C 
»'FSS?I10 

.HFSS2 1>0 
Mrs<:2l40 
fFSS2150 
MFSS216a 
MF5S2170 
MFSS2180 
FFSS2l"0 
MFSS2200 
^FS^2210 
MF<;S222a 

«=ssr?3o 

»1FSS22*0 
MFSS2?50 
MFS«2?ftO 
MFSS2270 
HFSS22R0 
fFSS2290 
•^F5S2300 
HFSS231Q 
»"FSS2120 
MFSS2330 
HFSS234C 
MFSS2350 
fFSS2360 
MfSS2370 
KFS'S2390 
MFS^23''0 
HFSS24t>0 
HF5S241C 
MFSS2420 
MFS??4?0 



SUBROUTINE OMFSS 



DHSS 
OMSS 
DMSS 
OMSS 
OHSS 
DMSS 
PMFSS WILL OMSS 
OHSS 



PURPOSE 

GIVEN A SYMMETRIC POSITIVE SEHI DEFINITE MflTRI 

(II OETEHMENE THC HANK AND LrNCARLY INDEPENDENT ROWS AND 

COLUMNS 

(2) FACTOR A SYMMtTftIC SU8MATRIX Of MAXIMAL RANK 
(31 eXPBESS NCNBASIC ROWS IN TERMS OF BASIC ONES, 

EXPRESS NQNSASIC COLUMNS IN TERMS OF BASIC ONES 
EXPRESS BASIC VARUBteS IN TERMS OF fRfcE CNfS 
SU3^nuTtNE DMf55 MAY BE USEO AS A PREPARATORY STEP FOR THE 
CACCU1.ATI0^ OF THF L^aST S^U^RfcS SOLUTION riF K1MM*L 
LENGTH OF A SYSTEM OF LINEAR EQUATIONS WITH f.YMMEfPIC 
POSITIVE SEMl-CEFiNITE COEFFICIENT MATRIK 

USAGE 

CALL DMFSSl A,N.EPS, IRANK,rRAC 1 



70 



DHSS 90 
OMSS 100 
DHSS 110 
OMSS 120 
OMSS 130 
DHSS 140 
DMSS 150 
OfSi 160 
OMSS 170 
OMSS 180 
DMSS 190 
DMS*; 200 
DMSS 210 
OMSS 220 
OMSS 230 



DESCRIPTION PF PARAMETERS 

A - UPP?R TPIAMCUCaR PART 0= GIVEN SYMMETRIC SEMI- 

DEFINITE MATRIX STORED COLUMNWISE IN COMPRESSED FORMOMSS 240 
ON RETURN A CONTAINS THC MATRIX T AND, IF IBANK IS OMSS 2*;o 
LESS THAN N, THE MATRICES U AND TU 
A MUST RE UF DGUSLE PRECISION 

N - DIMENSION Of GIVEN MATSIX A 

t-S - TESIV4LUE FOR 2ERC AF-cCTf^O 3V ROUND-OFF NOIS*^ 

IPANK - RESULTANT VARIABLE, CONTAINING THE RANK Of GIVEN 
MATRIX A IF A IS SEMI-OEFINITE 
IRaNK = MEANS A HAS NO POSITIVE OliGDNAL ELEMENT 



0MS5 260 

DMSS 2 70 

DMSS 210 

OMSS 290 

OMSS 300 

OHSS 310 

DMSS 320 



AND/OR EPS IS MOT ABSOLUTELY LESS THAN ONEOMSS 330 



IftANK =-l MEANS DIMENSION N IS NOT POSITIVE 
IRANK =-2 MEANS COMPLETE FAILURE, POSSISIY DUE TO 
INAO^OUATF RELATIVE TOLERANCF EPS 
TCAC - VECTOR OF DIMENSION N CONTAINING THE 

SQURCc iNDtX OF THE I-TH PIVOT ROW IN ITS 1-TH 

LOCATION, THIS MtANS THAT TRAC CONTAINS THE 

PRODUCT REPRESENTATION OF THE PERMUTATION WHICH 

IS APPLIED TO otlHS AND COLUMNS OF A IN TERMS OF 

TRANSPOSITIONS 

TRAC MUST 6E OF OCIItiL E PRECISION 

fiEMARKS 

tPS MUST ee ABSOLUTELY LESS THAN ONE. A SENSIBLE VALUE IS 

SJMffMHERE IN BcTWEtN 10««(-4» AND 10**t-6l 

THE ABSOLUTE VALUE, OF INPUT PARAMETER EPS IS USED AS 

RELATIVE TOLERANCE. 

IN tiFOER IC P5ESEPVF SYMMFT-Y JNLY PIVOTING ALCNG THE 

DIAGONAL IS BUILT IN. 

ALL PIvrTELE^ENTS "UST Bt\ ^RJATEP THAN THE ABSOLUTE VALUE 

OF EPS TIMES ORIGINAL DIAjONAL ELIfHENT 

OTHE^HISt THEV i-f TCEftTED AS IF THEV WERE 7C-F0 

MATRIX A k.:MAI,ijS U.-.CHANGE9 li' THE RESULTANT VALUE IRANK 

e^UALS 7ER0 

SUgaifJTINfS fiNP FUNCTION SU6PRn.;«iMS -JFOUIREO 
N'lN? 

MFTHT) 

Inc S1UAR€ ^pgr ICTHOD wITm iiaGOfjAL PIVOTING IS USED FCR 

CSLCJL.iT" iriN nF the -IOHT HAWJ '^lANiJJLAC FACTf-;;. 

Ifj r*SF OF a^ tJNLY S^Hl-DEfrjITE ^ATrtlX TH-^ '^UPROUTlNf 
R^TU^NS THf ^«A^^ y, I^Ank UPP' X TRIANCULAR FACTOR T Of A 

SUBMSTWTX rf MAXIMAL i^A,JK, TH- I H ANK X IN-IRANK) MATRIX U 

AND THr IW-IRANK) X (N-IKAViO -JPPrR ^filAN&LLa' TU 'iUCH 
mi J'^mmf.iJ-Jl'^lihlilQiKyiiiUUitU 



DMSS 340 
DCSS 350 
DMSS 360 
DMSS 370 
DMSS 330 
OMSS ?90 
OMSS «^00 
CMSS 410 
OMSS 4?f> 
DMSS 430 
DMSS 440 
DMSS 450 
DMSS 460 
DMSS ^'0 
OMSS 480 
DMSS <.90 
OMSS 500 
DMSS filO 
D.'ISS 520 
OMSS 530 
P«SS 540 
DMSS ■i50 
OMSS S'.O 
O-'SS 5'0 
D'(<;^. 5flO 
D.'ISS '^90 
L"1SS 600 



DMSS '.iO 
D^SS t50 
DMSS (.60 
0'*5S 670 

t^SS bf.Ci 



.C<1SS 



700 



SUa^nuTISE OHF^SI a,N»EPS,|BANH,T=Ar) 



OIHEvSinNLO Cll^,KY VAR.'AflLES 
OIMENSIOV Al 1),T£4C( II 
OOUBLE PRE'"1S10N SUM, A, TkiC ,P I V. HOLO 

TEST "ir SOfCIHED DIMtNSION 
IFIN J3A, 36, I 

INHIALIZE IR!ANGUCaR F AC! OR I / A T ; QN 
IBANK=rj 

ISU6=0 



CSS. 710 
DMSS 7?0 

[;^'ss 730 
r^'ss 740 

OMSS T-'O 
D.'ISS 760 
DMSS 770 
DMSS 7.30 

D^";s 700 

DHSS flOO 
OMS^ 610 
Cf^SS S20 
OMSS 810 
OMSS 840 
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J=0 








PIV=O.DC 








^fA^CH ^IX^- 


;t 


PIVOT ! 


IL-^i^FM" 


00 3 ^. = l.N 








J = J*K 








TRAC(K)^A( J) 








IF(4(J J-PIV ) 3. 


?i 


/ 




PIV-fl( Jl 








KSUB=J 








KPIV-K 








CONTI''(?F 








STAf-I LCCP 


C\ 


ER ALL 


POWS OF 1 


00 3? 1=1, M 








isue=i<^ur^*i 








IMI^I-'. 








KMI=KPlV-r 








IF(K*ri 135, c, 5 









Sf^fC"* PARTfAL COLU^f^ jN'ftRCHA\ ;;. 
'. J1=KSU?-<'*I 

JJ=ISU5-l*n 
DO 6 K = JJ. I 'St'^ 

holo=mk ( 

t dlKM ='*r.Lfi 



-■■1 ?^,J^ I PL PGw 



INTFTHfiNv'.t. 





00 7 K=KPIV, 


,N 














1 1 =K(( -■<.•' 1 
















HOLC = ft<K»' 1 
















fl(KK) = £l I I 1 
















fl( i I ) = ''OL 1 














7 


KK = KK»-K 
















pfpr[:'^■ ' 


>F^■/llf.'I^■t; 


INI 


■^■.-HANf-E 






JJ=KPItf-l 
















If = 1bl'^ 
















DO t rt^I,JJ 
















Han'-/'( 1 T ) 
















fl ( M ) = A 1 J 1 1 
















A( Jl l-nr L-^ 
















U = I I + K 














P 


JI=Jltl 














° 


IFUKrtNK !(■?, 


, I';. I" 














kfC'-eL ifjT:or.Ha\c^ 


: u 


rtfi"' 


cprsi T 1 


10 


TRaC [kPI wi=: 


tRACI 1 i 














t':ac( t ) = •■ ^:v 














M^-^JtV Ci 


Jk-=\T 1 


■ I'/rj 


■<nu 








KK-IMl-IUfi\K 














K-i^rsu-^-^" 
















P[Vr<..fjO 
















(CC^IHANKt 1 
















Jf ^ISMR-l 
















JK=KKI 
















JJ^ISU'-l 
















OC IS K=[.N 
















SlI-'-O.DO 
















PUlLC U'^ 


SCALfiP 


PROUrl IF 


N"^ 


r( Si 




IFUKlU. I J 


. 11 












11 


DC U- J = Kf^T 


.J! 












12 
I! 


J<.JR*1 


..,. 












1* 


SIJW^-VdStHI' 


4uM 













TfcST <<ftOl'"uN? FOfl LCSS uf SIGN1KICAMC5 
lF(SU*<-(;4)Sf A( ISUei'OSLtlE^^l I ) 20, 2,% 15 
IS At iSUbl = OSJ*<T( SU"! 
KPlv=l*l 

GOTn r-; 

It SlJ«=(fi( J1C)*SUM1/A( I SUPl 

SFi^CM Ftic •JfJ'T PIVil» BQV 
IF(AUJ) ll<;. l'3,l T 

17 T«Atl^l=f■^AC(^J-su^'•suH 

MOLD^THfiC in I /MJJ I 
IF{PIV-H'JL?) te.i«. l^J 

ly Piv=HrLn 

KPI V = K 

K5Ue=JJ 

GOTO 3? 

CCLCllLATt H4TR1X 0*- OtPENOfhCKS U 
?0 IK It'aNX 121,?1 . 37 
.--l IRANK = -1 

2? I«ANK=IV.l 

JI = I I 

00 2t <-\,l°tf-tK 
JI=JI-1 

JK=ISU9-1 



JJ = 



-1 



O'l Z ') J ^ ! . N 
I0C= I"^^;^; 

K*11 = JI 

KK = JK 

?3 00 ?i L=1.JJ 
1DC= TOC-l 
SUM=SUM-ft(KHl )«A(K»( ) 

?(, KKi<K-l 

?5 AIKKI =(SfJ'<«A tKK I I/AIKMI) 
26 JK=JK.J 

CALCULITF I*IfiANSPOSt(UI«U 
JJ=ISUS- [ 
PIV=0.00 
KK=(SUB-I 
^0 31 K=I,N 
JJ=JJ*K 
IDC = 

00 26 J=<.N 
SUM=0.00 
KMI=JJ*10C 



OMSS 850 
P-flSS dfeO 
D'-SS rt70 

OMSS aflo 

OMSS Rqo 

orss 'jno 

O-^SS 110 

DMSS J20 

IMS'; «*o 

OMSS 9^0 

O'^SS 960 

0MS5 -JTO 

OMSS "JIO 

0''S^1030 
DMSS1030 

o.-ssioso 
O'-ssio'jn 

Ol-.^l 110 

oiiSL iin 

f>-issirio 
n-issi 1^0 

DMSM l-'iCl 
OMSSl I'.O 
PMSSl ) TO 
D'-SSl lr.1 

EMSS1>')') 

0M5';i?n 
r«ss) ^iFT 

^MSSW^■^ 

C«SS1?70 
C"^SSU'=in 

C'1SSI330 
SMSSl l^-O 
D"SSli50 
tT^SSl ?60 

D-'SSl ^'lO 
fJMSSl ^fJO 
DMS'^l'.OO 
D*'S5,l''n 

[l'-!SS1^13 

D-'SSl'.SO 

o"S';i-.on 

r).*SSH70 

c-ssi-.m 

0y*;':i5i0 
CI''S:il51:) 

01SS153O 

DMS^l'i'iO 
DMSS1^60 
3-1!:Sl ^70 
OMSSl'JTiQ 



1M'iSl6^0 

'"^Sl-s U'» 

n-^ssi6HT 

C^SSKj^O 
D'^SSliSO 
O'-SSlbTO 
CSSl'v-JJ 
D^SSlft-SO 
O^SSITOO 
0«SS17I0 

OMS<;i7>o 

O-'SSlTiO 
C^SSIT^O 
0MSS1750 
t-MSSl 760 
C*«SS1 77G 
0VSS1730 
D«SSl 7''0 
D»^SS1800 

CIMSS1330 

n-ssi fl«>o 

OMSSlfi'jO 
M s S I a 7 .1 
D-^SblPffO 

D-^SS 1931.1 
OMSSliin 
OM<;siq?0^ 
D'^SS1<»*0 
D-^S^lOiO 

CMSS1960 
0-'S!;i970 

PMSS2000 
D-'SS^OIO 

DMS';7n'0 
0''!;S20}0 
DMSS2Q'.0 

0'^SS^060 
0WSS2n^0 

QMS 1^2010 

oMssao^o 

OMSS2100 
n*i?s2 1 10 
D»(SS2120 
DMSS2 1 »0 



00 27 L = ! I,KK 
JK = L*irjC 
2 7 SUM=SUM*A<L I ♦*( J< I 
!l)KM )=SUM 

;'^ iDC=ioc*j 

fl( jjl=a< jjJ + 1.00 
T«AC(K) = A( JJl 

SEARCH titXT OIACUNAL fcLE-ltNT 
IF1P[V-AIJJ1 129,30,30 

29 it^lV^K 
KSUP=JJ 

ofV^'^UJ) 

^0 II=II»« 

31 CONTINU'= 

cnTp A 

i? C'JNTIMUC 

33 IF| IhANK ) iS, ?'.. ib 

3 6 RFTUKfJ 



t"Bi 



Ch ,tEtU«N5 

IIKN IN C.b'if. OF ILLFC 



RETUriN 

[NSTAHLE FACTOR IZA1 ION PF 1 -T kAfJ SPC iE ) U » «U 
>7 ICiNK=-;^ 

KETU'JN 
END 



n«ss?i*>Ei 
nt'^s.'i^o 

n-HSsMKo 

OMSS'l-^O 
C*'S = 22'Vi 
0MSi:!2 10 
DMS?.V?0 



DH<;t 



>/.0 



ry*^s??7o 

D-i'^.S22'?0 
RMS';,' il.' 



r)MSS2i'30 
0«SS,'AIO 

frHS<;?A?o 
crtss.^'i ^a 

DMSS^'.'-O 

0MS*;?*.50 



Mathematics— Linear Equations 157 



Subroutines MFSD and DMFSD 

These subroutines will compute a triangular factor- 
ization of a symmetric positive definite matrix using 
the square root method of Cholesky, 

1. Mathematical background 

Given an n by n symmetric positive definite matrix 
A, we compute an upper triangular matrix R such 

that 

T 
A = R R 



The elements r of R are computed using the fol- 



lowing recursive formulas: 



^Ik = V^U 



J-1 



r, = (l/r..)(a. -X) r..r., ) 
Jk ]] jk ^ 1] ik' 



k=l, 2, 3, .... n 



j=2, 3 n 

k=j, j+1, ... , n 
/ n \„ 



Note: The determinant of A is det(A) =( TT r 1 

— \i=i 7 



2. Programming considerations 

The given matrix A is assumed stored columnwise 
in compressed form, that is upper triangular part 
only. MFSD stores the solution R in the same loca- 
tions as A. 

2 
If any calculated radicand rj^ (k= 1, 2, . . . , n) is 

not positive, further calculation is bypassed, and 
the error parameter lER is set to -1. This means 
that A is not positive definite, possibly due to 
roundoff errors. EER is also set to -1 if the input 
parameter n is less than 1. 

Let all radicands be positive and let rj^j^ be the 
first radicand which is no longer greater than the 
internal tolerance TOL =|EPS aj^,^| . The subroutine 
then gives the warning lER = k-1; however, 
calculation is continued. The warning indicates 
that there may be loss of significance at factor- 
ization step k due to loss of significant digits in the 
2 



calculation of r. 



kk 







MFSD 10 
...MFSD 20 




SU6flOUTIN€ NfSO 


MFSD 30 
MFSD 40 


PURf'OSE 


MFSO 50 
MFSO 60 




FACTOR A GIVEN SYMHETHIC POSITIVE OtflNITE NATHlX 


MFSD 70 






"Fso ao 




US4GE 


MFSD QO 




CALL HFSO<A,N,EPS.IEft) 


MFSO 100 


OESCaiPTION OF PAItAMETER<; 


MFSO 110 
MFSO 120 




A - OPPew IRIANCULAd PART Of THE GIVEN SYMMETRIC 


MFSO 130 




POSITIVE DEFINITE H lY N COEFFICIENT HaTAIX. 


MFSD 140 




■}N R£TU4N A CONTAINS THc RESULTANT UPPtR 


MFSD ISO 




TRIANGULA1 MATRIX. 


MFSO 160 




N - THE NUMAtB Of «OWS tCOLUMNSI IN GIVEN MATRIX. 


MFSO 170 




EPS - AN INPUr CONSTANT WHICH IS USED AS RELATIVE 


MFSC HO 




TOLERANCE FOR TEST 3N LPSS OF SIGNIFICANCE. 


MfSO 190 




lEB - RESULTING ERROR PARAMETER CODED AS FOLLOWS 


MFSO iOO 




IEP-0 - NG EaoCP 


MFSO 210 




IER=-l - NO RESULT BECAUSE OF WRONG INPUT PARAME- 


■ MFSO 220 




TER N on BECAUSE SOME RAOICANO IS NON- 


MFSD 2 30 




POSITIVE IMATRIX A IS NOT POSITIVE 


NFSD 240 




DEFINITE. PTSSI9LY OuE TO LOSS OF SIGNI- 


■ MFSO 2'iO 




FICANCE! 


MFSO 2&0 




I£R«R - MARNING KHICM INOICATES LOSS OF SIGNIFI- 


MFSO 270 




CANCE. THE RAOICANO FOR)4EO AT FACTPRIZA- 


MFSO 260 




TION STEP K*l WAS STiLt POSITIVE BUT NO 


MfSO 290 




LONCEP GRFAT-^R THAN ABSI cPS*AU*l,R*l 11 . 


MFSO SOO 






MfSO 310 




REHAR<S 


MfSO 320 




THE UPPER TRIANG'JLAR PART OF GIVEN HATRIK IS ASSUMED TQ 9£ 


MFSD 310 




STORED COLUMNWISE IN N»tN*tl/* SUCCESSlVt STO'SAGF LOC AT IONS. MFSD ^*3 




IN THE StKE STORAGE LOCATICNS TM= RESULTING UPPER IRIANGU- 


MFSD ISO 




L»a MATRIX IS STORED CCLUM.NWISE TOO. 


MFSO S'.O 




THE PanCEDiIRE CIVES RESULTS IF H IS CREATED THAN *N0 ALL 


MFSO 370 




CALCULATED RADICANOS APE POSITIVE. 


MFSO 360 




THE PRODUCT CF RETURN6Q OIAGOXIL Tc-<^S IS E3UAL TU THE 


MFSD 3<»0 




SOUARE-^DCT OF THE DETERMINANT OF THt GIVFN «AHi|X, 


KFSn *O0 






MFSD -«.10 




SUBROUTINES AND FUNCTION SUBPRDGKA/iS REJJIRcO 


MFSD 430 




NONE 


Mfsn '.»o 






MFSO 440 




METHOD 


MFSO 4S0 




SOLUTION IS DONE USING THE SQUAKd-R^JOT METHOr) 0*^ ChOLESKV, 


Mrsp <.50 




^HE Giver, .H4TSIX IS SEPPESCNTED AS PtOOUCT OF IwO T"; 1 ANGULARMFSO fcTO 




HATHICcS, hMERE The LEt=T HANJ rACTQR IS Trifc Tq«NSPQSE OF 


wFSD 460 




THE RETURNED RIGHT HAND FACTOR. 


Mfsn ".90 






MFSO ^30 






MfSn 5?0 




SUSBOUIINE MFSD(A,\,EPS,IER! 


MFSO S10 






MPS':: 540 






MCSn 550 




DIMENSION At 1) 


MFSO 560 




DOUBLE ^'ECISION 0PIV,3SUM 


M<=S!' STO 






«FSD 5 30 




TEST 'N iiRCNG INPUT PARflXEItP N 


MfSO 590 




IF(N-1J 1?,1,1 


MFSD 610 


1 


IEB-0 


MFSO &10 






MFSO e?o 




INITIALIZE ClAr,CNAL-LO0P 


MfSO 630 




KPIV-0 


«FSD 640 




DO U K=l,N 


■4FS0 6^0 




KPIV-KPIV.tC 


MFSO 660 




INO«KPIV 


MfSD 670 




LEN0=K-1 


MFS:^ 610 


c 




M'SO 690 


c 


CALCULAIE TOLERANCE 


M^SO TOO 




T0L'=A5S(EPS*AIKPIV)I 


MFSO 710 


c 




MFSD 720 


c 


START FACTOfitZATIOh-LOOP CVER K-th BCii 


MF?2 730 




DO 11 l=K,N 


MFSS 740 




DSUM^O.OO 


MFSO 7S0 




IFILENOI 2,4,2 


MFSO 760 


c 




MF50 770 


c 


STABT INNER LOOP 


KFSO 740 


2 


DO 1 L=1,L£N0 


MFSC 790 




LANF"KI>IV-L 


MFSD ftOO 




LIND=INO-L 


KF5C 110 


1 


OSUM^tDSUMtDPLeUILANFMAlLlNOt 1 


KFSO 820 


c 


FNO Of INNE* LOOP 


HFSO B^O 


c 




MFSO 840 


c 


TRANSFOR?" ELcMENT A( INO) 


MFSO 850 


« 


OSUM-DSLE< A( IND) l-OSUM 


MFSO 660 




IFII*KI 10.^.10 


MFSO 870 


c 




MFSC 680 


c 


TEST FOR NEflATIVE PIVOT ELEMENT AND FOR LOSS PF SIGNIFICANCE 


MFSC eto 


5 


If 1S.\GLIOSUM)-TOL) 6,6,<3 


MFSD 900 


6 


IFfDSU"*! 12,12,7 


MFSO 910 


T 


IFIIERI S.d,<) 


MFSD 9?0 


8 


lER'R-l 


MFSD 9^0 


C 




MFSC 940 


C 


COMPUTE PIVOf ELEMENT 


♦-FfP 950 


q 


DPIV'DSOfiTfOSUMl 


MfSO 960 




A(!CPIV>>OPI V 


MFSD 970 




CPIV-I.CO/DPIV 


MFSD 9«(0 




GO TO 11 


MFSD 99C 


c 




MFSOIOOO 


c 


CALCULATE TERMS IN ROW 


MFSCIOIO 


10 


A1IND)<0SU1*Di>IV 


MFS01020 


11 


IND=1M0*I 


MFSDIOIO 


c 




MFSD1040 


c 


ENO OF Q1AG0N4L-L00P 


MF5D1050 




RETURN 


MFS01050 


12 


IER=-l 


MfSD1070 




RETURN 


M«^S01010 




END 


M=S01090 
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SU9RDUT1NE DMFSD 

FtCID^ * GIVFN SV««£TRIC POSUIVE CEFINITt KhTKK > 

USAGE 

C»LL WFSOld.S.fS.ieBI 

OESCRlPTim OF PAftANFTERS 

A - OOUPLE PRECISION UFPE<1 fRIANGULAR PART PF GIVEN 

Srn¥fT9lC POSITIVE OEFIMTE N IT N CnEFFICIENT 
MATFIK. 

UN RETl/'^N A r.ONTftlNS THE ^ESUtTAMr t^PER 
TfllAKGULAft M4THIX IN DOUBLE PHtCISICM. 
N - THE NUfBER OF KOKS (COLUMNSl IN GIVEN "ATRIX. 

EPS - SINGLE "-ECISIOK IKP'JT CONSTANT yHICM IS U!EO 

AS RtLATIVF TCLEaAKCE *-0K TCST CiN LOSS Cf 
Sir-NIF|CANC£. 
ie« - RESULTING ERRnS PARAMETER CCDEO AS FCLLCmS 

lE"t-0 - NO E»RCK 

I?«> = -1 - NO PESOIT SECAJSE UF hRQNG lKt>UT PARAHE- 
TER N CR BECAUSE SO'it RACTCANH IS NCN- 
iTSIIIVE IMATRIX A IS NHT P'"SrTlVt 
DtFIMTF, POSSISLY DUE '^Q IRSS OF SIC«1- 
FICANCFl 
1^R*< - riAHMNG WHICH INDICATES LOSS 0^ SIGNIFI- 
CANCE. THE KAOICAND FHRNED AT FtCTSRIZA- 
TION STEi» K*l WAS SriLL POSITIVE EuT NO 
LQNGtft CS€»Tns THAN ASSI EpS*A I K» 1 .K* 1 ) t . 

REMARKS 

THE UPPEt TRIANGULAR PART OF GIVE*! t»AT«lX IS «SSUH£D TO RE 
STORED CCILUPNMISE IN N«IN*ll/2 SUCCESSIVE ST35«GE LDCftTIONS. 
If. TH? S'ff STOPAGF_ LOCATIONS THE RESULTING 'JPP^R TRIANGU- 
LAR MATRIX IS STORED COLUMMhISf TOO. 

THE PftCCFDURE GIVES RESULTS IF N IS GREATER. TH4N AND ALL 
CALCULATED RAOICANOS ARE POSITIVE. 

THE PFODUC OF PETU^NEP DIAGONAL TfPHS IS ECUAL TO TrtE 
SQUARf-ROOT OF TH5 OEIfRMINANT TF THE GIVEN t*ATeiK, 

SUBROUTINES AND FJNf.TION SUBPPOGHAHS REQUIRED 

SCfiF 

KfTMCD 

SOLUTION IS nCNe USli-O int SCU-RE-BOOT HGTHOO CF CmQLFSKY. 
THE GIVIH -lATRix IS REPRFSENTtP AS P<;OOLICT CF TWO Tfi [ A^jGULAfi 
NITPIfCS. *HEFE THE LEFT HJ:Nf> FACTOR IS THE TRANSPOSE OF 
THE. nETU=iN£5 RIGHT HANU FACT3S. 



SUBRDUTINfe J'^'=SD)AtN,EPS, 



ONSO 


10 


. 01S0 


?0 


0HSD 


10 


0«S0 


40 


DISO 


■io 


'>'<Sf) 


6a 


DfISC 


'0 


DNSD 


no 


0"<S0 


90 


D^^O 


lao 


O'tSO 


110 


0»(S0 


123 


OHSO 


ISO 


DHSO 


1*0 


ONSC 


150 


0«SD 


160 


D'^SD 


wo 


D1SD 


HO 


OMSC 


190 


OMSO 


200 


0*<SD 


210 


D^sn 


??0 


U-^SO 


z^o 


UlSl) 


24-) 


CMS3 


250 


OMSO 


i&o 


DffSD 


^TO 


D«50 


z»o 


D«SO 


??n 


DMSO 


300 


D«SD 


310 


OMSO 


3!0 


OHSP 


3 30 


D*«ST1 


3*^0 


OMSD 


?50 


.OHSC 


3AC 


CSO 


370 


Df«r 


'BO 


D-SP 


390 


DH5D 


•■00 


O'-sn 


410 


OMsn 


420 


C«SD 


*3? 


OMSD 


440 


OMsn 


450 


DFSD 


<i60 


Dt'SO 


4 TO 


CHSO 


490 


iOfsr 


400 


OMSC 


soo 


D-SP 


510 


OHSf 


5?0 


, [)«SD 


530 


o^sc 


540 


OHsn 


550 


CSD 


560 



DlHENSIOn Al 1) 

OOUSLE P'"*=CISICN OOIVtO^UHtA 

TEST CK WROHr. INPUT PAR*?«tT£R N 
IF IN- II I?, 1,1 

1 l€R«0 ' 

INITIALIZE nt Ar.ONAL-LOOP 
KPIVO 

00 11 K<^1.N 
llPIV-KPIV** 
!NO«'<PIV 
L€N0«K-1 

CM.CULATF TGLfPANCE 
TCL'AQSfdfS'SNGLtAlK^lVl) I 

STA^T F»cnAI?*TION-LaOP OVER K-TH itau 
DO 11 I-K.N 
OSON-O.OO 
IFCLENOt ?,4,2 

START INNER LOOP 

2 00 3 L-l.LENO 
lANF-llPIVH. 
LIND*INC-L 

? DSUf*-0SUK«AUANF)««(LlN'7l 
ENO TF INNEf LOOP 

TRANSF3RM ELEMENT AIIND) 
* OSUH.A(INCI-OSUM 
IFII-Kl lO.S.lO 

TEST FOR NEGATIVE PIVOT ELEMENT AND FOR LOSS OF SICNIFICANCE 
5 [F<SNGL(J5U<<)-rrL} «.6.9 
« IF<OSUni 12.12,7 
7 IFtIE«) 8,8.9 
a IFH-R-l 

COfPUTE PIVOT ELEMENT 
9 I>PIV-0SOftT(0SUMl 
A<KPIVI-DPIV 
CPIV-l.CO/DPIV 
GO T'* U 

CALCULATE TERMS IN ROW 

10 »(INOI»OSUM*OPIV 

11 IMD*INO«l 

END OF Dl AGONAL-LDDP 

RETURN 

12 IER--1 

RETURN 
END 



OMSC 5 70 

DMSP 5P0 

OMSO 59C 

D*(SO 600 

D*SO 610 

OMSO 620 

DMSC 69C 

OfSD 640 

Ors*^ 650 

DMSO 660 

O-^SO <-T0 

OMSO 6fl0 

D'-SP 690 

DMSO 700 

DMSO 710 

DMSO 720 

O.^SO 7»0 

DHSO 740 

OMSO 7S0 

OMSO 7«>0 

D«*SO 770 

DMSO TSO 

OMSD 790 

D-SD SOO 

Ot'SD «10 

OfSO t)ZO 

CSD 830 

0M?0 f«0 

o*«so «so 

DMSO 660 

PMSO STO 

OM5 sao 

OMSD 90 
DMSO 900 
OMSD 910 
DMSO 920 
DMSD 910 
DHSO 940 
PMSO 950 
D1S0 960 
OMSD 9 TO 
DMSD 9P0 
CMSC 990 
D««S01000 
OMSOIOIO 
OMS01020 
DMSDI030 
0MSD1040 
O-^SOIOSO 
OM50I060 
OMSOIOTO 

onsoioeo 

0MSD1090 
OMSDllOO 
DMSOlllO 
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Subroutines LLSQ and DLLSQ 

These subroutines obtain the solution of linear least - 
squares problems. Consider a real m by rf matrix A 
of rank n (m > n) with elements aik (i = 1,2, , , . ,m; 
k = 1 , 2 , — , n) and 1 right-hand side column vectors 

Bj (j = 1 , 2 1) of dimension m , written as an m 

by 1 right-hand side matrix B with elements bjj^^ 

(i = l,2,..,,m;k = l,2 1). The problem is to 

determine 1 column vectors Xj (j = 1 , 2 , , . . , 1) of 
dimension n — written as an n by 1 matrix X with 
elements x^]^ (i = 1,2,..., n; k= 1,2,...,1)— such 
that: 



'^11 "^12 • • • ^11\ 



^21 ^^22 ••• ^21 



X X ... X , 
nl n2 nl / 



^^11 ^12 ••• "^IV 



r„. r 



21 "^22 ■ • • ^21 \ (5) 



^31 ^32 ••• ^31 



\r r . r 

, ml m2 ml/ 



||B. -A*X.|| =min. (j = l,2,...,l) (1) 

where |) R|| indicates the Euclidean norm of any col- 
umn vector R with elements r^ (i = 1,2, . . , , m); that 
is: 



l|R| 



V 



i=l 



r. 



(2) 



the orthogonal transformation matrix Q is determined 
so that matrix A Is transformed to upper triangular 
form; that is, all elements a^j^^ with i > k are trans- 
formed to zero. An effective way to realize this de- 
composition is via Householder transformations. 
The algorithm is a recursive n-step procedure de- 
fined by the following recursion formulas: 



A<1) =A 



(6) 



In the special case m = n, solution of the linear 
least-squares problem means solution of the system 
of sim.ultaneous linear equations: 



A * X = B 



(3) 



Solution of the given problem is based on the well 
known principle that transformation of any column 
vector R by an orthogonal matrix Q does not change 
its norm IIRII ; that is: 



IQ * Rll 



IIRII 



(4) 



A(k+1) ^ p(k) , ^(k) 



(k= l,2,...,n) (7) 



In order to get an upper triangular matrix A^'^"^^, 
every matrix p(k) (k = 1,2, ... ,n) should be defined 
so that it is symmetric and orthogonal, and so that it 
transforms all elements of the kth column of A^k) be- 
low the main diagonal to zero. All these restrictions 
to P(k) are satisfied, setting: 



P<'^) = I - /3, * U^'^) * U^'^) 



(8) 



Writing the given problem in the following form: ^ 



with 



'\l \z 



\l ^22 



^31 ^^32 



3 -, b 
ml m2 




'^ll 


\2 


^21 


^22 


"31 


"32 



a , a „ 
ml m2 



• a. 



• a„ 



3n 



. a 



mn/ 



and 



^k (^k ^ ^kk) 



m 



,i^) 



i=k 



(9) 



JE ^k^ ""'^M (^^'^ 

f (k) ^ 
fora;^'<o 
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^^^^(I/t^ *^® identity matrix. All other elements of matrix A(k) do not change. 

U^ ' denotes the transpose of column vector u(k), Naturally, the same transformation is performed 
the m components of which are defined as follows: matrix B. 



on 



(k) 
u. ' = 

1 


for i < k 


(k) 
"k - 


<^k^ 


^ 


1 


ik 


for i > k 



Neither matrices P^'^) (k = 1 2, ... ,n) nor matrix 
Q = p(n) * p(n-l) * _ _ * p(l) are computed explicitly 
since from (7) and (8): 





Using (6) and (7): 




(11) 


B<^) = B 


(22) 


(12) 


B(k-l) = p(k) * B^"^) (k = 1.2..., 


..n) (23) 


(13) 


Usii^ (8) and (23): 






g(k+l) ^ g(k) _ ^(k) , 2(k)T 


(24) 


itly, 


with 





^(k+1) ^ ^(k) _ ^(k) ^ Y(k)T 



(14) 



z(k)T ^ ^ ^(k)T , g(k) 

k 



(25) 



with 



y(^)T ^(k)T ^ ^(k) 

k 



(15) 



Writing the components of row vector Y(k)^explieitly: 



or explicitly 
b' 



(k+1) _ b^ _ ^(k) . ^(k) 

•^ •' i = l,2,...,m) (26) 



with 



yf^^ = for j < k 



.« . X 



J ^ k ^^ 1 1] •' 

i=k 



(16) 
(17) 

(18) 



Using (14), (16), (17), and (18), the explicit transfor- 
mation formulas for matrix A^k) appear as follows: 



(k+1) 

4k - -"i 



^ik^^^ =0 (i= k + 1, k+2,...,m) 



iJ ij i ■'j 

(j=k + l,k+2 n and 

for fixed j, i = k, k + 1 m) 



(19) 
(20) 



(21) 



J '^k 2^ 1 13 

i=k 



(j =1,2,...,1) (27) 



In order to keep roundoff errors as small as pos- 
sible, column interchar^e is performed in such a 
way that, at the k*^ stage, the column of A^k) is 
chosen to be reduced next, which will maximize 
h&^ 1 . Using (19) and (10), the index of this col- 
umn is determined by giving the maximum overall j 
of: 



,(k) 



m 



.(k),2 



J2 H ) a = k, k+1,, 

i=k 



.n) (28) 



After A^k+l) has been computed, it is possible to 

compute s^^-^^ as follows: 



(k+1) _ (k) (k+1) ^2 



= s 



'j " Kj > a = k+l, k+2,...,n) (29) 
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since the orthogonal transformations leave the col- 
umn lengths Invariant. 

After having computed matrices A^'*^^) (upper 
triangular matrix) and B(n+1), the computation of the 
n by 1 solution matrix X is performed by back sub- 
stitution according to the following formulas: 



X , = 
ni 



\i 



a 



<i^-^r' <'-.^ ') 



nn 



(n+1) ^ ki 



%k 



k,k+l k+1, i 



(30) 



If at any stage k (= 1, 2, . . . , n+l) the square root of 
the maximum overall j = k+1, . . . , n of s('^'*"-'^\ say 
piv, is not greater than tol, the rank of matrix A is 
declared to be k <n, and the procedure returns an 
error message to the calling program, thus indi- 
cating that no solution could be found. In this case, 
the last n - k elements of vector IPIV denote the use- 
less columns of matrix A; the remaining useful col- 
umns form a base of matrix A, 

For reference see G. Golub, "Numerical Method 
for Solving Linear Least Squares Problems", 
Numerische Mathematik . vol. 7, no. 3 (1965), pp. 
206 - 216. 



af'^''^) .X - - a.^'^+l) 

Tc,k+2 T<+2,i *" Ts,n-1 



(n+l) 
a: • X .) 

Kn m 



(k = n-j+1; j =2,3, , n and 

i = 1, 2, ... ,1 for fixed j) 



!0 



n-l,i 



(31) 



After any row of matrix X has been computed, 
back interchange of rows is performed according to 
column interchanges in matrices AW in order to get 
the correct sequence of components in the solution 
vectors X, . 

Finally, the vector of linear least squares with 
components 



i=n+l 



a = l,2,...,l) (32) 



is computed, which gives the squares of the mini- 
mized Euclidean norms ||b,- - A * X.|| for all right- 
hand side column vectors B^ (j = 1, 2, . . . , 1). 

The only case in which the whole procedure can 
fail occurs when, at any stage k, no column with 
nonzero parameter ay^ can be found; that is, no non- 
zero main diagonal element can be generated. In 
this case, the rank of matrix A is less than n. With 
respect to roundoff errors, the test is made in the 
following way. 

At first, all elements s| ' are computed according 
to (28) and the maximum overall j (that is, ch is 
determined. With the relative tolerance £ given by 
ii^)ut, the following absolute tolerance is generated: 



tol = ff ■ e 



(33) 



SUSRCuriNE LLSQ 



TU SJLVt UNEAft LEAST StiUARES PROaLEMS, r.E. TJ niHlMia 
THE EUCLIOtA.^ NOAM OF a-A*X. WHtAE A IS A H dY N MATRIX 
WITH M >iDf LESS rHAN M. It* IHt SPfcLIAL CAst « = N iTSTEMS OF 
LINEAR cQJAriJNS HAY A£ iOLVtO. 



JSAi£ 

CALL LLbJ (A. 3i 



H<.^.i.,X.It>lV.EPS,lER.AUXI 



Jc^iCMIPT IUI>4 Ot^ PAKAHEli-RS 

A - ri dt H COEfflCIENF HiTHtK ( l/ESlRaVcO ) . 

.1 - A 6t L RIGHT MAtJJ SlJd MATRIX (Ut 5 Ti^GYciJl . 

A - RJW MUMSt^ UF MATRICES A ANO B. 

N - CJLJ** AlUMitR Qf MATRIX A. «0^ NUMiltR Of MATRIX » 

L - CJLJMN NUHdcR OF MATRICES & aNO X. 

Jt - ."i BY L SULUTIJN MATRIX. 

(PU - I.nTEGtR OUTPUT V£CTOR Gf uiM£f«siON M dNICH 

COMTAIftlS iNI-OrtMATlONi JN COLUMN INTcRCHANGES 

IN .HATRIX A. ISEc ReMAKK NO. 3). 
cPi - INPUT PAAAMSTC^. .JrtlCri SCtCIFItS A RELATIVc 

TJLcRANCt FJi* DcIERMIWATiaN OF RANK jf MATRIX A. 
I6H - A RESULTING ^lO-HOk PA-<AM6TeR. 

AUX - AJXILIARY STj-tAiit AA-tAY UF OIHc.^SUN M4«I2'N,L1. 

u.'J RETURN FIRST t LOCATIONS Of AUX CONTAIN TM€ 

RESULTING LEAST SSUAlcS. 

REMAftKS 

(It NJ AJTlu-^ dESIOEi EiRAOR MciSAGt I£A«-2 I.'^ CASE 
M LESS THAN N. 

(21 NO ACTIOM 6tSI0ES cRRO* MfiSSAGt IfcR — I IN CASE 
JF A ££RJ-MATftIX A. 

(Jl If KAI^K < Jf MAr?*IX A IS fJUNii 10 dE LESS THAN N dUT 
GREATER TrtAf« 0, THt PHOtEJURt RETURKIS HITH ERKUR COOE 
ItR=K INTO CALLING PROGRA.H. THE LAST N-X ELEHkNTS OF 
VcCTJR IPW jyENiTc TnE UStttSS COLUMNS IN MATRIX A, 
The H.iLAh.lniHO Ki^lfJL CJL'J-*.*S FORM A SASc 0.= MATRIX A. 

(<■) If Tfid p!luCcOUKt WAS SUCCciSfUL, tftrtOR PARAHtTEk lER 
IS SET TO 0. 

SUb'<UUTINES A.'^U FUfiCTldN SUflPKOGiirtMS RcdUIREU 



METHIjO 

Hu-UStMULJcR TRANSFGRrtATIOHS AR= JScU 10 TRANSFORM MATRIX 
TO UPPER TRIA.<«GULAR FO^-I. AFTER HAVING ApPLlEii THc SAMt 
TRANSrURMATION TO THE RIGHT HA.MJ SlOt MATRIX Hi AN 
APPROXIMATE SOLUTION Or THe P*lJ6LtM IS COmPuTEi) i»Y 
3ACit sUiJiriruTlUm. rOR RErcUcNLt, SEt 

i. wuLUd, '(OIEkICAL METHOlIS POR SOLVING LINEAR LEAST 
SQUARES PRJdLEMS, NUMERISCMt MATHtMATiK, VOl.7, 
ISS.3 (iq»5l, PP.20i-2l&. 



^UoRJjrlN: LLSJ(A.i.M,NtL.X*IPI V,£PS.IERtAUX| 

J1MENS10.V AU)<dUt .XI U.IPlVI 1 1, AUX (II 

ESHDR TEST 
If (M-.^J j'l,i,I 

GcNE^tATIJN JP Ii-IITIAL VECTOR SUI (-< = I,2 Nl In STOkAGc 

LOcATIUNi AiJAU) IX <1 « 2 1 . . . , 41 

1 PIV=0. 
ItNO'O 

00 4 i>.<ltN 
IP|W(HI =< 
M-0. 

IST-U.^QM 
lbNO-IEND«M 

uo z i>isr,icN-.) 

2 M-H*A( I MAI I I 
AUX(XJ-M 

If IH-?IV)-.,4.3 

KPIV»< 

* COMINJE 

ERROR r£>T 
IFIPI Vt31.3i.S 



OcfX'ii. r.Ji.tRANi,c J=JR CHECKING RAn< Or A 
SJG^SJRTI PIVl 
TJ(. = SIi*AjS(£PSI 



OcCOIPJSITI ON lUjP 
lH=L« ^ 

isr=-M 

CiG 21 <!|.N 

I ST=;sr*4*i 



LLSQ 
..LLSw 
LLSO 
LLSC 
LLSQ 
LLSQ 
LLSC 

LLSQ ao 

LLS;i 90 

LLSO ICO 

LLSQ UC! 

LLSd 120 

LLSQ liO 

LLSQ u:; 

LLSQ l&O 
LLSQ IttO 
LLSQ 170 
LLSG 180 
LLSQ 190 
LLSQ 200 
LLSQ liC 
LLSQ 22C 
LLSQ 230 
LLSU ^-iO 
LLSQ ^50 
LLSQ 260 
i LSg 2T3 
LlSQ 280 
LLSQ 290 
LLSQ 300 
LLSQ 313 
LLSQ 32C 
LLSQ iiZ 
LLSO i*C 
LLSQ 350 
LLSQ 3o3 
LLSQ Z1C 
LLSi; idC' 
LLSQ 39J 
LLSQ tOS 
LLSQ i>lC 
LLS& 'r2C 
LLSO ■»30 
1.LSC- <itC 
LLSQ ii1 
LLSQ <t&D 
LLSQ 47G 
LLSt 4feo 
A LLSQ 4'JC 
LLJQ 50G 
LLSQ >IC 
LLSw 520 
LLSc i>- 
LLSQ 3'fO 
LLS*/ 95C 
LLSu J33 
LLSQ 370 
...LLSQ 5dC 
LLSO 590 
t.LSQ 6j: 
LLSQ SIG 
cLSQ fiZ^i 
LL3Q &3C 

LLSQ 64D 

LLSQ 650 
LLSQ te60 
LL?Q 6/0 
LLSQ 690 
LLSQ fa-SO 
LLiu 7CJ 
LLSQ TIO 
LLSO 7 20 
LLSQ 730 
LLSQ 7-^0 
LLSy !•>) 
LLSQ 730 
LLSU 773 
LLSO 7d0 
LLS3 T90 

llSO JOJ 
llSu ai'j 

LlSQ dlO 
LLSQ J3a 
LLSQ 840 
LLSg d^O 
LLSQ d6C 
LLSQ d/0 
LLSQ ildO 
LLSQ 690 
LLSQ 900 
LLSQ 910 

LLSQ 'iz:: 

LLSQ 930 
LLSO ''i.O 
LLSQ 950 
LLSQ 96C 



162 Mathematics — Linear Equations 



CJLJHN Cf A WITH Ki'lV 



tft I Id. a. 6 

H=AUA(Al 
jlUKdtr*! V)=H 

00 7 l=lSt, Ur^D 
J=l»IfJ 
H=AI II 
A(l }=A( J) 



COMfjTAnJN jf -"AAAMETER SIG 

IF (K-I) 11.11.9 
SIC'C. 

JU iZ 1 = UT,1^N3 
iH,= 4IJ**( I 1«A[ It 

TEST U.-J SJ*i»iJLAalT¥ 



IN CASE KPIV.GT.K 



G£^cKATt C 
H = AllSr ) 



ci SI .;r-* Of pJA4MEr=fi 



ii>i v^<•»Ivl = lP^vl^ t 

IP|VUl=At>IV 



PARrt^cfL-f dtfA 

A( iiri = dtrA 

!)ETA=l./( jl^i'-iiiT^I 

J = N+K 

AU«{ j)=-iij 

iFlK-iNl li. 19, i'i 



Tj^ u.< !.■* -t-rH 



.:aLJ.'1N CF HATRIK i A\D OF 



Jf" MAIK[X A 



TkANiFJi-.i^TlL^ 
Pi V=J. 

i«.PU=J5T 

lju la j = Jil ,N 

ri^t . 

lJU 15 ! = I'jT, Ic Ml) 

I 1 = 1 » 1 J 
H=H*A( I I'rt( I I 1 

^( in --,.( 1 ! I-A( I I'M 
JPJ4fl»G OF cLtfii.-.T i(jj S 

i i = i>r*iu 

ri^Ajx( J i-A( in^Ai n I 

ttUXf J)=M 

lf(H-3iVU8,lS*W 

P[ V = M 

TriANSF J'^'IAf HIN ■])- KluHT r( ft. 

u\J 21 J=K,lH,.-1 
H=0. 

l::NJ= J*K-X 

n = isr 

UQ IJ l=JtlcNiJ 

H = H*A( I I l*o( 1) 

II = U*1 

01} 21 l = J,lcNJ 

1 1=1 i>i 

E;^u ue Dcco«pjsir UN loop 



bACK SJobriTuriUi>< *tiO balk liUtKCHdi 

I=N 

LN=L»N 

Kl V= l./AUX*2*NI 
UU 22 fv^N.LN.N 
X(Nl = PlV-»i(ll 
2e i=I*M 

1F( '*-l)2-3,lt.,2i 

00 23 J=2.N 

jsT = jir-»i-i 

K=N'-N+l-J 

PI V= 1./AJK(R J 

KSI = K.-N 

10=lPIVI^ST)-^iT 

IST=2-J 

UU 2t> K=l.L 

1 1= JiT 

UQ 2-t I = l3r,IttMJ 

ii = n*M 

Zt, h = H-AI 1 I I*x< I I 

A<i ) = j(( II I 

X( I 1 ) = PiV*H 
2b ^ST=^SI*M 



IN i-JcATiON 



lJMPJI AT 
2fa lsI=N*l 

00 29 J=1,L 

H=(M-M)2V.29.^ r 
11 uG ^3 1 =1 iT, IcN3 
2b rt = H+i:( I )*3| i I 

lSr=isr*H 

29 AJXiJI^H 

RETU'<N 



LLASr SyUAiltS 



LLSO -iTO 
LLSQ 'j?- 

LLSu <>9::; 

LLS JliOO 
LLSi^lClC 
LL&J1C20 
LLSQ103C 
LLSGICO 
LLSOiObi 
LLSU106: 
LLSUICTO 
LtStilC'BO 
LLSilC^O 
(-LSCllOC 
tLSClll3 
LLSUIUC 

tt.si:ii3j 

LLS^ll".: 
LLSwll^e 
t-LSwlloC 
LLS0li7; 
LLSUilBO 
LLSJ119: 

LLSQ1213 

LLSW122C 
LLSIJU3? 
LLSJl^'.^ 
LI.SJI251: 
LLSJIioC 
LLS012T: 
ILSQWS" 
LLSyu-J: 

LLSCIJCC 
LLSCUK' 

i.Lb^ij2 ; 

LLSClllJ" 

LLS3U-.: 

LLSJU5J 
».LSUli = : 

LLSgU70 

llSwUs: 

LLSOlii; 
LLS21*.,, 

Li.5wl''l : 

LL50t'-3C 

t-LSi-'lA-^C 



LLi 



11^5 



LLSUl'-a'-i 

LLi^lt'o 

LLSJlsSJ 

L'-SJl^i.'-:' 
LLSjl5 1C 
LLS3l^2C 

iLs^it>>; 

LLS0157; 

LLS3153.- 
tLSjl3^'" 
LLSwL6.'C 
LLSaioi-: 

LLSgi63- 

LL>Jlo-^C 

LLbJlboC 

LLS0ic7C 
LLSOlftiO 

l.LSgi7LC 
LL^mTlO 
1_LSJ1T23 
LLbai7 3C 
LLS317AJ 
i.LiUlT-jO 
LLSJ1T6C 
LL53177J 
LLSii7aO 
tLSJ179J 
LLSaiSO? 
uLSOlfilO 

LLSC133C 

tLiijia-.? 

LLSJlfisD 
LLSJ1660 
LLSC137-; 
llS jldd'J 
LLSwltJ*: 

LLSSl'Ji.'' 

LLS«i**2C> 
LI-SJ1933 
LLS:«19<.: 
LLSwliSC 
LLSul5oL 
LLS3197: 
LLiQl9&L 
LLSQls-'s: 
H.S'J2,CC 



LLi J 



- lO 



LLSy2u3C 
lLS020'.C; 
LL5g2obO 
LLS02C6C 
LLSU2CTC 
lLS<J20dO 

1.LS02IOC 
LLS021 \Z 
LLSg^l2C 
LLS0213C 
LLSOil^O 
LL5g215C 
LLSJ2160 
LLSQ2170 

LLSOiiac 

LLSa219C 
LLSO220C 
LLS022K 
LLSQ222C 
LLSQ223C 
LLSG224C 
LLSa22iC 



tKKufi ftEIUAN IN CASE 1 LESS THA<Y N 

30 l£R=-2 
RtTURN 

t«RClR RETURN IN CASE OF iERQ-MATflU A 

31 l€R=-l 
RETURN 

tRROR RErURh IN CASE OF RANK JF MATRIX A LESS THAN N 
3i IER=K-l 

RETURN 
END 



SuemouTlr^c JllSj 

PUkPCSt 

Tu sJLVc lIN.-AR LcAST SJJAKJS PftJtiLEHS. I.E. TJ HINIHIZt 
Trie £jCLIu>rAN NJ'<M Ur 5-a»X, ^rHtRE A IS A M d Y ,M JlAIftlK 
-ilTri M .^JT LcSi THAN H. Ix THi SPtClAL CASE H = N SYSTEMS 
LiNcAS c3UAr(JNi HAY 6'i SuLtftJ. 



.L.K.lPlV.cP:,.[EH.AUXr 

OcSCklPTlO.N JF ^AKAMcT£KS 

A - JJUoLfc PRct;iSIJ:«i rt oY i-J COEFFlCiENT MATKIX 

( JtiTKJYfcO) . 
d - JJUJLt PRt;,ISlJN « aV L RIGHT HAfilJ iltic MATRIX 

( JcSTROYED) , 
1 - liJrt NUMtJt-* iJf rt-TRlCiS a AhO a. 

,^ - CdLJMN ^^J^^ocR JF HaTkIx a. row NUM3cR JF MATRIX X. 

L ~ CJLUMN NUMbc« JF HATRICcS b ANO X. 

< - JOJtoLt PRcCISlJ.'^ N bY L SOLUTION HAIAIK. 

.f>iV - LVItjcA OUTPUT i/cCTUR UF OIMENSIUN N l*^ICH 

CJi^TAlNa I.\ifORHAT10NS &N LOLUrt\ INTchCHANGES 

lA '(aTRIK a. (SEE REM-RK NO. 31. 
,;PS - SlNJLt P»,tCJSl3i^ INPuT PASAMtTER h/H Urt SPECIFIES 

A RELATIVE TOLcftrtNCE Fji< Jt Tt RMI NAT I JN UF RANK OF 

M^TKIX A. 
It^ - A RtsJLTlOiS t.<:i]R PAr<A;^tI£R. 

AUA - A UUJ3LE PftcClSIJN AJXlclARY STJRAGt ARKAY JF 

i3]-l£f^SI0f>( .-lAXi jJtN . L I . ON RETURN FIRST L LOCATIUNS 

Ur Ajx CuNTAiN FHc RciULTINC LEJST SjUARES. 



( n 


Nj ACIIJiV 3c: 




M LciS THA.N 1 


I ^'1 


.jij A^TIu.^ B£ 




Lf A ^ERJ-MA 


I 31 


IF ■<A.\\ ^ UF 




u-lcATcR THAN 




IcR = K UTU C. 




VciCTOR IPIV . 




Inc kc^lAlNlN; 


(iJ 


IF THE PRJCfci 




IS SET lU 0. 



SiLl^ 



RJR MtjSAiiE lfcR=-2 IN CAit 



lAGE It 



l=-l 



SUES c-tRUK 
TRIX A. 
MATRIX A IS ?^\iHo TC o€ LcSS TMArt N bUT 
C. HE PRUCEJURE AETJRNS wI Trt c RROt* CODE 
ALLING PRaGRArt. Trtt LAST N-K cLEmENTS OF 
JtNJTE THE USELESS COLUMNj IN KATkIx A. 
IG USEFUL COLJ^^S FORM A BaSc Of MATRIX A, 
iJuRi: WAS SUCCciSrUL, ERROR PARAMETER l£R 



iJb'^OJriNis A.j'j FU.^CTiCN aUaJ'RUw'iAHS RcgUIAEJ 

%3NE 

HJuicHl,Li-c« rRA.-^SFJR-^ATIJNS A<E JSEJ fU IkANSrURp4 MATRIX 
ro UPfER r^[ANCULA^ F>j<:4. rtFTc.-t HAVING APPlIc^ ThE SAHt 
fK^^SF^RMATION rn The ^UHI HA^J SluE iHATKlX bt AN 
Ar-P-NJXlMAT^ SOLJTIUN OF \ Ml ^AJjLt.H IS CUM^UT^J dV 
dAi.ik itiBiriTJTIOM. FOR RcFcRt.^Cc. SEE 

J, juLUd, NUHESICAL f.tTriOJS FJR SOLVlNj LINEAR LdAST 
aJdAKtS Pi<l,Sl::MS, NOMcRiiCHc .■^-THEMATI A , VOL.7, 
lis. 3 U-»o-jU PP.2C6-216. 



Ir*! V.tPS.lcR.AUXl 



JIMEi^ilCV A[i(,o(l),XUJ. IPIVtD.AUXUJ 
L/OJdLc PRECISIjN a, [J,X,AUX,PlV,ri,SU,6tTA,TjL 



>jENtRAriO'< UF i.'^ITiAL VECTG^ jIi<I I i^'' i , 2 , . , . ,NI I.N SIJRA&c 
LOLATIJNS AUKIKI ( K =1, 2, . . . , '^I 

1 PIV = D.l10 

LO '. «=l,N 
IPIVI Kl=i( 

H = C .iJO 

isr= it^ju'-i 



IE 



J- I.- 



ou 2 i= !iT 


,1 


^> M = n*Al i J»ft 


( 1 


AUX(<J =r( 




JF(ri-Pl Vl* 


• '• 


i PIW=H 




KP1V=.< 




"i i,l;nt].\jc 




cR^Urf Ttil 




iF(PIVMl, 


31 



jtFI.Vt Ti^LcRA.^Ct FORCHfcCKIS: RAMI. jE 
SIO^JSJRTIPI VI 
rCL=SI^*ADS(cPS I 



iJECu-HpJSI TIvjN lOJP 
LM^L''"*! 



IST = 

LiD £1 < = 1 ,N 

isr=is) *M*i 

UNJ=i i^♦M-^ 
I = KPJ V-"- 
IF ( I la,a, D 

IMcftCrtANJE ^-^H CJLUMN (JF A WITH <p I i/_ jh IN CASE KPJV.JT.K 
6 tl=AUX(K) 

A^JX1^) =AUX(RP1V» 
AUXI KPl V)=H 

ID-]*« 

i/O 7 I = lST,iE.MJ 



LLS02260 
LLSQ22T0 
ILS02260 
LLS02290 
LLSQ2300 
LLSQ2310 
LLSQ2320 
LLSU2i30 
LLSQ23^0 
LLS02350 
LLSQ2360 
LLSQ2370 



DLLS 10 

•DLLS 2C 

DLLS 3C 

DLLS '.C 

OLLS 5: 

CLLS bC 

OLLS 7C 

ULLS dC 

3LLS *#: 

JLLS luO 

DLLS 110 

DLLS 12c 

OLLS l3C 

ULlS I've 

OLLS 15C 

OLLi ItiC 

UL Li 1 70 

DLLS IbO 

ULLS i9i 

DLLS 2CC 

OLLS 210 

DLLS liZ 

DLLS 2jC 

OLLS 2*.^ 

OLLS 230 

OLLS 2(.'; 

OLLS 273 

OLLS 2 30 

UlLS 29J 

OLLS 33;J' 

OLLS JIC 

OLLS hi:i 

tJLLS 33: 

OLLS 3'.0 

ULLS 3iC 

uLLS 350 

ULLS 37C 

OuLi 33C 

DLLS -yiz 

OLLS tO? 

OLLS -ilO 

OLLS «.2a 



DLLS '.'.0 

DLLS -SO 

DLLS '.6C 

OLLS 1.7C 

OLLS 'iSC 

OLLS <.90 

OLLS 500 

DLLS 3i3 

LiLLS 520 



DLLS 15:- 

OLLS 3oC 
OLLS 570 
OLLS SbC 
OLLS 5 9' 
DLLS 6J.. 
..OLLS 610 
OLLS 6 20 
JLlS biO 
OLLS ©-"J 
OLLS o50 
OLLS 660 
DLLS 670 
OLLS 63; 
OllS o'JO 
OLLS 700 
CLLS 71: 
DLLS 72D 
OLLS 73C 
OLLS 7^,0 
OLLS 7br 
OlLS 7oO 
DLLS 7 70 

:;lls 73C 
OLLS 7^^: 

OLLS 69: 

DLLS die 

OLLS a^: 

OLLS 33^ 

OLLS •j'tC 

OLLS d5C- 

DLLS 3oC 

OLLS i7C 
OLLS afiC 
DLLS d-JC 

OLLS 5';o 

OLL5 91C 

DLLS ')2C 

OLLS 930 

DLLa 9',C 

DLLS 9o0 
DLLS S7r 
OLLS S30 
DLLS '»9r 
DLLSIOOC 
OLLSiaiC 
0LLS1C2C 
DLLSniC 
OLLSlCfO 
DLLS 1030 
OLLS1063 
DLLS1070 
OLLSlOdO 
DLLSIO-JO" 
OLLSl ICC 
DLL SI 1 IC 
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Am = A( J 

7 A(JI=H 

CGMPUTAFllJN OF P^flAMETFO SIG 

8 iF(K-lt Utn,9 

9 blG = O.L)C 

uQ iC I=IST, r^hO 

ic 5iG = sio+A( r)*Ai 1 1 

Si:i=0:.gKT ISiGI 

TtST GN SIN&ULAKI IV 
in biu-TOL I j^ti^. 11 

OtNcRAit l-jkkcCT SIGN UF P&H&neXtR 

11 H=n isr } 

IFIH] I^.i3,l3 

S^VC l.UtRCHAf^G:: Ji-^FdRWfil ION 
L3 iPlVlKPlvt^lPlVi^i 
IPIVK) ^^^>IV 

GtNtKiriiJU 0.= vfcLTui* U« IN K-TH CCLi 

PARAMcrtfi ritTA 

eETA^HtSIG 

"( isn=iitrA 

tCTA=i.i>3/( 5Ii*dfcTA I 

J = N*t( 

Aux( j) = -sii; 

IFU-N)U,lv,19 



KPlv=jsr 

uCi 16 J = jST ,N 

H=U.OC 

L>u 15 1 =isr, it« 

(! = 1*1 J 

M = h*A( I )*A(!f ) 

H=DbrA»M 



AIRIX A AND OF 



uc lo i ^ isr , icNo 

Ai I 1 J =A( 1 I 1-A( I JfH 

UPOATi^MG OF cLeMEiVr S(jt STJScJ IH LJlATION AUKIJI 

ii = isr. ID 

H=AUXI J )-A( I I l«a( I I ) 

AUX( J)=H 



) la. 



17 t>lV = H 
KPl V = J 

id CUNflF'Jje 

rKA.^if. JKMAT luM I 
19 00 Z\. J=K,L 1, 1 



= 1=.I 



H = M»A( I H*ai I ) 
2C 11=11+1 

H=dEra»H 
11 = lii 

^0 21 I=J,lcNO 

bli ) = j( I }-a( II )'*^ 
?i H = I I*i 

tNj Or JSCJHPJS ir i:JN LOOP 



BALK. ijasTirjr iLi'i and aflC< inteschaw!.; 



I = N 

LK=L*H 

•'I V- I. JC/AUA(2» 
JU i^ < = N,L.'<.< 
mK) = Pi V*3( I ) 

^^ i = \*!\ 

iF(N-l| Zt,i>i,ii 

■JO ^i J^^.N 

JST-JST-H-l 

R=NtM*l-j 

PI V= I. JO/AUXIK) 

K.Sr = K-N 

ia=IPH^{n,iTJ-KSl 

IST=£-j 

OO ^5 i». = l,L 

M=fliK3r ) 
lsi=isrt\ 
ifcNLj^i ;t+j-2 
i i=jsr 

JC 2-, I = IST, IcNl 

Zi, H = H-A[ 1 I |*X( I J 
I =1SI-1 

il= 1+13 

K( n = x[ m 

X( I f ) = P| V.H 

25 <iT-KSr*« 



COHPuranoN :;f l^a^t squares 

i.b 1ST = N«1 

itND=C 

CO 29 J=1,L 

lENO=ieNiJ»M 

2b H=M+a( I )*B( I } 
isr=:isrtH 

i9 AUX1J)=H 
SETUkN 



tRKOK RtrURN 
ItR=-2 

RETURN 



N CAiE M LESS THAN N 



ERROR -terUf^N IN CASi OF ZERU-MAFRIX A 
31 IER=-t 

RETURN 

cRRljR <tTURN Ifti CASE Llf RANK UF MATRIX ;. LtSS TH 

RETURN 
trio 



0H.S113C 
DLLSii.,0 
01.LSH5C 
OLlSllbO 
OLL&il70 
0LLS1180 
DLLS 11 9C 
0LLS120C 
DLLS121C 
DLLS122C 
OLLSliBC 
iJLL 312^0 
0LL3U;>C 
CLLSld6C 
DLLil27C 
OLLSl^SD 
0LLSU9C 
ULLSli:JL 
0LLS131G 
DLLS! 3 2-, 
OLLSl J3C 
OLLSlii-O 
i>LLS13^C 
OLLSlsaO 
OLLSl WC 
ULLSI jdC 
0LLS139C 

DLLSl'flC 



ULLSl 



.20 



!:jllsu30 

OLLSli-iC 
ULLSUiiC 
uLLSlt-TC 
i3LLSl-*aO 
JLLbK-^C 
DL L S 1 :i "O 

JLLSiii-; 

iJ..LSl52& 

3LLS1550 
OLLSIs'.U 
OLLSI53Q 
ULLS130C 
CLLil&70 
ULLS11J3C 
DLLSIS-JO 
OLtilbOC 
JLlSlb 10 
L1LL51620 
JLLS1630 
0LlS16^l:- 
OLLS1&50 
DLLSiboT 

iJLLSLo 7C 

DLLSlfc'JO 
i/LLSlu9L- 
DLL Si 7: 3 
0LLS17 10 
ULLSi72C 

ULLil? Ji 

ULLSl?;.': 

JLLS175:; 

OLLS1750 
DLLS 1770 

DLLS17(I0 

JLLS179C 

OLLSldOO 

ULLSidi: 

1JLLSU20 
OLLSlJiJ 
JLLSia<.C 
OLLS193C 
OLLii doO 



JLL 



.ld70 



JLLbiSdJ 
0LLSid9O 
ULLSt9"S 
JLLSl^lC 
DLLSW2: 
JLLSW3J 
Jlj.ilQ'.C 
OLLSiqSO 
JLLS19aJ 
0LLS1^7C 
OLLSlSdi 
OCLS199C 
OLLS20GC 
0LLS2r?ig 
JLLS2J2Q 
JLLSiD3G 
OLLS2C*fO 
OLLi2050 
OlLS2:60 
yLLS2C7C 
i)LLS2L80 
01.LS209C 

JLLS^1?C 

aLLS2L10 
LtLLS2120 
0LLSi;i3O 
DLLS21',0 
i)LLS^i50 
DLLS21bC 
JLLS217C 
iJLLS2l80 
L(LLS2190 
LtLLS223C 
DLLS2410 
DLLS2i2C 
i:JLLS22 3C 

(J(.LS2250 
DLLi2260 
0LLb£270 
ULLS2^B0 
0LLS229C 
UlLSZjCc 
OLLS23 10 
0LLS2320 
aLLS2 3 30 
0LLS2)'.0 
ULLS2350 
OLLS236C 
D(-LS2370 
DLLS23aO 
0LLS^390 
JLLS2'.C0 
OLLS2'41D 



Matrices: Eigenanalysis and Rela ted Topics 
Subroutine EIGEN 

This subroutine computes the eigenvalues and eigen- 
vectors of a real symmetric matrix. 

Given a symmetric matrix A of order N, eigen- 
values are to be developed in the diagonal elements 
of the matrix. A matrix of eigenvectors R is also 
to be generated. 

An identity matrix is used as a first approxima- 
tion of R. 

The initial off -diagonal norm is computed: 



^A-.-r 



(1) 



v^ = initial norm 

A = input matrix (symmetric) 

This norm is divided by N at each stage to produce 
the threshold. 

The final norm is computed: 

-6 



''f=- 



V X 10 



N 



(2) 



This final norm is set sufficiently small that the 
requirement that any off-diagonal element A^j^ shall 
be smaller than i^ ia absolute magnitude defines 
the convergence of the process. 

An indicator is initialized. This indicator is 
later used to determine whether any off-diagonal 
elements have been found that are greater than the 
present threshold. 

Each off-diagonal element is selected in turn and 
a transformation is performed to annihilate the off- 
diagonal (pivotal) element, as shown by the following 
equations: 



X = -A 



Im 

1/2 (A„ - A ) 
^ 11 mm' 



w = sign (M) 



sin 6 = 






'V2(l+Vl 
cos 8 = yj 1- sin^ e 



c^^ 



(3) 
(4) 

(5) 
(6) 

(7) 
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B = A., cos 6 - A. sinfl 
il im 

A = A., sin + A cos 
im il im 

A^^=B 

B = R , cos e - R. sin 6 
il im 

R = R., sin + R. cos 6 
ira u im 

R, = B 
il 

2 2 

A,, = A cos e + A sin i 
11 11 mm 

- 2A, sin Q cos 6 



'\ 



o 2 

A = A„ sin^e + A cos ( 



(8) 






DO 10 J-l.N 

00 20 fi.N 
IJ-IQ+I 


(9) 






IfU-JI 20,15,20 




15 


RI1J)-1.0 




C 

c 
c 


20 


CONTINUE 


(10) 




CUnpUTE iNiriAL AND FINAL 






25 


iNORM*0.0 
DO ii I'ltH 


(11) 






00 iS J-I,N 

IFII-J) 30.35,30 






>0 


IA-I*(J»J-J|/2 
ANOAM-ANORH'»A(lA}*AIIA) 






33 CJhrlNUE 


(12) 






IFIANORMI lbS,16S,4C 




*0 


AIMJAh- 1 .4L4«SQAT I ANOAN ) 




c 

c 




ANRHX>ANUIM«HANSe/FLOATIN} 


(13) 




INiriALt2t INOICATORS AND i 


c 












JMO-0 








IHR-ANOHH 






45 


THR»TH*/FCaAr(N» 






5C 


L-l 






55 


H>L*1 




c 








c 




COMPUTc >IN ANO COS 


(14) 


c 


60 


H0>(H«N-K)/2 
i.g-IL*L-Ll/2 

LH-L*«0 






6^ 


If* ABiUUMII-rrifll i30»65,65 



mm II 



mm 



+ 2A, sin cos ( 
Im 



^m " <^11" Vm) sine cose 

+ A, (cos^ e - sin^ e) 
Im 



(15) 



(16) 



The above calculations are repeated until all of the 
pivotal elements are less than the threshold. 



SUBROUTINE fcli^tN 

PURPOSE 

CUNPUTE EUEMVALUtS ANJ £ I I^ENVcC TORS OF A R£AL SCNHeTRIC 
MATRIX 



uSAoe 

CALL €IGeN(A,RiN, 



IVI 



DfcSCRIPTION OF PA«AHET£RS 

A - URIOIKAL HATRIX (SrMHETKICI, OCSTROYEO IN COriPUTAriQN. 

HtSJLTAKlT EIGENVALUES ARE MVELOPEO IN OlAi^ONAL OF 

HATRIX A IN DESCtNOINC OROER. 
ft - RESULTANT HATRIX OF EI&LNVtCTCHS (STOREQ CULUHNItl SE . 

IN sahe sequence as eigenvalues) 

H - ufU'ER JF HATRICES A ANU R 
HV- INPUT COJE 

COhPuTE eigenvalues ANO EIGENVECTORS 

1 COHPUTE EIGENVALUES ONLY IR NEcC NOT 6t 
JIHENSlONfcO BUT HUST STILL AppfcAH IN CALLING 
StOUENCt) 

REHAKKS 

ORIGINAL MATRIX A HUST dE REAL SYMMETRIC ISIORAGfc HOOE-U 
HATRIX A CANNOT bt IN THE SAHE LOCATION AS HATRIX R 

SUdRUUTINES t.-iD FUNCTION SU3PK0GHAHS REOUlRcO 
NONE 

HcTHOO 

OUGCNALUATION METHOD ORIGINATED BY JACOEI ANO ADAPTED 
dV VCN NE0-4ANN FOR lAmGE COMPJTtRS AS FGUNU IN 'HMTH£HaTIC< 
ilETHOOS FOR DIOITAl COHPUTERS*. ECITEO 8Y A. RALSTON ANO 
H.S. WIlFi JJHN WILEY ANd SONS, M£t* YORK, 1962, CHAPTER ? 



iJBRjUTlNE tlu£<'4l A,R.N.HVI 
OIHEHSICN AlUtttlll 



IF A UUUBLfc P-^eCISION VERSION Of THIS ROUTINE IS «£ilR£0, THE 
C IN COLUMN I SHOULD BE REHOVEO FRGH TH£ DOUBLE PAcCISION 
ilAIEHENT *MICH FULLO'iS. 

UJU&Cc PRECISIUN A,R.AN0RH,ANRHX.THR,X.V.S1NX,SINX2,C0SX* 
1 CJSX2. bINCS,RAi4GE 

THE C MUST ALiU Bfc' REMOVfJ FROM DOUbL£ fiRELlSlUN HArtHtNTS 
APPEARING IN OTHER ROUTINES UStO IN CONJUNCTION WITH THIS 
ROUTINE. 



EIGE 10 

. .ElGE 2C 

£1G£ iO 

EIGE <.0 

eiGE 50 

EIGE bO 

EIGE 70 

EIGE 60 

EIGE 90 

EIGE 100 

EIGE 110 

EiGE 120 

EIGE 130 

EIGE I'fO 

€1GE ISO 

EIGE 160 

EIGE I'O 

EIGE 130 

tlGE I9C 

£IGE 20C 

EIGE 210 

EIGE 220 

EIGE 230 

EIGE 2*0 

tIGE ^5C 

EIGE 260 

tlGE no 

EIGE 2B0 

EIuE 290 

tIGE 3CC 

EIGE 310 

EIGe 3^0' 

EIGE 330 

EIGfc i'*C 

kLElGE 3bO 

tIGE 360 

cJCE J70 

EIGE iac 

,tIGE 390 

£jce too 

EIGE 410 
EIGt HZO 
eiGE t30 
.EIGE -iAC 
EIGE *iiC 
EIGE 460 
EIGE *.T0 
EIGE *8C 
EIGE 
EIGE 
EIGE 
EIGE 
EIGt 
EIGE 
EIGE 



IGE 

EIGE 



THE OJkJdLt PRECISION VERSION OF THIS SUfiROUTINt HUST ALSO 
CJNTAIN COUSLc PRECISION FORTRAN FUNCTIONS. SOf«I IN STATENENTSEI 
40. 68. 75, ASO 78 HUSf Be CMANGcJ TO OSQRT. ABS IN STATEMENT EIGt 
62 MUST d£ CHANGcU TQ OASS. THE CONSTANT IN STATEHENT 5 SHOULD 
at CHANGtO TC I.CO-12. 



GENtkAlE lOtNIITV MATRIX 



•iANGt=1.0E-6 
IflHV-U 10,25, 



cIGE 

EIGE 
tlGE 
EIGE 
tIGE 
EIGE 
EIGE 
EIGE 
EIGE 
cISE 



5C0 
>1G 
52C 
6iO 
&4C 
5SC 
bbO 
570 
580 
5'JC 
6C0 
610 
i20 
6 3C 



o5 INU-l 

LL-L*LO 

X*G.5*4 A(LLI-A( HHH 
6S Y=-A|LN)/ SORTIAlLN)«A(LHt*N*K) 

IFIXI 70,75,75 
TO V"-Y 
75 aINX>Y/ SORII2.0«U.O+I SQHn 1.0-Y*YII I 1 

SINX2*SINX«&IHX 
73 COSX- SQRTI1.0-SINX2) 

C0SX2"C0SA*CCSX 

SINCS -SINX*C0SX 

ROTATE L AND H CULUHhS 

ILU>M*(L-I) 
IM«*N*(M-XJ 
OG 125 I>I.h 
IQ*U*t-l)/2 

iFii-L) aoai5.eo 

8C IFII-Ml 45,115,90 
65 iH'ltMU 

CO TO 95 
90 1H-H*lg 

95 IFII-L) 10C,ICS,1C5 
ICC IL-I»LQ 

GO TO IIJ 
105 lL»L»lti 
110 X-AIIL)*CO$X-A( IM)*SINX 

A(IMI*A(ILI«SINX*A( fMt*COSX 

AdLt'X 
115 IF(HV-|I 120*125, I2C 
12C ILR-lLiJ + I 

IK««IMJ»I 

X-RCUR)»COSX-ft(lHRJ*SINX 

RUHrt)»R! ILRj*Si<-4X*H( IMRI*C0SX 

RlUkj'X 
125 LONTINJE 

X*2.C*AILHI*SINCS 

Y«A(LL)*L0SX2*A(«IMI*SINX2-X 

X-A<LL)*SINX2*AIHHI •C0SX2-*X 

AlLM)-(AlLLl-A(HHll»SIKC$4^A(LHt*(C0&X2-SINX2l 

A(LLI*Y 

A(HH)-X 



rtSrS FOK CUHPLEIION 
TEST FOR M ■ LAST COLUHn 



130 IFIH-NI 115.140,135 

135 M«H*l 

GU TO 60 
C 
C TEST FtM L « SECOND FROM LAST CULUHN 

14C IFlL-U-l»I 1*5,150,145 
145 L«L*1 

GO ru 55 

I3C IF<IND-1) 16C,155,16C 
155 IND*0 

GO TO 50 

I COMPARE THRESHOLQ tflTH FINAL NORM 

16C IFITHR-AMRHXt 165,165.45 

: SJ*T EIGENVALJti ANO £ I Cei^VEC TORS 

165 iO»-N 

00 1S5 I-I,N 

LL-l*(l*l-ll/2 
JQ-N*( I-2> 
00 185 J-I.N 

JU-JOtN 
HM-J*( J«J-JI/2 

ifiUiihUHHw nOfiis*[is 

17C X>A(LLI 

A{LL)'A(HH) 

A(MM}«X 

IFIHV-ll 175*185,175 
175 DO 1«C K-1,N 

]LR-IO*K 

IHR>JO-»R 

X-RllLAt 

R(lLRI-fc([HRJ 
laC R( IHRJ*X 
laS CONTINUE 

KETURN 

END 



EIGE TOO 

EIGE 710 

EIGE 720 

EIGE 730 

EIGE 740 

EIGE 7SC 

EIGE T60 

EIGE 770 

EIGE TaO 

EIGE T90 

EIGE 80C 

ElGE 810 

EIGE B20 

EIGE SiO 

EIGE 840 

EIGE 85Q 

EICE 860 

EIG£ 870 

EIGE 880 

EJC£ 890 

EIGE 90C 

EIGE 910 

CIGE 920 

EIGE 930 

EIGE 940 

EIGE 950 

EIGE 960 

EIGE *70 

EICE 980 

EIGE 990 

EIGEIOOC 

EIGEIOIO 

EIGE1020 

EICEIC3C 

£IGEli:4C 

EI6E105C 

ElSElCbO 

tIGElCTO 

EIGEIOBO 

EIGE1C90 

EIGEllQG 

EIGEUIC 

eiGEI120 

CIGE113C 

EIGE1140 

EI&E115C 

E1GE1160 

EIGEllTO 

EIGEllBO 

£iGEU90 

EIGE1200 

EIGE 1210 

EIGE1220 

E1GE1230 

EIGE124C 

ElGfcl250 

EIGE126C 

£IG£1^7C 

EIGE 1280 

£IG£1290 

EICE13CC 

EIGEUIC 

EIGE132C 

£IG£ti3C 

EIGE134C 

E1GE1J5C 

EIGEI360 

EIGE137C 

EIGE1380 

EIGE1J9C 

EIGE14CIC 

£1GEI41C 

tIGEl*2C 

clGEl*3C 

£IGtl<.4C 

£IGEi*5C 

EICE1460 

CIGE147C 

EIGEUac 

tIGE149C 

EIGE 1500 

EI&E1510 

tIGE152C 

£IG£1530 

EIGEI54C 

tlGtl550 

t IGE 1560 

EIGE1570 

£IG£158C 

EIGE1590 

CIGEI6C0 

;ClCE1610 

EIGE 16 20 
EIGEi6 3~ 
£1G£16<40 
ElGE 16^0 
EICE 1660 
EIGE 1670 
EI&E16t)0 
tIGE1690 
EIGCUOO 
EIGE1710 
EIGC1720 
blCElT30 
t IGE 1740 
EICE175C 
fcIG£1760 
EIGE1770 
tlGtl780~ 
EIGE1790 
EICEiatC 
EICE1810 

EIGei83C 
E.fG£J84Cl 
EIGE185C 
E1GE1S6G 
ciGE187C 
EIGElaSO 
EI6Eia90 
EIGE1900 
clGE19lC 
EICE1920 
EICE 1930 
EIGE1940 
E1GE1950 
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Subroutine NROOT 

This subroutine calculates the eigenvalues, Xj, and 
the matrix of eigenvectors, V, of a real square non- 
symmetric matrix of the special form B'Ia, where 
both B and A are real symmetric matrices and B is 
positive-definite. This subroutine is normally 
called by the subroutine CANOR in performing a 
canonical correlation analysis. The computational 
steps are as follows. 

A symmetric matrix (storage mode 1) is formed 
by using the upper triangle elements of the square 
matrix B. Then the eigenvalues, hj, and the 
matrix of eigenvectors, H, of the symmetric matrix 
are calculated by the subroutine EIGEN. 

The reciprocal of square root of each eigenvalue 
is formed as follows: 



ANO X. 



where i = 1, 2, .... m 

m = order of matrix B 



(1) 



ith 



The matrix B~l/2 jg formed by multiplying the 



j"-" column vector of H by ^j, where j = 1. 2 m. 

The symmetric matrix S= (B~l/2)' AB~l/2 ^g 
formed in the following two matrix multiplications: 



Q=(b"^/2)'A 



S = QB 



-1/2 



(2) 
(3) 



and eigenvalues, Aj, and the matrix of eigenvectors, 
M, of S are calculated by the subroutine EIGEN. 

The matrix W = fi-l/^M is formed, and the 
vectors in W are normalized to form the matrix of 
eigenvectors, V, by the following equation: 



v.. 

ij 
where 



W-- 



V 



SUMV. 
J 

i = 1. 2. 



(4) 



] 



1, 2, ., 



m 
m 



m 

SUMV. = y; 

J ,-1 



W. 



(5) 



SUBROUTINE NROOT 

PURPOSE 

COMPUTE EIGENVALUES *N0 EIGENVECTORS Of * REAL NONSVMMETRIC 
NATRIK OF THE FORM 6-INVERSE TIMES *. THIS SUflROUTINE IS 
NORMALLY CALLED BY SUBROUflNE CANOR IN PERFORMING A 
CANONICAL CORRELATION ANALYSIS. 



20 



USAGE 

CALL NROOT 



IM.A.B.XL.Kl 



NROO 
. NROQ 
NROn 
NROO t,Q 
NROO 5 3 
NROO 60 
NROO TO 

NROO ao 

NROO 9C 

NROO 100 

NROO LIO 

NROO 120 

NROO 130 

NROO K.0 



DESCRIPTION Of PARAMETERS 

M - ORDER OF SgUARE MATRICES 

A - INPUT MATRIK (M X Ml . 

6 - INPUT MATRIX (H X Ml. 

XL - OUTPUT VECTOR OF LENGTH H CONTAINING EIGENVALUES Of 

R-INVERSE TIMES A. 
K - OUTPUT MATRIX (M X Ml CONTAINING EIGENVECTORS tOLUMN- 

REMARKS 
NONE 

SUBROUTINES ANO FUNCTION SUBPROGRAMS RCQUIREO 
EIGEN 



REFER TO M. rf. COOLEY AMD P. R. LQHNfS, ■ MUL ( I VAR I AT t PHII- 
9!f"^**^^.''9?-^"f BEHAVIORAL SCIENCES'. JOHN UlLEY ANO SONS. 



1^62, CHAPTER i. 



NKUii I SO 

NMIICt tti^ 

NMCIII 1 tc 

NHIII] I HD 

NHIXI ■'(() 

NHIHI /OO 
NH(HJ ^'10 
NROO ^/O 

NHCJI) p to 

NKUO ;"iO 
NROI) ?^0 
NRnt) 2«iO 

NRon ^ro 

NKdO 2B0 
NttOU 29 
NHdO IQO 
NROO 110 
NMIJd »2f: 



SURRQUTINE NROOT (H. A, 6. XL, XI 
DIMENSION A( II ,aU) .KLll l,K( II 



IF A OOUBLE PRECISION VFRSION OF THIS RnUTlNt IS DLSIRtO, I 
C IN COLUMN I SHOULD BE REMOVED FROM THE OOUHLE PRtCISION 
STATEMENT WHICH FOLLOWS. 

OOUBLE PRECISION A, 8, XL . X, SUMV 

IHE C MUST ALSO BE REMOVED FROM DUUHLt PRECISION STAItMfNIS 
APPEARING IN OTHER ROUTINES USED IN CUNJUNtTION WITH IHIS 
ROUT INE. 

THE DOUBLE PRECISION VERSHf^ Of THIS SUBROUMNF MuS T At ill nrciii 

CONTAIN OOUBLE PRtCISION FORTRAN FONCIIONS. SORT IN SlATt 
no ANO 175 MUSI BE CHANGtO TO OSQMI, ABS IN SIATtMtNf it 
MUST BE CHANGED TO DABS. 



, .NKOt) ISO 
NKOU 160 

NHfU] iro 

NH(ii) mo 

NHOU J40 
.NKOll -4 00 

NROO 410 
NROO 420 
NROO 4 30 
NROO 4t4C 
NRurj 45? 

NRfin 4&0 

NHOII 4 70 
NROn 4iO 
NHUU 49^ 

NROll blO 
NRIIO SIO 



COHPUIt EIGENVALUES AMD flGENVECTORS OF 6 

00 100 J=2,M 
L=M*( J-1) 
DO 100 J-1, J 
L=L*1 



C THE MATRIX fl IS A REAL SYMMETRIC MATRIX. 

MV = 

CALL EIGEN «B.X,M,MVl 
C 

C fORM RECIPROCALS OF SQUARE H03T OF EICENVAluFS. tH( RtSuiT 

C ARE PREMULTIPLIEO BY THE ASSOCIATED EIGENVECTORS. 

L = 

DO 1 10 J=1,M 
L«L»J 
no XL(JI = L.O/ SORTI ABSiaiDI) 
K=0 

00 115 J^l.M 
00 115 l=t,M 

115 B<K»iX(K)»XL(Jl 
C 

C FORM ( e**(-|/2l JPRIME • A ♦ {a**l-|/'2|| 

C 

00 120 1=1, M 
N2-0 

00 120 J=l,M 
N1=M*(I-|I 
L=M*IJ-1) »| 
X(LI=0,C 
00 120 K=1,M 
NI = NI*^I 
N2«N2*l 
I2D X(L)-X(LI *6(N1)«A(N2) 
L-0 

00 130 J=|,M 
00 130 I- I, J 
NI'I -M 
N2-M*|J-ll 
L-L*l 
AILI-0.0 
00 130 K=l,H 
Nl = Nl«-M 
N2=N2»I 
130 A(LI=AtLl«^XINll*B(N2l 
C 

C COMPUTE EIGENVALUES ANO EIGENVECTORS OF A 

C 

CALL EIGEN (A,X,M,MV) 
C=0 

00 140 l-l,M 
L>L»I 
140 XL(I i=Aai 
C 

C COMPUTE THE NORMALI/EO EIGENVECTORS 

C 

00 150 I-ltM 

N2»0 

00 150 J=l,M 

N1=I-M 

L-M*( J-lltl 

4(LI-0.0 

DO 150 K=l,« 

Nl=Nl»M 

N2»N2*i 
150 A(LI>A(LI»B(Nll*X(N2l 

L«0 

(t=0 

00 190 J=1,M 

SUMV-0.0 

DO 170 l«l,M 

L=L*1 
170 SUMV=SUMV»A(LI«A(LI 
175 SUMV- SORTISUMVI 

00 180 I-|,M 

«-*:*i 

ISO XIK):A(K|/SUMV 
RETURN 
END 



Ml NISNKUO 5 10 

C NMOII '>40 

NKIIO •.50 

NROII 560 

NKI1I1 '> to 

N«nrj sno 

NROll •>'*'} 

NKIIK iOO 

NHun (, 10 



NRIH) I ir 

NRijfj un 

NHIJO /JO 

NROI] /4" 

N«()(] 7S0 

NMOn ThO 

N«IJ() 7 70 

NRlin 7H0 

NRDII 790 

NHUO HOO 

NROO RIO 

NROO H^O 

NRnil H »0 

NKOll 840 

NRUII HSO 
NRIJU H'.O 

Nkon uro 

NKOO 8>10 

NROO H90 
NROO 900 
NROO 91C 
NROO 920 
NROO 9 JO 
HROG 940 
NROO 950 
NROO 960 
NROO 9T0 
NROO 9flO 
NROO 990 
NROO 1 030 
NKOOIOIO 
NR001020 
NROOIOIO 
NROOn40 
NROQIOSO 
NR0Qn60 
NROO 10 70 
NROniOBC 
NROO1090 
NROOilOO 
NROOt 110 
NROOI120 
NROO I HO 
NROOt 140 
NROO 1 1 50 
NR001160 
NROOl I 70 
NROQUaO 
NR001t90 
NROai200 
NH0QI21C 
N«OOI22D 
NROai^ JO 
NRO1J1240 
N«0ai250 

NR0012 TO 
NR00128D 
NR0ai290 
NROOl )0C 
NR00I3IC 
NROOl )2D 
NROOl 3)0 
NROOl 140 
NROOl 350 
NROOl 360 
NKOO13 70 
NRCQDSD 
NR0Q1390 
NROOI430 
NROOL 410 
NROO 14 20 
NROOl 4 30 
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Subroutine ATEIG 



c. Use of the Hessenberg form 



This subroutine computes the eigenvalues of a real 
upper almost- triangular matrix (Hessenberg form 
— see subroutine HSBG) using the double QR itera- 
tion of J. G. F. Francis. 

1. Mathematical background 

a. Definition of the QR Iteration 

Let A be a real or complex nonsitigular matrix of 
order n. Then a decomposition of A exists of the 
form 

A = QR 

where Q is unitary and R is upper triangular. If 
the diagonal elements of R are real and positive, 
Q is unique. Consider now the sequence of matrices 
A'P) defined recursively by 

A<°> = A, A^P> = Q<P> R^P>. A^P"1) = R<P)q<P>p. 0. 

Note that A^^^-""^ = Q^P^* A^^^ Q^^^ for p > 0; hence it 
follows that A^P) is similar to A for all p. 

Furthermore, if A satisfies certain conditions, 
it can be proved that A^P) tends to an upper triangu- 
lar matrix as p -» 0= ; thtis the eigenvalues of A are 
the diagonal elements of this limit matrix. 

b. Convergence 

If the moduli of the eigenvalues are distinct, the 
elements afe) below the main diagonal of A^P) tend to 
zero, as do^-'l^i | P/ l^j I P, the eigenvalues being 
subscripted so that | X i | > | X j+i] 

Thus, in general, the eigenvalues appear on the 
main di^onal, starting from the last position, in 
increasing order of moduli. 

So, when the smallest eigenvalue ^n has been 
found, we can reduce the order of the matrix by 
ne^ecting the last row and column and find ^n-i 
by the same process, without any special deflation. 

Note that the speed of convergence is consider- 
ably improved when the origin of the eigenvalues is 
shifted close to X.^- 

Such a shift, say s'P), can be introduced before 
an iteration and the opposite one afterwards. Then 
the iteration can be written as: 

a^p>-s<p>i=q^p)r^p) 

A<P"^)=r<P)q<P) + 3<P)i 

In general, A^j^ , for p large enough, can provide 
an efficient value for s(P). 



The Hessenberg form is preserved under^the QR 
iteration. Thus, a reduction of the initial matrix to 
the Hessenberg form can give a significant saving of 
computation in each iteration for the QR decompo- 
sition, the lower part of the matrix consisting only 
of the codiagonal terms. 

Before each iteration, the codiagonal terms will 
be inspected. If some of these are zero, the matrix 
will be split according to this occurrence, and the 
iteration will be applied to the lower main subma- 
trix only. 

d. The double QR iteration 

Let A be a diagonalizable real iq)per Hessenberg 
matrix. Such a matrix must be expected to have 
complex conjugate pairs of eigenvalues, ff these 
pairs are the only eigenvalues of equal modulus, it 
can be shown that they will appear as the latent roots 
of main submatrices of order 2. In this case, if a 
shift is close to one of these roots, it will be com- 
plex, and we will have to deal with complex ma- 
trices, although the initial one is real. The use of 
the double QR iteration avoids this inconvenience. 
Taking s^P"'"-'^) = s<P), consider the transforma- 
tion giving a(P+2) from A^P): 

^(P+2)^q(P+1)*q(p)*^(p)q(P)q(P+1) 

It can be proved that the product Q Q de- 

rives from the QR decomposition of the matrix M = 
(A^P) - s<P) 1) (A^P) - s(P+l)l), which is real. 

In fact, Francis (1961, 1962) showed that only 
the first colunrn m^ of M is necessanr for determin- 
ing the transformation which gives A'P'''^) from a'p), 
if they both have the Hessenberg form. 

Practically, the first part of the double iteration 
consists of the application of an initial transforma- 
tion NJ A(p) N, where Nj is unitary and such that 



Ni m, = ± 



Lllei 



This leads to a matrix which 



no longer has the Hessenberg form. 

Thus, the remaining part of the iteration will in- 
volve the application of (n-1) successive transfor- 
mations, which have the same form as the initial 
one whose matrices Nj are such that the resulting 
matrix A^P^^) has the Hessenberg form. 

This process can fail when a subdiagonal term of 
the given matrix is zero. In this case, the matrix 
can be split, and the iteration is performed on the 
lower main submatrix only. 

In the subroutine, Ni are Householder's matrices. 



Mathematics— Matrices: Eigenanalysis 167 



2. Progr amm ing considerations 

At each iteration, the latent roots x-, and x, of the 
lower main submatrix of order 2 are computed. 
Then, the followii^ situations can occur: 

a. The term a^ -i^n-2 ^^'^ be taken as zero. 
Then, x^ and X2 are eigenvalues of the original ma- 
trix, and the order of the matrix is reduced by 2. 
lANA(N) and lANA(N-l) are set to and 2 respec- 
tively. 

b. The term ajj^n-l can be taken as zero. In 
this case, a^ jj is an eigenvalue of the original ma- 
trix, and the order of the matrix is reduced by 1. 
IANA{N) is set to 1. 

0, One of the last two subdiagonal terms is 
stable through one iteration. Then the smaller one 
is considered as zero. The corresponding compo- 
nents of lANA are set to 0, 1, or 2, according to a. 
or b. 

d. The maximum number of iterations is reached. 
In this case, the smaller of the last two subdiagonal 
elements is taken as zero. The corresponding com- 
ponents of I AN A are set to 0, 1, or 2, according to 
a. or b. 

The user can check the results by inspecting the 
subdiagonal terms of the matrix on return from the 
subroutine, according to the vector I ANA, in the 
following way: 

If for each lANAff) containing 1 or 2, 2sisM, 

|A(I,I-l)|^10"^(|RRfl) |+|rI(])J), 
then RR(I) and Rl(l) were computed with a satisfac- 
tory accuracy. 

For reference see: 

(1) J. G. F. Francis, Computer Journal . October, 
1961 4-3, January, 1962 4-4. 

(2) J. H. Wilkinson, The Algebraic Eigenvalue 
Problem. Qarendon Press, Oxford, 1965. 
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('EFEPEACES 

J.C.f. fPAKCIS - THE CP TRAASFCRMA IKh THE CCHPUTCR 

JCLPKAL, vet. 4, NC. 3. CCTCfiER lS6i, VOL. 4. hC . 4, JAKUARVAIEI 390 
1S(^. J. F. bILKlNSUN - 1*-E AtCEERAIC EIGENVALUE PRCfLC^ - ATEI 400 
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UERCLTIAE ATEICIH.A.RR.Ri.UfcA.tJi 

CiPtfSICfc *UI.««IU,*llIl|.PRJi(2|,PRIIi|,UW(|i 

IMECtf f.Pl.C 

EI-l.C(-e 

EC-I.CE-< 

ElC-l.CE-K 

CEITA-C* 

PAXIT-'C 

IMIIAlUATICh 

2C M'fi-1 
ih = M*lA 

^^>I^*ll 

IFIMI 3C,IKC.3C 
3C KF-h*! 

ITEP'TICh CCCMER 
If>C 

PCCIS CF Tl-e ihC CRCEP WAIN SUBHATRIli AT IHE PREVIOUS 
IliBATltlk 



CC 4C l-i.i 
FPPnt<C.C 

4C ffltH'Q.C 



LIST IfcC SCfiCIAGChAL EiEPEATS AT TfE fPEVICLS ITERATION 



Fih-C.C 
FAM-C.C 

CRKlh St-IFT 

F-C.C 
S"C.C 

SCCT; cf IK LChfB fHh 2 ev 2 SUBfAIRI 

^i■^ i-i 
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n»l-IM*H 

Mf>l'IM*M 
6C I>Alf IMl-AlhM 

L-MT 

V>4.C«A(h tKMi thKIi 
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CC TC I^C 
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ff^lh 



.(.♦V 



CC IC i:C 

ICC if (i)i;c.iic.uc 

lie »^P(M)-«IMM) 

fH |^ )><(kA) 

CC TC 13C 
12C FR1M)-/UM 

HPIN l-A(Mhl} 
13t PIIM-C.C 

PHM I'C.C 

CC IC 1(C 
14C PRIMLL 

R1(M}*V 
PJ(M«-V 

i£c iFih:ii;tc.i;EC,iec 

Uii; Cf CCNVEPGEUCE 

I6C MA2-MM-Ii 

f>r'CC-PPlM)*PPIMI«ft|(NI|«RI(MJ 

tFS-EIC*£CKT(PPCCt 
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24C IFtAeSIA(KM)J-ElC«AES(A|NM) I l>CC,13CC.250 
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i6C If (AeSIFAk-nNhJ||-AES(A(NMM«E£M;4C.l240.30C 
3CC IFt ll-^AKIII 22C,12',C,12^C 

ccpfcte ife sufr 



2;c j«i 

CC 3tC I'i.i 

«-Kf-I 

Ifl4tS(PF(KI-FRH|ni«AtiSIRIIK) 

I *«i;!iKitKni) 24c,;ec,3tc 
;4C J-JM 

!(C fCMIhLE 
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'r^iC t^'C.C 
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GC IC UC 

^tC J'hti-j 
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CC TC tec 
4eC tohidlMtFi-lMI-rilUKRKM) 
5»PP(N)«SHIM I 
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im Hf Li(J UC HtCtACChiL l£fl»'S AKC ri-t PCCT« Cf IH 
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CC ilC 1-1, < 
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If lA- 
525 IPI-M 

CC SEC J'i,K2 

IFI-IFI-ll-i 

lF<Ae£U(IP|n-EPSI <CC.tCC,53C 
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Subroutine HSBG 

This subroutine reduces an n by n real matrix A by 
a similarity transformation to upper alm6st- 
triangular (Hessenberg) form. Each row is 
reduced in turn, starting from the last one, by 
applying a suitable right elimination matrix, and 
similarity is achieved by also applying the left 
inverse transformation. Thus the eigenvalues of 
A are preserved. 

1. Mathematical background 

Let A (P) denote the matrix obtained from A^*^) = A 
after reducing rows n,n-l, . . . ,n-pr+-l. The simi- 
larity which transforms a(p) to A (P^^) is as 
follows: 

a. First we determine a pivot element a^ip k 
whose column subscript k is such that 



n-p, k 



max ^(p) 

i 



n-p, 1 



,i = 1,2, 



,n-p-l 



b. If the pivot element a^zl k= 0, no trans- 
formations are necessary; that is, the (p*-l)th 
similarity is the identify transformation. Other- 
wise, if it is necessary (kj^ n-p-1), we interchange 
the kth and (n-p-l)th columns so that the pivot 
element is in the subdiagonal position. The same 
interchange is applied to the rows of A^P'. The 
resulting matrix is similar to a'P', and, to ease 
the notation, we denote it by a'P'. 

c. Define multipliers 

t>j - an-p,j/an-p, n-p-1 ]=1,2, . , . ,n-p-2 
Then the (p<-l)th similarity is given by the following. 



Right elimination: 
77 (P) - o..(P) 



1] 



= aij 



-b 



(P) „ (P) 



*i, n-p-1 



i=l,2, ,..,n-p 
j=l,2,...,n-p-2 

-. (P)-, (P) 



Left inverse transformation: 



otiier indices 



a, 



(P^l) . _ a (P) + F '^ h <P) - (P) 

i=l 
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^ (p*l) ^- (p) 



ly n-p-1 



Finally, A^"^" ' will have the upper almost-tri- 
angular form. 

For reference see J. H. Wilkinson, The Alge- 
braic Eigenvalue Problem. Clarendon Press, 
Oxford, 1965. " 



LK-K.L I 

DO 260 J-1 ,L2 
JK-K4J 

280 S«=S»4(LJI»4( JK) 
300 AtlKMS 



Sei iHk LOhtR PAKT tjf ThE HATAIX lU ^Ef-0 



DO 510 I" 

310 Ai n-o.o 

GO TO 20 
360 RtTURN 
END 



LtLI*. lA 



M'j'lC1070 
Miftoioao 
HS<1C10^C 
HSUOUQO 

H^ecmo 

HS*1CII?0 

H'jRon JO 

HSHCl 1*.0 
HS6C1150 

HSBCllTO 

HSftcimo 

HS1CJ190 
HS8C1200 
MS1C1210 
MSft&l220 
HSBf.l^'JO 



iUORnuTINE HS6G 

PURPOSE 

TO ftEOuC£ A REAL MATRIX INTO UPPER A(.HO$T TFIANGULAC FOFH 

USAGe 

CALL H58G(N,A,I*) 

OEiCftlPTION OF THE PARAn€T€KS 

H OAOER OF THE HATRIX 

A THE IftPUT MATRIX, N (<Y N 

lA SIZE at- THE FIRST OIHENSICK ASSIGNED TC THE AHF^AY 

A IN The calling pcucram when the mtihix is in 
OaudLE SUBSCRIPTED DATA STORAGE MOOE . IA = N MHEN 
THE MATRIX IS IN SSP VECTOf. STORAGE HICt. 

REMARKS 

THE HESSENHEPG FOKM REPLACES THE PRICINAL MATRIX IN THE 
ARRAV A. 



MtTMOO 

SlMLAtiry TCAhSFL'RMATIUNS USIh-O fcLEMENTAty tLI»1IN/TI0N 
MATRICES* WITH PARTIAL PlVUTIhG. 

f eFEPENCES 

J.H. KUXINSON - THE ALGE6kAlC EIGENVALUE PRCflLFM - 
CLARENDON PRESS, nxFnRU, l'J65, 



SUe^OUTINE H$(iG(N,A,IAl 

OIMENSIOh AUI 

DCUOLfe PRECISION S 

L«N 

NIA>L*IA 



LI A«( 



-lA 



L IS The BCn index Of THE ELIMINATION 
no IFlL-31 360,^0.40 

40 L I A^L lA-I A 
Ll-L-1 
L2»Li-l 

SEARCH FOR THf PIVOTAL ELEMENT IK THE LTH ROW 

ISUe = LIA4'L 

iPiv=isue-iA 

PlV=AbS(A( IPIVt) 

IF(L-J>) 90,90,50 
50 H-JPIV-IA 

DO to I=L,M,1* 

T'ABSIAI I 1 ) 

IF(T-PIVI 80,80,60 
60 IPIV°I 

PIV=T 
BO CONTINUE 

VO IFtPIVI 100,320.100 
10 IFfPlV-AeS(A( ISJ8I ) I ISO, tUO, 1^0 

INTCKCHANGfc THE CuLUMNS 



UO M-IPIV-l 

DO 140 I-l.L 
J««*l 

T-A< J( 
K'^LIA.I 

A( JI<AIK) 

140 A(K)=T 

INTt^CMANGt THE RTtaS 

H-L2-M/IA 

UV 160 1=L1.NIA.|A 
T>AI I ) 
J= l-M 
A( l|iA(J) 
160 A(J|sT 



TERMS OF THE ELEMFNTARY TR ANSf ORMATi CN 



RIGHT TRAN^PURHATIUN 





J = 


-lA 








OC 


z^io i-i 


.L2 






J = 


J«^IA 








LJ 


= L*J 








DO 


221 K-l 


.LI 






KJ 


«X*J 








KL 


-K*LIA 






^20 


A(KJ)=AIKJI-A(LJ1 


•A(KL> 


2*0 


CONTINUE 










LEFT TRANSFORMATION 




K-- 


-lA 








UU 


300 l«I, 


iN 





HSBG 10 

. ..HS6G 20 

HSBG 30 

H^QC 40 

HSBG SO 

HSBG 60 

hS*G TO 

Hsac 80 

HSBG 90 
HSRC 109 

Hsac 110 

HSfiG 120 
HSeG 130 
HS8G 140 

Hseo 150 
Hseo 160 
HSBG ITO 
HS8C 180 
HSBG 190 
HSBG 200 
nSBG 210 
H55C 220 
HSBG 230 
MS6C 240 
HSflG 250 
HSBG 260 
HSeC 270 
HSeC 280 
H$eC 290 
HS8D 500 
HSfiC 310 
HSBf. i20 
HSBG 330 
HSflr, 340 
. .HSBC. 3^0 
HSSG 360 
HSbG 3TC 
HSdG 380 
HSBG 390 
HS8G 400 
HS80 410 
HS9G 420 
HSBG *30 
HS8C 440 
HS6G 4S0 
HSBG 460 
HSeC 4T0 
HSBG 480 
HSBG 440 
HSSG 500 
HSBG SIO 
MSflG 520 
HSSG 5 30 
hS9C 540 
HSaO 550 
MS9G 560 
HSflG 570 
HSSC 580 
HS8C 590 
MSBG 600 
riSBG 610 
HSSG 620 
MS9G 630 
HSSG 640 
HSBG 650 
HSBG 660 
MS6G^6T0 
HSBG 660 
HSSG 690 
HS5G TOO 

Msac 710 

HSaG 720 
HSSG T30 
MSBG 740 
HS9G 750 
HS8G TtO 
HSBG 770 
HSSG 760 
HSSG 790 
HSeC 600 
HSBG 810 
MSaC 620 
hSSG 630 
hSRG 640 
HS8C 850 
HSBG 860 
HSBG 8 70 
HSBG 980 
HS8G 890 
H5BC ^00 
HSBG 910 
HSBG 920 
HSBG 930 
hS8C 940 
riSaC 950 
HSSG 960 
HS8C 970 
HSeC 980 
HSSG 999 
hSBGIOOO 

Hsecioio 
HSacio20 

HSBGtOSO 
HSeGl04C 
HSSGI050 
H$BC1060 
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Subroutine PSUB 



Subroutine PADD 



/o 



SUBROUTINE PAOD 



IOIMZ*X,IOIHX. Y.IOIHYI 

DESCRIPriON OF PAftAHETEAS 

I - VECr3ft OF RESULTANT CUEFF IC lENTS, ORDERED FROH 

SMALLEST 10 LARGEST POWER 
lOINZ - OINENSION Of t (CALCULATED) 
X - VECTOR OF COEFFICIENTS FOR FIRST POLYNOMIAL. 

FROM SMALLEST Tl LARGEST POWER 
lOinx - orHENSION OF X lOEGReE IS loinx-ii 
Y ~ VECTOR OF COEFFICIENTS FOR SECONO POLYNOMIAL 

0A06RED FAOM SMALLEST TO LARGEST POWER 
lOIMY - OIMENSION OF Y (DECREE (S IOIMY-11 



30 



60 
70 
80 



REMARKS 

VECTOR I HAY BE IN SAME LOCATION AS EITHER VECTOR X OR 

VICTOR Y ONLY IF THE OIMENSION OF THAT VFCTQR fS NOT LESS 

THAN THE OTHER INPUT VECTOR 

THE RESULTANT POLYNOHIAL MAY HAVE TRAILING ZERO COEFF IC lENTSPAOD 2J0 

PAOD ^80 
SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

NONE 



PADD 
PAOD 
PAOO 
PAOO 
PAOD 
PAOD 
PAOO 
PAOO 
PADO 
PAOD too 
PAOO 110 
PADO 120 
PAOO 130 
PAOO 1 40 
PAOO 150 
OROEtlCOPAOO 160 

PAOO iro 
PADD lao 

PAOD 190 
PADO 200 
PAOO 210 
PAOO 220 
PAOO 2 30 
PAOO 240 
PADO 2S0 
PAOO 260 



METHOD 

OINENSION OF RESULTANT VECTOR lOlHZ fS CALCULATED AS THE 
LARGER OF THE TWO (NPUT VECTOR OIHFNSIONS. CORRESPOND! NO 
COEFFICIENTS ARE THEN ADDED TO fORH /. 



SUBROUT INE PAOOIZ , I DIMZ . 
OlMENSlCm Zt 1 I .K( II .Y( I) 

Test oinENSioNs of sumhands 

NOIM= lOIMX 

IF ( lOtHX-IOIHVI 10.20.20 
I NOIM=I[)IHY 
' IF(NOIM) 90,90,30 
I DO 80 I >l.NOiH 

IFI I-IDIMXI 40,40.60 

IFI I-tOIMYl 50,50, TO 
I 21 I )'X( ll*Y( I } 

GO TD ac 

21 I )-Y< I ) 

GO TO 90 
1^(1 ! = )(( II 
' CONTINUE 

lOlMZ^NOlM 

RETURN 

END 



lOIHX, Y. lOIHYl 



PAOD 290 

PADO )00 
PAOO 310 
PAOO 320 
PAOO 310 
PAOO 340 
PAOO JSO 
PADO 360 
.PAOO 3 TO 
PAOO )60 
PAOD S'lO 
PADD 400 
PADO 4 10 
PADO 420 
PAOD 4 30 
PADO 440 
PAOO 450 
PADD 460 
PAOD 4T0 
PADD 480 
PAOO 490 
PAOD 5 00 
PADD 5 10 
PAOD 520 
PAOD 530 
PAOO 540 
PAOO 550 
PAOD 560 
PADO 5 70 
PAOO 5 80 
PADO 590 



SUHR(JUIIN( P^UH 

PURPOSE 

SUHTRACr ONE PULYNfJHIAL FROM ANUIHtR 

USAGE 

CALL PSUn(;,IDIM/,X,IDIMX,Y,lDIMn 

DESCRIPTION OF PAMAHLILHS 

I - VtCriR or RISUTANI CULfFHIINIS, ()H(Jf HI tl I HJIH 

SHALLESI IU lARGtSI PUWl K 
lOlM/ - OIHfNSlUN IU I (CALCULAliO) 
X - VECIIIH U( COLTFICftNtS FOR ll«<ir P(HYNI)H|AI, OHDI HI 

FROH SHAILTSI ft LAKGfSr PtIHLM 
lOIHX - DIHCNSKIN OF X (UIGREL IS IDIHXI) 
Y - VfCIJK Ul CIKirtCIlNIS FIIH SfCONU PtMYNriNIAI, 

aHOTRtO FKOH SHALLESI Ttl tARCISt PdHt M 
lOfMV - DIMCNSION OF Y (OLCRLF IS lUiHY II 

RE HARKS 

VECrrjR / HAY Hf IN SAHt LOCATION AS M t Ml R VIC KIR K (Ik 
VECrUR Y UNLY IF 1 HE DIMrNSlUN Uf THAI VICTOR IS Nl)f M SS 
THAN THE GIHtH INPUT VlXTtlR 
THE RfSULTANI PniYNOHIAI MAY MAVL TRAUINC /I KU CDt f f ICI I N( 

SURAOuriNFS ANU FUNCTION SUHPKUGRAMS RTOUIRLD 
NDNF 

METHOD 

OINFNSION OF RISUITANI VFCIUH lUlM/ IS CAICUIATIU A\ THI 
LARGER Uf THL IWn INPUT VEC1UH DIHt.NSIUNS. COE f T I C II N T S I 
VECTOR Y ART (HtN SUHTHALTfO fHtIN CORRT SPIINOI Nt: CUMIICIINI 
IN VECIUK X. 



SUBROUTINE PSUB(Z,IOIh; ,X 
DIMENSION 2t II, Kill ,YI II 



tnlMX, Y, lUIHYt 



TEST DIMENSIONS DF SUMHANDS 

N01M< lOIHX 

IF ( IDIHX-IOIHYI I0,?0,70 
I NDIH>I0IMY 
I IF iNDIHt 90.90,30 

I 00 ao I -1. NO in 

IF (i-IOIMXl 40.40,60 
I IF I I-IOIHYl 50,50, TO 
> m l-XI I l-Y( I t 

GO TU 80 
I 21 I l--Y(I ) 

CO TO SO 
I ZII|-X(lt 

CDNTINUF 

lOIHZ-NOIH 

RETURN 

END 



I'SUK 40 

PSUH 50 

PMJH AO 

PSUB /O 

PSUH «0 

PSUH 90 

PSUM 100 

psu« no 

PSUh li'O 

PSUM 1 10 

PSUH 140 

PSUH 150 

ripsuii 160 

PSUH 1 10 
PSUO I HO 

psuri 190 

HMiH ,'00 
PSUtt 210 
P-.UIJ /20 
p\uh y in 
PSUH 240 
PSUK 250 
PSUH //,o 

SPSIJH 2/0 
PSUH 2110 
PSUH /90 
(",UH 100 
PSUH ilO 
PSUH 320 
PSUH J 10 
PSUH 140 

spsun 150 

PSUH 360 
PSUH */0 
.PSIJB 1«0 
PSUH 390 
PSUH 400 
PSUH 410 
PSUH 420 

PSUH * »0 
PSUH 440 
PSUH 450 
PSUH 4hO 
PSUH 4 ro 
PSUH 4H0 
PSUH 490 
PSUH 500 
PSUB 510 
PSUH •>?0 
PSUH 530 
PSUH 5^0 
PSUH 550 
PSUH 560 
PSUH Sro 
PSUH 540 
PSUB 590 
PSUH 600 
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Subroutine PMPY 



Subroutine PDIV 



SUBROUTINE PMPY 



PURPOSE 

MULTIPLY TWO POLYMOHEALS 



USAGE 

CALL PMPYIi«(OIHZ, 



x.ioiMx.r.ioiiiYi 



DESCRIPTION OF PARAMET€RS 

I - VECT3R Qf RESULTAUT COEFFICIENTS, OROEHEO FROM 

SMALLEST TO LARGEST POWER 
lOIMZ - DIMENSION OF 2 (CALCULATEDI 
X - VECTOR OF COEFFICIENTS FOR FIRST PQlYNQHUt., OROEREDPHPY 160 

FROM SMALLEST T3 LARGEST POMER 
IDIMX - DIMENSION OF X (DEGREE IS IDIMX-H 
Y - VECTOR OF COEFFICIENTS FOR SECOND POLYNOMIAL. 

OROEREO FROM SMALLEST TO LARGEST POWER 
lOIMY - OIMENSION OF V I DEGREE IS lOIMV-l) 

REMARKS 

I CANNOT 8E IN THE SAME LOCATION AS X 
I CANNOT BE IN THE SAME LOCATION AS Y 



METHOD 

OIMENSION OF Z IS CALCULATED AS 101 MX* I DIMY-l 
THE COEFFICIENTS OF I ARE CALCULATED AS SUM OF PRODUCTS 
QF COEFFICIENTS OF X AND Y , MHOSE EXPONENTS AOO UP TO THE 
CORftESPONOING EXPONENT OF Z. 



SUBROUTINE PMPY (Z, I OIMZ ,X, lOIMX. Y, IDIMY ) 
DIMENSION Zdl.XdltYU) 

IFI [DIMX*IOtHYI 10.10.20 
' IOIMZ=0 

GO TO 50 
I IOIMZ = IDIMXi-IDIMY-l 

DO 30 1=1, IDIM? 
t Z<I I =0. 

00 *0 [=1, lOIMX 

00 -fO J = l,[0IMT 

K=I ♦J-l 

ZUI=X(ll*Y(Jl*Z(KI 
I RETURN 

END 



PHPY 


10 


PMPY 


It) 


PMPY 


*n 


PMPY 


•iO 


PMPY 


60 


PHPY 


70 


PMPY 


80 


PMPV 


90 


PHPY 


100 


PHPY 


no 


PMPY 


l?0 


PHPY 


1)0 


PHPY 


MO 


PMPY 


150 


;dphpy 


160 


PHPY 


170 


PMPY 


ISO 


PHPY 


190 


PMPY 


200 


PMPY 


?in 


PHPY 


??a 


PHPY 


230 


PHPY 


7*0 


PHPY 


250 


PMPY 


26 


PHPY 


?T0 


PHPY 


280 


PMPY 


790 


PHPY 


■)00 


PHPY 


310 


PHPY 


ipo 


PHPY 


^^n 


PHPY 


3*0 


PMPY 


)50 


.PHPY 


IAD 


PMPY 


370 


PMPY 


)ao 


PMPY 


^90 


PMPY 


«00 


PMPY 


*10 


PHPY 


470 


PHPY 


430 


PHPY 


440 


PHPY 


450 


PMPY 


460 


PMPY 


470 


PMPY 


4B0 


PMPV 


490 


PMPY 


500 


PHPY 


510 


PMPY 


520 



SUeROUTINE POIV 

PURPOSE 

DIVIDE ONE POLYNOMIAL BY ANOTHER 

USAGE 

CALL POIV (P. I 01 MP, X.I 01 MX, Y, lOIMY.TOL, IERI 

DESCRIPTION OF PARAMETERS 

P - RESULTANT VECTOR QF INTEGRAL PART 

lOIMP - DIHENSION OF P 

X - VECTOR OF COEFFICIENTS FOR OIVIOENO POLYNOMIAL 

ORDERED FROM SMALLEST TO LARGEST POWER. IT IS 

REPLACED BY REHAINOER AFTER DIVISION. 
IDIMX - OIMENSION OF X 
Y - VECTOR OF COEFFICIENTS FOR DIVISOR POLYNOMIAL. 

OROEREO FROM SMALLEST TO LARGEST POWER 
lOIHY - DIHENSION OF Y " 
TOL - TOLERANCE VALUE BELOW WHICH COEFFICIENTS ARE 

ELIMINATED DURING NORNALIZATION 
lER - ERROR CODE. IS NORMAL. I IS FOR ZERO DIVISOR 

REMARKS 

THE REMAINDER R REPLACES X. 

THE DIVISOR Y REMAINS UNCHANGED. 

IF DIMENSION OF Y EXCEEDS DIMENSION OF X, lOlMP IS SET 

ZERO ANO CALCULATION IS BYPASSED 



METHOD 

POLVNOHIAL X IS DIVIDED BY POLYNOMIAL Y GIVING INTEGER 
P ANO REMAINDER R SUCH THAT X = P»Y ♦ R. 
DIVISOR Y ANO REMAINDER VECTOR GET NORHALIZEO. 



SUBROUTINE POI V IP, I 01 HP. X. I DIMX. Y. lOI HY ,TOL . lER I 
DIMENSION P( LI.XI II ,YUI 

CALL PNORH ( Y, lOIMY ,TDL I 
IFMDIHVI 50,50,10 
10 IDIMP'I0IMX-IDIMY4l 
IFIIOIHPI 20.30.60 

DECREE OF DIVISOR WAS GREATER THAN DEGREE OF DIVIDEND 





20 


IOIHP-0 




30 


IER=0 




40 


RETURN 


C 






c 




Y IS ZER( 


c 








50 


IER = 1 
GO TO 40 



START REDUCTION 

60 IDIMX=I0IMY-1 

I-IOIMP 
70 II=I»IatHX 

Pt ll-X( II l/YI IDIMYI 

SUBTRACT MULTIPLE OF DIVISOR 

00 eO K=l. IDIMX 
J=K-l*I 
X(JI-XIJ)-P(II*Y(K1 

80 CONTINUE 

1 = 1-1 

IF( I } 90.90,70 

NOP.HALIZE REHAINOER POLYNOHIAL 

9C CALL PNaRHIX.EDINK.TDLI 
GO TO 30 
END 



PDIV 10 

POIV 20 

POI V 30 
POlV AO 
POIV 50 
POIV 60 
POIV 70 
POIV 80 
PDIV 90 
POIV 100 
PDIV 110 
POIV 120 
PDIV 130 
POIV 140 
. POIV 150 
PDIV 160 
PDIV 170 
POlV ISO 
POIV 190 
POIV 200 
PDIV 210 
POIV 220 
POIV 230 
POIV 240 
POIV 250 
POIV 260 
POIV 270 
POIV 280 
TO POIV 290 
POIV 300 
POIV 310 
POIV 320 
PDIV 3)0 
POIV 340 
POIV 350 
PART PDIV 360 
POIV 3 TO 
PDIV 380 
POIV 390 

POIV 400 

POIV 410 
POIV 420 
POIV 430 
POIV 440 
POIV 450 
PDIV 460 
POIV 470 
POIV 430 
POIV 490 
PDIV 500 
POIV 510 
PDIV 520 
PDIV 530 
POIV 540 
POIV 550 
PDIV 560 
POIV 570 
PDIV 580 
PDIV 590 
POIV 600 
PDIV 610 
POIV 620 
PDIV 630 
POIV 640 
PDIV 650 
POIV 660 
POIV 670 
POIV 680 
POIV 690 
PDIV 700 

POIV no 

PDIV 720 
POIV 730 
POIV 740 
POIV 750 
PDIV 760 
PDIV 770 
POIV 790 
POIV 790 
PDIV 800 
POIV 810 
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Subroutine PC LA 



Subroutine PADDM 



SUBROUTINE PCLA 



PURPOSE 

MOVE POLVNOHtAL X TO V 



USAGE 

CALL PCLAtY.IOlM 



. lOIM 



0€SCRIPTION OF PARAMETERS 

r - wecraH of rpsultant coefficicnts, oftoeREo from 

SMALLEST TO LARGEST POWER 
lOIMY - DIMENSION OF Y 
K - VECTOR OF COEFFICIENTS FOR POLYNOMIAL. ORDERED 

FROM SMALLEST TD LARGEST POWER 
lOIMK - DIMENSION OF X 



METHOD 

lOIMY IS RCPLACEO 6V IDIMX AND VECTOR X IS MOVtD TO 



SUSRDUriNf PCLA I Y. 101 MY* X, 101 MX I 

DIMENSION K( II.YIII 

IOIMY=IOIMX 

IFUOIMXI 30*30.10 
10 00 20 [ = 1, lOIMX 
20 Yl 1) = X( II 
30 RETURN 

END 



PCLA 10 

,.PCL» 20 

PCLA JO 

PCLA ^0 

PCl* 50 

PCLA 60 

PCLA TO 

PCLA 80 

PCLA 90 

PCLA 100 

PCLA 110 

PCLA 120 

PCLA 130 

PCLA 1*0 

PCLA 150 
PCLA 160 
PCLA 170 
PCLA 180 
PCLA 190 
PCLA 200 
PCLA 210 
PCLA 220 
PCLA 230 
PCLA 2*0 
PCLA 250 
PCLA 260 
PCLA 270 
PCLA 280 
.PCLA 290 
PCLA 300 
PCLA 310 
PCLA 320 
PCLA 330 
PCLA 3*0 
PCLA 350 
PCLA 360 
PCLA 370 
PCLA 390 
PCLA 393 



sueRouriNE paoom 

PURPOSE 

ADO COEFFICIENTS OF ONE POLYNOMIAL TO THE PRODUCT OF A 
FACTOR 8Y COeFFICIENTS 3F ANOTHCR POLYNOMIAL 



USAGE 

CALL PAOOMfZ, IDIMi, 



X.IDIMX.FACT.Y.IOIMY) 



DESCRIPTION OF PARAMETERS 

I - VECTDR OF RESULTANT COEFFICIENTS, ORDERED FROM 

SMALLEST TO LARGEST POWER 
IDf« - DIMENSION OF Z ICALCULATED) 



PODM 10 
. POOM 20 
POOM 30 
PDOM *0 
POOM 50 
PDOM 60 
PDDM 70 
PDOM 80 
PDOM 90 
PDDM 100 
PODM 110 
PDDM 120 
PDDM ISO 
PDDM L*0 
PDOM 150 
POOM 160 



- VECTOR OF COEFFICIENTS FDR FIRST POLYNOMIAL. DROEREOPDDN 170 



FROM SMALLEST T3 LARGEST POWER 
IDIMK - DIMENSION OF X lOEGREE IS IDlMX-lt 
FACT - FACTOR TO BE MULTIPLIED BY VECTOR Y 
Y - VECTOR OF COEFFICIENTS FOR SECOND POLYNOMIAL, 

ORDERED FROM SMALLEST TO LARGEST POWER 
lOIMY - DIMENSION OF Y (OECREE IS IDIHY-11 



REMARKS 

VECTOR I MAY 6E IN SAME LOCATION AS EITHER VECTOR X OR 

VECTOR Y ONLY IF THE DIMENSION QF THAT VECTOR IS NOT LESS 

THAN THE OTHER INPUT VECTOR 

THE RESULTANT POLYNOMIAL MAY HAVE TRAILING ZERO COEFFICI ENTSPODM 290 

PDOM 300 
SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

NONE 



POOM 180 
PDOM 190 
PDDM 200 
PDDM 210 
PDDM 220 
PDOM 230 
PODM 2*0 
PODM 250 
PDOM 260 
POOM 270 
PDOM 280 



METHOD 

DIMENSION OF RESULTANT VECTOR lOIMZ IS CALCULATED AS THE 
LARGER OF THE TWO INPUT VECTOR DIMENSIONS. COEFFICIENT IN 



VECTOR X IS THEN ADDED TO COEFFICIENT IN VECTOR 
BY FACTOR TO FORM Z . 



PODM 310 
PDOM 320 
PDOM 330 
PDOM 340 
PODM 350 
PDDM 360 



SUBROUTINE PAODMIZ. IDIM^.X, IDIMX.FACT . Y, [ DI MY ) 
DIMENSION ZIU.Kdl ,YIU 

TEST DIMENSIONS OF SUMMANOS 

NOIM^ IDtMX 

IF{ IDIMX-IDIMV I 10, 20,20 
I NDIH=IOIHY 
I IF(NDIMJ 90,90, 30 
' DO SO I=1.ND1M 

IFI l-IDIHK) *0, 40,60 
■ IF( l-IOIMY) 50.50,70 
' Z(I t=FACT*Y( Il+Xm 

GO TO 80 
\ til l=FACT»v( I ) 

GO TO 80 
' 21 I l=Kt I) 
I CONTINUE 

I0IM2=N0IH 

RETURN 

END 



MULTIPLIEOPODH 370 
POOM 380 
PDDM 390 

POOM *00 

POOM *10 
POOM *20 
POOM *30 
PODM 4*0 
POOM <,50 
PODM *60 
PDOM *70 
POOM AfiO 
POOM 490 
PODM 500 
POOM 510 
POOM 520 
POOM 530 
PDDM 5*0 
PODM 550 
PDDM 560 
PDDM 5 70 
PODM 580 
PDDM 590 
PODM 600 
PDDM 610 
PDDM 620 
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Subroutine PVAL 



Subroutine PVSUB 



SUSftOUTINE PVAL 

PURPOSE 

EVALUATE A POLrNDMIAL FOR A GIVEN VALUE OF THE VARIABLE 



ro 



USAGE 

CALL PVAL(RES,AftG,Xt IDIHKI 

DESCRIPTION OF PARAMETERS 

RES - RESULTANT VALUE OF POLYNOMIAL 

ARG - GIVEN VALUE OF THE VARIABLE 

t - VECTOR OF COEFFICIENTSt ORDERED F' 

LARGEST POWER 
lOIMX - DIMENSION OF X 



ROM SMALLEST TO 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

NONE 



MCTHOO 

EVALUATIOI^ IS DUNE 



MEANS QF NESTEO MULTIPLICATION 



RES=0. 

J=IOIMX 
1 IF(J)3,3,2 
Z RES=RES*ARG*XI J( 

J = J-l 

GO TO 1 
3 RETURN 

END 



PVAL 
..PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 90 
PVAL 100 

PVAL no 

PVAL 120 

PVAL UO 

PVAL 140 

PVAL ISO 

PVAL L60 

PVAL 170 

PVAL lao 

PVAL 190 
PVAL 200 
PVAL 210 
PVAL 220 
PVAL 230 
PVAL 2*0 
PVAL 2 50 
PVAL 260 
PVAL 270 
.PVAL 280 
PVAL 290 
PVAL 300 
PVAL 310 
PVAL 320 
PVAL 330 
PVAL 3*0 
PVAL 350 
PVAL 360 
PVAL 3T0 
PVAL 380 
PVAL 390 
PVAL *00 



SLERCLIlhE PVSUB 

PLRFCSC 

SLinilLIE VARIieLf Of A FClYNOMIAL BY ANC1HEP PCLYNOPIAL 

CALL rvSUB(2.IClP2.Jl.lOIPX.V.IGlMy.taCSt(ltkCRK2t 

CESCPIPTICI^ CF PiRAfEIERS . 

I - «ECTC« CF COEFFICICNIS FOR RE£UL1AM PCLYMCHIALt / 

CRCtPfC FRCH SfAiLEST TC lARCESI POkER 
IC1P2 - CIPChSICN CF I 
X - ^ECTCfl Cf COEFFICIENTS fCR CRIGIN^L fCLVKCMIAL, 

CRCERCC FRCI« SMALLEST TC lARCEST PCtiER 
ICIPX - CfPEKSICh CF « 
Y - VECTCfi CF COEFFICIEKTS FCR PCLYNCMIAL hHICh IS 

SUCSHIUICO FCR VARIABLEt CRCEKED FRCP SMALLEST TO 

LiRCESI PChER 

icifv - cifEhsich Cf y 

hCRKl - MCRKIhC STCMAGE ARRAY (SAPE OIPEhSICh AS 11 
hC«K3 - hCRKIKC STCRACE ARRAY (SAPE ClPEkSICf AS H 

REPJRKS 

StBRCUIIKES the FLNCTIOK SCCPRCCRAPS RECIjIREO 
fPFY 
FACCM 
PCLA 

PE1FCC 

MJRIABLE CF PCLVNCtilAL % IS SUBSTltLIEC BY PCLYNCPIAL Y 
IC FCR^ PCiVlkCPIAL I, CIPEKSICN CF K£h PCLVI^CMAL IS 
lICIMX-lJfllCIPY'lMU UeROUTIhE REQUIRES ThC hORK AREAS 



SLBRCUTUE FVSuen.ICI*'i,J(.ICI#')i.1i. ICir'Y.hORKl.hORKf ) 
CIPEhSlCk i(II.)lll).YUI.WCfiKl(ll,kORK2lll 

lESl CF CIMEhSlCkS 

IF (1CIP>-11 l.!t3 
1 ICIPi-C 

3 IC1P2-1 

IF (ICIPY'ICIMX-ICIKT) 2,2.* 



KCCllU'l. 



cc 



i« 



. 1CI»> 



.Ihll 



CALL Fr'Ft{bCRI<<iita2.V,ICIKY,kCRKI 

can FCL«lkCRK|,lMl,hCCKi,Ikt2 1 

f ACT-«(I) 

CALL FfLtPUiICIPR.Z.ICIfZ.rACI.kCRKl.Un 

ICI^i-IC 1K> 

CCMIfLE 

C( IC ; 



30 
*0 
50 



PVSU 
.PVSU 
PVSU 
PVSU 
PVSU 
PVSU 
PVSU 

PVSU 80 
PVSU to 
PVSU 100 
PVSU ilO 
PVSU 120 

PVSU no 

PVSU 1*0 
PVSU 150 
PVSU 160 
PVSU 170 
PVSU t«0 
PVSU 190 
PVSU 20O 
PVSU 210 
liVSU 220 
PVSU 230 
PVSU 2*0 
PVSU 250 
PVSU 260 
PVSU 270 
PVSU 260 
PVSU 290 
PVSU 300 
PVSU 310 
PVSU 320 
PVSU 130 
PVSU 3*0 
PVSU 350 
PVSU 3«0 
PVSU 3 70 
PVSU 300 
..PVSU 390 

PVSU *aa 

PVSU *10 
PVSU *20 
PVSU *30 
PVSU **0 
PVSU *50 
PVSU *60 
PVSU *70 
PVSU *80 
PVSU *90 
PVSU 500 
PVSU 510 
PVSU S20 
PVSU 530 
PVSU 5*0 
PVSU iSO 
PvSu 560 
PVSU 5 70 
PVSU 590 
PvSU 590 
PVSU 600 
PVSU 605 
PvSU 610 
PVSU 620 
PVSU 630 
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Subroutine PILD 



Subroutine PDER 



SUBROUflNt PILQ 

PURPOSE 

EVALUAte POLVNOMIAL AND ITS FIRST OERIVAIIVE FOR A GIVEN 
ARCUHENT 

USAGE 

CALL PILD (POLY, OVAL .AHCUH, X, tDIMK) 

OESCRIPTION OF PARAMETERS 

?OLt - VALUE OF POLrNOMIAL 

OVAL - DERIVATIVE 

APGUM - ARGUMENT 

K - VECTOR OF CDEFFICIENrS FOB PQLYNaMIALi OROEREO 

FROM SMALLEST T3 LARGEST POWER 
lOIMK - OIMENStON OF K 

REMARKS 
NONE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
PQSO 

MErHOD 

EVALUATION IS DONE BY MEANS OF SUBROUTINE PQSO OUADRATIC 
SVNTH€TrC DIVISION) 



PILD to 
20 

30 



SUBROUTINE PILD ( POLY ,OVAL » ARGUM, X, I 01 MXI 
DIMENSION X( L I 



P=ARGUH*ARGUM 
Q^-ARGUM«ARGUM 



CALL PQSO I OVAL , POL V.P.OiKtIOIMX) 
POLr^ARGUM*OVAL*POLr 
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.PILO 
PILD 
PILD 
PiLD 
P[LD 
PILD TO 
PILO 80 
PILO 90 
PILD 100 
PILO 1 10 
PILO IZO 
PUD 130 
PILO 140 
PILD 150 
PILD Ih^ 
PILO 170 
PILO 180 
PILD 190 
PILD 200 
PILD ZiO 
PILO 220 
PILD 230 
PILO 2*.0 
PILO 250 
PILO 260 
PILD 270 
PILD 290 
PILD 290 
PILD 300 

.PILO 310 
PiLD 320 
PILD J30 
PILO 340 
PILD 350 
PILD 3&0 
PILD 370 
PILO 380 
PILD 3*)0 
PILD 400 
PILD 410 
PIlD A20 
PILO 430 
PILD 440 



SUBROUTINE PDER 



POLYNOMIAL 



• IDIMK 



OESCRIPIION OF PARAMFTFRS 

Y - VECTOR OF CQfFFICICNTS FOR DER 

SMALLEST TO LARGEST POWER 
IDIMY - DIMENSION OF Y (EQOAL TO lOIMX 
X - VECTOR OF COEFFICIENIS FOR OR I ' 

ORDERED FROM SMALLEST TO LAUGE 
lOIMX - OIMtNSION OF X 

REMARKS 
NONE 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 



J PDf « 

POtR 

PDER 

PDER 
PDER 
PDER 
POER 
POtR 
POtR 
PDER 
POtR 
POtR 

IVATIVE. ORDERED FROM PDtB 
PDER 

-II POER 

PDER 
POER 
POER 

poeR 

PDER 
PDER 
PDER 
PDER 
PDER 
POtR 
PDER 
LESS ONE. DERIVAIIVEPOER 



METHOD 

DIMENSION OF Y IS SET AT DIMENSION 

IS THEN CALCJLATEO BY MULTIPLYING COEFFICIENTS BY THEIR 

RESPECTIVE EXPONENTS. 



SUBROUTINE POERIY.IOIH 
DIMENSION X( I), Y< 1) 

TEST OF DIMENSION 
IF ( 101 MX-lt 3. 3, I 
IDIMY=!DIMX-I 

EXPT^O. 

on 2 1= It IDIMY 

ExpT = exPTn. 

Y( I ) = x) !• i(«ExPr 
GO TO 4 

IDf MY=0 

RETURN 

ENO 



PDER 
POER 
PDER 
.POER 
POER 
PDER 
POER 
POER 
PDER 
POER 
POER 
POER 
POER 
POER 
PDER 
POER 
PDER 
POER 
PDER 



140 
150 

160 
170 
IBQ 
190 
200 
210 
220 
2 30 
240 
250 
2fcO 
2TQ 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
390 
390 
400 
410 
420 
4 30 
440 
450 
460 
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Subroutine PINT 



Subroutine PQSD 



PINT 



10 



suflRnuTiNe PiNr 

PURPOSE 

FIND IMfEGRAL Of A POLYNOMIAL Wl IH CONSrANT OF INTECAATION 
eOLJAL TO ZERD 

USAGE 

CALL PINr(¥,IOIMY,X,IDIMXI 

OeSCRIPriQN OF PARAMETERS 

Y - VECT3R OF COEFFICIENrS F0« INTEGRAL* ORDERED FROM 

SMALLEST TO LARGEST POMEfl 
IDIMY - OIMEMSION OF Y lEQUAL TO IDIMXtU 
K - VECTOR OF COEFFICIENTS FOR ORIGINAL POLYNOMIAL, 

OBOERED FROM SMALLEST TO LARGEST POWER 
IDIHX - DIMENSION OF X 



SUSROUTtNES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

OIMENSION Of Y IS SET AT DIMENSION OF X PLUS ONE, AND THE 
CONSTANT TERM IS SET TO iERO. INTEGRAL IS THEN CALCULATED 
BY OIVrOING COEFFICIENTS SY THEIR RgSPECTIVE EXPONENTS. 



SUBROUTINE P INT ( Y ,1 OIMY.X , I DIMX ) 
DIMENSION XCK, Y( n 

I0IMY=101MX*1 
Y( 11=0. 
IF(IOIHX) 1.1.2 

1 RETURN 

2 EXPT=1. 

DO 3 I«2.rOIMY 
Y) I } = K( I-l 1/BXPT 

3 EXPT=EXPT*1. 
GO TO 1 

END 
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.PINT 
PINT 
PINT 
PINT 
PINT 
PINT 
PINT 80 
PINT 90 
PINT 100 
PINT 110 
PINT 120 
PINT 130 
PINT 140 
PINT 150 
PINT l&O 
PINT ITO 
PINT 160 
PINT 190 
PINT 200 
PIN-T 210 
PINT 220 
PINT 230 
PINT 2<i0 
PINT 2S0 
PINT 260 
PINT ZTO 
PINT 280 
PINT 290 
PINT 300 
PINT 310 

.PINT 320 



SJBROUTINE PQSD 

PURPOSE 

PERFORM QUADRATIC SYNTHETIC DIVISION 

USAGE 

CALL PQSO(A,B,P.Q,X, lOIMXI 

DESCRIPTION OF PARAMETERS 

A - COEFFICIENT OF I IN REMAINDER (CALCULATED! 
B - CONSTANT TERM IN REMAINDER (CALCULATEOI 
P - COEFFICIENT OF t IN QUADRATIC POLYNOMIAL 
a - CONSTANT TERM In OUADRATIC POLYNQHIAL 
X - COEFFICIENT VECTOR FOR GIVEN POLYNOMIAL. OR 

FROM SMALLEST TD LARGEST POWER 
lOIMx - OIMENSION OF X 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 



METHOD 

POLYNOMIAL IS DIVIDED BY THE QUADRATIC 
THE LINEAR REMAINDER A*Zt8 



Z*»2-P*Z-Q GIVING 













OIMENSION X( I) 








PINT 


360 




PINT 


370 




PINT 


360 


J=IDIMX 












2 Z=P*A*S 


PINT 


410 






420 




PINT 


430 




PINT 


<i40 


GO TO i 


PINT 


450 


3 RETURN 




460 


END 



•P.O.X, IDIMX) 



20 
30 

40 



PQSD 
..PQSD 
PQSD 
PQSO 
PQSD 
PQSD 
PQSD 
PQSD 
PQSD 90 
PQSD 100 
PQSD tlO 
PQSD 120 
PQSO 130 
PQSO 140 
PQSO 150 
PQSO 160 
PQSD 170 
PQSO IBO 
PQSD 190 
PQSD 200 
POSO 210 
PQSD 220 
PQSD 230 
PQSO 240 
PQSO 250 
PQSO 260 
PQSD 270 
PQSO 2 80 
PQSD 290 
PQSD 300 
.PQSO 310 
PQSD 320 
PQSD 330 
PQSD 340 
PQSD 350 
PQSD 360 
PQSO 3T0 
PQSO 380 
POSO 390 
PQSO 400 
PQSO 410 
PQSD *20 
PQSD 430 
PQSD 440 
PQSD <.50 
PQSO 460 
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Subroutine PCLD 



Subroutine PGCD 



SUBROUriNE PCLO 

PURPOSE 

SHIFT OF ORIGIN (COMPLETE LINEAR SYNTHETIC DIVISION) 

USAGE 

CALL PCLOtX.IOIHXtUI 

DESCRIPTION OF PARAMETERS 

X - VECTOR OF COEFFICIENrS. OROEftED FROM SMALLEST TO 

LARGEST POWER. IT IS REJ>LACEO flV VECTOR OF 

TRANSFORMED COEFFICIENTS. 
lOIHX - DIMENSION OF X 
U - SHIFT PARAMETER 

REMARKS 
NONE 

SUfiftOUTINfS AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

COEFFICIENT VECTOR XIII OF POLrNOMIAL PIZ) IS TRANSFORMED 
SUCH THAT 0(£}-PIZ-UI WHERE QUI DENOTES THE POLYNOMIAL 
WITH TRANSFORHEO COEFFICIENT VECTOR. 



SUBROUTINE PCLD (X. lOIMX.UI 
OIHENSION X(11 



J=IDtHX 








IF (J-KI *, 


r4. 


p3 




X(J-ll=X(J- 


-11 


l«U*XIJI 


J=J-1 








GO TO 2 








K=K.*1 








IF 1 lOIMX-K) 


5, 


1 5.1 


RETURN 








END 









PCLO 


10 


.PCLO 


?0 


PCLO 


30 


PCLO 


*0 


PCLO 


S3 


PCLO 


60 


PCLO 


TO 


PCLO 


80 


PCLO 


90 


PCLD 


100 


PCLO 


110 


PCLO 


120 


PCLO 


130 


PCLD 


UO 


PCLD 


150 


PCLD 


160 


PCLD 


IIQ 


PCLD 


leo 


PCLD 


i<)n 


PCLD 


700 


PCLO 


210 


PCLO 


7?0 


PCLO 


?30 


PCLD 


Z*0 


PCLD 


?50 


PCLD 


260 


PCLO 


270 


PCLD 


280 


PCLD 


290 


PCLD 


300 


PCLO 


310 


PCLO 


320 


PCLD 


310 


PCLO 


340 


PCLO 


350 


PCLD 


360 


PCLO 


370 


PCLD 


360 


PCLD 


^90 


PCLD 


400 


PCLO 


4LQ 


PCLD 


*70 


PCLO 


430 


PCLO 


**0 



SUBROUTINE PGCD 

PURPOSE 

DETERMINE GREATEST COMHON DIVISOR OF TMO POCYNOMIAtS 

USAGE 

CALL PGCD I X, I 01 MX, V, lOIMY .HORK.EPS.l E«l 

DESCRIPTION OF PARAMETERS 

X - VECTOR OF COEFFICIENTS FOR FIRST POLYNOMIAL, 

OROEREO FROM SMALLEST TO LARGEST POWER 
DIMENSION OF X 

VECTOR OF COEFFICIENTS FOR SECOND POLYNOMIAL, 
ORDERED FRON SMALLEST TO LARGEST POWER. 
THIS IS REPLACED BY GREATEST COMMON DIVISOR 
DIMENSION OF Y 
WORKING STORAGE ARRAY 

TOLERANCE VALUE BELOM WHICH COEFFICIENT IS 
ELIHINATEO DURING NORMALIZATION 
RESULTANT ERROR CODE WHERE 
lER^O NO ERROR 
IER=L X Oft V IS ZERO POLYNOMIAL 



lOIMX 



I 01 MY 

WORK 
EPS 



lER 



C REMARKS 

C IDIMX MUST eE &REATER THAN IDIMY 

C IDIHV=1 ON RETURN MEANS X AND Y ARE PRlHEt THE GCO IS 

C CONSTANT. IDIMX IS DESTROYED DURING COMPUTATION. 

C 

C SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

C PDIV 

C PNORN 



GREATEST COMMON DIVISOR OF TWO POLYNOMIALS K AND V IS 
OETERMINED ^Y MEANS OF EUCLIDEAN ALSORITHM. COEFFICIENT 
VECTORS X ANO Y ARE DESTROYED AND GREATEST COMHON 
DIVISOR IS GENERATED IN Y. 



SUBROUTINE PGCO(X, IDIMX.Y, IDIMY , WORK, EPS, lER I 
DIMENSION X( 11, y( 1) ,WORK( I) 

DIMENSION REQUIRED FOR VECTOR NAMED WORK IS IDI MX-I D I MY* I 

1 CALL POIVIWORKtNDIMtX, IDIMX, Y, lOIMY, EPS, lER) 
IFI lER} 5,2.5 

2 IFIIDIMXI 5.5,3 

INTERCHANGE X AND Y 

3 00 4 J=1,10IHY 
WORK(II=X(JI 
X(J).Y( J) 

** Y(JI=WORKIll 

NOIH-IOIMX 

IDIMX=IOIMY 

IOIMY=NDIM 

GO TO I 
5 RETURN 

END 



PGCD to 
..PGCD 20 
PGCD 30 
PGCD ■'.0 
PCCO 50 
PGCO 60 
PGCD TO 
PGCO BO 
PGCO 90 
PGCD 100 
PGCO 1 10 
PGCO 120 
PGCD 130 
PGCO L40 
PGCO 150 
PGCD l&O 
PGCD 170 
PGCD lao 
PGCD 190 
PGCD 200 
PGCO ZIO 
PGCO 220 
PGCO 230 
PGCO 240 
PGCD 250 
PGCO 260 
PGCO 2 70 
PGCO 2S0 
PGCD 290 
PGCD 300 
PGCD 310 
PGCD 320 
PGCO 330 
PGCO 340 
PGCD 350 
PGCD 360 
PGCD 3 70 
PGCO 380 
PGCD 390 
PGCO 400 
PGCO 410 
.PGCD *20 
PGCD 430 
PGCO 440 
PGCD *50 
PGCD 460 
PGCO 470 
PGCO *80 
PGCO 490 
PGCO 500 
PGCO 510 
PGCO 520 
PGCO 530 
PGCO 540 
PGCD 550 
PGCD 560 
PGCD 570 
PGCD 580 
PGCD 590 
PGCD 600 
PGCD 610 
PGCD 620 
PGCO 630 
PGCO 640 
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Subroutine PNORM 



Subroutines PECN and DPECN 



$UBHOuriNe PNORM 



VECTOR OF A POLYNOMIAL 



USAGE 

CALL PNORtUK. lOIMX.EPS 

OeSCRIcrlON OF PARAMETERS 

X - VECTOR Of ORI 

SMALLEST TO L. 

IDIHX - DIMENSION OF 

EPS - TOLERANCE BEL 

REMARKS 

IF All coefficients are 

POLYNOMIAL M I TH IOIMX = i 

SU8RtWTINES AHO FUNCTION 
NONE 

METHOD 

DIMENSION OF VECTOR K 
COEFFICIENT tllTH AN AB 



GINAL COEFFICIENTS, 0H0ER6D FROM 
ARGEST POWER. IT REMAINS UNCHANGED 

IT IS REPLACED BY FINAL OIMENSIQN 
OW WHIC^ COEFFICIENT IS ELININATEO 



SUBPROGRAMS REQUIRED 



IS REDUCED 6Y ONE FOR EACH TRAILING 
SaLUTE VALUE LESS THAN OR EQUAL TO EPS 



SUBROUTINE PNORM( X, lOI MX, EPS I 
DIMENSION XI I) 

t IfllDIMXI 'tt'tfZ 

2 IF(ABS(X( IDIMXn-EPS) 3. 3. A 

3 IOIMX=IOIMX-l 
GO TO 1 

4 RETURN 
END 



PNOR 


10 


PNOR 


?0 


PNOR 


30 


PNflft 


40 


PNOR 


50 


PNOR 


60 


PNOR 


70 


PNOR 


80 


PNOR 


90 


PNOR 


100 


PNOR 


no 


PNOR 


V20 


PNOR 


1)0 


PNOR 


1*0 


PNOR 


150 


PNOR 


160 


PNOR 


170 


PNOR 


lao 


PNOR 


no 


PNOR 


?00 


PMOR 


210 


PNOR 


220 


PNOR 


730 


PNOR 


?40 


PNOR 


250 


PNOR 


260 


PNOR 


?T0 


PNOR 


260 


PNOR 


290 


PNOR 


^00 


PNOR 


310 


PNOR 


^?o 


PNOR 


HO 


PNOR 


343 


PNOR 


■»5D 


PNOR 


160 


PNOR 


370 


PNOR 


3B0 


PNOR 


3V1> 



PjX 



i-1 



= eps for 



X ^ 



These subroutines perform the economization of a 
polynomial for symmetric range. 

A given polynomial P(x) with coefficient vector 
P = (Pj, . . • .Pjj). representing a function f(x) with a 
maximum error eps over the range (-bound, bound) 

n 
— that is, I f(x) - Y, 
i=l 

bound — is reduced to a shorter coefficient vector, if 
possible, representing f(x) over the same range with 
a maximal error absolutely less than tol by means of 
telescoping. 

The Chebyshev polynomial T ,(t) has 2^~^ as co- 
efficient of t^"-"-. As a consequence, t'^"-'- may be 
replaced by T^_j^{t)/2^~^ plus a polynomial in t of 
degree n-2. 

This means that the telescoped polynomial: 



\(x) 



E Pi X 

i=l 



i-1 



- (p . bound 
n 



-V2-2) 



T , (x/bound) 
n-1 



is of degree n-2 representing f(x) over the range 
I X I = bound with a maximal error err absolutely less 
than epsj^ = eps + | P^ | .bound ^ /2^~ , since 
|Tn_i(t)|^lfor|t|^l. 

If epsi is less than the tolerance tol, the proce- 
dure may be repeated with P^ instead of P, and eps^ 
instead of eps. 

This iterative scheme results in a polynomial 
approximation to f(x) which possibly consists of fewer 
terms and thus may allow the computation of f(x) with 
less effort than the original approximation P(x). 

Naturally, tol should be greater than eps. 

For reference see K. A. Brons, Algorithm 38, 
Telescope 2, CACM vol. 4, 1961, no. 3, pp. 151-152. 
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eouho 
eps 



TOL 



WORK 



SUSROUriNE PECN 

PURPOSE V 

ECONOMIZE A POLrMOHIAL FOR SYMMETRIC RANGE 

USAGE 

CALL PECN (P.N.BOUNO.EPS.TOL.MOftKl 

DESCRIPTION OF PARAMETERS 

P - COEFFICIENT VECTOR OF GIVEN POLYNOMIAL 

OH RETURN P CONTAINS THE ECONOMIfEO POLYNOMIAL 
N - DIMENSION OF COEFFICIENT VECTOR P 

ON RETURN N CONTAINS DIMENSION OF ECONOMIZED 

POLYNOMIAL 

RIGHT HAND eOUNDARY OF RANGE 

INITIAL ERROR SOUND 

ON RETURN EPS CONTAINS AN ERROR BOUND f^OR THE 

ECQNOHUEO POLYNOMIAL 

TOLERANCE FDR ERROR 

FINAL VALUE OF EPS HOST BE LESS THAN TOL 

WORKING STORAGE OF DIMENSION N (STARTING VALUE 

OF N RATHER THAN FINAL VALUE) 

REMARKS 

THE OPERATION IS BYPASSED IN CASE OF N LESS THAN I. 

IN CASE OF AN ARelTRARY INTERVAL (XL,XR) IT IS NECESSARY 

FIRST TO CALCULATE THE EXPANSION OF THE GIVEN POLYNOMIAL 

WITH ARGUMENT X IN POWERS OF T = ( X- I KR-XL ) /Z t . 

THIS IS ACCOMPLISHED THROUGH SUBROUTINE PCLD. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

SUBROUTINE PECN TAKES AN IN-IJST DCGREE POLYNONIAL 

APPROKIMATION TO A FUNCTI^IN FIX) VALID WITHIN A TOLERANCE 

EPS OVER THE INTERVAL ( -BOUND. BOUND) ANO REDUCES IT IF 

POSSIBLE TO A POLYNOMIAL OF LOWER DEGREE VALID WITHIN 

THE GIVEN TOLERANCE TOL. 

THE INITIAL COEFFICIENT VECTOR P IS REPLACED 6Y THE FINAL 

VECTOR. THE INITIAL ERROR BOUND EPS IS REPLACED BY A FINAL 

ERROR BOUND. 

N IS REPLACED BY THE DIMENSION OF THE REOJCEO POLYNOMIAL. 

THE COEFFICIENT VECTOR OF THE N-TH CHEBYSHEV POLYNOMIAL 

IS CALCULATE3 FROM THE RECURSION FORMULA 

A(K-l I =-A(K*l l*K«L»U*(K-t J / ( < N + K-2 ) • 1 N- K*2 I I 

REFERENCE 

K, A. BRONS, ALGORITHM 38, TELESCOPE 2t CACM VOL. ■*, 1961, 

NO. 3, PP. 151-152- 



SUBROUTINE PECNI Pt N.BOUND, EPS. TOL, WORK) 

DIMENSION PID.HORKdl 
FL=BOUND*eOUND 

TEST OF DIMENSION 

1 IF(N-1I2,3,& 

2 RETURN 

3 IF{EPS*AeSIP< l))-T0L)'i.*,5 

* N = 

EPS=£PS+AaS(P(l)) 

5 RETURN 

CALCULATE EXPANSION OF CHEBYSHEV POLYNOMIAL 

6 NEN0<N-2 

WORK(N)>-PtN) 

DO 7 J«1,NEND,2 

K = N-J 

FN=INEN0-l*K»*(N6N0+3-KI 

FK-'K*(K-ll 

7 W0RK(K-1)--M0RK(K*I l»FK*FL/FN 

TEST FOR FEASIBILITY OF REDUCTION 

lF(K-2)fl,B.9 

8 FN-AeS(W0RK< l> I 
GOTO 10 

9 FNaN-l 
FN=ABS(M0RK(2)/FN) 

10 IFiePS*-FN-T0L)ll,lU5 

R EOUC E POL YNOH I AL 

11 EPS=EPS*FN 
N«N-1 

00 12 J>K,N,2 

12 P1J-11=P( J-1 l*WORK( J-1 I 
GOTO 1 

END 



70 



PECN 
..PECN 
PECN 
PECN 
PECN 
PECN 
PECN 
PECN 
PECN 90 
PECN 100 
PECN I 10 
PECN 120 
PECN 130 
PECN 140 
PECN 150 
PECN 160 
PECN ITO 
PECN ISO 
PECN 190 
PECN 200 
PECN 210 
PECN 220 
PECN 230 
PECN 2*0 
PECN 250 
PECN 260 
PECN 270 
PECN 290 
PECN 290 
PECN 300 
PECN 310 
PECN 320 
PECN 330 
PECN 340 
PECN 350 
PECN 360 
PECN 3T0 
PECN 3ao 
PECN 390 
PECN 400 
PECN 410 
PECN 420 
PECN 430 
PECN 440 
PECN 450 
PECN 460 
PECN 470 
PECN 480 
PECN 490 
PECN 500 
PECN 510 
PECN 52C 
PECN 530 
.PECN 540 
PECN 550 
PECN 560 
PECN 570 
PECN 580 
PECN 590 
PECN 60O 
PECN 610 
PECN 620 
PECN 630 
PECN 640 
PECN 650 
PECN 660 
PECN 670 
PECN 680 
PECN 690 
PECN 700 
PECN 710 
PECN 720 
PECN 750 
PECN 740 
PECN 750 
PECN 760 
PECN 770 
PECN 780 
PECN 790 
PECN 800 
PECN 810 
PECN 820 
PECN 830 
PECN 843 
PECN 850 
PECN B60 
PECN 870 
PECN B80 
PECN 890 
PECN 900 
PECN 910 
PECN 920 
PECN 930 
PECN 940 
PECN 950 
PECN 960 



SUBROUTINE 0P6CN 



CALL DPECNIP.N, SOUND, EPS, TOL, WORK) 



OeSCRIPTIQN OF PARAMETE 
P - OOUBLE PHECl 

POLYNOMIAL 
ON RETURN 
r^ - OIHE^SION OF 

ON RETURN : 
POLYNOMIAL 
BOUND - SINGLE PRECI 
EPS - SINGLE PRECI 
ON RE TURN EP 
ECQNOMUEO 
TOL - SINGLE PRECI 

FINAL VALUE 

WORK - DOUBLE PREC I 

I STARTING 



SION COEFFICIENT VECTOR OF GIVEN 

CONTAINS THE ECONQMIZEO POLYNOMIAL 

COEFFICIENT VECTOR P 
CONTAINS DIMENSION OF ECONOMIZED 

SION RIGHT HAND BOUNDARY OF AANGE 
SIDN INITIAL ERROR BOUND 

CONTAINS AN ERROR BOUND FOR THE 
DLYNOHIAL 

SION TOLERANCE FOR ERROR 
OF EPS MUST BE LESS THAN TOL 
SION WORKING STORAGE OF DIMENSION N 
LUe OF N RATHER THAN FINAL VALUE) 



REMARKS 

THE OPERATION IS BYPASSED IN CASE OF N LESS THAN 1. 

IN CASE OF AN ARBITRARY INTERVAL iKL.Xfl) IT IS NECESSARY 

FIRST TO CALCULATE THE EXPANSION OF THE GIVEN POLYNOMIAL 

WITH ARGUMENT X IN POWERS OF T = ( X-(XR-XL) /2 » - 

THIS IS ACCOMPLISHED THROUGH SUBROUTINE OPCLO, 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

SJBROUriNE DPECN TAKES AN (N-llST OEGREE POLYNOMIAL 

APPRQXIMflTJON TO A FUNCTION FIX) VALID WITHIN A TOLERANCE 

EPS OVER THE INTERVAL ( -93UND.BOUNDI AND REDUCES IT IF 

POSSIBLE TO A POLYNOMIAL OF LOWER DEGREE VALID WITHIN 

THE GIVEN TOLERANCE TOL. 

THE INITIAL COEFFICIENT VECTOR P IS REPLACED BY THE PINAL 

VECTOR. THE INITIAL ERROR BOUND EPS IS REPLACED BY A FINAL 

ERROR BOUND. 

N IS REPLACED BY THE DIMENSION OF THE REDUCED POLYNOMIAL. 

THE COEFFICIENT VECTOR 3F THE N-TH CHEBYSHEV POLYNOMIAL 

IS CALCULATED FROM THE RECURSION FORMULA 

A(K-ll=-A(K»l)»K*L*L*(<-l)/MN»K-2)*(N-Kt2ll 

REFERENCE 

K. A, BRONS. ALGORITHM 38, TELESCOPE 2, CACM VOL- 4. 1961, 

NO. 3, PP. 151-152. 



SUA ROUT IME DPECNtP. NtBOUNO.EPS. TOL, WORK! 



DIMENSION P( II .WORK(l) 
DOUBLE PRECISION P.WORK 



FL=60UND*80UN0 

TEST OF DIMENSION 



3 IFiePS*ABS(SNCL(P( 1 I) I -TOL 14. 4, 5 

4 N = 
EPS=EPS*ABS(SNGL(P(1))1 

5 RETURN 

CALCULATE EXPANSION OF CHEBYSHEV POLYNOMIAL 

6 NEN0=N-2 
WQRKINI =-P(N] 
DO 7 J=l,NeN0.2 
K = N-J 

FN=INENO-l+K>»(NEN0t'3-KI 
FK=K*(<-ll 

7 WORKIK-ll=-WORKIK*l )«06L£I F|£.*FL /FNl 

TEST FOR FEASIBILITY OF REDUCTION 

IF:k-2)8,8,9 
9 FN=D49S(W0«K( U I 

GOTO to 
9 FN=N-1 

FN=aBSISNGLlW0RK(2) l/FN) 
10 IFlEPS + FN-TOLlll.ll ,5 

REDUCE POLYNOMIAL 

ti EPS = EPS»FN 

N-N-1 

DO 12 J=K,N.2 
12 P( J-11 = P( J-n»WO«K( J-ll 

GOTn 1 

END 



DPCN 10 
.DPCN 20 
DPCN 30 
DPCN 40 
DPCN 50 
DPCN 60 
DPCN TO 
OPCN 80 
DPCN 90 
DPCN 100 
DPCN 110 
DPCN 120 
OPCN 130 
OPCN 140 
DPCN 150 
DPCN 160 
DPCN 170 
OPCN leo 
OPCN 190 
DPCN 200 
DPCN 2 10 
DPCN 220 
DPCN 230 
OPCN 240 
OPCN 250 
DPCN 260 
DPCN 270 
OPCN 280 
DPCN 290 
DPCN 300 
OPCN 310 
DPCN 320 
OPCN 3 30 
DPCN 340 
DPCN 350 
DPCN 360 
DPCN 370 
DPCN 380 
DPCN 390 
OPCN 400 
OPCN 410 
DPCN 420 
OPCN 433 
DPCN 440 
OPCN 450 
DPCN 460 
DPCN 470 
DPCN 480 
OPCN 49 
DPCN 500 
DPCN 510 
OPCN 520 
DPCN 530 
DPCN 540 
.OPCN 550 
DPCN 560 
OPCN 5 70 
OPCN 580 
OPCN 5 90 
OPCN 600 
OPCN 610 
DPCN 620 
OPCN 6 30 
DPCN 640 
DPCN 650 
OPCN 660 
OPCN 670 
DPCN 6S0 
OPCN 690 
DPCN 700 
OPCN 710 
DPCN 720 
DPCN 730 
OPCN 740 
DPCN 750 
DPCN 760 
DPCN 770 
DPCN 780 
DPCN 790 
OPCN 600 
DPCN SIO 
DPCN 820 
DPCN 830 
DPCN 840 
OPCN 850 
OPCN 86D 
OPCN 870 
DPCN 880 
OPCN 890 
OPCN 900 
DPCN 910 
DPCN 920 
OPCN 930 
DPCN 940 
DPCN 950 
OPCN 963 
OPCN 970 
OPCN 980 
DPCN 990 
OPCNIOOO 
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Subroutines PECS and DPECS 

These subroutines perform the economization of a 
polynomial for unsymmetric range, 

A given polynomial P(x) with coefficient vector 
P = (Pi. • •• .Pjj). representing a function f(x) with 
a maximal error eps over the range (0, bound) — 

n 
that is, I f{x) - J^ p. X 

i=l ^ 
bound — is reduced to a shorter coefficient vector, 
if possible, representing f(x) over the same range 
with a maximal error absolutely less than tol by 
means of telescoping. 

The shifted Chebyshev polynomial T^_, (t) = 



i-1 



= eps for = X = 



"^n-l (2t - 1) has 2^^~^ as coefficient of i^~^. As a 
consequence, t""-*- may be replaced by T^_i (t)/2^^~^ 
plus a polynomial in t of degree n - 2. 

This means that the telescoped polynomial 



n 

Pj (X) = E Pi ^ 

i=l 



i-1 



(p^. (bound)" -^7 2^" ^) T^_^ (x/bound) 



is of degree n - 2 representing f(x) over the range 
= X = bound with a maximal error err absolutely 
less than eps, = eps + | Pj, | • bound'^"-'-/ 2^^^"*^, 
since | T^.^ (t) | = 1 for S t = 1. 

If epsi is less than the tolerance tol, the proce- 
dure may be repeated with P^^ instead of P, and epsj 
instead of eps . 

This iterative scheme results in a polynomial 
approximation to f(x) which possibly consists of 
fewer terms and thus may allow the computation of 
f(x) with less effort than the original approximation 
P(x). 

Naturally, tol should be greater than eps. 

For reference see K.A. Brons, Algorithm 37, 
Telescope 1, CACM vol, 4, 1961, no. 3, p. 151. 



SUfiROUriNC PECS 

puflpDse 

ECONOMI/AriON OF A POLYNOHUL FOR UNSYHHETRIC R4NGE , 

USAGE 

CALL PECS (P.NfBQUNDtEPSt TOL, WORK) 

DESCRIPTION OF PARAHETEffS 

P - COEFFICIENT VECTOR OF GIVEN POLYNOMIAL 

N - DMEMSIQN OF CO£fFICIEMT VECTOR 

eOJNO - RIGHT HAND BOUNDARY OF INTERVAL 

EPS - INITIAL ERROR BOUND 

TOL - TOLERANCE FOR ERROR 

WORK ' WORKING STORiGE DF OIMENSION N 

REMARKS 

THE INITIAL COEFFICIENT VECTOR P IS REPLACED BY THE 

eCONOHUED VECTOR. 

THE INirrAL ERROR BOUND EPS IS REPLACED BY A FINAL 

ERROR BOUND. 

N IS REPLACED BY THE OIMENSION OF THE REDUCED POLYNOMIAL. 

IN CASE OF AN ARBITRARV INTERVAL IKi.Xftl IT IS NECESSARY 

FIRST TO CALCULATE THE EXPANSION OF THE GIVEN POLYNOMIAL 

WITH ARGUMENT X IN POWERS Of T = (Jt-KL). 

THIS IS ACCOMPLISHED THROUGH SUBROUTINE PCLD. 

OPERATION IS BYPASSED IN CASE OF N LESS THAN I. 



HEIHOO 

SUOROUTINE PECS TAKES AN (N-llST DEGREE POLYNOMIAL 

APPROKIHATION TO A FUNCTION FIX) VALID WITHIN A TOLERANCE 

EPS OVER THE INTERVAL (OtBOUNOl AND REDUCES IT IF POSSIBLE 

TO A POLYNOMIAL OF LOWER DEGREE VALID WITHIN TOLERANCE 

TOL. 

THE COEFFICIENT VECTOR OF THE N-TH SHIFTED CHEBYSHEV 

POLYNOMIAL IS CALCULATED FROM THE RECURSION FORMULA 

AKI = -A(K*I >«K*L»(2«K-U/12*(N*K-l)*(N-tC*IM. 

REFERENCE 

K. A. BRONS. ALGORITHM 37, TELESCOPE l. CACM VOL. A^i 1961. 

NO. 3, pp. 151. 



SUBROUTINE PECS ( P,N .BOUND, EPS, TOL .WORK I 

DIMENSION PdUMORKIl) 
FL=60UND*0.5 

TEST OF DIMENSION 

1 IFIN-112,3,6 

2 RETURN 

3 IF(EPS»ABS(P(m-TDLK,4,5 

4 N = 
EPS=EPS*flBSlP( 1)1 

5 RETURN ' 

CALCULATE EXPANSION OF CHEBYSHEV POLYNOMIAL 

b NEN0=N-1 

MORKf NI>-P(N1 

00 T J=l,NEND 

K = M-J 

FN=IN£ND-UK)*(N-KI 

FK=K*(K+K-l» 
T WORKIKl=-«QRKIK*ll*FK.*FL/FN 

TEST FOR FEftSlBILITY OF REDUCTION 

FN = ABS(MORK( II I 
IF(EPStFN-T0Lia,8i5 

REDUCE POLYNOMIAL 

a EPS=EPS*FN 

N=NENO 

DO 9 J=1,NEN0 
9 P( JJ=P( J)*WORKl Jl 

GOTO I 

END 



20 



50 



PECS 
.-PECS 
PECS 
PECS 
PECS 
PECS 
PECS 
PECS 80 
PECS 90 
PECS IDQ 
PECS 110 
PECS 120 
PECS 130 
PECS 1*0 
PECS 150 
PECS 160 
PECS 170 
PECS 180 
PECS 190 
PECS 200 
PECS 210 
PECS 2Z0 
PECS 230 
PECS 2*0 
PECS 250 
PECS 260 
PECS 2 70 

PECS zao 

PECS 290 
PECS 300 
PECS 310 
PECS 320 
PECS 330 
PECS 3*0 
PECS 350 
PECS 360 
PECS 370 
PECS 380 
PECS 390 
PECS *00 
PECS *10 
PECS *20 
PECS *30 
PECS **0 
PECS *50 
PECS *60 
PECS *70 
.PECS *80 
PECS *90 
PECS 500 
PECS 510 
PECS 520 
PECS 530 
PECS 540 
PECS 550 
PECS 560 
PECS 570 
PECS 580 
PECS 590 

pecs 600 

PECS 610 

PECS 620 

PECS 630 

PECS 6*0 

PECS 650 

PECS 650 

PECS 6T0 

PECS 6B0 

PECS 490 

PECS 700 

PECS 710 

PECS 720 

PECS 730 

PECS 7*0 

PECS 750 

PECS 760 

PECS 770 

PECS 780 

PECS T90 

PECS 800 

PECS SIO 

PECS B20 

PECS 830 

PECS 940 

PECS aso 

PECS B60 
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SUflfltXjriME DPECS 

PURPOSE 

ECONOHrZATIDN OF A POLrNOMlAL FOR UNSYMHETRIC RANfE 

USAGE 

CALL OPECS(P( N.eOUNOtEPStTOLf WORK) 

0€SCBIPriON OF PARAMETERS 

P - DOUBLE PRECISION COEFFICIENT VECTOR Of GIVEN 

PQLYNOHIAL 
N - OIMENSIOW OF COEFFICIENT VECTOR P 

BOUND - SINGLE PRECISION RIGHT HAND BOUNOARV Of INTERVAL 
EPS - SINGLE PRECISION INITIAL ERROR BOUND 

TOL - SINGLE PRECISION TOLERANCE FOR ERROR 

WORK - DOUBLE PRECISION WORKING STORAGE Of DIMENSION N 

REMARKS 

THE INITIAL COEFFICIENT VECTOR P 15 REPLACED 6Y THE 

ECONOMIZED VECTOR. 

THE INITIAL ERROR BOUND EPS IS REPLACED BY A FINAL 

ERROR BOUND. 

M IS REPLACED BY THE DIMENSION OF THE REDUCED POLYNOMIAL. 

IN CASE OF AN ARBITRARY INTERVAL (XL.XRJ IT IS NECESSARY 

FIRST TO CALCULATE THE EXPANSION OF THE GIVEN POLYNOMIAL 

WITH ARGUMENT K IN POMEtS OF T = (X-KLI. 

THIS IS ACCOMPLISHED THROUGH SUBROUTINE DPCLD. 

OPERATION IS BYPASSED IN CASE OF N LESS THAN 1. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

NONE 

METHOD 

SUBROUTINE DPECS TAKES AN IN-IIST DEGREE POLYNOMIAL 

APPROXIMATION TO A FUNCTION F{Xl VALID WITHIN A TOLERANCE 

EPS OVER THE INTERVAL tCBOUNOI AND REDUCES IT IF POSSIBLE 

TO A POLYNOMIAL Of LOWER DEGREE VALID WITHIN TOLERANCE 

TOL. 

THE COEFFICIENT VECTOR OF THE N-TM SHIFTED CHEBYSHEV 

POLYNOMIAL IS CALCULATED FROM THE RECURSION FORMULA 

A(KJ = -A(K*ll*K»L*(2«K-ll/(2*IN*K-ll*{N-Ktm. 

REFERENCE 

K, A. BRONS, ALGORITHM 3T» TELESCOPE I. CACM VOL. *. 1961, 

NO. 3. PP. 151. 



SUBROUT INE OPECSl P. N, 80UND»EP5 , TOL , WORK I 



DIMENSION PI I).WORK(l) 
DOUBLE PRECISION P.WORK 



FL=90UND*0.5 

TEST OF DIMENSION 



3 IF(EPS»ABS(SNGL(P(l H l-T0L)*,*r5 
A N = 

EPS=£PS«-ABSISNGL(P( KM 

3 RETURN 

CALCULATE EXPANSION OF CHE9YSHEV POLYNOMIAL 

6 NEND=N-1 
MORK)NI=-P(N» 
DO 7 J= 1*NEND 

FN=(NEND-l*KI*(N-Kl 

7 WORKIKl=-MORK(K*n*D6LE(F(CI«OBLE(FLt/DSLE(FN) 

TEST FOR FEASIBILITY OF REDUCTION 

FN=0A6S(W0RK| 1) I 
IFIEPS+FN-TOL 18,8.5 

REDUCE POLYNOMIAL 

8 EPS=EPS*FN 
N-NENO 

00 9 J=liNEND 

9 PIJ}=P( J)*^U0RK(J) 
GOTO I 

END 



OPCS 10 

.OPCS zo 

DPCS 30 

OPCS *0 

OPCS 50 

OPCS 60 

OPCS TO 

DPCS 80 

DPCS 90 

DPCS ;oo 

DPCS 110 
DPCS 120 
DPCS 130 
DPCS 140 
OPCS ISO 
DPCS 160 
DPCS 170 
OPCS 180 
DPCS 190 
OPCS 200 
DPCS 210 
DPCS Z20 
OPCS Z30 
DPCS 2*0 
DPCS 250 
DPCS 360 
DPCS 270 
DPCS 290 
OPCS 2 90 
DPCS 300 
DPCS 3 ID 
OPCS 320 
OPCS 330 
OPCS 340 
OPCS 350 
DPCS 360 
OPCS 370 
OPCS 3B0 
OPCS 390 
DPCS *00 
OPCS 410 
OPCS 420 
OPCS 430 
DPCS 440 
DPCS 450 
OPCS 460 
DPCS 470 
OPCS 4B0 
.OPCS 490 
DPCS 500 
DPCS 510 
DPCS 5 20 
DPCS 530 
DPCS 540 
OPCS 550 
OPCS 560 
DPCS 5 70 
OPCS 580 
OPCS 590 
DPCS 600 
OPCS 610 
OPCS 620 
OPCS 630 
DPCS 640 
OPCS 650 
OPCS 660 
DPCS 670 
DPCS 680 
OPCS 690 
OPCS 700 
DPCS 710 
DPCS 720 
OPCS 730 
DPCS T40 
DPCS 750 
DPCS 760 
OPCS 770 
DPCS 780 
OPCS 790 
OPCS 800 
OPCS 81C 
OPCS B2Q 
DPCS 830 
DPCS 840 
DPCS 850 
OPCS 860 
OPCS 870 
DPCS 880 
DPCS 890 
DPCS 900 



Polynomials : Roots 

Subroutine POLRT 

This subroutine computes the real and complex 
roots of a real polynomial. 
Given a polynomial 

N 

f(z) - X; a z^ (1) 

^ n 
n=0 



let 



Z = X + lY be a starting value for a root of f(z). 



Then: 



n n 

Z = (X + iY) 



(2) 



Define X^ as real terms of expanded equation (2). 
Define Y^ as imaginary terms of expanded equa- 
tion (2). 
Then for: 

n = 

X = 1.0 
o 



n > 



X 



X • X , - Y. Y , 
n- 1 n- 1 



Y = X • Y + Y • X , 

n n - 1 n - 1 



(3) 

(4) 



Let: 



Then: 



U be the real terms of (1) 

V be the imaginary terms of (1) 



N 



U = E ax 



n =0 



n n 



(5) 



N 



V = y; a Y 

n = 



(6) 



or: 



N 

V = a + y a X 
o ^—', n n 
n = 1 



(7) 



V = 



N 

E a Y 
■*— '. n n 
n = 1 



(8) 
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au 

8Y 



N 

E n- X -a 
n = i »-l ' 

N 

- V n Y a 

'-' . n -1 n 

n = 1 



(9) 



(10) 



Note that equations (3), (4), (7), (8), (9), and (10) 
can be performed iteratively for n = 1 to N by saving 

X , and Y 
n - 1 n - 1 

Using the Newton-Raphson method for computing 
AX, AY, the result is: 



AX 



AY 



V-^ - U^ 
r 8Y ^ 8X 



\ aY 9X 





ir^fer 



(11) 



(12) 



after applying the Cauchy-Riemann equations. 
Thus, for the next iteration: 

X' = X + AX 

Y' = Y + AY 



SUBROUTINE PIXRT 

PURPOSE 

CMPUreS THE REAL *N0 CaMPLEX ROOTS DF A HEAL POLYNOHIAL 



10 



40 



TO 



USAGE 

CALL POLRTI)(C0F,COF,M,R0OTR,ROOTI, 



ERl 



oescRipriON of paraheters 

XCQF -VECTOR OF M*I COEFFICIENTS OF THE POLYNOMIAL 

DRPEREO FROM SMALLEST TO LARGEST POMER 
COF -WORKING VECTOR OF LENGTH H*l 
M -ORDER OF POLYNOMIAL 

ROOTR-RESULTANT VECTOR OF LENGTH M CONTAINING HEAL ROOTS 

OF THE POLYNONIU 
ROOTI-RESULTANT VECTOR OF LENGTH M CONTAINING THE 

CORRESPONDING IMAGINARY ROOTS OF ThE POLYNOMIAL 
lER -ERROR CQOE WHERE 

IER-0 NO ERROR 

IER>1 H LESS THAN ONE 

IEfl>2 M GREATER THAN 36 

ieR«3 UNABLE TO DETERMINE ROOT WITH 500 INTERATIONS 
ON 9 STARTING VALUES 

IER=4 HIGH ORDER COEFFICIENT IS ZERO 



PLRT 
.PLRT 
PLRT 
PLRT 
PLRT 
PLRT 
PLRT 
PLRT 
PLRT 90 
PLRT 100 
PLRT llO 
PLRT 120 
PLRT 130 
PLRT 140 
PLRT 150 
PLRT 160 
PLRT 170 
PLRT 180 
PLRT 190 
PLRT 200 
PLRT 210 
PLRT 220 
PLRT 2J0 
PLRT 240 
PLRT 250 
PLRT 260 
PLRT 270 
PLRT 280 
PLRT 290 
PLRT 300 
PLRT 310 



REMARKS 

LIMITED TO SfcTH ORDER POLYNOMIAL OR LESS. 

FLOATING POINT OVERFLOW MAY OCCUR FOR HIGH ORDER 

POLYNOMIALS BUT WILL NOT AFFECT THE ACCURACY OF THE RESULTS. PLRT 320 

PLRT 330 
SUeROUTINES AMD FUNCTION SUBPROGRAMS REQUIRED 

NONE 



METHOD 



NEWT0N-RAPHS3N ITERATIVE TECHNIQUE. THE FINAL ITERATIONS 
ON EACH ROOT ARE PERFORMED USING THE ORIGINAL POLYNOMIAL 
RATHER THAN THE REDUCED POLYNOMIAL TO AVOID ACCUMULATED 
ERRORS IN THE REDUCED POLYNOMIAL. 



SUBROUTINE POLR TI XCOF, COF, M, ROOTR.ROOri , I E« 1 
DIMENSION KC0F(n,C0F<ll,R00TR(l),R00T[IM 
OOUeLE PRECISION XO, YO, X, Y, KPft, YPR .UK.UY, V, YT , 
1 OX. OY, TEMP, ALPHA 



:T,U.XT2, YT2,SUMSQ, 



IF A DOUBLE PRECISION VERSION OF THIS ROUTINE IS DESIRED, THE 
C IN COLUMN I SHOULD BE REMOVED FROM THE DOUBLE PRECISION 
STATEMENT WHICH FOLLOWS. 

DOUBLE PRECISION XCOf ,COF ,ROOTR, ROOTI 

THE C MUST ALSO BE REMOVED FROM DOUSLE PRECISION STATEMENTS 
APPEARING IN OTHER ROUTINES USED IN CONJUNCTION WITH THIS 



PLRT 340 
PLRT 550 
PLRT 360 
PLRT 370 
PLRT J80 
PLRT 3 90 
PLRT *ao 
PLRT 410 
PLRT 420 
.PLRT 430 
PLRT 440 
PLRT 450 
PLRT 460 
PLRT 470 
PLRT 480 
PLRT 490 
PLRT 500 
PLRT 510 
PLRT 520 
PLRT 550 
PLRT 540 
PLRT 550 
PLRT 560 
PLRT 570 
PLRT 590 
PLRT 590 
PLRT 600 



THE 0OU8LE PRECISION VERSION NAY SE MO0IF[E0 BY CHANSIM tHF 
i'*!!^'?^ *5 SJArttENT Ti Td 1.00-12 ANO IN ifATE^Sr „ \^ 



IC«*0 

IFIXCOF(N»11I10.29,LO 
10 IFINI t5.15,32 

SET EMWl COM TO I 



15 lER-L 
20 RETURN 



SET EMOR COOC fO 4 

2S ICR-4 
GO TO 20 

SET ERROR COOC TO 2 

30 ICR-2 

GO TO 20 
}2 IflN-3«l $9.35.10 

39 NX-N 
NXX-N*t 
H2-1 

KJl - N*l 

DO 40 L-l,KJl 

BT-KJi-L+l 

40 COFCMT»-XC0F(LI 

SET INITIAL VALUES 



45 X0«. 00500101 
VO'O.OIOOOIOl 



2ER0 INITIAL VALUE COUNTER 



IN-0 
90 X-XO 
C 
C INCREMENT INITIAL VALUES AND COUNTER 

XO— |0.0*Y0 

ro— lO.O*X 
C 

C SET X ANO Y TO CURRENT VALUE 

C 

«-xo 

Y-YO 

IN-tN«L 

GO TO 94 
95 IFIT-I 

XPR-X 

YPR-T 
C 
C EVALUATE PGLYHOHIAL ANO OERIVATIVES 

59 ICT-0 

60 UX-0.0 
UY-0.0 
V -0,0 
VT-0.0 
XT-1.0 
U*COFfN«ll 
IFIUI 49,130.69 

65 00 70 l-l.M 

L -N-I*l 

TEN^-COFILl 

Xr2-X«XT-Y»YT 

VT2-X*VT*Y«XT 

U-U*T€«MXT2 

V-V*TeNr*TT2 

EI-I 

UX"(;X*FI*XT*TENP 

UY-UY-FI»YT*TeNP 

XT-xr2 
70 YT-TTZ 

SUH$a-UX*UX»UY*UY 

IFISUMSQI T5, 110*75 

79 OX«(V*UV-U«UX)/SUM$g 
X-X*OX 

Or--fU«UV«V*UXI/SUHSQ 
Y-T+OY 

78 IFfOABS(DV|*OA0S(DXI-L. 00-09) 100,80,80 
C 

C STEP ITERATION COUNTER 

C 

80 ICT-ICT^t 
IFIlCT-9001 60,<9,85 

85 IFI IF IT 1100*90.100 
90 1F(IN-5I 90.95.95 
C 

C SET ERROR CODE TO 9 

C 

95 IER-3 

CO TO 20 
100 00 109 L-l.MXX 
RT-RJl-L*! 
TEMP-XCOFIHTt 
ICOFINTI-COFILI 
105 CQFILI-TENP 
(TERP-N 
N-NX 

NX-ITENP 

IFI IFITI 120.55.120 
110 IfriFir* 115.50,115 

119 X-XPR 
Y«YPR 

120 IFIT*0 

122 lFIDABSIYI-l.0D-4*OAflSIXK 135,125,125 
125 ALPHA>X«X 

SUHSQ-X*K4^Y*Y 
H-N-2 
GO TO 140 
130 X-0.0 
NX-NX- 1 
NXX-NXX-l 
135 Y>0.0 

SUNSQ-0.0 
ALPHA*X 
N-N-1 
140 C0E(2)-C0FI2)*ALPHA«C0FI1I 



PLRT 610 
PLRT 620 
PLRT 6M 
nRT 640 
PLRT 450 
.....PLRT 660 
PLRT 670 
PLRT »«o 
PLRT 690 
PLRT 700 
PLRT 710 
PLAT 720 
PLRT 710 
PLRT 740 
PLRT 790 
PLRT 760 
PLRT 770 
PLRT TOO 
PLRT 790 
HRT 890 
^LRT 810 
PLRT 820 
PLRT 830 
PLRT 840 
PLRT 850 
PLRT 860 
PLRT 870 
PLRT 880 
PLRT 890 
PLRT 900 
PLRT «tO 
PLRT 920 
PLRT 950 
PLRT 940 
PLRT 990 
PLRT 960 
PLRT 970 
PLRT 900 
PLRT 990 
PLRTieOO 
PLRTIOIO 
PLR 71020 
PLRTtOSe 
PLRT1040 
PLRT 10 90 
PLRT1060 
PLRT1070 
PLRTI080 
PLflTt090 
PLRTllOO 
PLRTlllO 
PLRT I I 20 
PLRT1130 
PLRT1140 
PL»ni90 
PLRT 1160 
PLRT1I70 
PLRTlllO 
PLRTII90 
PLRT 1200 
PLRT1210 
PLRT1220 
PLRT1230 
PLRT1Z40 
PLRT 12 90 
PLRTlZiO 
PLRTU70 
PLRTt280 
PLRT 1290 
PLRT 1300 
PLRTUIO 
PL*ri320 
PLRTI130 
PLRT 1340 
PLRT 1390 
n.RT1360 
PLRT1370 
PLRT I 380 
PLRT 1390 
PLRT 1400 
PLRT1410 
PLRT 1420 
PLRTliSO 
PtRT1440 
PLRT 1450 
PLRT1460 
PIRT1470 
PLRT1480 
PLRT 1440 
PLRT1500 
PLRTISIO 
PLRT1920 
PLRT 1530 
PLRT 1940 
PLRT1950 
PLRT1560 
PLRT15 70 
PLRTt980 
PLRT1590 
PLRTtiOO 
PLRT 16 10 
PLRT1620 
PLRT1630 
PLRT1640 
PLRT1490 
PLRT1660 
PLRT1670 
PLRT1680 
PLRT 1690 
PLRTirOO 
PLRTITIO 

Kmm 

PLRTITSO 
«.«I17M 
PLRTirso 
PLKriTAO 

fLRTlTSO 

»i«ri7«o 
pinTiaoo 
PLurisio 

PLRrifljO 

PLitria3a 

PLftTtS40 

»L«ri«$o 
nRTia»o 
ptRiiaro 

flRTlul) 
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IM DO 150 I.-2.N 

ISO CDr(L*ll-COFa«tl*tlPH«>COFILI-SUMS0«CaFIL-ll 

199 KOOTIItlZI-V 

RO0rRIN2l-K 

N2<N2*I 

IFISIMSOI 160. IM. 160 
160 y— V 

SU<ISO>0.0 

GO TO 159 
165 IFINI 20,20,69 

END 



rt«Tl«90 
fLUtlMO 
PlKTlllO 
PLftT192a 
PlMlSiO 
PLftTl960 
PLftri990 
ri.llT1960 
FLUTltrO 

PLRri9ao 
PLIHH9a 



Subroutines PRQD and DPRQD 

These subroutines find the roots of a real polynomial 
by means of the QD-algorithm with displacement. 
The progressive QD-algorithm is a fast device for 
calculation of all roots of a polynomial P(x) with real 
coefficients when there are no approximations to the 
roots available. 

The roots of P(x) = are determined by solving 
for the poles of Q(x)/P(x) where Q(x) is some poly- 
nomial of smaller degree than P(x). In the foUow- 
ii^, n is used as the symbol for the degree of P(x). 
Using the derivative P'(x) for Q(x) has the advantage 
that the poles are simple even in case of multiple 
roots of P(x). 

Start of the QD-algorithm requires the continued 
S-fraction: 



c 
1-e 



1 
1-. 



— of P' (X)/P(X) 



This calculation is performed using the Euclidean 
algorithm. By means of normalization such that the 
highest coefficient is 1, Qq (x) is obtained from 
P(x), and Vi (x) from P' (x). Then ej^ and qj^ are 
calculated from the iteration scheme: 

qj^Qj^(x)= X. Pj^(x)-Qj^_^(x). k=l,2 n (1) 

^k ^k+ l^''^ = ^k^"") ' ^k^''^ ' k = 1, 2, . . . . n-1 (2) 

using the fact that all elements Qj(x) and Pj^(x) are 
normalized by definition. 

The following example is an illustration for this 
iteration scheme: 

2 3 
P(x) =l+3x+3x+x ,n=3 



3 2 

Q (x) = X + 3x + 3x + 1 



2 2 

P^(x) = X + 2x + 1 , q^Q^(x) = -X -2x-l, q^= -1 



Q^(x) = x + 2x + 1 , e^ PgCx) =0 . e^ = 
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where Q^ (x) is a common divisor of P' (x)/P(x) and 
qi = -1 is the value of the real root which factors out 
first. 

The above iteration scheme breaks down if some 
intermediate value of q^^ with < i < n is equal or 
approximately equal to zero. In this case an error 
code is set to 4, which indicates that no S -fraction 
exists for P' (x)/P(x). 

If Qq and P]^ have a common divisor of degree j , 
this common divisor is obtained as Qn_-j, and nec- 
essarily e^.^ Pj^_.+;L= 0. 

Due to roundoff errors, all coefficients of 
®n-i Pn-j+ 1 cannot be expected to vanish exactly; 
therefore, allowance is made for coefficients of 
small absolute value. 

If the highest coefficient of e^.j Pn_j+ 1 is small 
in absolute value but some lower coefficient is not, 
the error code is set to 4, and the subroutine is 
abandoned. 

The coefficients e. , qj^ obtained by the Euclidean 
algorithm form the first row of the QD -array indi- 
cated by superscript 0. 



,(0) JO) JO) JO) 



, (0) . (0) 



m 



m 



If xk and xjj+ ^ are of equal absolute value, then 
the roots of 



(v+1) 



(V) 



(v)^ (V) 



-(V '^v7)--v'\ri'= 



(5) 



converge to xjf and Xj^+j^. The same reasoning applies 
if the relation | xj^ ( = | xj^+ 1 \ holds only approxi- 
mately. 

The QD -algorithm in the form (3), (4) suffers from 
the fact that convergence is rather slow. By means 
of displacement of the origin a form is obtained 
which is asymptotically of quadratic convergence. 

The strategy is as follows. Start with displace- 
ment t = 0. 

I. As soon as convergence is indicated to a real root 
-- that is, e^ is sufficiently small (internal 
test value 0. 01) — perform a displacement by the 

^ (V) 

amount q . 
m 

(v) (v) 
Starting with q^^ ', e^ ', use instead of (3), (4) 

the iteration scheme: 



t = t + q 



(V) 

m 



(6) 



Jl) 



^r 4" 



,(1) 



^' 



.(1) 






, k = 1,2, ... , m 



(7) 



Normally m is equal to n but it may be smaller If a 
common factor exists. 

The following rows are obtained by means of the 
relationships: 



(v+l)_ ^ (v)_(v) /„(v+l) 



= q, 



k+ 



KV' 



, k = 1,2, . . . , m-1 



(8) 



„ (v+1) _ „ (V) , ^(v) ^ (v+1) 

q. ~ ^i i ~ i-1 ' 1= !.•••. «i (3) 



(v+1) (v) 

Values e^ and e ^ are thereby set equal to 

zero. 



(v+1) i Vl . , 
"i = (v+1) • i=l.-".'«-l 

^i 



II. If convergence is indicated to a root pair — that 

(v) (v) 

(4) is, e is less than e^ _ and sufficiently small 

(internal test value 0.01) — calculate the dis- 
criminant of the quadratic equation (5): 



tc^ether with e 



(V). 



e (^) = 0. 
m 



Let xj denote the roots of P(x) ordered in de- 
creasing absolute value. If P(x) has only roots of 
different absolute value, there is convergence of 
the qj^ - column to the value x^. Complex roots are 
indicated by oscillation of certain q-values. 



D =. p * p - qf^^ * q (^^ 
m nn-1 



with 

P=0.5(q<^) +e(^\ + q(^>) 
m-1 m-1 ^m ' 
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If D is positive, provide for a real displacement 
of amount P - /d or P + ITd, whichever has the 
smaller absolute value, and proceed according to 
(7), (8). 

If D is negative, three complex displacements 
are applied in sequence: the first by amount 
P + i i/TdT , t he se cond by -2i /IdT , and the 
third by V + i /IdT , resulting in a total real 
displacement of amount P. 

Instead of (6), (7), (8) the following iteration 
scheme is then obtained. Starting with: 



Values e 



t 



= t + P 



* (v) (V) 

q = q ' + e; 



* 2 






\ = 


% 


^h 


calculate for k = 2,3 m: 


* 




\ \ Vl 


** 






Pk 




** * 2 
= Pk-1 K-1 / \ > 



- p 



^k-1 



** 



** ** (v+3) 

"k-l * \-l - \-2 



-'C^^-'il^^^^ 






Jv+3) 
■'k-l 



Finally set: 



** ** 



(Vl % /'ik-7'^(i-Pk) 



(v+3) 



** (v+ 3) 
m m-1 



(9) 
(10) 

(11) 
(12) 
(13) 



(14) 
(15) 
(16) 
(17) 
(18) 
(19) 
(20) 



(v+3) 




(v) (v) 

e and qj^ are thereby set 



equal to zero. 



m. 



If none of the values e^^' , and e '^' is suffi- 
ra-1 m-2 

ciently small, the relationship (3), (4) is used 

with no displacement at all. 



Regarding termination of the iterative scheme 
given by I. , n. , III. there are two possibilities: 



If e 



(V) 



10 



is negligible (internal test value is 
"° in single precision and 10~16 in double preci- 



(21) 



sion), a real root is factored out. 

(v) 
2. If e ^ is negligible (with the same internal 

test values), a pair of roots is factored out. 

A maximum of ten times the number of coeffi- 
cients using I. , II. or in. is allowed. At every itera- 
tion step for one and the same root or root pair, the 
internal test value for convergence and the internal 
test value for acceptance of a displacement are in- 
creased by ten percent. 

In case of convergence: 

1. For a real root -- 

real part of root = t + q^^ 
complex part of root = 

2. For a real root pair (characterized by D>0) — 

real part of first root = t + P + \/V 
complex part of first root = 
real part of second root = t + P - /d 
complex part of second root = 

3. For a complex root pair (characterized by 
D < 0) — 

real part of first root = t + P 
complex part of first root = /-D 
real part of second root = t + P 
complex part of second root = - V-D 
As soon as a root or root pair has been factored 
out, m is reduced by 1 or 2 respectively and the 
whole procedure I. , n. , III. is repeated with original 
values of internal test values, until m = — that is, 
all roots have been calculated — or m = 1, when the 
last real root is factored immediately. If P' (x), 
P(x) have a common divisor, the whole process is 
repeated for this common divisor. Thus, the com- 
plete factorization of the original polynomial P(x) is 
obtained. 

Some remarks are in order: 

1. The QD-algorithm is a nonlinear relationship 
and therefore sensitive to roundoff errors. Small 
intermediate q-values cause loss of accuracy. 
Therefore, aU divisors are checked before division 
is actually performed. If a divisor is small in 
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absolute value due to loss of significant digits, the 
error parameter is set to 3 indicating possible 
instability of calculation, and further calculation is 
bypassed. 

2. If a maximum of 10 * n iteration steps is 
insufficient for calculation of all roots, the error 
parameter is set to 1, indicating poor convergence. 
Further calculation is bypassed again. 

3. If the original polynomial has a degree less 
than one, the error parameter is set to 2 indicating 
that no root exists. 

4. If, in case of a complex displacement, q , 
or q_ gets very small due to loss of significant 

digits, and the calculated e ^^ ' is less than the 

internal test value TOL, a pair of roots is calculated 
from the quadratic equation: 



Z ** * (v+3) ♦♦ * 



[e ** -I 



(22) 



which is easily obtained from (5), 

5. A final test of accuracy is made after calcu- 
lation of all roots of the given polynomial. The 
calculated roots are used for calculation of the 
corresponding coefficient vector. If this calculated 
coefficient vector has less than a specified number 
of correct digits (the maximal relative error must be 
less than TOL), the error parameter is set to -1 
indicating that calculation of all roots was successful 
only with poor accuracy of results* 



loots OF A GIVEN POLyNQMIAL 



SUfiAOUTtNE PRQO 

PURPOSE 

CALCULATE ALL REAl AND COMPLEK 
ttlTH REAL COEfFICIENIS. 

USAGE 

CALL PRQ0{C,ICtQ,E,P01. IR. lERI 

OESCRIPriON OF PARAMETERS 

C - COEfFICIENr VECr3R OF GIVEN POLYNOMIAL 

COEFFICIENTS ARE ORDERED FROM L OM TO MIgh 

THE GIVEN COEFFICIENT VECTOft GETS DIVIDED BY THE 

LAST NONZERO TERM 
IC - DIMENSION OF VECTOR C 

Q - tfORKING STORAGE OF DIMENSION IC 

ON RETURN CONTAINS REAL PARTS OF ROOTS 
e - WORKING STORAGE OF DIMENSION IC 

ON RETURN E CONTAINS COMPLEX PARTS OF ROOTS 
POL - WORKING STORAGE Of DIMENSION IC 

ON RETURN POL CONTAINS THE COEFF/CIENTS OF THE 

POLYNOMIAL WITH CALCULATED ROOTS 

THIS RESULTING COEFFICIENT VECTOR HAS DIMENSION IRh 

COEFFICIENTS ARE ORDERED FROM LOW TO HIGH 
IR - NUMBER OF CALCULATED ROOTS 

NORMALLY IR IS EQUAL 10 DIMENSION IC MINUS ONE 
lER - RESULTING ERROR PARAMETER. SEE REMARKS 



30 



REMARKS 

THE REAL PART OF THE ROOTS IS STORED IN 0(11 UP IQ Q(ir) 

CORRESPONDING COMPLEX PARTS ARE STORED IN EUl UP TO EdflJ 

lER = MEANS NO ERRORS 

lER = 1 MEANS NO CONVERGENCE WITH FEASIBLE TOLERANCE 

lER » Z MEANS POLYNOMIAL IS OEGEMERATE (CONSTANT OR ZERO) 

lER - i MEANS SUBROUTINE WAS ABANDONED DUe TO ZERO DIVISOR 

K MEANS THERE EXISTS NO S-FRACIION 



lER 



PRQD 

..PROD 

PROO 

PROD 

PROO 50 
PRQD 60 
PROO 70 
PRQD BO 
PROO 90 
PROO 100 

PRQD no 

PROO 120 
PROD 130 
PROO 1^0 
PROO 150 
PROO LfrO 
PROO I TO 
PROO ISO 
PROO 190 
PRQO 200 
PROD 210 
PROO 220 
PRQO ^J0 
PRQD ?40 
PROO 250 
IPRQO 260 
PROO 270 
PROD 280 
PROO 290 
PROO 300 
PRQO 310 
PROD J20 
PRQO 3 30 
PROO 3^0 
PROD 350 
PROO 360 
PROD 3 TO 

PROO sao 

PROO 390 



liR —I MEANS CALCULAfEO COEFFICUNT VECTOR REVEALS POOR 

ACCURACY or THE CALCULATED ROOTS. 

TMC CALCULATED CQEFf ICIENI VECTDK HAS LESS THAN 

1 CORRECT DIGITS. 
THE FINAL COMfAKISON SETUCeH GIVEN AW C*LCUtAT£D 
COEFFICIENT VECTOR IS PERFOMEO ONLY IF ALL ROOTS HAVE BEEN 
CALCULATED. \ 

THE HAKIMAL RELATIVE ERROR OF THE COEFFICIENT »EC?0« 1$ 
RECOROEO IN Qllfttll. 



SUBROUTINES AND FUNCTION SUBPAOCRAHS REQUIftCD 
NONE 

METHOD 

THE ROOTS OF THE POLYNOMIAL ARE CALCULATED BY MEANS OF 

THE OODriEMr-OIFfEREIICE ALCORITHN UITH DISPLACEMENT. 

REFERENCE 

H.RuriSHAUSER, OER OUOTIEHTEN-aiFFERENtEH-ALGORI THHUS. 

BIRKHAEUSER. BASEL/STUrTCART. t«57. 



SUBROUTINE PRgOfC. 1 C.Of £iPOL. IR, ICR) 
C 
C DINENSIONEO OUNNT VARIABLES 

DIMENSION El ll.QI II .C( ll.rOLI 1 I 
C 

C NORMALICATION OF GIVEN POLYNQHUL 

C TEST OF DIMENSION 

C IR CONTAINS INOEl OF HIGHEST COEFFICIENT 

lER-O 
IR-IC 
EPS-l-E-6 
TOL-I.E-3 
LIMIT-10*IC 
KOUNT-0 
i IF! IR-1IT9,79,2 
C 

C DROP TRAUING ZERO CaEFFIClEKTS 

2 lF(C(IRII«,3,<t 
1 IR-IR-L 
GOTO I 
c 

C REARRANGEMENT OF GIVEN POLVHONIAL 

C EXTRACTION OF 2ER0 ROOTS 

« O-l./Ct IR) 
lENO-IR-L 
ISTA-I 
NSAV-IR*! 
JBEC-I 
C 

C Q<J}-1. 

C 0IJ4^I1-CIIR-I)/C(IRI 

C QIIRl-CIJI/CIIRI 

C WHERE J IS THE INDEX OF THE LOWEST NON2ERO COEFFICIENT 

DO 9 1-1, IR 
J-NSAV-I 
|F(CII1I7.».7 

s Gorai6.ai,jBEc 

6 NSAV-NSAV*| 
QdSfAI-D. 
EMSTAI-O. 
l5TA-ISTA+t 
GOTO « 
T J8EC-2 
a 0(JI-C( ll«0 

CIII-QIJI 
9 CONTINUE 
C 

t INITIALIZATION 

ESAV-0. 
QdSTAI-O. 

10 NSAV-IR 

CONPUTATION OF DERIVATIVE 
EXPT>IR-ISTA 
EUSTAI-EXPT 
DO 11 I-ISTA,IEW> 
EXPT-EXM-l.O 
POL(I*ll-EFS*A8S(0f I«IU«EPS 

11 E(I«lt-Q(l«ll*EXPT 

TEST OF REMAINING DIMENSION 
IFI ISTA-ICNOI12.20«60 

12 JENO-IEHO-I 

COMPUTATION OF S-FRACTION 
00 19 I-ISTA,JENO 
IF<l-ISTAIt3,|6*l) 

13 [FIAB$(Eltll-POLII«lllI4.I4*14 

THE GIVEN POLYNOMIAL HAS HULtlPLE ROOTS, THE COEFFICIENTS OF 
THE COHNON FACTOR ARE STORED FROM QINIAV) UP TO QIIRI 

14 NSAV-I 

DO t» K-I.JEND 

lFIASSIEfKII-POLIK»llllS,IS.M 
19 CONTINUE 
GOTO 21 

EUCLIDEAN ALGORITHM 
14 DO 19 K-I, TEND 

£|K«II-EU»1I/EII) 
q(K*|l-E(K*ll-0(K*ll 

iFiK-i I la.tr.ie 

TEST FOR SHALL DIVISOR 
17 IFIA6S(Q(l*lM-POLI 1*1 1 I SO. 80, 19 
It Q(K«1I-Q(K«1I/0M«II 

POLlK*ll-POLf«t«LI/ABSIQ( l«in 

E(i(l-OIK«II-EIKl 

19 CONTINUE 

20 QIIR)--q(|Rl 

THE DISPLACEMENT EXPT IS SET TO AUTOMATICALLY. 

EUSrA).0..0(ISTA*ll E(NSAV-ll,Q|NSAVI,EINSAV|-0.. 

FORM A DIAGONAL OF THE QD-ARRAY. 
INITIALUATIQN OF BOUNOARY VALUES 

21 EIISTAI-0. 
HRAN-NSAV-1 

22 E(NRAN*1I>0. 

TEST FOR LINEAR OR CONSTANT FACTOR 
NRAN-ISTA IS OECREE-t 
IF(NRAN-ISrAI24,21,31 

LINEAR FACTOR 

23 Q(ISTA*II>g(ISTAi-l)*€XPT 
E( ISTA*ll-0. 



PROD 400 
PROO 410 
PRQO 420 
PRQD 430 
PROO 440 
PROO 490 
PRQO 440 
PRQO 4 70 
PROD 4 BO 
PROO 490 
PRQO SOD 
PROO 910 
PRQO 120 
PROO 910 
PROD 540 
PROO 550 
PROO 940 
PRQO 9 70 
PRQD 9«0 
PRQO 990 

.PROO 600 

PRQO 410 
PRQD 420 
PRQO 630 
PRQD 440 
PRQD 490 
PRQD 440 
PROO 470 
PRQD 4B0 
PROD 490 
PROO 700 
PRQD 710 
PRQO 720 
PRQO 790 
PROD T40 
PROO 750 
PRQO 740 
PRQO 770 
PRQO 7«0 
PRQO 790 
PRQO a 00 
PRQO BIO 
PRW) B20 
PROO a 90 
PRQO B40 
PRQO B90 
PRQO 460 
PRQO BTO 
PROO BBO 
PRQD a90 
PRQO 900 
PRQO 910 
PRQO 920 
PRQO 930 
PRQD 940 
PRQD 950 
PROO 960 
PRQD 970 
PRQO 9B0 
PRQO 990 
PRQDIOOO 
PROOlOlO 
PROD1020 
PRQDI030 
PRQOI040 
PROOIO90 
PR0O1060 
PROOIOTO 
PRQDIOBO 
PRaol090 
PROOllOO 
PRQOltIO 
PRQ0I120 
PRQ01130 
PRQD U 40 
PftQDI150 
PRQOIUO 
PRQ01t70 
PRQOliaO 
PRQOI190 
PRQO1200 
PRQDlflO 
Pft001220 
PRQ012 30 
PRODI 240 
PR001290 
PRODI 260 
PRQO1270 
PROOtZBO 
PRQO 12 90 
PRQ01300 
PRQOl 9 10 
PRQD 1920 
PRODI 330 
PRQOl 340 
PRQOt350 
PRQOl 960 
PR 001370 
PRQDtSaO 
PROO 1390 
PRQ01400 
PROO1410 
PRQOl 420 
PRQOt430 
PRQ01440 
PR001490 
PRODI 440 
PRQ01470 
PRQOl 410 
PRQD1490 
PROOt900 

nmm 

PROOt920 
PRQDt930 
PRQOl 940 
PRQ01990 
PRQOl 540 
PRQOt970 

PR0O19B0 

PR0O1590 

PRQ01600 

PRQOlfrU 

PRQD1420 

PRQOt490 

PRQ0I440 

PRQD1450 

PROD I 640 

PRQOl 6 70 

PRQ01680 
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TESt FQA UNFACT3RE0 COMMON DIVISOR 

24 E< ISTAl-ESAV 

IFt [R-N$AV)60,60,25 

INITIALIZE qO-ALGORITHM FOR COMHON OIVISaR 

25 ISTA-NSAV 
€SAV-EI ISTAl 

GOTO 10 



TEST FOR REAL ITY 
IF(a)27,28,2a 

COMPLEX ftOOT PAIR 

27 Q(NRAN)-P 
Q(NRAN»il<P 
EINRAN)-T 
EINRAN*U>~T 
GOTO 29 

REAL ROOT PAIR 

28 QINRANJ-P-T 
q(NRANt'l|':P*T 
EINRAN>>0. 

REDUCTION OF DEGREE BY 2 (DEFLATION) 

29 NRAN=N)t*N-2 
GOTO ZZ 

COMPUrATIOH OF REAL ROOT 

30 Q(NRAN*1>-EXPT*P 

REOUCnON OF DEGREE BY 1 (OEFLATION) 
NRAN=NRAN-1 
GOTO 22 

START QD-ITERATION 

31 JBEC=ISTA»1 
JENO'NRAN-1 
TEPS=£PS 
TDELT-l.E-2 

32 K0UNr>KGUNr4-l 
P-QINRAN>1} 
R>AB$(E1NRANII 

TEST FOR CONveRGEHCe 
IFIR-TEPS)30. 30,33 

33 $>ABSIE(JENDn 

IS THERE A REAL ROOT NEXT 
IF($-ft)36r38,3A 

IS OISPLACEMENT SMALL ENOUGH 
3* IF(R-T0ELT136, 35.35 

35 P-0. 

36 0-P 

DO 37 J'JSEG.NRAN 
Q(Jt>Q( JI*eiJI-E(J-ll-0 

TEST FOR SHALL DIVISOR 
IF(A6S(0(Jn-POL< J) )S1.B1«3T 

37 EIJ)»0(J+l)*EtJ)/Q< J) 
QINRANUl— E«NRANI*Q(NRAN*ll-0 
GOTO 54 

CALCULATE DISPLACEMENT FOR DOUBLE ROOTS 
QUADRATIC EQUATION FOR OQUBLE ROOTS 

X**2-(Q(NAANUgCNRAN*ll»E(NRAN))*XtgiNRANI*aiNRAN» Il- 
ls P=0.5*(Q(NflANI«-E(NRANl*Q(NRAN*LI) 
0-P*P-QINRANl*afNRAN>l) 
T>SQRT(A8SI0)I 

TEST FOR CONVERGENCE 
1F(S-TEPSI26,26,39 

ARE THERE COMPLEX ROOTS 

39 IFIQU3|40t40 

40 IF(PK2t4Lt41 

41 T — T 
«2 P=P*T 

R=S 
GOTO 34 

MODIFICATION FOR COMPLEX R30TS 
IS DISPLACEMENT SMALL ENOUGH 
*3 IFIS-rO£lT)*4t 35,35 

INITIALIZATION 
** 0=QIJBEGI*EIJBEGI-P 

TEST FOR SMALL DIVISOR 
IFUeS<0)-P0L(JBEG)l8l.flU45 

45 T-IT/QI**2 

U-ei JBEG)*0( JBEC*lt/IO*(l.*TH 

V=Q*U 
«0UNT=KOUNT»2 

THREEFOLD LOOP FOR COMPLEX DISPLACEMENT 
DO 53 J'jeEG.NRAN 

o«a( j*ii*£(j*ii-u-p 

TESr FOR SMALL DIVISOR 
IFIABSI Vl-P0L(Jl»*6.*6,49 

46 tF( J-NRANiair4T,Bl 

47 EKPT=EXPTtP 
IFIABS(E(JEN0ll-TOL>4e.48.6L 

48 P"0.5*l V«0-E( JENOI I 

0=P*P-| V-U»*(0-U*T-0*W*(l.*TI/0( JENOl 1 

T-SQRTUBSIOM 

GOTO 26 

TEST FOR SMALL OIVlSOR 

49 IF(ABSf01-P0L(J*M I 46,46,50 

50 H=U*0/V 

T*r»(v/ai**2 

Q(J)"VH(-E( J-l I 

U-0. 

IF{J-NRANI5L,52.52 

51 U-Q( J»2)*e(J»ll/IO*(l. + T) I 

52 V=0*U-M 

TEST FOR SMALL OIVISOR 
|F(A8S(0<J>I-P0LUI 181.81.53 

53 El J»=H»V*(l.*TI/Q(JI 
QINRAN* tl=V-elNRANI 

54 EXPT-EXPT*P 
TEPS-TEPS*!.! 



PR00I690 
PRODI TOO 
PRQOiriO 
PR001T20 
PROD 17 30 
PRODI T40 
PRQ01T50 
PROO1T60 

pROOirro 

PRODI 780 
PRQDir90 
PRQOtBOO 
PRQOiaiO 
PRQ01B2Q 
PRQ01B30 
PRQOI840 
PR0OLS50 
PRQOLB60 
PRQOlSTO 
PRODISRO 
PROD 1690 
PR0D1900 
PRa0l910 
PRq0l920 
PRa01430 
PR001940 
PRQD1950 
PRQ0L9&0 
PA001970 
PRQD198a 
PRQ01990 
PROO2000 
PRQDZOIO 
PRQ02020 
PROD2030 
PRQD2040 
PR002050 
PftOD2D60 
PROD20 7O 
PROO2080 
PRQO2090 
PROO2100 
PR0D2110 
PRQ0Z120 
PRQDZiaO 
PRQO2140 
PR0021S0 
PRQO2160 
PRQD2170 
PRQD2180 
PRQ02190 
PRQO2200 
PR0O2210 
PRQ02220 
PROO2230 
PRQ02240 
PRQD2250 
PR0D226a 
PRQ022 70 
PRQD22Ba 
PRQ02290 
PRQD2300 
PRQ02310 
PROO2320 
PRQD2330 
PRQ02340 
PRQOZ350 
PRQ02360 
PRQO2370 
PRQDZ380 
PRQ02i90 
PRQ02400 
PRQOZ^ 1 
PRQD24Z0 
PRQ02430 
PR0D2^40 
PRQ02450 
PRQD2460 
PRgO2470 
PRQ024B0 
PRQ02490 
PRQD2500 
PRQD2510 
PR002529 
PRgD2530 
PRQD2540 
PRQD2550 
PRgOZ560 
PRQ02570 
PRQD2580 
PR00Z590 
PRQD2frOO 
PRQD2610 
PRQ02620 
PR002630 
PR002640 
PR002650 
PR002660 
PRQ02670 
PRg026S0 
PRgD2690 
PR002700 
PRQD2T10 
PHOO2720 
PRG02 730 
PR002T40 
PRQ02750 
PR002 760 
PR002 7 70 
PRgD2 780 
PRQOZ790 
PR002600 
PR002810 
PHQ02820 
PR0O2830 
PRQ02840 
PRQ0285a 
PRgD2B60 
PR0O28 70 

pRgozsao 

PRQ02B90 

PROO2900 
PROO2910 
PROD2920 
PRaD2 93Q 
PRQD2 940 
PRQO2950 
PR002960 
PRQ02970 



TDELT>TD£Lr*L.l 
|F(ROUNT-LIMITI 32,5 5,55 

NO CONVERGENCE M ITH FEASIBLE TOLERANCE 

ERROR RETURN IN CASE OF UNSATISFACTORY CONVERGENCE 

55 lER-l 

REARRANGE CALCULATED ROOTS ^ 

56 IENO>NSAV-NRAN-I 
E( ISTA)>ESAV 

1F( IENDI59,59.57 

57 00 SB 1>1.[EN0 
J>1STA*I 
K-NRAN4'1*I 
E{J)=E(K) 

58 Q<JI='QIK) 

59 1R-[STA*IEN0 

NORMAL RETURN 

60 IR=IR-l 

fF( IR)78,78,61 

REARRAMCe CALCULATED ROOTS 

61 DO 62 l-l*IR 
Q(I >-Q( I»l) 

62 E(1I-E(I»1I 

CALCULATE COEFFICIENT VECT3R FROM ROOTS 
POL(IR»tl=l. 
IEN0»IR-1 
JBEG=L 

DO 69 J>ltlR 
ISTA»IR+1-J 
0-0. 

P=Q( ISTAl 
r»E( ISTAl 
IF( T)65,63,65 

MULTIPLY WITH LINEAR FACTOR 

63 DO 64 [-ISTA.IR 
POL(n«0-P*POL(I*l) 

64 O-POLd+Xl 
GOTO 69 

65 G0Ta(66.6TI* J6EG 

66 JBEG«2 

POLl ISTA)*0. 
GOTO 69 

MULTIPLY WITH OUAORATIC FACTOR 

67 J6EG=1 
Uep«p*T*T 

p.p*p 

00 68 l>ISrA,IENO 
POLl n«O-P«P0L( l*lt ♦U*POL( 1*2) 
frB O'POLI Ivlt 
POHIRI=0-P 

69 CONTINUE 

IFI IERI7B.7C,78 

COMPARISON OF CDEFFICIENT VECTORS, IE. TEST OF ACCURACY 

70 P-0. 

DO 75 I't.IR 
IFIC(IU72,71.72 

71 0-ABS(POL( I)) 
GOTO 73 

72 O-ABSI (POLl I )-C(I ll/C( 1 )l 

73 IF(P-ai 74.75,75 

74 P»0 

75 CONTINUE 
IFIP-TOLl 77.76,76 

T6 lER— 1 

77 QIIR*1I=P 
E(IR+L)>0. 

78 RETURN 

ERROR RETURNS 

ERROR RETURN FOR POLYNOMIALS OF DEGREE LESS THAN I 

79 IER=2 
IR«0 
RETURN 

ERROR RETURN IF THERE EXISTS NO S-FRACTION 

80 IER^4 
IR-ISTA 
GOTO 60 

ERROR RETURN IN CASE OF INSTABLE QD-ALGORITHM 

81 IER>3 
GOTO 56 

END 



SUeR(XiriNE DPRQO 

PURi'OSE 

CALCULATE ALL REAL AND COMPLEX ROOTS OF A GIVEN POLYNOMIAL 
KITH REAL COEFFICIENTS. 

USAGE 

CALL 0PR001C. iC, Q.E.POL, IR, lER) 

DESCfllPriON OF PARAMETERS 

C - COEFFICIENT VECTOR OF GIVEN POLYNOMIAL 

COEFFICIENTS ARE ORDERED FROH LOM TO HIGH 

THE GIVEN COEFFICIENT VECTOR GETS DIVIDED 8V THE 

LAST NONZERO TERN 

DOUBLE PRECISION ARRAY 
IC - DIMENSION OF VECTOR C 

Q - WORKING STORAGE OF DIMENSION IC 

ON RETURN Q CONTAINS REAL PARTS OF ROOTS 

DOUBLE PRECISION ARRAY 
E - WORKING STORAGE OF DIMENSION IC 

ON RETURN E CONTAINS COMPLEX PARTS OF ROOTS 

DOUBLE PRECISION ARRAY 
POL - WORKING STORAGE OF DIMENSION IC 

ON RETURN POL CONTAINS THE SOEFFICIENTS OF THE 



PR0029aO 
PRQ02990 

PR0D3000 
PRaO3010 
PRQO3020 
PR003030 
PRQD3040 
PR«33050 
PR003060 
PROO3O70 
PROO30B0 
PRgO3090 
PRQO3100 
PRQ03UO 

pRgoaizo 

PRQD3130 
PRQ03140 
PftOO3L50 
PRg03t60 
PRQD3170 
PR0D3180 
PRQ03190 
PR003200 
PR003210 
PRQD32Z0 
PR0D3230 
_ PRgO3240 
PRQ03250 
PROD3260 
PRQ03270 
PRQO3Z80 
PRQ03290 
PRQD3300 
PROD3310 
PRQ0332a 
PRQ03330 
PRQ03340 
PRQO33S0 
PR0O3360 
PRODS 3 70 
PR003380 
PRQ0339a 
PAQD3400 
Pft(K>3410 
PRQ03420 
PRQO3430 
PRQ03440 
PRQO3450 
PRQD3460 
PRQ03470 
PR(JD34aO 
PROO3490 
PRQD3S00 
PR0035 10 
PROD 35 20 
PRQ03530 
PRQ03540 
PR0D35S0 
PRQ03560 
PR0O3570 
PRQ03SBO 
PRQD3590 
PRQO3600 
PRQ03610 
PR0D3620 
PRQ03630 
PRQ03640 
PRQO3650 
PRQ03660 
PRQD3670 
PRg03680 
PRQ03690 
PROD3700 
PRQ03710 
PRQO3T20 
PROD3T30 
PRQO3740 
PROO3T50 
PRg03T60 
PRQD377Q 
PRQ03T80 
PRQ03T90 
PRQD3B00 
PROOSeiO 
PRQO3820 
PRQD3630 
PRQ038AO 
PRQO3B50 
PRQD3B60 
PRQO3870 



opRg 10 

..OPRO 20 

OPRQ 30 

DPRO 40 

OPRQ 50 

OPRQ 60 

OPRQ 70 

OPRQ 80 

OPRQ 90 

OPRO 100 

OPRQ 110 

vm m 

OPRQ 130 
DPRO 140 
OPRg 150 
DPRO 160 
OPRO 170 
DPRg IBO 
OPRQ 190 
OPRQ 200 
OPRQ 210 
DPRQ 220 
DPRg 2 30 
OPRQ 240 
OPRQ 250 
DPRQ 260 
DPRQ 270 
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POLYNOMIAL KITH CALCULAICO ROOTS 

THIS RESULTING COefFICIEST VECTOR HAS OINENSION IR* 

COEFFICIENTS Aft£ OROEREO FROM LOW TO HIGH 

DOUBLE PRECISION ARRAY 
IR - NUMBER OF CALCULATED ROOTS 

NORMALLr IR IS EQUAL TO DIMENSION IC HIMUS ONE 
lER ~ RESULTING ERROR PARAMETER. SEE REMARKS 

REMARKS 

THE REAL PART OF THE ROOTS IS STORED IN Qdl UP ro QdR) 

C0RR6SP0N0INC COMPLEX PARTS ARE STORED IN E<ll UP TO ECIRt. 

lER = MEANS NO ERRORS 

lER = 1 MEANS NO CONVERGENCE «ITH FEASIBLE TOLERANCE 

lER = 2 MEANS POLYNOMIAL IS DEGENERATE (CONSTANT OR 2ER0I 

lER - 3 MEANS SUBROUTINE MAS ABAMOOMEO DUE TO ZERO DIVISOR 

I6R = * MEANS THERE EKISTS NO S-FRACTION 

lER =-1 MEANS CALCULATED COEFFICIENT VECTOR REVEALS POOR 

ACCURACY Df THE CALCULATED ROOTS. 

THt CALCULATED COEFFICIENT yECTOR HAS LESS THAN 

6 CORRECT DIGITS. 
TH£ FINAL COMPARISON SETHEEN GIVEN AND CALCULATeO 
COEFFICIENT VECTOR IS PERFORMED ONLY IF ALL ROOTS HAVE BEEN 
CALCULATED. 

THE MAXIMAL RELATIVE ERROR OF THE COEFFICIENT VECTOR IS 
RECORDED IN g( IR«-1I . 



METHOD 

THE ROOTS OF THE POLYNOMIAL ARE CALCULATEO BY MEANS OF 

THE QUOTIENT-DIFFERENCE ALGORITHM WITH DISPLACEMENT. 

REFERENCE 

H.RUTlSHAUSER, DER QUOTl ENTEN-D I FF E RENZE M-ALGDRI THMUS , 

8IRKHAEUSER, BASEL/STUTTGART. 1^57. 



SUBROUT INE DPRQOfC. ICt Q. E, PX. IR t lER) 
C 
C DIMENSIONED DUMMY VARIABLES 

DIMENSION E( l)tQ( 11 .CI ll.POLl I) 

DOUBLE PRECISION Oi EiO,P, T.EXPT.ESAV.Ut V, W,C ,POLtEPS 
C 

C NORMALIZATION OF GIVEN POLYNOMIAL 

C TEST OF DIMENSION 

C IR CONTAINS INDEX OF HIGHEST COEFFICIENT 

IR^IC 

IER=0 

ePS=1.0-i6 

TQL=l.E-6 

LIHIT=tO*IC 

KQUNT=0 

1 IFt IR-l 179,79,2 
C 

C DROP TRAILING ZERO COEFFICIENTS 

2 IFICt 1R}14.3.4 

3 1R=IR-1 
GOTO I 

C 

: REARRANGEMENT OF GIVEN POLYNOHIAL 

t EXTRACTION OF ZERO ROOTS 

4 0=l.ODO/CIIR) 
IEN0=IR-1 
TSTA=1 
NSAV=IR«^1 
J6EG=l 

: 0(JI>t. 

: Q(j*i»=ciiR-n/ctiRi 

Q<IRI=C<J)/C< IRl 
: WHERE J IS THE INDEX OF THE LOWEST NONZERO COEFFICIENT 

DO 9 I=ltIR 
J=NSAV-I 
IF(C(m7,5,7 

5 GOrOlb.SI , JBEG 

6 NSAV^NSAV^-I 
Q(ISTA)=0.00 
EI ISTA)=0.00 
ISTA=ISTA+1 
GOTO 9 

7 JBeG=2 

8 Q(J)=CI 11*0 
Ct I) = QIJ} 

9 CONTINUE 

INITIALIZATION 
ESAV'0.00 
QIISTA)=0.00 

10 NSAV-IR 

COMPUTATION OF DERIVATIVE 
EXPT=IR-ISTA 
Ft ISTA)=EXPT 
00 11 I-ISTA,I€ND 
EXPT"EXPT-1.0D0 
POL (1*1 )=EPS*DABS(Q( 1*11 I»CPS 

11 E(l»ll=Q(I*l)»EXPT 

TEST OF REMAINING DIMENSION 
IF( ISTA-IEND)12,20, 60 
L2 JEND=IEND-1 

COMPUTATION OF S-FRACTION 
DO 19 I=ISTA,JENO 
IF(I-ISTA)n.l6.13 

13 IFOABSIEI I I I -POL (I »IJ I 1*,14,16 

THE GIVEN POLYNOMIAL HAS MULTIPLE ROOTS, THE COEFFICIENTS DF 
THE COMMON FACTOR ARE STORED FROM Q(NS«V1 UP TO OIIRI 

14 NSAV=I 

00 15 K=I.JENO 

IF(OABSTErK) ) -POL (•(■M)}15,15,80 

15 CONTINUE 
GOTO 21 

EUCLIDEAN ALGORITHM 

16 DO 19 K=I,IEND 
ElKtll = E(K»II/E(l 1 
-QIK*1I='E(K*1I-Q(K«1I 

IF(K-I) 16, 17.18 

TEST FOR SMALL DIVISOR 

17 [F(DABSiaiI*llr»-POL(I*ll»BO,80,19 

18 QlK4-L)>a(K<^t)/aU*l I 

P0L(K*ll=POL(K*Il/OABS(Q(I+in 
E(Kl=giK»n-ElKt 

19 CONTINUE 

ZP 0(IRI=-0(IRI 



opRO zeo 

IDPRg 290 
DPRO 303 
OPRO 310 
OPRQ 320 
OPRQ 330 
DPRQ 340 
OPRQ 350 
DPRO 3«0 
OPRQ 370 
DPRQ 380 
OPRQ 390 
OPRQ 400 
OPRQ 4 10 
OPRO 420 
OPRQ 430 
OPRQ 440 
OPRQ 450 
OPRQ 460 
OPRQ 470 
DPRQ 480 
OPRQ 490 
OPRQ 500 
DPRQ 510 
OPRQ 520 
OPRQ 530 
OPRQ 540 
DPRO 550 
OPRQ 560 
OPRQ 5 70 
OPRQ 5 BO 
OPRQ 590 
DPRQ 600 
OPRQ 610 
OPRO 620 
OPRQ 630 
.. . DPRQ 640 
OPRO 650 
OPRQ 660 
OPRQ 670 
OPRO 660 
OPRO 690 
OPRQ 700 
DPRQ 710 
OPRQ 720 
DPRQ 730 
DPRQ 740 
DPRQ 750 
DPRQ 760 
DPRQ 770 
DPRQ TflO 
OPRQ 790 
DPRQ BOO 
DPRQ 810 
OPRQ 820 
OPRQ 830 
OPRQ 940 
OPRO 850 
OPRQ 860 
DPRQ 870 
OPRQ 880 
OPRO 890 
OPRQ 900 
OPRQ 910 
DPRQ 920 
OPRQ 930 
DPRQ 940 
OPRQ 9S0 
OPRQ 960 
OPRQ 970 
OPRQ 980 
OPRQ 990 
OPRQIOOO 
DPRQIOIO 
OPRQIOZO 
OPR01030 
OPR01040 
OPR01050 
OPROL060 
OPRQ1070 
OPRQ1080 
DPRaiO90 
DPRQI 100 
OPRQlllO 
0PRQ1120 
DPRQI 130 
DPRQ1L40 
OPRQI150 
OPRQI160 
DPRQI I 70 
OPRQIiaO 
DPRQ1190 
DPRQ1200 
0PR012I0 
0PRQ1220 
0PRQ1230 
DPR01240 
OPRQ1250 
DPRai260 
DPRQIZTO 
DPRQlZaO 
DPRQt290 
OPRQI300 
DPRQ1310 
0PRQ1320 
OPRQ1330 
0PRQU40 
DPR01350 
DPRQ1360 
PPRO1370 
0PRQ13BD 
DPRQI 390 
DPRQI400 
OPRQMIO 
DPRQ14Z0 
OPR01430 
DPR01440 
DPRQ1450 
OPRQI4&0 
0PRQ1470 
OPRai4B0 
0PRQ1490 
OPRQI500 
OPHOI510 
DPRQ1520 
OPR01530 
OPRQI540 
DPRQ1550 
0PR01560 



THE DISPLACEMENT EKPT IS SET TO AUTOMATICALLY. 

E( ISTA»=0.,0) ISrA*l> E(NSAV-1),Q(NSAVI ,E(NSAVI=0. 

FORM A DIAGONAL OF THE QO-ARRAY. 
INITIALIZATION OF BOUNDARY VALUES 

21 E(ISTAt=0.00 
NRAN=NSAV-| 

22 E<NRAN«-1MO.OO 

TEST FOR LINEAR QR CONSTANT FACTDR 
NRAN-1STA IS DEGREE-l 
IF(NRAN~lSrA124,23, 31 

LINEAR FACTOR 

23 0nSTA*ll=Q( ISTAtn*EXPT 
E( ISTA*ll=0.DO 

TEST FOR UNFACTORED COMMON DIVISOR 

24 ei I5IA)=ESAV 

IF( IR-NSAVI60.60,25 

INITIALIZE QD-ALGORITHH FOR COMMON DIVISOR 

25 ISTA=NSAV 
ESAV=e( ISIAI 
GOTO 10 



TEST FOR REALITY 
IF(OI2T,28,28 

COMPLEX ROOT PAIR 

27 Q(NRAN)=P 

Q(NRAN*1I=P 
£(NRftNI =T 
e(NRAN»l)=-T 
GOTO 29 

REAL ROOT PAIR 

28 aiNRAN)=P-T 
OINRANtll=PtT 
E(NRANI=0.00 

REDUCTION DF DEGREE BY 2 {DEFLATION! 

29 NHAN=NRAN-2 
GOTO 11 



REDUCTION OF DEGREE Bv L IDEFLATIONI 

NRAN=NRAN-l 
GOTO 22 

START 00-ITERATION 

31 JBEC=ISTAtl 
JEN0=NRAN-1 
TEPS=£PS 
T0ELT=1 .E-2 

32 KOUNT=KOUNT»l 
P=Q(NRAN*1I 

R = ABSISNGLIE(NRAN1 1 I 

TEST FOR CONVERGENCE 
IF(R-TEPSI30,30,33 

33 S=ABS(SNGLIE(JENOII I 

IS THERE A REAL ROOT NEXT 
IF(S-R) 38,38, 34 

IS DrSPLACEMENT SMALL ENOUGH 

34 IF(R-TOELTJ36,35,35 



-ll-O 

TEST FDR SMALL DIVISOR 
IFI DABS (QUI I -POL (J )l8t,81.37 
37 E( Jl=QIJ+l}*E( JI/QIJl 

0(NRAN*U=-£(NRANl4-Q(NRANtlI-a 
GOTO 54 

CALCULATE DISPLACEMENT FOR DOUBLE ROOTS 
QUADRATIC EQUATION FOR DOJBLE ROOTS 

X**2-|QINRANt*0(NRAN+l) + E( NRAN H •X*0( NRANl •0( NRAN+1 1 = 
3B P=0.5D0*(Q(NRANI*E(N«ANI*Q(NRAN*1) I 
O=P«P-Q(NRAN»*0(NRAN»l) 
T=DS0RT(DA8S(OI ) 

TEST FOR CONVERGENCE 
IF(S-TEPSJ26,26,39 

ARE THERE COMPLEX ROOTS 

39 IF10»43,40.40 

40 IF(P)42,4l,41 

41 T=-T 

42 P=P*T 
R = S 
GOTO 34 

MODIFICATION FOR COMPLEX RJQTS 
IS DISPLACEMENT SMALL ENOUGH 

43 1F(S-T0ELT144,35,35 

INITIALIZATI3N 

44 0=H{JBEGI*E(jeeGI-P 

TEST FOR SMALL DIVISOR 
IF( DABS (01 -POL ( Ja£G)>9I,8l,45 
<.5 T = (T/0)«*2 

u=f/jBeci*o(j8fC*it/(o*(Looo*rn 

v=o+u 

THREEFOLD LOOP FOR COMPLEX DISPLACEMENT 
KOUNT=K0UNT*2 
00 53 J=JBeC.NRAN 
0=01 J + 11*-E(J*1I-*J-P 

TEST FOR SMALL DIVISOR 
IF(DABS(V)-POL( JI } 46, 46, 49 

46 IFI J-NRANIBI,4T,ei 

47 EXPT=EXPT*P 

IFI ASSISNGLI E(JEND) )l-T0Lt4S,4S.SI 

48 P = 0.5D0»{V*O-ElJENOn 

= P««'-( V-UI*(0-U*T-0*M*< l.DO*ri/Q( JENOI I 
T>OSORT(OABS(OI » 
GOTO 26 



DPR015T0 
OPRQ1580 
OPRQ1590 
OPRQI60D 
OPRQISIO 
OPROiiZO 
DPRQI&30 
DPRQ1640 
0PR01650 
0PR0I660 
0PRQ1670 
0PRQ16B0 
0PRQ1690 
DPRQI 700 
OPRQIT 10 
OPR01720 
0PRQ1730 
0PR017*0 
OPR01750 
DPRQI 760 
0PRQ1770 
0PRQ17e0 
0PRai790 
DPROieOD 
OPRQ1810 

oPRQiezo 
opRQieao 

OPRQI840 
OPR0ie50 
0PR01860 
DPR01870 

OPRQlaBO 

OPRQ1890 

DPRQ1900 

0PRQ1910 

OPR01920 

DPRQ1930 

DPRQ19.*3 

OPRQ1950 

OPR01960 

DPRQ1970 

0PRQt980 

DPRQ199C 

DPR0233D 

OPRQ2010 

OPRQ2020 

DPRQ2O30 

DPRQ2040 

OPR020SO 

OPR0ZD60 

DPRQ20TO 

DPftQ2080 

DPRQZ090 

OPRQZIOD 

OPR02110 

OPRQ2120 

OPRO2130 

DPR02140 

OPRQZISO 

OPROZ160 

DPRQ2I70 

0PRQ2183 

DPRQ2190 

0PRQ2200 

DPRQ22iO 

OPRQ2220 

OPRQ2230 

DPROZ240 

DPRQ2250 

OPRQ2260 

DPRQ2270 

DPRQ2290 

OPRQ2290 

OPR02300 

OPRQ2 310 

OPRO2320 

OPR02330 

0PR02340 

DPRQ2350 

OPRQ2360 

DPRa2370 

0PRQ236D 

DPRQ2390 

DPR02400 

0PR02410 

DPRQZ420 

0PR02430 

OPROZ440 

DPR02450 

OPRQ2460 

DPRQZ470 

DPR024aO 

OPR02490 

OPRQ2500 

0PftQ2510 

0PRQ2520 

0PRQ2530 

0PRQ2 54C 

DPR02550 

0PRQ2560 
0PRQ2570 
DPRQ2580 
DPRQ2590 
DPR02600 
DPRQ2610 
DPRQ2620 
DPRQ2630 
DPRQ2640 
DPRQ26S0 
DPR02660 
DPRQZ670 
0PRQ26B0 

OftAd2&40 
DPR02700 
0PRQ2710 
DPR02720 
OPRQ2730 
OPRQ2740 
0PRQ2 750 
DPRQ2760 
DPRQ2770 
DPRg2T80 
OPRQ2790 
OPRQZeOO 
DPRQ2810 
DPRO2820 
DPROZ830 
DPR 02840 
0PRQZ8 50 
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OPRQzeao 


TEST FOR SMALL DIVISOR 


OPflQZSTO 


*■» IFI0A8S(ai-P0L(J*tl )46t«6,'50 

50 H''U»0/V 


OPRQ2680 
0PRQ2890 


T=T*(V/0)««2 


OPR02900 


Q( JI=V*W-E(J-1I 


OPRQ29tO 


U'0.00 


0PRQ29Z0 


If (J-NRANI51, 52*52 S 


0PR02930 


51 U-Q(J*2I*E(J»1>/I0*(1.D0«TI) 

52 VxOt-U-M 


0PRq2940 
0PRQ2950 




OPRQ2960 


TEST FOR SMALL DIVISOR 


DPRQ29 70 
DPRQ2980 


IFI0ABS(Q(J)l-PQLIJ)iai,8l,53 


53 £(J)-y*V»I1.000+Tl/Q(Jl 


DPRQ2990 


0(NRANtl)=V-ECNRANt 
54 eXPT=EXPT*P 


OPRQ3000 
OPRQ3010 


TEPS=rEPS»l.l 


OPR03020 


TDELT=TDELT*l.l 


DPRQ3030 


tFU0UHT-LIHin32,55,55 


OPRQ3040 




DPRQ3050 


NO CONVERGENCE WITH FEASIBLE TOLERANCE 


DPRq3060 


ERROR RETURN IN CASE OF UNSATISFACTQRV CONVERGENCE 


0PflQ3070 


55 lER'l 


OPRQ3O0O 


REARRANGE CALCULATEO ROOTS 


OPRq3090 
0PRQ3100 


56 lENO^NSAV-NRAN-l 


DPRgaiio 


E{ ISTAI'ESAV 


0PRQ3L20 


If (IEN0J59, 59,57 


OPRQSDO 


5T DO 58 l-l,IENO 


DPRQ3I*0 


J=ISTA*I 


OPRQSISD 


K=NRAN*1+I 


DPRQ3160 


E(J1>E(KI 


OPR03170 


58 Q(J|>Q|K) 


OPRQ31B0 


59 IR=ISTA*!EN0 


OPRQ3190 




0PRQ3200 


NORMAL RETURN 


DPRQ3210 


60 IR-IR-1 


DPRQ3220 


1F(1R)78, 78,61 


DPRQ3230 




0PRQ3240 


REARRANGE CALCULATED ROOTS 


OPRa3250 


61 DO 62 I-l.IR 


0PRQ3260 


Q(ll=Qf!*I) 


OPRQ32 70 


62 EU}>EI 1 + 11 


OPRQ3280 




0PRQ3Z90 


CALCULATE COEFFICIENT VECTOR FROM ROOTS 


DPRQ3300 


POL(IR*1)=1.00 


OPRQ3310 


ICND=IR-l 


DPRQ3320 


JBEG-1 


DPRQ3330 


DO 69 J=L,IR 


0PR03340 


ISrA=IR+l-J 


0PRg3350 


O'O.DO 


OPRO3360 


P=Q( ISTAI 


OPR03370 


r-E| ISTAI 


DPRQ33B0 


If (T)65.63,65 


OPRQ3390 




0PRQ3400 


HULTIPLV WITH LINEAR FACTOR 


0PR034ID 


63 00 64 I=[5TA,IR 


DPRQ3420 


POL(Il==O-P*P0L( I + l) 


DPRQ34 30 


64 Q-POL( I+ll 


0PRQ3440 


GOTO 69 


DPR03i50 


65 &0Tai66,67),JeEG 


0PRQ3460 


66 JSEG=2 


DPR03470 


POL(ISrAl«0.00 


DPRQ3«aO 


GOTO 69 


OPRQ3490 




OPRQ3500 


flULTIPLY WITH QJAORATIC FACTOR 


DPRa35lO 


67 JBEG»1 


DPRQ3520 


U>P*P»T*T 


DPRaa530 


P=P+P 


DPRa3540 


00 68 I*1STA.IEND 


DPRQ3550 


PDL(I)-0-P*POL( I*1IH)»P0L( 1*2) 


0PRQ3560 


68 D=PDLII»l» 


DPRQ3570 


POLIIRI=0-P 


OPRQ3580 


69 CONTINUE 


0PR03S90 


IF(IERI78, 70,78 


0PRQ3600 




OPRQ3610 


COMPARISON OF CaEFFICIENT VECTORS, IE. TEST Of ACCURACY 


DPRQ362Q 


70 P=O.DO 


OPRQ3630 


00 75 I-l.IR 


DPRQ3640 


IF(C(Ill72f71,72 


DPRQ3650 


71 O^OABSIPOLUII 


DPRq3660 


GOTO 73 


0PRQ36T0 


72 0=DASSMP0L{II-CI1) )/CII 1) 


0PRQ3680 


73 IFCP-0t74,75,75 


DPRQ3690 


74 P=0 


0PRQ3700 


75 CONTINUE 


OPRQ37L0 


IFtSNGLlPI-TQLI 77,76, 76 


OPRQ3720 


76 IER--1 


OPRQ3730 


77 Q(IR*11=P 


0PRQ374G 


El IR«^1)>0.00 


OPR037S0 


78 RETURN 


0PRQ3760 




DPRQ3770 


ERROR RETURNS 


0PRQ3780 


ERROR RETURN FOR POLYNOMIALS OF DECREE LESS THAN 1 


DPRQ3790 


79 rER=2 


DPRQSeOO 


IR=0 


DPRQ3810 


RETURN 


DPR03820 




0PRQ3630 


ERROR RETURN IF THERE EXISTS NO S-FdACTIQN 


0PRQ3840 


80 IER*4 


OPRQ3850 


IR=ISTA 


OPR03S60 


GOTO 60 


DPPQ3870 




OPR03880 


ERROR RETURN IN CASE OF INSTABLE QD-ALGORITHM 


DPRQ3B90 


81 IER=3 


OPRQ3900 


GOTO 56 


OPR039IO 


ENO 


DPRQ3920 



Subroutines PRBM and DPRBM 

These subroutines compute the real and complex 
roots of a real polynomial 



p(x) = c + c X + . . . +c ^ X 
1 2 n+1 



using Bairstow's iterative method of quadratic 
factorization. 

1. Mathematical background 

Every real polynomial of degree greater than one 
can be factored in the form p(x) = q(x)r(x) where 
q(x) = X + qgX + q^ is quadratic. If q(x) is reduc- 
ible, that is, if q(x) is a product of two real linear 
factors, p(x) has a pair of real roots; and if q(x) is 
irreducible, p(x) has a complex conjugate pair of 
roots. If r(x) has degree exceeding one, it too may 
be factored as above, and so on. The quadratic 
factors of p(x) are determined by subroutines PQFB 
and DPQFB. See those routines for a detailed 
description of Bairstow's method. 

2. Programming considerations 

The subroutines need only the coefficient vector 
C = (C]^, , . , cjq) and the number of coefficients 
IC = n+1 as input. They give as output an error 
parameter lER, the number of computed roots IR, 
the real and complex parts of the computed roots in 
vectors RR and RC, and — - if all the roots have 
been computed — the coefficients of the polynomial 
with the computed roots stored in the vector POL. 

If p(x) is a constant, that is, if C2 = C3 = . . . = 0, 
we set IR = 0, lER = 2, and return to the call 
program. 

Otherwise, let IR = max j j I c^ j^ I . Then 



we may write: 



P(x) = Cj.^ p(x) p(x) 



P(X) = Pj^ + PgX + . . . + PjX 



J-1 



P(x) 



K 



K, andpj =CK+i/ciR, j = 1, 
J, and pj ^ 0. The coefficients of p 



where K 2 0, J = IR 

2, .... u, ana p^ f= u. ine coefficients of p are 
stored in POL(l) up to POL(J) and POL(J+l) up to 
POL(IR) are initialized to zero. If an exponential 
overflow occurs during the calculation of the pj we 
again set IR = 0, lER = 2 and return control to the 
calling program. 
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The following example illustrates the procedure 
so far: 

p(x) = 0+0. x+50. x^ +40.x3 +30.x4 +20-x5 



6 7 8 9 

+ 10-x + 0-x + O'X + O'X 



\ / 
IC = 10 



IC: 



50 



40 



30 



20 



10 



IR = 7, J = 5 
POL RR RC 



1: 



IR: 
\ 



5 
4 
3 
2 
1 


















- 


- 



2 3 4 
p(x)= 5+4x+3x +2x +x 



p(x) = X 



3. The Bairstow iteration 

Upon entering the main part of the routine we 
assume 



p(x) = Cj^ p(x) p(x) 



where 



P(x) = Pj + Pg^ ^ 



+ P. 
] 



x^ 



1-1 



(P, = 1) 



is the polynomial with the unknown roots, and 

P(x) =P^^1 ^ Pj^2X + . . . +Pjj^xIR-J-UxIR-J 

is the polynomial generated from the computed 
roots. The coefficients Pj, P2> • • • . PiR ^-^e 
stored in POL(l), POL (2) , . . . , POL(IR). Now 
there are three possibilities: 

(1) j = 1. All the roots have been computed. IR 
is decreased by 1 in order to record the number of 
computed roots and control is passed on to the last 
phase of the subroutine (the appendix). 

(2) } =2. The last root is x = -pj. This is 
recorded by setting RR(IR - 1) = -Pj and 
RC(IR - 1) = 0. The polynomial p(x) is multiplied 
by the linear factor x + p-, , occupying after multi- 
plication the locations POL(2) up to POL(IR). IR 
is decreased by 1, thus recording the number of 
computed roots, and control is passed on to the 
appendix. 



(3) j ii 3. In this case the polynomial p(x) is 

factored by means of subroutine PQFB or DPQFB, 

where the quadratic factor qj + q2X + x^ of the 

previous step is used as the initial guess (in the 

first factorization x^ is used). If factorization is 

not successful, it is restarted with the initial guesses 

2 2 2 

-Qi +q2'^ + x , -q, -q2X+x and q^^ -q2X + x . If none 

of these trials leads to a successful factorization, qi 
and q2 are increased by 1 (at most nine times). If 
after a maximum of 40 trials factorization is still un- 
successful, IRis decreased by J, thus recording the 
number of computed roots, and the rest of the sub- 
routine is bypassed giving the error message IER= 3. 

If any one of these trials is successful, p(x) is 
divided by the determined quadratic factor, occupy- 
ing after division the locations POL(l) up to POL 
(J -2). Then the polynomial p(x) is multiplied by the 
same quadratic factor and occupies after multipli- 
cation the locations POL(J-l) up to POL(IR) . At 
least the quadratic equation is solved, and the real 
and complex parts of the two roots are stored in the 
corresponding locations of RR and RC. After de- 
creasing j by 2, the main part of the subroutine is 
reentered. 

Assuming that all the roots of the polynomial 
have been computed, the coefficients of the poly- 
nomial p(x) are shifted into the locations POL(l) up 
to POL(IR), and POL(IR+l) is set to 1 (ffi, is the 
number of computed roots) . 

Furthermore, the absolutely greatest error of the 
coefficients of the resulting polynomial is generated 
using the formula 



a = max 
i 



(<Pi 
where 6. =< 

1 P.- 



c.)/c. 
1 1 



if c. i^O 
1 

if c = 
1 



1,..., m 



The number a is stored in RR(IR+1) giving the user 
some indication of the accuracy reached by the sub- 
routines. The warning lER = -1 is given if a>€ 
(€ = 10"^ in single precision and e = 10"" in double 
precision). The warning lER = -1 is overridden by 
the warning lER = 1 , which is given if any quadratic 
factorization fails to converge. (See PQFB.) 

For reference see J. H. Wilkinson, "The Evalu- 
ation of the Zeros of 111- Conditioned Polynomials 

(Parts 1 and 2)", Numeriische Mathematife , vol. 1 

(1959), pp 150-180. 
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SURPCUT IMT PFBM 

10 r.AtruiATf ALL PTAl AND COMPLI^K ROOTS nf A r. I ve« 
PClYMnflAL W[TH fltAl f-Ot FF I C t FN! S. 

r-t.Li pr:»k (C,rc,.*R,RC,POt,iR,rERj 



PRHM in 

. . . PRSn 20 

PRRM )0 

PFet" *o 

PRAM %0 
PREIH 60 
PRSH 70 
PR8M BO 
PPPM qO 
PR6M 100 
PRAM 110 
PRBH 120 
T I [A Of tARAMfft^KS PRBH 1 }0 

■ r - INPUT VFCrOR CONIAIMNG Tht COEfflCIENTS OF THf pttBH UO 

- r,iv€N PGIYNOMJAL. COEFflCIENIS ARE CHDEREO FROM PRBIi 150 

- LflW in HluM. ON HEtURN CHEfFJClENIS ARE 1 V I Dt D PftflN 1 60 
RY THE LAST NtlNiFRC TERM. PDRH | 70 

If - ot-^fNsioN Of vtrroBS c, br, rc, ano pol. prrh i ho 

- fi« - WtSUtTANT VECI3R OF atAL PA^IS Of IHE MOOTS. PRBM 190 

- r-C - RESULTANT VtCTPR OF COMPLEX PARIS Of IHE ROOTS. PRBM ?00 
. °ri - RFSULtANF veCTDP OF COEFFICIENTS OF THE POLYNOMIAL PRBM 210 

WITH CALCULATED ROOTS. COEFFICIENTS APE OfiDE«ED PRWM !>Q 

FROM LOW TO HICH |SE£ REMARK *1. pngH 3)0 

IB - OUTPUT VALUE SPECIFYING THE NUMBER ^E CALCULATED PRBM 2^0 

HOOTS. NOflMAtLV IR IS FOUAL TO IC-1. prbh ?S0 

lEk - RESULTANT FRPOP PARAMETER CDOtO AS FOLLOWS PRBM 260 

ieR = - NO ERROR, pf,B„ p,o 

tFR=l - SUHBOUTIhE PafB RECORDS POOR CONVERGENCF PRBH JflO 

AT SUME OUAORATIC fACTORHATfON MITNlN PRBM 290 

50 ITERATJDN STEPS, pftflM 100 

IEfi=2 - POLYNOMIAL IS OEGENERATe, I.E. ZERO OR PftBN Jio 

CONSTANT, p«8H 320 

OR CVtRFLCW IN NORMALIZAtlTN OF GIVEN PRflM 3 30 

POLYNOMIAL, PRbh 3*0 

IEF=3 - THE SUflPOUTINE IS BYPASSEO 0U£ TO PRBM 150 

SUCCESSIVE ZE-iO DIVISORS OP OVERFLOWS PRBM 360 

IN OUAORATIC FACTORIZATION OR Du£ TO P«8M 3 70 

COMPLETELY UNSATISFACTORY ACCURACY, PRAM 380 

IfF=-I - CALCULATED COEFFiriENT VFC TQti HAS lESS PRWM J<)0 

THAN TMREf CORRECT SIGNIFICANT DIGITS. PRBM *00 

THIS REVEAL J PCX)R ACCURACY Cf CALCULATED PRBM -ilO 

BOPTS. PRBM *20 

''^*^*'='^5 PRBM **,f) 

(t) REAL PARTS Of THf ROOTS ARE STORED IN BRdI UP TO RRCIRIPRSH 450 

AND CnRPESPONDING COMPLEK PARTS IN RClll UP 10 RCURt. PRBM 460 

I?l ERROR HESSAGE IER=I INDICATES POOR CONV€<*CfNCE WITHIN PRBM 470 

SO ITERATION STEPS AT SOME OUADPQTIC FACTORIZATION PRAM 480 

PERfOBMfcO BY SUBROUTINE PCFR. pf^gM 4-50 

(3J NQ ACTION BfiSIDES FPHOK MESSAGE ieR = 2 IN CASE Of A ZERO PRBM 500 

OR CONSTANT POLYNOMIAL. THp SAME ERROR MESSAGF IS GIVEN PRfiM 510 

IN CASE OF AN QVEPFLOH IN NOFMAl I ZAT I ON Of GIVEN PRBM 520 

POLYNOMIAL. PRB„ 530 

(4J ERROR MESSAGE (ER^3 INDICATES SUCCESSIVE ZERO OIVISORS PRBM 540 
OK OVERFLOWS OH COMPLETELY UNSATISFACTORY ACCURACY AT PRBM 550 
ANY OUAORATIC f AC TOP I Z A T I ON PESF'IOMED BY pRgM 560 

SUBfOUTINE P9FB. IN THIS CASE CALCULATION IS BYPASSED. PRBM 570 
IR RECORDS THE NUMBtR Of CALCULATED ROOTS. PRBM 580 

POLI IJ .....POLIJ-IRI ARE THE COEFFICIENTS Of THE PRBM 590 

REMAINING POLYNOMIAL, HHERE J IS THE ACTUAL NUMBER OF PRBM 600 
COEFFICIENTS IN VECTOR C (NORMALLY J-ICI. PRBM 610 

(5) IF CALfULATtU COEFFICIENT VECTOR HAS LESS THAN THREE PRRH 620 

CORRECT SIGNIFICANT DIGITS THOUGH ALL QUADRATIC PflflN 630 

tACTORUATIONS SHOWED SATISFACTORY ACCURACY, THE ERROR PRBM 640 
MESSAGE IER*-1 IS GIVEN. PPHM 650 

(61 THE FINAL COMPARISON BETWEEN GIVEN ANO CALCULATED PRBM 660 

COEFFICIENT VECTOR IS PEHFORMEO ONLY IF ALL ROOTS HAVE PR8M ft?0 
BEEN CALCULATED. IN THIS CASE THE NUMBER Of ROOTS IR IS PRBM 6B0 
EQUAL TO THE ACTUAL DEGREE Of THE POLYNOMIAL (NORMALLY PRBM 690 
IP-IC-IP. THE MAXIMAL RELATIVE ERROR OF THE COEFFICIENT PRBM 700 
VECTOR IS RECCROEO IN RRIIft*!). pftSH 710 

PRBM 720 

SUBRPUTINES AND FUNCTION SUBPROGRAMS REQUIRED PRSM 730 

SURRQUTINE POffl OUADPATK fACTOfllZATION Of A POLYNOMIAL PRBM 740 

BY BAIRSTQW ITERATION. PRbm 750 

PRBM 760 
"ETHHO PRe„ 7,0 

THE ROUTS Of THE POLYNOMIAL AH E CALCULATED BY MEANS OF PRBM 780 

SUCCfSSIVf OUAOPATIC FACTORIZATION PERFORMED BY BAIRSTOW PRBM 790 

ITERATION. X*»2 IS USED AS INITIAL GUESS FOP THE FIRST PRBM BOO 

OUAORATIC FACTOR, ANO FURTHER EACH CALCULATED QUADRATIC PRBM 810 

FACIDR IS USED AS INITIAL GUESS FOR THE NEKT ONE. AFTER PRBM 820 

COMPUTATiCiN cr ALL ROOTS THE CflEFflCIENT VECTOR IS PRBH 830 

CALCULATED ANO COMPARED WITH THE GIVEN ONE. PRBM 840 

fOR REFERENCE, SEE J. H. WILKINSON, THE EVALUATION Of THE PRBM 950 
ZEROS OF ILL-CONDITIONED POLYNOMIALS (PART ONE AND TWO), PRBM 860 

NUMERISCHE MfllHEM/^TIK, VOL . 1 (19591, PP. 150-160. PRBM 870 

PRBM 880 

PRBM 890 

PRBM 900 
SUBROUTINE PR tM (C, IC, RR ,«C , POL W R , I f F 1 PRSM 910 

PRBM 920 

PRBM 930 

DIMENSION C< n .fiPI 11 ,RC( n .POLd l,Q(41 Prrm 940 

PRBM 950 

TFSr CN lErtDING ZEBC COEFFlCIENrS PRBM 960 

?PS= l.E-3 PRBM 9T0 

L IM^50 pRf,H 980 

IR-IC* I PRBM 990 

1 I*'=IP-1 PRflMlOOO 
leilR-lK?.'.?,? PRBMiniO 

2 IF<C)I«t M, 1.5 PRBM1020 

PRRM1030 
WORK 'JP nm aOf)T-j AND N')WMAL!Zr B'MfllNjNC "OLYNCMIAL PR8MIO*0 

^ '£"=0 PRBM105U 

PRBM1060 
PRBM1070 
PPBMIOflO 
PRRMI090 
PRBMIIOO 



ir(j-2)j 



. 10.14 



IPLIL Vf«;f 



I Al IS rOllAL TU ONE 



L = 

A=C( im 

DO 8 1=1,1" 
IF(L 14,4, 7 
4 If (CM 1)6, 5 
•i RRd 1=0. 
XL ( n=o. 
POL( Jt=0. 
J:J-I 
GO TO R 
t L = l 



1ST 



J = 
7 Jsjt 1 

C( M=C( M/n 
POL ( J) ^C( ] ) 
ati L OVfi^FL (N) 
IF(N-?)4?,fi, H 
P CrlMINUt 



CI-0. 



srn 



PRBMl 110 
PRBHl 120 
P«fl«l 1 30 
PRBMl 140 
PRBM 1 150 
PRBMl 160 
PRBMl 170 
PRBMUaO 
PRBM1190 
PRBMl 200 
PHBMI2I0 
PRHft2?0 
PRBM1230 
PRBf 1240 
PRBMI250 
PRBMl 260 
PRBMI270 
PR6M128J 
PRBM1290 



PRBMl 100 
PRBMl 310 
PRflMl ^?n 
PRttMl ilO 
PRBMl 140 
PPBMl JSQ 
PHHMI Ito 
PRHMI WIJ 
PRBMl iHQ 
PRflMl 390 
PRtlM1400 
PRBMl 410 
PRBMl 4?0 
PRBM 14 10 



UH-K( t t'( *J| s 

10 A=PU( ( n 

RPMSTI = -A 

RC( I5T 1=0- 

IP=|fl-l 

G?=0. 

If ( IR-1> I 1, 1 ], 1 1 

11 DO 12 I=?,1H 
01=02 
'j^^POL (1*1) 

1? POUn-A»0?*Qt 
\ i POL I IR* I ) - f , g;' 
CO »0 V. 

THIS IS bRANf.H TU COMPARISON Of CUEFFICIENI VECTORS C AND POL PRBmIIso 

Uti.^li. r.l r.:-.M-_.LrN(.WI*L is ORtAIfR than one PRBMl^ftO 

14 DO 2 2 L=I,10 
N= I 

15 tl( 11=01 
C(2)=0? 

CALL fUf B(POl , J,U, L IM, I I 
IFd 116,24,?) 

16 If <0I I IP. I 7, 18 

17 ir(0?)ia,2l, Ifl 
Ifl CO TO II9,20,I9,?IJ,N 
19 tl=-01 

N = N* 1 
G(J TO 15 
?0 02=-0? 
N=N* I 

CO in 15 

'/\ C|cl.*Qt 
2? C2M.-Q2 



PRBM1470 
PRHM14aO 
PPflMI490 
PRBMl 500 
PR8MI510 
Pt;BM1520 
PRHMl',30 
PftOMi540 
PRBM 1 550 



FPPOR fKI' nut TO UNSATISFACTORY RESULTS OF FACTURIZATIO 

IR^IR-J 

RETURN 

WORK UP FESULTS OF QUAQRATIC FACTORIZATION 
2» lER-^l 
?«> Ol'QIU 
02=012) 



PRHM1570 
PKBM1580 
PKBMI 590 
PRAM 1600 
PRBHJAIO 
PR6H1620 
PRflHUlO 
PRaH1c40 
PPBH1650 
PHBH1660 
PRBMIbTO 
PRBM I 6 80 
PRBM1690 
PRBMl 700 
PRHHl/lO 
PRUMl 720 
PRBMl 7 30 
PRBMl 740 
PRBMl 750 



PERFORM DIVISION Of fACTORIZEO POLYNOMIAL BY OUAORATIC FACTOR PRBMl 760 
fl=0. 



A:0. 
1=J 

25 H--gi*B-0?*A*PftL ( I I 

POL( n = a 

R = A 
A = H 
1 = 1-1 
IF(I-?I26,25,?5 

26 P0L(2I=B 
POC( ll=A 



29 POLtLJ=P0L(LI*P0L(L*n»Q2*0l 
P0L< IR)=PnL( IKI*Q2 



PRBMl 77U 
PRBMl 7Hn 

pRbMi rm 

PRBMl BOO 

PRHMIBIO 

PRHMltJ^O 

PRBHl b 10 

PRMMiHAO 

PRBMlbSU 

PRBMl B60 

pRBMiaro 

PRBMl HBO 

MULTIPLY POLYNOMIAL WITH CAlCUCAIEO ROUTS BY OUAORATIC FACIUR PRBMl B9U 

•■""*"' PRHMIVOO 

If(J-LI2?,27,?9 PRttMI9lO 

27 DO 28 1 = J,L PBflM19;'0 

2fl PQLn-ll=POL(I-|J*POL(l )»Q2*P0L( 1*1 I •01 PRBMIVIU 

PRHM1940 

PRHni950 

PRBMl 9bO 

CALCULATF POOT-PAIP FROM OUADRATir fACTOR I*K*Q2»X*QI pHRM|970 

P««MI9flO 
PKBM1990 
PPBM2C00 
PRHM7010 
PRHM7020 
PKBM20)0 
PRBM2040 
PPRM2050 
PRBM20ftO 
PRHM2070 
31 B=H*SIGN(B.HI PRbM70«0 

PPHM209(J 
PHHM/IOO 
PR8M/I 10 
PRflM2120 
"RAM? I 30 
PRMM2140 
PRBM2150 
PRBMPH.O 
PRBH2iro 

SHIfT BACK FLFMFNTS Uf POL BY I ANO CUMPAPE VfCTCIBS POL ANO C PPHH^'lnu 
3) IR=IR-l PRBM2I90 

PR8M??(!(' 
PRBMi?2IO 
PR8M2 220 
PRBM2 2 30 
PHBM2/40 



.5*0-? 
A=H*H-Ol 
P.>SQRT(ABS( A) t 
IF(AI30, 30, 31 
30 RR(ISr)=H 
RC(IST)=B 
IST=IST*I 
RR(IST)=H 
RC(ISTI=-8 
GO TO 32 



RR( JSII -01/B 
FCI ISTI=0. 
ISI'IST*! 
RP( IST(=fl 
fiC(IST)=0. 
3? I5T=|ST»1 
J = J-2 
GO TO 9 



on 3fl (=1,IK 
Q1=C(1I 
C?=POL(I ♦!» 
POL( I 1=02 



If (01)35,36,35 

35 02=(0l-02l/0l 

36 C;2 = A8S(0?I 
IF (02-AI 38, 38, 37 

3J^ A = C? 

38 CONTINUE 
I = lK< 1 
POtl 11=1. 
RHII ) = A 
RC( I 1 = 0. 
IF( IfP l?"!, J<),41 

39 If (A-£nS)41,41,40 



PH8M2250 
PRflM??60 
PflflM22T(; 
PRBM?? HO 
PRBM7?90 
PMBM2 300 
PPBM2 310 
PRttM2l7r) 
PRHH2 J30 
PRBM? 340 
PR6M2 35fJ 
PRBM2 360 
PRBM2'170 

C WARNINi DUF TO POOR ACCURACY Of CALCULAItO CQEFflCIENT VECTOR PRfiM?iH() 

AQ IFB=-1 PPBM2190 

41 WfTURN PRaM2400 

C fmia EUi out re Bfct^fvur poly 

C NORMAL I/AIK" 

42 IEfi=2 
10=0 
RETURN 

tNO 



LYNOMIAL 3R OvERHOW IN 



PRBM24?0 
PRflM24 30 
PflflM?44() 
Pfi6M/4 50 
PR'1M;'4^0 



PRaM?470 
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SJB50UTIME OBOHM 

PURPCSE 

TC CALCiltaTt ALL «E AL «ND COMPLEX 
POLYNOHiAL WITH 'EAL COEFF I C I tNTS. 



RLJQTS CF 4 GIVEN 



liPRBf IC, Ki«R.RC.POl,IR,IF-ft» 



DPRB 

DPD& 
OPRe 
OPftS 
OPRR 
DPKP 
OPPP 
OPRR 
DPrte 



DESCRIPTION C fARiMEIb(«i 

C - CCUSLE PRECISION INPUl VECTOR CONTAIMNC THE 

COEfFI'^It'^rS 0^ THE GIVtN t'OLYNOHIAL. COEfr[CIENTS DPAB 

iRE OROcREC FPOH L&k TC HIGH. ON TF^UPN COEFFI- 0P=!' 

CIENTS ARE OIVIOfD Br THE LftST NON/ERC? TERM. DPRf^ 

IC - OIMFNSIJN Qf VECTORS C, RR , «C. BNC PCL. DPRP 

BR - RESULTi\|T OPiJBLE PRECISION VECTr^i PF REAL PARIS OPH'^ 

OF THE ROUTS. ''**'^*" 

CC - BFSULTavT OCUSLE PRECISION VECTOR LF COMPLEK PARTS OP^ft 

Of The ^ccts. 

PUL - KtiSULTANI DOUBLE PRECISION VECTOS. HF CCEFFICIENTS 

CF THE POLYNOMIAL WITH CALCULATED ^lOOTS. 
COEfFICieMS aoE a(-DP3F0 FROM LOW TO HIGH (SEE 

REMARK '•), 

IW - 3UIPUT VALUF SPECIFYING THE NUK6EP C^ CALCULATED 

ROOTS. VORMALLY IR iS EQUAL TO lC-1 



•^ESJLTANT 
IE« = 1 



PCF 



P&ctH^TF.p. CODED AS ffilLOWS 



NO ERROR, 



DPRP 
OPRB 
DPRF 
DPRp 
OP>*e 
DPifP 
DPRP 

DP^F 

DPRP 



SUeROUTIhE i)P0F6 RECORDS POOR CQNVERGENCEOPRB 

AT SCWE QUADRATIC F AC v;iR I Z AT I ON WITHIN OPRB 

100 ITERATION STtFJS, C'?''? 

ieP=2 - POLYNOMIAL IS DEGENERATEt I.E. ZERO Oft OPRB 

CONSTANT, DPRP 

na nVERFLflH \K NOHMALi^ATinN OF GIVEN DPRB 

POLYNOMIAL. °^^^ 

,Ert=3 _ TH- SUBROUTINE IS RYPASSFD QUE 10 OPfiP 

SUCCESSIVE ZcftO DIVISORS OR OVERFLOWS CPRB 

IN CUADRATIC FACTCRUATION OR DUE TO 0PR6 

COMPLfTFLY UNSATISFACTORY ACCURACY, OPRB 

,EB=_1 _ CALCULATED COEFFICIENT VEfTQt HAS LESS OPRB 

THAN SIX CORRECT SIGNIFICANT DIGITS. DP«6 

THIS REVEALS POOR ACCURACY OF CALCULATED OPRB 

RrnTS. ^^^^ 

OPRB 

MtPKS OPRB 

in R-^AL PARTS OF THE BOOTS ARE STORED IN RRlil UP TO RRIIRIOPRB 

AND Cr-Ri^ESPONOING COMPLEX PARTS IN RCU) U" TO RCCIRI. DPR3 
(2) ERROR viesSAGF 1FR=1 IKOICATFS POOR CONVERGENCE WITHIN DPRP 

100 ITEfiATIDN STEPS AT SCHE QUADRATIC FACT0CI2ATI0N DPRS 

f-tRFDRMEO BY SUBROUTINE DPQFB. OPRB 

O) ^(0 ACTION BESIDES ERROR MESSAGE lER-? IM CASE OF A ZERO OPRE 

n« CONSTANT POLYNOMIAL. THE SAME ERROR MESSAGE IS GIVEN OPRfl 

[N CASE OF AN OVERFLOW IN NORMALIZATION OF GIVEN '"""'' 

POLYNOMIAL. 
(Al ERROR MESSAGE IER=3 IMDICATES SUCCESSIVE ZERO DIVISORS 

OR JVERFLOrfS OR CC^PLETELY UNSATISFACTORY ACCURACY AT 

ANY 3JADRATIC FACTORIZATION PERFUHHEO RV 



OPRR 
OPRB 
DPSe 
OPRB 



<;UBROUTINe DPQFB. IN THIS CASE CALCULATIO^ IS BYPASSED. DPPP 
IR RECORDS THE NUMBER OF CALCULATED ROOTS. OP«B 

POL(l) .....POL(J-IR) ARE THE COEFFICIENTS OF THE DPRB 

HfHAINING POLYNOMIAL* WHERE J IS THE ACTUAL NUMBER CF OPRB 

COfPFIClENTS IN VECTOR C (NC^MALLY J=ICI. 0'*F " 

(51 IF fALCULATEO COefFICIENT VECTOR HAS LESS THAN SIX D?RB 

CORRECT SIGNIFICANT DIGITS THOUGH ALL QUADRATIC OPRB 

FACTORIZATIONS SHOWED SATlSFACinRY ACCURACY, THE ERROR OPRB 
MESSAGE IER=-1 IS GIVEN. OPRB 

(61 THE FINAL COMPARISON BETWEEN GIVEN AND CALCULATED OPRP 

COEFFICIENT VECTOR IS PERFORMED ONLY IF ALL ROOTS HAVE OPRB 
=t6EN CALCULATED. IN THIS CASE THE NUMBER OF ROOTS IR IS OPRB 
EQUAL TO THE ACTUAL DEGPEE CF THE POLYNOMIAL (NORMALLY DPRB 
IB=ir.-i). THE MAXIMAL RELATIVE ERROR OF THE COEFFICIENT DPRP 
VECTOR IS RECORDED IN RRIIR*!). °^^^ 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED DPRB 

SUfifiOUTINE DPQFB OUAORATIC FACTORIZATION OF A POLYNOMIAL OPB« 

BY BAIRSTOW ITERATION. 



METHOD 

THE ROOTS OF THE POLYNOMIAL ARE CALCULATED BY MEANS OF 
SUCCESSIVE QUADRATIC FACTORIZATION PERFORMED PY SAIRSTOM 
ITERATION. X*»2 IS USED AS INITIAL GUESS FOB THE FIRST 
QUADRATIC FACTOR. AND FURTHER EACH CALCULATED QUADRATIC 
FACTOR IS USED AS INITIAL GUESS FOB Th€ NEXT ONE. AFTER 
COMPUTATION OF ALL ROOTS THE COFFFICIENT VECTOR IS 
CALCULATED AND COMPARED KITH THE GIVEN ONE. 
FOR REFERENCE, SEE J. H. WILKINSON, THE EVALUATION OF THE 
ZEROS CF ILL-CONDinOhEO POLYNOMIALS (PART ONE AND TWO), 
NUMERISCHE MATHEMATIK, VOL.1 (I95qi, PP. 150-180. 



SUBROUTINE DPRBMt C, I C.RR, RC.POL, IR . 1 EK I 



DIMENSION C( ll.R«(l),RC(ll.POLIl)tQ(<tl 

DOUBLE PRECISION C ,RR .RC ,POL , Q, E PS . A, B. H,01 ,QZ 

TEST ON LEADING ZERO COEFFICIENIS 
EPS=l.D-6 
1_IM=100 
IR=IC»l 

1 IR=IR-l 

IF! IR-l)'.2,<.3,2 

2 IFIC(IR) ) 3. t.3 

WOFK UP ZERO ROOTS AND NORMALIZE REMAINING POLYNOMIAL 

3 IER=0 
J=IR 
L=0 
A=C1 IPt 

DO a I < 1 , I R 
IFILK.'.,T 

4 IFICdl 16.5.6 

5 RR(I 1=0. DO 
PCU I-O.DO 
POLIJ1=O.DO 
J=J-l 

GO TO B 

6 L-l 
IST=I 
J = 

7 J=J*l 

C(l t=C(I I/A 

P0C<JJ=C(I1 
CALL OVERFLfNl 
IF(N-2)«2,e.e 
e CONTINUE 



120 

n.1 

1=0 

\hO 
I'O 

lao 

ISO 
200 
?10 
2?0 
2(0 
2'VO 
2i0 
?6J 
."70 
2?0 
2^0 
300 
310 
320 
5 -C 
340 
3^0 
360 
370 
3no 
390 
400 



SOO 
510 
520 
530 
540 
550 
560 
5 TO 
5 SO 
590 
600 
610 
620 
610 
640 
650 
660 
670 
610 
690 
TOO 
710 
720 
730 
740 
750 
760 
7 70 
730 
790 
800 
BIO 
820 
B30 
840 
850 
860 



DPRB 
DPRB 
DPRB 
OPRB 
0PR8 
DPRB 
DPRB 
OPRB 
DPRB 
OPRB 
DPRB 8S0 
DPRB a**© 
OPRB 900 
DPRB 910 
..DPRB 9Z0 
DPRB 930 
DPRB 940 
OPRB 950 
OPRB 960 
DPRB 970 
DPRB 980 
OPRB 990 
DPRBlOOn 
DPRBIOIO 
DPRB1020 
DPRBIOSO 
DPRB1040 
DPRB105U 
DPR61060 
OPRBI070 
DPR8I080 
DPRB109Q 
DPRflUOO 
OPRBUIO 
DPRBU20 

opRflino 

DPRB1140 
0PR?)II50 
DPRei!60 
OPRBllTO 
OPRB 1 ISO 
DPRB 1190 
DPRB 1200 
DPR61210 
DPfl61220 
OPR61230 
OPRB 1 240 
OPRB 12 50 
DPRB I 260 
0PR812T0 
DPRei280 
DPRei290 



START bAIRiTCW ITERATION 
C1=0.00 
02=0, DO 
^ IF(J-2131, 10tl4 

DEGREc RE RcSTPOLY^OMUL IS EOUAL TO ONE 

10 A = P0H11 

RRIIST1=-A 

CC(IST)=0.D0 
IR-lR-1 
02=0.00 
IF(IB-lin,l3,U 

11 00 12 1=2, IP 
01=02 

C2 = P0Hl + l) 

12 PPLl I »=A»a2*Ql 

13 PQH If;*l) = fl*Q2 
GO TO 3'. 

THIS IS BRANCH TO COMPARISON CF COEFFICIENT VECTORS C AND POL 

DEGREE OF RES TPOL YN1M1 AL IS GREATfC THAN ONE 

14 OD 22 L=l, 10 
K*I 

15 0(11=01 
0(?I =02 

CALL nPCF-^(POL.J.O,LIM. n 

IF 1 1 116, 24, ra 

16 iFiQiiie.i7,ia 

17 IFIQ2)ie.21.l8 

IB GO TO ( l<9, 20,19,21 1 .N 
IP C1=-0I 

N = N+1 

QO TO 15 

20 O2=-02 
N=N+1 

GO TO 15 

21 21=1.00*01 

22 02=1.00-02 

EFFCf EXIT DUE TO UNSATISFACTORY RESULTS OF f ACTOR I ZATION 
iER=3 
II< = 1R-J 

RETURN 

WORK UP RESULTS CF QUADRATIC FACTORIZATION 
2? lfR=l 

24 ci = c(n 

02=012) 

PERFORM DIVISION OF FACTDRIZEO POLYNOMIAL Bv QUAOPATIC FACTOR 
B=O.DO 

A^D.no 

1 = J 

.75 H=~01*e-0?*A*P0Ln ) 

pPLi n = B 

F=A 

A-H 

1=1-1 

IF( I-2)2t.26.25 

26 P0L(2l=e 
PCLU1=A 

MULTIPLY POLYNOMIAL WITH CALCULATED ROOTS BY CUADRATIC FACTOR 
L=1R-1 
1F(J-H27.Z7,2'? 

27 00 28 I=J,L 

25 POL I I-ll=fDL(I-lJ*POL( I )*Q2*PCL( I + l)«QI 
?q POL ( L) -POL fLl*PCL(L*U "02*01 

PaLIIRt=P0L(Ifll+C2 

CALCULATE ROOT-PAIR FROM QUADRATIC FACTOR X»ll*a?*X*Ql 
H=-.500»C? 
a=H"H-Ql 

B = 0SQRT(DA6SMn 
IF(AI30,30,3l 

30 PR( ISTI=H 
RC(IST(=B 
IST=lSTtl 
pe(ISTI=H 
RC(IST(=-'i 
GO TP 32 

31 B = H*DSIoN('i.HI 
PP{ISTI=Ol/fi 

p,cnsTi=o.oo 

IST=ISTtl 
Rq(ISTI=B 
KCI ISTI=0.D0 
12 1ST=IST+1 
J=J-2 
GO TO 9 

SHIFT 8AC< ELEMENTS OF POL BY I ANO COMPARE VECTORS POL AND C 

33 IR=1R-1 

34 A=0.00 

DO 38 1=1, IR 
01-C(I t 
02=P0LII+ll 
POU 11 = 02 
lFIQll35,36i 35 

35 02=(Q1-021/Cl 

36 02=0A8SIQ2l 
IF(02-A)3e, 38,37 

37 A=02 

3ti CONTINUE 
l=IR*l 
POL! 1)= I. 00 
RRM l = A 
PCI I 1 = 0.00 
IFII€RI39,39,41 

39 IFIA-EPS141,4l,40 

mmc ouf rt? poor Mcma of cmcmm Cdtrrium num 

40 IER=-1 

41 RETUFN 

ERROR EXIT DUE TO DEGENERATE POLYMOMIAL OR OVERFLOW IN 
NORMAL f ZATION 

42 IER«2 
IR=0 
RETURN 
END 



DPR6I300 
DPR81310 
0PRei320 
OPRei330 
OPRni340 
DPRB 1350 
0PR8136Q 
DPRai3T0 
0PR61380 
OPRB 1 390 
DPRfit400 
DPR8I4L0 
OPR'31*20 
0PR61430 
DPRBU40 
OPR8I450 
OPRB1460 
DPR81470 
DPRB 1480 
DPRB1490 
OPRB 1500 
OPP61510 
0PRB1520 
DPRBI530 
DPRBISAO 
DPRR1550 
0PR81560 
DPRB1570 
0PRB1580 
DPR8I590 
DPRB1600 
DPRB1610 
DPR81620 
DPR61630 
DPP81640 
0PRB1650 
DPRB1660 
DPRB1670 
DPPB1630 
00061690 
DPRB I 700 
DPRB1710 
DPABITZD 
0PPB1730 
0PR61740 
OPRBITSO 
DPRei760 
DPRB1770 
DPR81780 
DPRei790 
DPRB1600 
0PRBI810 
OPRE'1820 
0PRBlfl30 
0PRBie40 
0PRB1850 
DPCBl B60 
0PRB1870 
0PR61880 
0Pfi61890 
OPRB1900 
OPRBl^lO 
DPR61920 
DPR61930 
0PRS1940 

0PRei95a 

DPRB 1 960 
DPRB1970 
0PRB198O 
0PRB1990 
0PRB2000 
aPRB2010 
DPRB2020 
DPR 82 030 
OPR62040 
OPRB2050 
0PR52060 
DPRB2070 
0PR62080 
DPRB2090 
DPRB2I00 
0PR8Z110 
DPRB2120 
0PR6Z13O 
0PR82L4O 
OPR82150 
dpi: B2 160 
DPR62170 
DPR 62 L 80 
0PR62190 
DPRB2200 
DPR 82210 
DPR62220 
0PRB2230 
DPRB2240 
OPRB2250 
0PRe2260 
DPRB22T0 
0PRB2280 
DPRB 2 290 
DPPB2 300 
0PR82310 
DPRB2320 
DPRB2330 
DPRB23AO 
DPR82350 
0PRB2360 
DPRB2370 
0PRB2 3B0 
0PRflZ390 
DPR62400 
DPRB2410 

mmio 

0PRB2430 
DPRB2440 
0PRB2450 
0PRB2460 
DPRB2470 
0PR62480 
0PRB2490 
0PR82500 
0PRB251O 
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Subroutines PQFB and DPQFB 

These subroutines use Bairstow's iterative method to 
find an approximation to a quadratic factor of a given 
polynomial p(x) = C1+C2X+ . . . +Cjj+]^xi (deg p(x) =n s 
2 , cj real) . 

1. Mathematical background 

2 
Let Q(x) = X + Q2X + Q1 be any quadratic polynomial 

with real coefficients. Then p(x) = R(x)Q(x) 

+ B(QjL, Q2)x + C(Qi, Q2), where C(Qi,Q2) = a^, 

B(Ql> Q2) = ^2, R(x) = a3+a4X+. . . +a^+ixn-2 , and 

if i > n+1 



^7Wi+rVi+2 ifi=n+l,...,2 



^rVs 



if i=l 



Of course, if q(x)=x + q2X+qi is a factor of p(x), 
then: 



and 






Suppose that Q(x) is an approximation to q(x) ; then 
Ql and Q2 are approximations to q^ and q2 respec- 
tively, and if A Qj and A Q2 are such that: 



and 






Then: 



and 



C(Q^ + AQ^, Q^ +AQ2) =0 
B(Qj+AQ^, Qg +^Q2) =0 



(1) 



Instead of solving (1) for AQj^ and AQ2, we solve: 
8 



C(Q , Q + rr- C(Q , Q ) A Q 
^^l'^2) aQ ^^l'^2' ^1 



9 



N, 



and 



^ ^/<S'^2)^^2 =° 



a 



> (2) 



^^^'V- ^^^^%'V^i 






for AQj and AQ2. Equation (2) is the linearization 
of (1). To solve (2) we must find _!_ B(Qj^, Qg) 

and — C(Qj , Qg) , i = 1 , 2 . To do this w;e define 



a. if i>l 

1 



-I 

i |a^ -Q^B if i=l 



and then 



if i>n+l 



..1 



Now: 



ar. 



8Q, 



9r.,, ar „\ 

1+1 „ i+2 

= ~r -Q Q 

i+1 ^2 8Q ^1 8Q„ 



and 



9r 



"= -r. 



-Q„ 



i+1 



8r 



aQ i+2 ^2 dQ 



Q 



i+2 



1 9Q, 



/ 



By an easy induction on i it follows that: 



8r. ar. 



In particular: 

8a„ 8r„ 

8B ^ 2_ ^ 2^ ^ _ 

8Q, 8Q, 9Q, 4 



i=l,..., n+1 



\ 



9Q2 8Q2 SQg ■ 3 



dC 
8Q^ 


8Q^ 


'^1 

+ Q 
8Q^ ^2 


^^2 

aQ^ 




-h 


-S^4 




9C 
8Q2 


'h 
'% 


-8Q/S 


^^2 
aQ2 




-h 


- S ^3 " ^4 





> 



■^'•2 = 



/ 
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and if we let: 



S = ^4 



B = s 
1 3 



A, = s„ - r„ 
1 2 2 



\ 



A = r. 



/ 



then we can rewrite (2) as: 

(B +Q„CJAQ, +(A +Q B )AQ, =A + Q„B 



1 "^2 1 



1 2 1' 



C AQ + 
1 ^1 



B^ AQ^ = B 



of the polynomial p(x) is tested; if p is of degree 1, 
there is no further computation and lER is set to -2; 
if p is of degree 2, Q(l) and Q(2) are set to C(l) and 
C(2) respectively, Q(3) and Q(4) are set to zero, 
lER is set to zero, and computation is terminated; 
if p is of degree greater than 2, the main part of 
the subroutine — the Bairstow iterative procedure — 
is entered. 

Every approximation Q(x)=x^+Q2X + Qi to a 
quadratic factor of p has associated with it a con- 
stant CC, called the norm of the modified linear 
remainder and hereafter referred to as the norm. 
It is given by CC = CA- 1 A| +CB- 1 b! where: 



CA 



\ ' 



C(2) 



|C(1) 



if |C(1)|^ |C(2)| 
if |C(1)|>|C(2)( 



which simplifies to: 



and 



B^ AQ^ + A^ AQg = A ) 
C^ AQ^ + B^ AQ^ = B ^ 



(3) 



CB 



|C(1) 



C(2) 



if |C(1)|<|C(2)| 



/ . . 



[C(l)|s|c(2)| 



Solving (3) we find that: 



AQ^ = 



^Qo 



A B - B A 



C A - B B 



\ 



Since there is no guarantee that the Bairstow method 
will converge, several accuracy tests are performed 
at the end of each iteration. Depending on the out- 
come of these tests , which in part involve CC , either 
the computation is terminated or another iteration 
is performed. 
Letting: 



EPS = 



/ 



10 ° in single precision 
10"14 in double precision 



We can now replace Q^ by Q. + AQj, 1=1,2, and 
repeat the above procedure. 

2. Programming considerations 

The input consists of a vector C of polynomial 
coefficients (0(1) is the constant term), the dimen- 
sion IC of C, a vector Q of dimension 4 with Q(l) 
and Q(2) containing initial guesses for the coeffi- 
cients of a quadratic factor, and an upper bound 
LIM for the number of iterations to be performed. 

First JSJC is determined such that C(J)^0, 
C(K)=o for K>J. If Jsi, there is no computation 
and the error parameter lER is set to -1. If J>1, 
the poljmomial is normalized by dividing all the 
coefficients of C by C(J) , the coefficient of the 
leading term. If overflow occurs during the nor- 
malization, computation is terminated and EER is 
set to -1. If no overflow occurs, the degree (J-1) 



and: 



EPSl 



10 ^ in single precision 
10-16 in double precision 



the tests are described below. 

a. If |a|sEPS*|C(1)| and] b|^EPS*|C(2)| 



or 



if |AQi|fiEPS*|Qi I and |AQ2|^EPS* |Q2| , com- 
putation is terminated after setting rER = 0, Q(l) = 
Ql, Q(2)=Q2, Q(3)=A, andQ(4)=B. 

b. If |AQi|^EPSl*|Qi| and|AQ2|^£PSl*|Q2|, 

and if |AQi/Qi| or | AQ2/Q2 | is not smaller than 
its value for the previous iteration (this is gen- 
erally due to roundoff errors) , computation is ter- 
minated after setting IER = 0, Q(l)=QQi, Q(2)=QQ2, 
Q(3)=AA, and Q(4)=BB where QQj, QQ2, AA, and 
BB are the values of Qj, Q2, A, and B belonging to 
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a previous iteration — the iteration with the smallest 
norm. 

c . If no convergence occurs within LIM itera- 
tions and if the last norm is not greater than CD/lO, 
where CD is the norm associated with the quadratic 
factor x2, results are generated as in b. with the 
exception that lER is set to 1 . If the last norm is 
greater than CD/10: 

(1) If the initial guess for the quadratic factor 
was x^, the results are generated as in 

b. with the exception that lER is set to -3. 

(2) If the initial guess for the quadratic factor 
was not x2, the subroutine restarts with 
x^ as the initial guess. 

d. If exponential overflow or division by occurs 
during any iteration, results are generated as in b. 
with the exception that lER is set to -3. 

For reference see: 

(1) J. H. Wilkinson, "The Evaluation of the Zeros 
of Ill-Conditioned Polynomials (Part I and n), " 
Numerische Mathematik, vol. 1 (1959), pp. 
150-180. 

(2) F. B. Hildebrand, Introduction to Numerical 
Analysis . McGraw-Hill, New York/Toronto/ 
London, 1956, pp. 472-476. 



SUeROUTlN€ PQFB 

PU«POS£ 

TO FIND AN JtPPnaKIHATlGN 01 X I -Q l.Q2«X.X4X TO A OUAOKATIC 
FtCIOR Of > CIVEH rOLVWHItL fIXI KITH (Ml COCFFIC tENTS. 



.PQFB 
PSft 
FOFB 
POFt 
POf« 



«0 
TO 



US ACE 

CtlL POFelC.IC.O.LIH.IEDI 



OESCKIPTION OF PARAHETEPS 



«0 



POFB 
POfB 

PQFB loo 

PWB 110 

PQFB 120 

PQFB IJO 

PQF> 140 

PQFB 150 

PQFB IfrO 

poFi no 



INPUT VECTOIt CONTAIIIINC THE COEFFICIENTS OF P(l(l - 
CI II IS THE CONSTANT TERN (OINENSION ICI 
IC - OIHENSION OF C 
g - VECTOR OF DINENSIDN « - ON INPUT 0(11 AND 0<2I MUST 

CONTAIN INITIAL GUESSES FOR 01 ANO 02 - ON RETURN QIIIPQFB IBO 
•NO 0(21 CONTAIN THE REFINED COEFFICIENTS 01 ANO 02 OFPOfB Ho 
0<XI, NHIIE 0(31 ANO 0(41 CONI«l« THE COEFFICIENTS A POFB 200 
ANO B OF A-*e*X. WHICH IS THE REHAI NOt A OF THE QUDTIENTPQFB 210 
OF P(«l BT 0(11 PQFB 220 

IIK - INPUT VALUE SPECIFVINO THE NtXINUN NUNBER OF PQFB 2}0 

ITERATIONS TO BE PERFORMED pQFB 240 

lER - RESULTINC ERROR PARAHETER (SEE RENARRSI POFB 2S0 

lER* - NO ERROR pgFS 260 

lER. 1 - NO CONVERGENCE HiTHIN-lIN ITERATIONS PQFB 270 

lER— 1 - THE POLVNOHIAL PIKI IS CONSTANT OR UNOEFINCO PQFB 2a0 
- OR DVERFLON OCCURRED IN N0RHALI2INC POI PQFC 240 
THE POLVNOHIAL PI XI It OF DEGREE I PQFB 300 

NO FURTHER REFINEMENT OF THE APPRO! I NAT I ON TOPOFt >10 
A QUADRATIC FACTOR IS FEASIBLE* DUE TO EITHCRPOFB 320 
DIVISION BV 0, OVERFLflU OR AN INITIAL GUESS PQFB 3S0 
THAT IS NOT SUFFICIENTIV CLOSE TO A FACTO* OFPOFS 340 
POI PQFB 350 

PQFB 340 
PQFB 370 
THERE IS NO COHPUTATION OTHER THAN THE PQFB 3B0 

POSSIBLE NORMALIZATION OF C. PQFB 390 

IF lER— 2 THERE IS NO COMPUTATION OTHER THAN THE PQFB 400 

NORMALIZATION OF C. PQFB 410 

IF lER >-3 IT IS SUGGESTED THAT A NEU INITIAL GUESS BEPQFB 420 
MADE FOR A OUAORATIC FACTO*. 0> NOHEVE*. KILL CONTAIN POFB 430 
THE VALUES ASSOCIATED WITH THE ITERATION THAT VIELDEO POFB 440 
THE SMALLEST NORM OF THE NODIFICD LINEAR REMAINDER. POFB 450 

IF lER'l, THEN. ALTHOUGH THE NUMER OF ITERATIONS LIM PQFB 440 
WAS TOO SMALL TO INDICATE CONVERGENCE. NO OTHER PROS- PQFB 470 
LEMS HAVE BEEN DETECTED, ANO HILL CONTAIN THE VALUES PQFB 4SO 
ASSOCIATED HITH THE ITERATION THAT TIELOEO THE SMALLCSTPOFB 490 



REMARKS 
11) 



(21 



lER— 2 ■ 
IER—3 



IF lER- 



13) 



(41 



(5) 



NORM OF THE MODIFIED LINEAR REMAINDER. 

FOR COMPLETE DETAIL SEE THE OOCUHENTATION FOR 

SUBROUTINES POFI ANO OPOFB. 



SUBROUTINES ANO FUNCTION SUBPROGRAMS REOtilRED 
NONE 



METHOO 

COMPUTATION IS BASED ON BAIRSTON'S ITERATIVE METHOO. (SEE 

UlLKINSON. J.H.. THE EVALUATION OF THE ZEROS OF ILL-CON- 

OITIONED POITNOMIALS IPART ONE ANO TMII , NUMERISCIC lUTHE- 

NATIR, VOl.l (1959), PP. 150-lBOt OR HILOEBRANO, F.B.* 

INTRODUCTION TO NUMERICAL ANALYSIS. NC GRA#-HILL. NEW VORK/ PQFB 420 

TORONTO/ LONDON. 1954. PP. 4T2-4T6.I PQFB 430 

PQFB 440 
,. . . ....PQFB 450 

POFB 440 



PQFB 500 
PQFB 510 
PQFB 520 

PQFB 530 
PQFB 540 
PQFB 550 
PQFB 540 
PQFB 570 
PQFB 5B0 
PQFB 590 
POFI 400 
PQFB 410 
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SUBROUTINE POf B (C. IC.Q.L IN, lEA I 



OIHENSION Cin.Qdl 

TEST ON LEADING ZERO COEFFICIENTS 

J-1C»1 

1 J^J-I 
IF(J-1K0.40.2 

2 IFIC<JII5tl.3 

NORMALIZATION OF REHAINING COEFFICIENTS 

3 A=C(JI 
IFIA-1.}'V.6.4 

4 00 S l>ltJ 
C(I}=C( I 1/A 
CALL OVERFLINI 
IFIN-ZK0t5,5 

5 CONTINUE 

TEST ON NECESSITY OF 6AIRSTQH ITERATION 

6 IFIJ-3Ml»3a,7 

PREPARE BAIRSTOW ITERATION 

7 e<»S=l.E-6 
£PSl=l.E-3 

L«0 

LL-0 

Ol=Q(t) 

Q2«=Q(2) 

001=0. 

002=0. 

AA=C(U 

BS=C<2> 

CB=ABS(AA) 

CA=AaSlBBl 

IF ICB-CAia,9,lO 

9 cc=ca*C8 

CB=C9/CA 

rA=i. 

GO TO 11 
9 CC=CA+CA 
ca=i. 
CB=1. 

GO TO 11 

10 CC=CA+CA 
CA=CA/Ce 
CR=1 . 

11 CO=CC*.l 

START BAIRSTOW ITtRATIQN 
PREPARE NfSTFD MULTIPLICATION 



Bl = A 

I=J 

Q0Ol=0I 

0002=02 

OQL=HH 

002=H 



START r4€5TEO MULI IPL ICAT I0^4 

13 H=-oi*e-026A*c( r I 

CALL DVERFL(N) 
IF(N-2I43. 1^,14 
U B=A 
A = H 
T=l-1 
IFM-niS, 15,16 

15 H:>0. 

16 l- = -0l*Sl-02*Al»H 
CALL OVtRfLIN) 
IF(N-2I42,17,17 

17 C1=P1 
81-Al 

fll=H 

GO Tn 13 

fNO DF NE5TE0 f" JL T IPL ICA T|ON 

TEST ON SATISFACTORY ACCURACY 

18 H=CA*ABS( a)+CB*Atl5( P) 
IF(LL) 19, 14,39 

1<) L = L*1 

]F(AeS(A)-tPS*AeSIC( 1)) 120,20,21 
20 IF(A6S(BI-EPSeABSIC( 2H )39, as.Zl 



•EMftlNOEP OF MINIMUM NOPM 



TEST ON LINEAR 
21 IF(H-CC)22,22,23 

8B = B 
CC=H 
001=01 

002=02 

TEST ON LAST ITERATION STEP 
23 1F(L-LIH W8.38,2'. 



ftlHSTOW I TESATI-'M 



TEST ON RESTART 
2^ IF(H-CD1A3,43,2S 
Z5 IF(0(lll27,2h,?T 

26 IF(0I2) 127. i^.?? 

27 01 11=0. 
OI2)-0. 
GO TG 7 

PERFORM ITEfiflTION STEP 
2 8 HH = AMAX1 (AaSIAU,ABS(Bll,ABS(CU i 
IF(HH)^2.'12,29 

29 A1=A1/HH 



INI HAL GUESS 



ei = 



l/M 



C1=C1/HH 

H=A1*CI-Bl*gi 
IF(H)30,'.Z, 30 
30 e=A/HH 
6=8/HH 

HH=(B»A1-A»61)/H 
H=( A*CI-B»Bn/H 
C1=01*HH 
02=02*H 

FNO OF ITERATION STEP 

TEST CN SATISFACTORY RELATIVE EBSQF OF ITERATED 
IF(ABS(HH)-EPS*AflS(01))31, 31.33 
3! IFfA6S<Hl-EPS»AesCg2n32.3Z,33 
32 LL=1 

GO TO 12 



POFB 6 70 
PQF6 600 
PQFB 690 
PQFB 700 
PQFB 710 
PQFB 720 
PQFB 730 
PQFB 7*0 
PQFB 7^0 
PQFB 760 
POFB 770 
PQFB 780 
POFB 7')0 
PQFB 800 
PQFB BIO 
POFB 820 
POFB 830 
PQFB 840 
POFB 850 

POFB 860 

POFB 870 
POFB 880 

PQFB 890 

PQFB <J00 
POFB 9 10 
PQFB 920 
POFB 930 
PQFB 940 
P0F6 960 
POFB 960 
PQFB 970 
PQFB 9qo 
POFB 990 
PQFB 1000 
PQFBIOIO 
P0FB102O 
POFBiOiO 

POfaiOAO 
P0F81050 
POFR1060 
PQFB1070 
P0FBIO8O 

PQF B1090 

pQFBi mo 

POF"! 110 
PQFBl 120 
PiJFPI 1 30 
PQF81 140 
P0F91 l-iO 
P OF « 11 60 
PyFBI 170 
POFDl IflO 
POFai 190 
P0FBt2O0 
PQFBl 210 
PQFbl?20 
POFBI23C1 
POFBI240 
PQFB1250 
PQFB1260 
P0FB127O 
POFB1280 
P0FB1290 
PQFBl 100 
PQFBl 310 
PQF61320 
PQFei330 
POFPl 140 
PQFBl 350 
POFB I 360 
PQF6n70 
PQFBl 380 
POFBl 390 
PQFBl 400 
P0F6141O 
P0Ffll470 
P0FB1430 
PQFBl'iAO 
PQFB14W 
POFB1460 
P0F61470 
PQFei480 
PQF61490 
00FB1500 
P OF 6 1 5 1 
PQFB1520 
PQFeibiO 
POFBI'i40 
PQFBlS'iO 
PQFB1560 
P0FE1570 
POFBl ^80 
POFBl 590 
PQFei6nO 
PQF61610 
P0FE1620 
P0FBI630 
PQFaife4'l 
PQFBlbSO 
P0FRI660 
P0F61670 
PQFdl6eO 
P0FB1690 
PQFB1700 
POF B17 10 
PQFBl 720 
PQF61730 
PQFB I 740 
PQFB1750 
P0FBI7&0 
POFBl 7 70 
PQFBl 783 

pQFfcieoo 
PQF eieio 

PQFBia20 
P0F61830 
P0F6ie40 
POFBlfiSO 
PQFB1860 
PQFBIBTO 
P0FBIB8O 
P0F81890 
P0FB1900 
PQFBI910 
PQFB1920 
PQFfll930 
PQFB194Q 
PQF 619^0 



TEST C!\ OfCPEASING RELATIVE fRHOaS 
lF(L-ni2,l?il4 

IFlABSIHMI-EPSl'Ae-^Oll ) J5,35, 12 
lF(ABStHl-EDSI*AfiS(C?M36,36,12 
IF (ABSIQ^iwl •HHI-ABSIQl'DQU) 37,44,4^ 
IF IA9S< 0QQ2«M)-A('S(Q2*0C2) 1 12.4^,^*. 

END ^F PAlOSTHh ITEIAFION 

EXIT IN CASE Of QUADRATIC POLYNOMIAL 

oui=c(n 

QI2I=C(2) 
0(3)=0. 
0(41=0. 
FETURN 

EHIT IN CASE OF SUFFICIENT ACCURACY 
Ot II =01 
Q(2I=02 
0(31=« 
0(41=6 
FETuRN 

FRROH EkIT in case OF I€RO OR CONSTANT POLYNOMIAL 
IfR=-l 
RETURN 

ERROR EXIT IN CASE OF LINEAR POLYNOMIAL 
IER=-2 

RETURN 

EPOQR EXIT IN CASE OF NONREFINEO QUADRATIC FACTOR 
IER=-3 
GO TO 44 

EPROP EXIT IN CASE OF UNSATISFACTORY ACCURACY 
I£R=l 
Q( U=QOI 
C( 21=002 
0(3J=AA 
0141=66 
RETURN 
END 



PQF8I960 
PQFB19T0 
PQFB19aO 
PQFBl 990 
P0F820OO 
PQFB2010 
P0FB2O20 
P0FB203O 
PQFB20A0 
P0Fe2050 
PQFB2060 
P0FB2070 
PaF620S0 
PQFB209O 
PQFB? 100 
PQF62110 
PQfBZlZO 
PQF62130 
PQFB2U0 
PQFB? I ^O 
PQF B2 160 
PQF82170 
PJFBZiaO 
PQFB2 190 
PQF92200 
PQFB22I0 
P0FB2220 
POFB2Z30 

P0Fe2 2'.0 

PQF622S0 
PQF62260 
PQFB2270 
PQF 82 2 80 
PQFB2Z90 
PQFB2 300 
P0F82310 
P0FB2 3 2O 
PQF B2 3 30 
POFB2340 
POF 82350 
POFB2360 
PQFB2 370 



SuqRCUTI^!e 0P0F6 

PURPOSE 

TO FI1JD AN APPROK IMA1 ION I X ) - L 1 *Q2* » » 
FACTOR OF A GIVEN POLYNOMIAL PU) hITH 



:*X TU A QUAORATIC 
REAL f,"rFF IC lENTS. 



DESCRIPTION OF PARAMEIERS 

C - DOUaLE PRECISION INPUT 

CntrFIC lENTS OF P(XI - 

(DIMENSION ICt 

IC - DI^'ENSICN riF C 

a - 00U3LF PRECISION VECTOR OF OIM6NSIQr4 

ND 0(21 CONTAIN INITIAL GUESSES FO 



VrCTOB CONTAIMfO thF 

CM I IS THE CLN;!ANI TE 



CO" 
DPQF 
OPQF 
OPQF 
DPQC 
OPOF 
DPOf 
OPQF 
OPOF 
OPOF 
OPOF 
OPQF 
nPQF 
OPOF 
OPQF 
DPOF 
DPOF 
- PN INPUT 0( 1 tOPQF 
(^NO 02 - ON DPOF 



RETURN Q(U AND 0(21 CONTAIN THE REFIMC COtFFICIENTS DPOF 
Ql AND Q2 OF QIXJ, WHILE Q(i) AND Q ( <i ) CONTAIN THE OPOF 

COEFFICIENTS A ANO B OF At6«X, WHICH IS THE REMAINDER OPQF 
OF THE QUOTIENT OF PtXI «*Y 0(Xl OOOF 

INP'JT VALUE SPECIFYING THE MAXIMUM NUMrifO Qp QPOF 

ITEHATIONS 10 BE PERFOR-^FO DPQF 

RESULTING ERROR PARAMETER (SEE REM»=kS» OPQF 

IER= - WO ERROR OOQF 

|FC= 1 - NO CONVERGENCE WITHIN LIM ITe-lAIIDNS OPQF 

l£R = -| - TiHE POLYNOMIAL P(XI IS C0!15mNI Ca UNDEFINED OPQF 
- OR OVERFLOW OCCURRED IN N'"*HAi.UING PIXI DPQF 

IER=-2 - THE POLYNCflAL P(X| IS OF 0(GB-f 1 DPUF 

IER = -3 - NO FURTHER REFINEMENT OF THE APOROX I MAT I ON TODPQF 
A QUADRATIC FACTOR IS FEASIBLE. "iUE TO EITMERDPOF 
DIVISION SY Oi '1VE3FL0W OH AN INITIAL GUESS DPOF 



THAT IS NOT SUFFICIENTLY CLQS^ 
P( X) 



FACTOR OFDPQF 
OPQF 
OPOF 
DPQF 

IAN THE OPQF 

OPQF 

IAN THE DPyF 

OPQF 



IF IER=-l THERE IS NO COMPUTATION OTHER 

POSSIBLE NORMALIZATION OF C. 

IF !ER=-2 THERF IS NO COMPUTATION OTHER 

NORMAL IZATION OF C. 

IF lER =-3 IT IS SUGGESTED THAT A NEW INITIAL GUESS BEDPOF 

MADE FOR A QUADRATIC FACTOR. 0. HOMCVEF^. WILL CONTAIN DPQF 

THE VALUES ASSOCIATED WITH THE ITERATION THAT YIELDED OPOF 

THE SMALLEST NORM OF THE MODIFIED LINEAR REMAINDER. OPQF 

IF IER-1. THEN, ALTHOUGH THE NUMBER CIF IieBAIIONS LiM DPQF 

WAS TOO SMALL TO INDICATE CONVERGENCE, NO OTHER PRQB- DPQF 

LEMS HAVE BEEN DETECTED, ANO WILL CONTAIN THE VALUES OPQF 

ASSOCIATED WITH THE ITERATION THAT VlELCtO THE SMftLLESTDPQF 

NOftM OF THE MOOIFTEO LlNtAR REMAINDER- 

FOR COMPLETE DETAIL SEE THE OOClJMENTAT I0^ fOR 

SUBFOUTINES PQFB ANO DPOFB. 



METHOD 

COMPUTATION IS BASED ON SAIRSTOU'S ITERATIVE METHOD. <SEE 
WILKINSON, J.N., THE EVALUATION OF THE ZCROS OF ILL-CON- 
DITIONED POLYNOMIALS (PART ONE ANO TwOI, NUMERISCHE MATH 

MAFfK, mA (1959), PP. 150-180, OK HliOEmm, fj., 



1 ^0 
14') 
1^0 

1 60 
170 
ISO 
190 
200 
210 
220 

2 30 
7<.0 

?^n 

260 
270 
280 
290 
300 
110 
320 
330 
340 
V>0 
3'>0 
370 

3 30 
390 
<.00 



DPOF 


^00 


OPOF 


510 


OPQF 


s?o 


OPQF 


•jio 


O^QF 


5*^0 


OPQF 


550 


DPQF 


560 


DPQF 


•jfO 


OPOF 


5B0 


OPOF 


S90 


OPQF 


600 


DPQF 


610 



MOf bifl 



INTRODUCTION TO NUMERICAL ANALYSIS, MC G«AW-H1LL. NEW YORK/ DPQF 630 

TORONTO/LONDON, 1956, PP. 472-476.) DPQF 640 

OPQF 650 

OPOF 660 

OPQF 670 

OPQF 6B0 

DPQF 690 

DPQF 700 

DPQF 710 

DPQF 7?0 

OPQF 7 30 

OPQF 740 

OPQF 750 

DPQF 760 

DPOF 7 70 

DPQF 780 



SUBROUTINE OPQFS (C, IC,Q .LIM. lERI 



DIMENSION C( It.Q(l) 

DOUBLE PRECISION A.B.AA.BB ,CA,C8,CC .CD, Ai , B 1 ,C 1 ,H,HH,Q1 ,02,001, 
I 0Q2.QQQl,QQQ2,0Ql,DQ2,EPStEPSl,C,a 

TEST ON LEADING ZERO COEFFICIENTS 
lER-O 
J=IC*l 
J»J-l 
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hORHiLIJ ATION QF atMAINING COEff ICIENTS 
A=CIJI 

If (A-l.DOlA.ft.-i 
DO 5 I = l..t 

cdi-cn )/« 

CALL OVERFLfNl 
If (N-2)40.5,? 
CONtlNJf 

TtSr ON NErESSITY OF BAIRSIOM tTtRAIION 

IF ( J-)MI , 36, T 

PREPARe BAI-'STOh ITERATION 
EPS= I.D-IA 
EPSl=l.0-6 



Ql^OUl 

001=0. DO 

002=0. DO 

AA=C(l) 

Be=CI2» 

C8=DABS(AA) 

CA=0A8S(e6l 

IFICe-CAIS.I.IO 
3 f.C«CB»C8 

CB=CB/CA 

CA=1.D0 

GO TO U 
9 CC=CAtCA 

CA-l.DO 

C6=1.D0 

60 TO 11 

10 CC=CAtCA 

c*=CA/ce 

CB=1.00 

11 CO=CC».lDO 

START BAIRSTOW ITERATION 
PREPARE NESTfD MULTIPLICATION 

12 A=O.DO 



I=:J 

0001=01 
0002=02 
D01=HH 

D02=H 

START NESTED MULTIPLICATION 
13 H=-Ql»B-Q2*A+C(I I 

CALL OVERFLINI 

IF (N-ZI*2. l-i.lA 
I* B=A 

»=H 

1=1-1 

IFn*l)18,15,16 

15 H=O.DO 

16 H=*01*B1-02*A1*H 
CALL OVERFLINI 
IF(N-2IA2,17,17 

17 Cl=Bl 
Bl = Al 
Al-H 



GO 



TEST ON SATISFACTORV ACCURACY 

18 H=C(*0ABSIAI*CB«0fl6StS) 
IF(LL1 19, 19, 39 

19 L=L*1 

IF (DABS! A|-ePS»DABStCI U 1120,20,21 

20 IF(DAeSI6I-Et>S*D4BS(C(2n 139.39,21 

TEST ON LINEAR REMAINDER OF MINIMUM NORM 

21 IF (H-CC)22.22.23 



DPQF 790 
OPQF 800 
OPOF eio 
DPOF fl20 
DPQF B)0 
OPOF B<.0 
OPQF 6 50 
DPQf B60 
DPQf 670 
OPOF BRO 
OPQF 890 
OPOF 900 
DPOf 910 
DPQF 920 
DPQF 910 
DPOF SiO 
DPQF 950 
DPQF 960 
DPQF 970 
DPQF 980 
OPQF 990 
OPQF 1000 
DPQFIOIO 
0PQF1020 
DPOF 1030 
DPQFIOAO 
DPQF 1050 
OPQF 1060 
DPOF I 070 
DPQF 1080 
DPQF 1090 
DPQF I 100 
DPOF 11 10 
DPOFl 120 
DPOFl 130 
DPQFIUO 
DPQF 11 50 
DPOF 1160 
OPQFUTD 
DPQFllBO 
OPQFl 190 
0P0FI200 
0PQF12t0 
0P0F1220 
OP0F123O 
OPQF1240 
DPQF1250 
OPQF 1260 
DPQf 1270 
DPQF 1280 
DPQF 1290 
OPQFUOO 
DPQFL31!! 
DPQF1320 
DPOF 13 30 
DPQFl 340 
DPQF1350 
OPQFl 360 
OPQF 13 70 
DPQF 1380 
OPQF 1390 
DPQFl-tOO 
DPQFl^lO 
DP0FU20 
DPQF 14 30 
DPQFl^AO 
DPQFl*50 
DPOFl'tbO 
DPQF1470 
DPQF 1480 
OPQF I 490 
OPQF 1 500 
OP0F1510 
DPQF 1520 
DPQF1530 
DP0F154D 
DPQF1550 
DPQF1560 
DPQF 1 5 TO 
OPQF 15 80 
0PQF1590 



22 AA=A 

ee=8 

QQl^Ql 
QQ2"Q2 

TEST ON LAST ITERATION ilEP 

23 IF(L-LIM)26,2fl,?A 

TEST ON RESTART OF BAIRSTOW ITERATION WITH 1E.^\ 
2* IF(H-CDI43,43,25 

25 IFIOdI 127,26,27 

26 [F(0(2|]27,42,27 

27 Qdl'O.DO 
0( 21=0.00 
GO TO 7 

PERFOfiM ITERATinU STEP 
2 6 HH=DMAXl(OAeS( Al ) . DA8S( 6 1 1 , DAB S( CI tl 
IF(MH)42,42,29 

29 Al=Al/HH 

ei=fll/HH 

Cl=Cl/MH 

M=AI«C1-Bl*ei 

IFIHl3a.42.30 

30 A=A/HH 
B=e/HH 
HH=(8*AI-A*Bi »/H 

H=(A*ci-e*pn/H 

Ql=01*HH 
Q2=Q2*H 

END OF I TFRATICN STEP 

TEST ON SATISFACTORY RELATIVE ERROR OF ITERAFEO VALUES 
IF<OABS( HH)-EPS"OABS(Ql) 131, 31,3 3 

31 IF(OABS(HI-EPS»OA85(Q2l 13 2, 3 2,33 

32 LL=1 
GO TO 12 

TEST ON DECREASING RELATIVE ERRORS 

33 IF(L-II12, 12,3'i 

34 tF(OABS(HHl-€PSl*OAaS(Ql 113 5, 3 5, 12 

35 IF (DABS (HI -EPS l*DAeS(Q?M3', 36,12 

36 IF(OABS{QaQl*MH)-DABS(01«00 1) 1 3 7, <i4 , 'i'. 

37 IF<0ABS(Oa02*Hl-DaPS( 02*002) l 12,44.4'; 

END OF PAIBSIOW ITEKATION 

EXIT IN CASt GF OuaO^dTTC PPLYNGMIAL 
ifl Q( ll=C(ll 
0(2l=r(21 
0(3(^0.00 

0(41=0.10 
WFTURN 



CftSE CF SUFFIcn^MT 6CCURA 



EXIT IN 
Qt 11 ^31 
0( 21=02 
Q( 31=0 
0)4»=B 
RFTURS 

ERRO« EXIT IN CASE OF 

ieo=-i 

RETURN 



:V0 OR CONSTANT POLYNOMIAL 



ERHOK eXIT IN CASE OF LINEAR POLYNO'IIAL 
41 IER=-2 
KETURN 



EP'frR FriT IM tesp 
4? IER=-3 

GO Tn 44 



NCNREFINEU OUAORATIC FAC 



fRROfl 

i.? ICR^I 

^4 0(11=001 
0(21=002 
C(3I =aA 
GI4I=B6 
RETURN 
FND 



(IT !N CASE CF UNSAT I SFAC TOBV ACCUftACY 



OPQF 1600 
DPQF1610 
DPQF1620 
DPQF163Q 
X DPQF 1640 

0PQF1650 
DP0F1660 
DPQF 1670 
DP0F1680 
lAL GUESS DP0F1690 
DPOFl 700 
DPQF1710 
OPOf 1720 
DPQF 1 7 30 
OPQF 17*0 
OPQFl 750 
DPQFl 760 
DPQF1770 
DPQF178a 
OPQFl 790 
DPQFieOO 
OPQFIBIO 
0PQF1820 
DPQF1830 
DPQFia40 
DPQF1850 
OPQFl 860 
0PQF18T0 
DPQFieaO 
DpQFie9a 
OPQF1900 
DP0F1910 
DP0F1920 
DP0F1930 
0PQF1940 
DPQF 19 60 
0PQF1960 
DPQF 1970 
0PQF1980 
OPQF 1990 
OPQF2000 
DPQF2010 
DPQF2020 
DP0F2010 
0P0F2040 
OP0F2O5O 
DPQF 2060 
DPOF>070 
OPQF2080 
OP0F2090 
DPQF2100 
DP0F2110 
OPOF2120 
DPQF2130 
DPQF2140 
DP0F2150 
0P0F2160 
0PQF21T0 
0PQF2180 
OPOF 2 190 
0PQF2200 
DP0F2210 
DPOF2Z20 
DPOf 2230 
0PQF2240 
DPOF2250 
0P0F2260 
DP0F2270 
0PQF22B0 
0PQF2Z90 
DP0F2J00 
DPQF2310 
DPOF2320 
0PQF2330 
DPQF2340 
0P0F2350 
OPQF2360 
DPQF2370 
DP0F23BO 
0PQF2 390 
0PQF2400 
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Polynomials: Special Types 

Subroutines CNP and DCNP 

These subroutines compute the values of the 
Chebyshev polynomials for a given argument x and 
orders zero up to N. The Chebyshev polynomial 
Tjj(x) satisfies the recurrence equation 



Vi(x)=2x 



T^(x) 



n-1 



(X) 



with starting values Tq{x} = 1, T2(x) =x. From 
this equation it follows immediately that roundoff 
errors grow at worst linearly under the tacit as- 
sumption that the argument has an absolute value 
less than one. 

If en+2- is the error in Tn+r(x) due to a single 
roundoff error e in Tn(x): 



e ^ = 2 X . 

n+r+1 



with initial conditions e 



n 



n+r 



-n-1 



n+r-1 



= 0. 



The solution of this difference equation has its 
maximum for x =1: 



SUSROUriNE OCNP 

puftpose 

COMmiTE TH€ VALUES OF THE CHESYSHEV POLVWHIALS r( 
FOR AKCUNENT VALUE X AND OfloeRS UP ro N. 

USAGE 

CALL OCNP.r.X.NI 

OESCRtPTION Of PAItAHETEAS 

Y - RESULT VECTOR OF OINENSION H*l CONTAINING 

Of CHEBYSHEV fOLVNOHIALS OF OROEII UP TO 

FOA GIVEN ARGUMENT X. 

DOUBLE PRECISION VECTOR. 

VALUES ARE ORDERED FROM LOW TO HIGH ORDER 

V - RESULT VALUE 

OOUBLE PRECISION VARIABLE. 
X - ARGUMENT OF CHEBYSHEV POLVNOHIAL 

N - ORDER OF CHEBYSHEV POLYNOMIAL 



9 IS TREATED AS IF N MERE 

SUSftOUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

EVALUATION IS BASEO ON THE RECURRENCE EQUATION FOR 

CHEBYSHEV POLVNOniALS TtN.XI 

r<N*ltX|>2*X«T(N,XI-TIN-l«XI. 

WHERE THE FIRST TERN IN BRACKETS IS THE QROERt 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE TIO.X)-!. Tft.XI'X. 



N.K> 



SUBROUTINE OCNP(r,X«NI 



DIMENSION Vnt 

DOUBLE PRECISION Y, X«F 



YIll'1.00 
IFfNtl. 1,2 

RETURN 



OO « I-2,N 

YII*II»F*V(II-Y(|-1I 

RETURN 

END 



ONP 
DNP 
ONP 
ONP 
DNP 
DNP 
DNP 
ONP 
ONP 
ONP 
ONP 
ONP 
DNP 
THE VALUESONP 
N ONP 

DNP 
ONP 
ONP 
ONP 
ONP 
ONP 
ONP 
ONP 
ONP 
ONP 
DNP 
ONP 
ONP 
ONP 
DNP 
DNP 
ONP 
ONP 
DNP 
ONP 
ONP 
ONP 
ONP 
ONP 
DNP 
ONP 
ONP 
ONP 
ONP 
DNP 
DNP 
ONP 
DNP 
ONP 
DNP 
DNP 
ONP 
ONP 
DNP 
ONP 
ONP 
ONP 
ONP 



100 
IIQ 

120 
130 

140 
150 
160 
170 
IBO 
190 
ZOO 
219 
220 
2 JO 
240 
250 
260 
2 70 
2B0 
290 
300 
310 
320 
330 
3*0 
350 
360 
370 
3B0 
390 
400 
410 
420 
430 
440 
450 
460 
470 
4B0 
490 
503 
510 
520 
5 30 
540 
550 
560 
570 
580 



e ^ = 0, e = e, e 
n-1 n n+1 



= (r+l)e 



= 2 e. 



n+r 



The order is assumed to be zero for negative values 
of N. 



SUBROUTINE CNP 

PURPOSE 

COMPUTE THE VALUES OF THE CHEBYSHEV POLYNOMIALS TIN. XI 
FOR ARGUMENT VALUE X ANO ORDERS UP TO N. 

USAGE 

CALL CNPIYtX.Nl 

DESCRIPTION OF PARAMETERS 

Y - RESULT VECTOR OF DIMENSION N»l CONTAINING THE 

OF CHEBYSHEV POLYNOMIALS OF ORDER UP TO N 
FOR SIVEN ARGUMENT X. 

Y - RESULT VALUE 

VALUES ARE OROERED PROM LOW TO HIGH ORDER 
X - ARGUMENT OF CHEBYSHEV POLYNOMIAL 

N - ORDER OF CHEBYSHEV POLYNOMIAL 

REMARKS 

N LESS THAN IS TREATED AS IF N MERE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

EVALUATION IS BASED ON THE RECURRENCE EQUATION FOR 

CHEBYSHEV POLYNOMIALS TIN*XI 

TtN*l,X1.2«X*T(N,XI-T(H-l,X), 

WHERE THE FIRST TERM IN BRACKETS IS THE ORDER, 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE TI0,X>"1» KltXt^X. 



SUBROUTINE CNP(Y,K,NI 

DIMENSION Ylll 
Y(ll»l. 
IFIN)!, 1,2 
1 RETURN 



DO 4 l«2iN 
4 YII*1I«F*Y( I l-Y<l-l t 
RETURN 

END 



CNP 


10 




?l) 


CNP 


30 


CNP 


*0 


CNP 


50 


CNP 


to 


CNP 


TO 


CNP 


60 


CNP 


90 


CNP 


100 


CNP 


110 


CNP 


120 


CNP 


110 


VALUESCNP 


1«0 


CNP 


150 


CNP 


ito 


CNP 


WO 


CNP 


100 


CNP 


190 


CNP 


ZOO 


CNP 


210 


CNP 


220 


CNP 


230 


CNP 


2*0 


CNP 


250 


CNP 


260 


CNP 


270 


CNP 


280 


CNP 


290 


CNP 


300 


CNP 


310 


CNP 


320 


CNP 


330 


CNP 


3»0 


CNP 


350 


CNP 


IkO 


CHP 


J 70 


CNP 


3B0 


CNP 


190 


CNP 


400 


CNP 


410 


CNP 


420 


CNP 


430 


CNP 


440 


CNP 


450 


CNP 


460 


CNP 


4 TO 


CNP 


400 


CNP 


490 


CNP 


900 


CNP 


510 


CNP 


520 


CNP 


5 30 


CNP 


540 



198 Mathematics — Polynomials: Special Types 



Subroutines CNPS and DCNPS 

These subroutines compute the value of a series 
expansion in Chebyshev polynomials. TheChebyshev 
polynomial Tji(x) satisfies the recurrence equation 

T (X) = 2 X • T (X) - T ^ (x> 
n+1' n^ ' n-1^ ' 

with starting values To(x) =1, Tj^(x) =x. 

An n-term expansion in Chebyshev polynomials 
with coefficient vector C = (ci, . . . , c^) is evaluated 
by means of a backward iteration scheme: 



Arg = 2 x, H^ = 0. H^ = 
«2^«1 



«1=«0 



Ho = ^^^ • «1 - «2 ^ '^n-i.l 
Y = (c^ - H^ + H^)/2. 



for i = 1 , . . . , n 



This gives result Y(x) = ^ ^-T. , (x). 

i=l ^ 
Calculation is bypassed in case of a nonpositive 
value of the dimension n. 



SUeftOUTlNE OCNPS 

PURPOSE \ 

COMPUTES THE VALUE OF AN N-TERff EXPANSION IN CHEOYSHCV 
POLVMMIALS rilTH COEFFICIENT VECTOR C FOR ARCUHENT VALUE 

USAGE 

CJU.L DCNPStV.X.C.NI 

OESCRfPTION OF RARANETERS 
y - RESULT VALUE 

OOUBLE PRECISION VARtAOLE 
K - ARGUMENT VALUE 

DOUBLE PRECISION VARIASLE 
C - COEFFICIENT VECTOR Of GIVEN EEPANSION 

COEFFICIENTS ARE ORDERED FRDH LOW TO HIGH 

DOUBLE PRECISION VECTOR 
N - OIHENSION OF COEFFICIENT VECTOR C 



IS BYPASSED IN CASE N LESS Than 1 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

NCTHOO 

OEFINITION 

Y-SUNICn }«T(I-1.I(1. SUNNED OVER I FROM 1 TO Nl. 

EVALUATION IS DONE BY NEANS OF BACKHAND RECURSION 

USING THE R6CURRENCE EQUATION FOR CHE»TSHEV POLYNONIALS 

T(N+l,XI>2«K«nN«K|-T(N-l«XI, 



SUBROUTINE OCNPSt Yt X.C.NI 

OINENStON GUI 

OOUetE PRECISION C t T.X tHO.HI * H2, ARO 

TEST OF OINENSION 
1F(N»1* 1.2 
RETURN 

; lFCN-2) 3,4,4 
Y"CIll 

RETURN 

INITIALIZATION 

ARG«X*X 
Hl-0.00 
HO-O.OO 



00 5 I-l,N 

R-N-1 

H2-HI 



>H0 

5 H0*ARG*Hl-H2*CIK«l| 
V-0.$00*(C<1I-H2«H01 
RETURN 
END 



JO 



60 



90 



ONPS 
..ONPS 
DNPS 
ONPS 
DNPS 
ONPS 
ONPS 

:. ONPS 
ONPS 
ONPS 100 
ONPS 110 
ONPS 120 
ONPS DO 
ONPS 140 
DMPS ISO 
ONPS 160 
ONPS 170 
ONPS IBO 
DNPS 190 
ONPS 200 
ONPS 210 
ONPS 220 
DNPS 230 
ONPS 240 
ONPS 250 
ONPS 260 
DNPS 2T0 
ONPS 280 
ONPS 290 
ONPS }D0 
ONPS 310 
ONPS 320 
ONPS }30 
DNPS 340 
DNPS 3S0 
..ONPS 3*0 
ONPS 370 
ONPS 380 
ONPS 390 
DNPS 400 
DNPS 410 
ONPS 420 
DNPS 430 
ONPS 440 
DNPS 4SD 
DNPS 460 
ONPS 470 
ONPS 410 
DNPS 490 
ONPS 500 
DNPS 510 
DNPS 520 
DNPS 5 30 
ONPS 5*0 
ONPS 550 
DNPS 560 
DNPS STO 
DNPS 560 
ONPS 590 
DNPS 600 
ONPS 610 
DNTS 620 
DNPS 6)0 



SUBROUTINE CNPS 

PURPOSE 

COMPUTES THE VALUE OF AN N-TERM EXPANSION IN CHEBYSHEV 
POLTNOHIALS VITH COEFFICIENT VECTOR C FOR ARGUMENT VALUE 



USAGE 

CALL CNPStY.: 



• C.NI 



DESCRIPTION OF PARAMETERS 
Y - RESULT VALUE 
K - ARGUN ENT VALUE 
C - COEFFICIENT VECTOR OF GIVEN EXPANSION 

COEFFICIENTS ARE ORDERED FROM LOW TO HIGH 
N - DIMENSION OF COEFFICIENT VECTOR C 

REMARKS 

OPERATION IS BYPASSED IN CASE N LESS THAN 1 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

NETHOO 

OEFINiriON 

Y-SUHICd )*r( l-l.XI, SLMNEO OVER I FROM 1 TO Nl . 

EVALUATION IS DONE BY NEANS OF BACKWARD RECURSION 

USING THE RECURRENCE EQUATION FOR CHEBYSHEV POLYNOMIALS 

TCN*l,XI«2*X*TIN,Xt-T(N-l.X». 



SUBROUTINE CNPS ( Y,X tCt N) 

DIMENSION CI II 

TEST OF DIMENSION 
IF(NII.1,2 
1 RETURN 



2 1F(N-2I3.4.4 

3 Y"C(l» 
RETURN 

INITIALIZATION 

4 ARG-X*X 

m-0. 

HO-0. 

DO 5 I-I«N 
K-N-I 
H2>H1 
HI -HO 

5 H0-ARG*HI-H2«-C(K4^1I 
V-0.5*fClll-H2tHOI 
RETURN 

END 



n 



60 



CNPS 
...CNPS 
CNPS 
CNPS 
CNPS 
CNPS 
CNPS 
X. CNPS 
CNPS 
CNPS 
CNPS tlO 
CNPS 120 
CNPS 130 
CNPS 140 
CNPS ISO 
CNPS 160 
CNPS 170 
CNPS 180 
CNPS 190 
CNPS 200 
CNPS 210 
CNPS 22C 
CNPS 230 
CNPS 240 
CNPS 250 
CNPS 260 
CNPS 2 70 
CNPS 280 
CNPS 290 
CNPS 3C0 
CNPS 310 
CNPS 320 
..CNPS 3 30 
CNPS 340 
CNPS 350 
CNPS 360 
CNPS 170 
CNPS 380 
CNPS 390 
CNPS 400 
CNPS 410 
CNPS 420 
CNPS 430 
CNPS 440 
CNPS *50 
CNPS 460 
CNPS 470 
CNPS 4B0 
CNPS 490 
CNPS 530 
CNPS 510 
CNPS 520 
CNPS 5 30 
CNPS 540 
CNPS 550 
CNPS 560 
CNPS 5 70 
CNPS 580 
CNPS 590 
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Subroutines TCNP and DTCNP 

These subroutines transform a given series expan- 
sion in Chebyshev polynomials to a polynomial. The 
radependent variable x of the given expansion is 
thereby substituted by the independent variable z of 
the resulting polynomial using the linear transfor- 
mation x = A»z + B or z = (x- B)/A. 

N 
This means: y^ 
i =1 



C. » T. , (A#z + B) 
1 1-1 ^ 



POL • z 

1 



i-1 



N 

= L 

i = 1 

Calculation is bypassed in case of a nonpositive 
value of the dimension N. 

The range (-1, +1) in x is transformed to the 
range (zj^, z^) in z with zj^ = -(1+B)/A and z^ = 
(1-B)/A, or vice versa, A = 2/(zr-zi) and B = 



- (Zr + ^l)A2 



zi). 



The Chebyshev polynomial Tn (x) satisfies the 
recurrence equation 



T , (X) = 2 X • T (x) 
n+1^ ' n^ ' 



n-1 



(X) 



with startii^ values Tq(x) = 1, T2^(x) = x. The 
transformation is performed by means of a forward 
iteration scheme: 

1 . The coefficient vector of the Chebyshev poly- 
nomial Tj(x) is calculated from the coefficient 
vectors of Ti-i(x), Ti_2(x) using the recurrence 
equation, for i = 3, . . . , N. 

2. The resulting polynomial coefficient vector is 
obtained by summation of cj times coefficient vector 
of Ti-i(x) over i, for i = 1, .... N. 



SUBKOUTINE rCNP 



tCNf 10 

TCNP 20 

TCNP 30 
TCNP to 
TCNP 50 
PlDtPOSE 'CNP 60 

• SEHItS E«P»NSION IH CHEBYSHEV POLTNOBULS KITH INOEPEHOEHTTCHP TO 
VARIABLE X IS TRANSFOdNEO TO A POLYNONIAL MITH INDEPENDENT TCNP 80 
VARIAUE Z. 1(I«RE K.A»Z»«. 'CNP 90 

TCNP 100 
TCNP llO 
TCNP I JO 
TCNP L>0 
DESCRIPTION Of PARAN6TERS TCNP 1*0 

A - FACTOR Of tlNEAR TERN IN 6IVEN LINEAR TRANSFDRNATIONICNP 150 

B - CONSTANT TERN IN GIVEN LINEAR TRANSFORHATION TCNP 160 

POL - COEFFICIENT VECTOR OF POLVNONIAL IRESUlTANT VALUE) TCNP ITO 

COEFFICIENTS ARE ORDERED FRON LOU TO HIGH 
N - OIHENSION OF COEFFICIENT VECTORS POL AND C 

C - GIVEN COEFFICIENT VECTOR OF EXPANSION 

COEFFICIENTS ARE OROEAED FRON LOU TO HIGH 
POL AND C NAT BE lOENTICALLV LOCATED 
WORK - WORKING STORAGE OF OINENSION 2«N 



TCNP ISO 
TCNP 190 
TCNP 200 
TCNP 210 
TCNP 220 
TCNP 230 
TCNP 240 
TCNP 250 
TCNP 260 
TCNP 2T0 
TCNP 280 



RENARKS , „ . 

COEFFICIENT VECTOR C REHAINS UNCHANGED IF NOT COINCIDING 
WITH COEFFICIENT VECTOR POL. 

OPERATION IS BYPASSED IH CASE N LESS THAN I. 
THE LINEAR TRANSFORHATION X.A«2»B OR Z-Il/AKX-BI TRANSFORNSTCNP 290 
THE RANGE 1-1, til IN X TO THE RANGE I2L,2R1 IN t. WHERE TCNP 300 

2l--(l»»l/A AND 2R.<I-8I/A. TCNP 310 

FOR GIVEN 2L, ZR HE HAVE A-2/I2R-2LI ANO B—I/R42LI /(ZR-2L) TCNP J20 

TCNP 330 

SUBROUTINES *N0 FUNCTION SUOPROGRAHS REQUIRED 
NONE 



NETHOO 

THE TRANSFORttATION IS BASED ON THE RECURRENCE EOUATION 

FOR CHEBYSHEV POLVNOHIALS TlN.Kl 

TIN*1.XI-2*K*TIN.XI-T1N-1,XI . 

WHERE THE FIRST TERN IN BRACKETS IS THE INDEX. 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE TIO.KI-I. TI1.X)-X. 

THE TRANSFORHATION IS INPLICITIY DEFINEO BY HEANS OF 

X - A*2*a TOGETHER WITH 

SUNIP0LII)«Z«*1I-1I. SUNNED OVER I FROH I TO NI 

>SUH<C(II«riI-l.«l. SUNNED OVER I FRON 1 TO Nl. 



TCNP 3A0 
TCNP 3S3 
TCNP 360 
TCNP 370 
TCNP 380 
TCNP 390 
TCNP *00 
TCNP AlO 
TCNP 420 
TCNP 430 
TCNP 440 
TCNP 450 
TCNP 460 
TCNP 470 
TCNP 480 



SUBROUTINE TCNPIA.B.POl.N.CiHORK) 
DIMENSION POLIll.Clll.WORKIll 



c 




TEST OF OINENSION 


c 
c 




IFIN-1)2.1.3 




OINENSION LESS THAN 2 




1 


POLIll-CtU 




? 


RETURN 


c 








3 


f>QL(ll-C(ll«-C(21«B 
P0L(2)-C(2I*A 


c 
c 




IFIN-2I2,2,« 




INITIALlZAriON 




4 


WORKUI-l. 
HORKIZI-e 
MORKOl-O. 

HORKU>*A 

XO-A+A 

XO-Bt-B 



CALCULArC COEFFICIENT VECTOR OF NEXT CHEBVSHEV COLYNOKI AL 
ANO ADD HULTIPLE OF THIS VECTOR TO POLYNOHIAL POL 

DO 6 J-3*N 

P-0. 

00 5 K"2.J 

H-P-WaRK( 2*K-3 1 t-KO^WORKC 2*K-2) 

P>HORKt2*K-2) 

W0RK(2*K-2I«H 

W0RK*Z*K-5I«P 

POL I K- 1 1 • POL ( K- 1) ♦H •C ( J ) 

5 P-XO*P 
H0RK(2*J-1I«0. 
H0RKI2*JI-P 

6 PDL(J>-CIJJ*P 
RETURN 

END 



..TCNP htO 
TCNP 500 
TCNP 510 
TCNP 520 
TCNP 530 
TCNP 5*0 
TCNP 550 
TCNP S60 
TCNP 5T0 
TCNP 580 
TCNP 590 
TCNP 600 
TCNP 610 
TCNP 620 
TCNP 6 30 
TCNP 6^4 
TCNP 650 
TCNP 660 
TCNP 6T0 
TCNP 680 
TCNP 690 
TCNP 700 
TCNP 710 
TCNP T20 
TCNP 730 
TCNP T*0 
TCNP T50 
TCNP 760 
TCNP 7T0 
TCNP 780 
TCNP 190 
TCNP 800 
TCNP 810 
TCNP 820 
TCNP 8 30 
TCNP 8^0 
TCNP 850 
TCNP 860 
TCNP 870 
TCNP 880 
TCNP 890 
TCNP 900 



SUBROUTINE DTCNP 



OTCN 10 
OTCN 20 

DTCN 30 

OTCN «C 

OTCN 50 

PURPOSE OTCN 60 

A SERIES EXPANSION IN CHEBYSHEV POLVNOHIALS WITH INOEPENOENTOTCN TO 

VARIABLE X IS TRANSFORMED TO A POLYNOMIAL WITH INDEPENDENT OTCN 80 

VARIABLE It WHERE X-A*Z*^B. OTCN 90 

DTCN 100 

liSAGE OTCN LlO 

CALL DTCNPIAiBfPOLtN.CtWORK) DTCN IZO 

DTCN 130 

DESCRIPTION OF PARAMETERS OTCN 1*0 

A - FACTOR OF LINEAR TERN IN GIVEN LINEAR TRANSFORNATIONOTCN ISO 



DOUBLE PRECISION VARIABLE 

CONSTANT TERN It GIVEN LINEAR TRANSFORNATION 

DOUBLE PRECISION VARIABLE 

COEFFICIENT VECTOR OF POLYNOHIAL (RESULTANT VALUE) 

COEFFICIENTS ARE ORDERED FRON LOW TO HIGH 

DOUBLE PRECISION VECTOR 

DIMENSION OF COEFFICIENT VECTORS POL ANO C 

GIVEN COEFFICIENT VECTOR OF EXPANSION 

COEFFICIENTS ARE ORDERED FROH LOW TO HIGH 

POL ANO C HAY BE lOENTICALLV LOCATED 

DOUBLE PRECISION VECTOR 

H0RKII4G STORAGE OF DIMENSION 2*N 

DOUBLE PRECISION ARRAY 



NOT COINCIDING 



OTCN 160 
DTCN ITO 
OTCN IBO 
DTCN 190 
OTCN 200 
OTCN ZIQ 
OTCN 220 
DTCN 2 30 
OTCN 240 
DTCN 250 
OTCN 260 
OTCN 270 
OTCN 280 
DTCN 290 
OTCN 300 
DTCN 3L0 
OTCN 320 
OTCN 330 



REMARKS 

COEFFICIENT VECTOR C REMAINS UNCHANGED 
WITH COEFFICIENT VECTOR POL. 

OPERATION IS BYPASSED IN CASE N LESS THAN I. 
THE LINEAR TRANSFORMATION X>A*24-B OR Z-d/AMX-B) TRANSFORMSDTCN 340 
THE RANGE t-l.+l) IH X TO THE RANGE (ZL.ZRI IN Z, MHERE DTCN 350 
ZL--(L«^ai/A ANO ZR-ll-BI/A. OTCN 360 

FOR GIVEN ZLt ZR WE HAVE A-2/(ZR-ZL» ANO 8=-(ZR*Zil/(ZR-ZLI OTCN 370 

OTCN 380 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
NONE 



METHOD 

THE TRANSFORMATION IS BASED ON THE RECURRENCE EQUATION 

FDR CHEBYSHEV POLYNOMIALS TIN. XI 

TINi-l.X|32*X*r<N,Xl-T(N-ltX)t 

WHERE THE FIRST TERM IN BRACKETS IS THE INDEX, 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE TlOtXfU T(1*XI*X. 

THE TRANSFORMATION IS IMPLICITLY DEFINED BY MEANS OF 

X - A*Z*B TOGETHER HITH 

SUMtPOLd l*Z**(I-I), SUMMED OVER 1 FROM 1 TO Nl 

-SUMICII t*T(I-l,K), SUMMED OVER I FROM 1 TO N). 



SUBROUTINE OrCNP< A, B.POL tN, C. WORK! 

DIMENSION POLI I)bC( 1) .MORK< II 

DOUBLE PRECISION A. B.POL. C. WORK, H,P,KD,XO 

TEST OF DIMENSION 
IF(N-1)2,1,3 

DIMENSION LESS THA^i 2 
POL I 1I-C< 1) 
'. RETURN 

P0L(1I*CUUC(2)*B 

P0L(2)«C(21»A 

IF(M-2I2,2,« 

INITIALIZATION 

WORK( 11:^1.00 

H0RK(2)>B 

WORK)3I=0,DO 

W0RK(4»-A 

XD'A^A 

XO»B*B 



OTCN 390 
OTCN 400 
OTCN 410 
OTCN 620 
OTCN 430 
OTCN **0 
DTCN 650 
OTCN *60 
OTCN *70 
DTCN 480 
DTCN 490 
OTCN 500 
OTCN 5L0 
OTCN 520 
OTCN 530 
.. OTCN 5*.0 
OTCN 550 
OTCN 560 
OTCN 5 70 
OTCN 580 
OTCN 590 
OTCN 600 
DTCN 610 
OTCN 620 

orciu M 

DTCN 640 
OTCN 650 
OTCN 660 
OTCN 670 
OTCN 680 
DTCH 690 
OTCN 700 
DTCN 710 
DTCN 720 
DTCN 730 
DTCN 740 
DTCN 750 
OTCN 76C 
DTCN 770 
OTCN 790 
DTCN 790 
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CAtCULATE COEfFICI€NT VECTOR OF NEXT CHEBYSHEV POLYNOMIAL 
ANO AOD MULTIPLE OF THIS VCCTOR TO POLYNOMIAL POL 
00 6 J-3.M 

P«0.00 

OO 5 K-2.J 

H>P-UOAM2*K-3UX0*U0ftK(2*K-2) 

P=HOWtl2*K-2) . 

W0RKf2«K-2)-H 

U0R(C(Z*K-3I«P 

POL ( K- 1 1 " POL I H- 1 1 *N •C( J I 

P-)tO*P 

U0RK(2*J-1I*0.00 

WORKCZ^JWP 

POL! Jl'^Ct JI*P 

RETURN 

END 



OTCM aoo 

OTCN 810 
orcN BZO 
OTCN B3D 
orcN 8^0 

OrCN B50 
OTCN 8&0 
DTCN 8T0 
OTCN 880 
OTCN 890 
OrCN 900 
OTCN 9tO 
DTCN 920 
OTCN 930 
OTCN 940 
OTCN 950 
DTCN 960 



Subroutines CSP and DCSP 

These subroutines compute the values of the shifted 
Chebyshev poljmomials for a given argument x and 
orders zero up to N. The shifted Chebyshev poly- 
nomial satisfies the recurrence equation. 



n+1 



(X) = 2 (2 x-1) T^(x) - T^_^(x) 



s s 

with starting values To(x) = 1, Ti(x) =2 • x - 1. 

From this equation, it follows immediately that 
roundoff errors grow at worst linearly under the 
tacit assumption that the argument values are be- 
tween zero and one. 

g 

If Cn+r is the error in Tn+r(x) due to a single 
rounding error e in T^ (x): 



e ^ ^-, = 2 (2 x-1) e , 
n+r+1 ^ ' n+r 



n+r-1 



with initial conditions en = e, Cn-l = 0. 

The solution of this difference equation has its 
maximum for x = 1 or x = 0. 



e = 0, e = e, e ^, 
n-1 n n+1 



= 2e 



n+r 



= (1 + r) e. 

The order is assumed to be zero for negative values 
of N. 



SUBROUTINE CSP 

PURPOSE 

COMPUTE THe VALUES OF THE SHIFTED CHEerSMEV POLYNOMIAL 
TSfN.XI FOR ARGUMENT K ANO ORDERS UP TO N. 

USAGE 

CALL CSPIY.X.Nl 

DESCRIPTION OF PARAMETERS 

Y - RESULT VECTOR OF DIMENSION H*^! CONTAINING THE 

OF SHIFTED CHEBYSHEV POLYNOMIALS OF DROER UP 

FOA GIVEN ARGUMENT X. 

VALUES ARE OROEREO FROM LOW TO HIGH OftOER 
K - ARGUMENT OF SHIFTED CHEBYSHEV POLYNOMIAL 

H - ORDER OF SHIFTED CHEBYSHEV POLYNOMIAL 



REMARKS 

N LESS THAN IS TREATED AS IF 



METHOD 

EVALUATION IS BASED ON THE RECURRENCE EQUATION FOR 

SHIFTED CHEBYSHEV POLYNOMIALS TSIN.X) 

rSIN«I.l() = l4*X-2l*TS(N.Xt-TS(N-l,Xt. 

WHERE THE F!«ST TERM IN BRACKETS IS THE ORDER, 

THE SECOND IS THE ARGUMENT. 

STARTING VALJES ARE TSia,XI = t, TS ( I , X I =2*X-I . 



SUBROUTINE CSPIYtX,NI 

DIMENSION VU) 

TEST OF ORDER 
Vtli'l. 
IF(N)l,l,2 

L RETURN 

'. Yt2)-X*X-l. 
IF|N-n 1,1,3 

INiriALIZATION 
I F=Y(2I+Y(2> 

DO « 1=2, N 
Y(l*l».F*Y( I l-Y(I-l I 

RETURN 
END 



CSP 
CSP 

CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
VALUESCSP 
TO N CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 

CSP 

CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 
CSP 



103 
110 
120 
130 
140 
150 
160 
170 
IBO 
193 
200 
210 
220 
230 
240 
250 
260 
270 
280 
2-JO 
300 
310 
320 
330 
340 
350 
3iO 
3 70 
3B0 
J90 



430 
440 
450 
460 
470 
480 
490 
503 
510 
520 
5 30 
540 
550 
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SUBROUTINE OCSP 

PURPOS€ 

COMPUTE THE VALUES OF THE SHIFTED CHEBYSHEV POLYNOMIALS 
rS(N.XI fOR ARGUMENT X AND ORDERS UP TO N. ^ 

USAGE 

CM-L OCSPIY.X.NI 



OSP 
05P 
DSP 
OSP 
OSP 
OSP 
DSP 
DSP 
OSP 
OSP 
DSP 
DSP 
OSP 



OESCRfPTION OF PARAMETERS 

r - RESULT VECTOR OF DIMENSION N*^! CONTAINING THE VALUESOSP 

OF SHIFTED CHEBYSHEV POLYNOMIALS OF OROEft UP TO N OSP 



FOR SIVEN ARGUMENT 

OIXJSLE PRECISION VECTOR. 

VALUES ARE ORDERED FROM LOU TO HIGH ORDER 

- ARGUMENT OF SHIFTED CHEBYSHEV POLYNOMIAL 
DOUBLE PRCCISIOM VARIABLE. 

- ORDER OF SHIFTED CHEBYSHEV POLYNOMIAL 



REMARKS 

N LESS THAN 



3 IS TREATED AS IF N HERE fl 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

EVALUATION IS BASED ON THE RECURRENCE EQUArlDN FOR 

SHIFTED CHEBYSHEV POLYNOMIALS TS(N.XI 

rSIN*l.Xl-l**X-2I*TS(N,X)-rSIN-|,Xl, 

WHERE THE FIRST TERM IN BRACKETS IS THE ORDER, 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE TSIOtXI-l, TS ( 1. X) *2*X-i . 



SUBROUTINE OCSPIY.X.NI 



DIMENSION Y( 11 

DOUBLE PRECISION V.X.F 



c 




TEST OF ORDER 






rUJ'l.DO 






lf=ir4lltl.2 




I 


RETURN 


c 








z 


Yt2I=X*X-1.00 
IF(N-1I1.I,3 


c 






t 




INITIALIZATION 




% 


F-Y(2)tY(ZI 


c 




DO 4 I<2,N 




4 


¥U + l|.F*V(II-Y(I-ll 
RETURN 

END 



DSP 
OSP 
DSP 
OSP 
OSP 
DSP 
DSP 
DSP 
OSP 
DSP 
DSP 
DSP 
OSP 
OSP 
DSP 
DSP 
DSP 
OSP 
DSP 
DSP 
OSP 
..OSP 
OSP 
OSP 

DSP 
DSP 
DSP 
OSP 
OSP 
OSP 
OSP 
OSP 
OSP 
DSP 
DSP 
DSP 
OSP 
DSP 
OSP 
OSP 
OSP 
OSP 
OSP 



100 

no 
120 
130 
140 
150 
160 
170 
ISO 
190 
200 
210 
220 
230 
240 
250 
260 

2 TO 
280 
290 
300 
310 
520 
330 
340 
550 
360 

3 70 

sao 

390 
«00 
410 
420 



460 
470 
490 
490 
SOD 
SIO 
520 
5 30 
540 
550 
560 
570 

sso 



Subroutines CSPS and DCSPS 

These subroutines compute the value of a series 
expansion in shifted Chebyshev polynomials .' The 
shifted Chebyshev polynomial Tg(x) satisfies the 
recurrence equation 

"' .(X) 



^n+l^""^ = 2 (2 x-1) T^(x) 



n-1' 



with starting values Tq (x) = 1, Tf (x) = 2x - 1. 

An n-term expansion in shifted Chebyshev poly- 
nomials with coefficient vector C = (ci, , . . , Cn) is 
evaluated by means of a backward iteration scheme: 



Arg = 4 X - 2, H = 0, H = 
«2=«1 



«1=«0 



H = Arg • H -H +c . 
^12 n-i+1 



for i = 1, 



Y = (c, 



«2 " «0>/2- 



This gives the result Y(x) =7^ c T^ rx) 

f-^ 1 i-1^ ' 
1=1 

Calculation is bypassed in case of a nonpositive 
value of the dimension n. 



SUBROUTINE CSPS 

PURPOSE 

COMPUTES THE VALUE OF AN N-TERM EXPANSION IN SHIFTED 
CHEBYSHEV POLYNOMIALS WITH COEFFICIENT VECTOR C 
FOR ARGUMENT VALUE X. 

USAGE 

CALL CSPStY,X,C,Nl 

OESCRIPriON OF PARAMETERS 
Y - RESULT VALUE 

K - ARGUHENT VALUE 

C - COEFFICIENT VECTOR OF GIVEN EXPANSION 

COEFFICIENTS ARE ORDERED FROM LOW TO HIGH 
N - DIMENSION OF COEFFICIENT VECTOR C 

REMARKS 

OPERATION IS BYPASSED IN CASE N LESS THAN I 



METHOD 

DEFINITION 

y=suM(Cc I i»rs(i-i,xi, sjmmed over i from i to m, 

EVALUATION IS DONE BY MEANS OF BACKWARD RECURSION 
USING THE RECURRENCE EQUATION FOR SHIFTED 
CHEBYSHEV POLYNOMIALS 
TS(N*1,X)=(4*X-2»*TS(N,X1-TS(N-1,XI. 



SUaRQUTlNE CSPS<ViXtC.NI 

DIMENSION CI I) 

TEST Of DIMENS13N 
IFINI I, 1.2 

1 RETURN 

2 IF(N-2I 3,4,4 

3 v=C( H 

RfrURN 

IMr lALIZATION 

4 ARG = X*^X-1. 
AKG=ARC*ARG 
H1=0. 
H0=0. 

00 5 1= 1,N 
X = N-I 
H2=H1 
HI^HO 

5 H0-*RG*Hl-H2*C(K»-l) 
Y=0.5"{CI II-H2+H0) 
RETURN 

END 



CSPS 10 
...CSPS 20 
CSPS 3D 
CSPS 40 
CSPS 50 
CSPS 60 
CSPS 70 
CSPS 80 
CSPS 90 
CSPS 100 
CSPS 110 
CSPS 120 
CSPS 130 
CSPS 140 
CSPS 150 
CSPS 160 
CSPS I/O 
CSPS 180 
CSPS 190 
CSPS 200 
CSPS 210 
CSPS 220 
CSPS 230 
CSPS 240 
CSPS 250 
CSPS 260 
CSPS 270 
CSPS 280 
CSPS 290 
CSPS 300 
CSPS 310 
CSPS 320 
CSPS 330 
CSPS 340 
..CSPS 350 
CSPS 360 
CSPS 3T0 
CSPS 3 80 
CSPS 390 
CSPS 400 
CSPS 410 
CSPS 420 
CSPS 433 
CSPS 440 
CSPS 450 
CSPS 460 

CSPS 47fl 
CSPS 480 
CSPS 490 
CSPS 500 
CSPS 510 
CSPS 520 
CSPS 530 
CSPS 540 
CSPS 550 
CSPS 560 
CSPS 570 
CSPS 580 
CSPS 590 
CSPS 500 
CSPS 610 
CSPS 620 
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10 



COHPUTSS THt VALUcf OF AN N-TFRM EXPANSION IN SHlFfeO 
CHEflYSHEV PniYNlMIALS i^ITH COtfFICIENT VECTOR C '' 
f-lR A^OJMtNT VALUE X. 



CALL DC 



5< Y, XtCtN) 



jESC-tiPTIO-iJ OF PARiMETEHS 
f - ^tSULT VALUE 

JJU3Lt ;• .DECISION VArtlAbLE 
X - A^iU>lENr VALUE 

OGUgLt PRECISION VARMJLE 

c - cjirF iciEr4T vecroR oi: «iv£N expansion 

CItPFICIENTS A^E JRO-RtO FROM LOW TO H 
JJ'jaLE PRECISION Vt:CTOK 
-J - JIMENSIOM JF CO£ePICIENT VECTO** C 






av.»4SStD 1.^ CASt \ LESS THAN 1 

5j^-<qutincs and function suspkograms requireo 

^':thou 

tefjnitio.n 

Y=sjH(:n i*T>(i-i,xi , sjH'ii^D jVtk i from i ro m. 

EVALUAFIJ^ I) DON" ftY lEA-^S OF 6ACKHAR0 RECUWSIQN 
■JSING THc lECUR-^rNCe ^JUATig:* FOR SHIFTED 
CHEflYSHtV 'GLYN0*1IALS 
TS(Ntt,<I=(<.»X-J)»r5(N.X)-T$IN-l,XI. 



suasouTiNS aciPsi V, x.cM 

DIMLHSIOM CI U 

DUUdLE .>KECISI3N C, Y, X .HC , H I ,H2 , ARiJ 

TcST JF OIMENSiJN 
I F ( .N M . 1 . 2 

1 RETU?f4 

2 IFIf^-2t 3. '.,4 

3 Y=CU f 
RETJ--<:j 

[p-^1 r lALIZATIOfJ 

', APG=X*<-1.D0 
ARG--4R';*ARG 

HI- j.J-) 

03 5 £=1,N 
K^N-1 

H^ = ^l 
H1=H0 
5 HC'lKG'Hl-H^i-CtKtl) 
Y = 0.500*IC( ll-H2*H01 

RETURN 
END 



30 



60 



DSPS 
..DSPS 
OSPS 
USPS 
DSPS 
OSPS 
OSPS 
5SP$ 
OSPS 
DSPS ICC 
DSPS 110 
OSPS 120 
DSPS 13C 
USPS UC 
OSPS ISO 
OSPS 160 
OSPS 170 
OSPS uo 
OSPS k<iO 
OSPS JCO 
OSPS ZIC 
USPS Z2C 
USPS 230 
OSPS 2<t(? 
OSPS 2'iC 
DSPS 263 
OSPS 270 
OSPS 280 
DSPS 290 
OSPS 30C 
OSPS 31C 
DSPS 320 
OSPS 3JC 
QSPS 'i'rO 
OSPS 350 
OSPS 360 
OSPS 3T0 
..OSPS 3dC 
OSPS i-iO 
DSPS 40C 
OSPS <>iQ 
DSPS '•20 
DSPS *iO 
DSPS "r^O 
DSPS <.^0 
DSPS 'tftO 
OSPS 'tTO 
DSPS ^8C 
USPS 490 
OSPS 50C 
OSPS 510 
OSPS 520 
OSPS 530 
DSPS SiiO 
OSPS 550 
flSPS 560 
DSPS 570 
OSPS b80 
OSPS 590 
OSPS 600 
DSPS 610 
OSPS 62C 
OSPS 630 
OSPS 6^0 
OSPS 650 



Subroutines TCSP and DTCSP 

These subroutines transform a given series expan- 
sion in shifted Chebyshev polynomials to ^ poly- 
nomial. The independent variable x of the given 
expansion is thereby substituted by the independent 
variable z of the resulting polynomial using the 
linear transformation x = A»z + Borz=(x- B)/A. 



N 



,s 



This means: ^ C. * T (A» z + B) 
i = 1 



N 

y POL. ♦ z 



i-l 



Calculation is bypassed in case of a nonpositive 
value of the dimension N. 

The range (0, +1) in x is transformed to the 
range (zj, Zj.) in z with z^ = -B/A and Zj. = (1-B)/A 
or vice versa, A = l/(zr-zi) and B = -zi/(zj. - zj). 

The shifted Chebyshev polynomial Tg(x) satisfies 
the recurrence equation 



T^ , (X) = 4 X T^(x) - 2 T^(x) - T^ , (x) 
n+1^ ' n^ ' n^ ' n-1^ ' 



with starting values Tg(x) =1, Tf(x) = 2 x - 1. The 
transformation is performed by means of a forward 
iteration scheme: 

1 . The coefficient vector of the shifted Chebyshev 
polynomial T^ (x) is calculated from the coefficient 



.j_2(x) using the recurrence 

N. 



vectors of Tf_i(x), Tr 
equation, for i = 3, 

2. The resulting polynomial coefficient vector is 
obtained by summation of cj times T^_2^(x) over i, 
for i =1, .... N. 



SUBROUTINE TCSP 

PURPOSE 

A SERIES EXPANSION IN SHIFTED CHEBYSHEV POLYNOMIALS HITH 
INOEPENOENT VARIASLE X IS TRANSF3RME0 TO A POLYNOMIAL IIITi 
INOEPENOENT VARIABLE ly WHERE X=A*Z«^B. 



DESCRIPTION OF PARAMETERS 



TCSP 13 
•TCSP 20 
TCSP iO 
TCSP *0 
TCSP 
TCSP 
TCSP 
TCSP 
TCSP 
TCSP 100 
TCSP llO 
TCSP 120 
TCSP 130 
TCSP 1*0 



73 



- FACTOR OF LINEAR TERM IN GIVEN LINEAR IRANSFORMATIONTCSP 150 



WORK 



CQNSIANT TERN II GIVEN LINEAA TRANSFORNATl ON 
COeFFICIENT VECTOR DF POLYNOttlAL (RESULTA^JT VALUE) 
COEFFICIENTS ARE ORDERED FROM LDW TO HIGH 
OINE'^SION OF COEFFICIENT VECTORS POL AND C 
GIVE^ COEFFICIENT VECTOR OF CXPANSION 
COEFFICIENTS ARE OROERED FRtW LOM TO HIGH 
POL AND C HAY 6E IDENTICALLY LOCATED 
WORKING STORAGE OF DIMENSION 2«N 



TCSP 160 
TCSP 170 
TCSP 180 
TCSP 190 
TCSP 200 
TCSP 210 
TCSP 220 
TCSP 230 
TCSP 2A0 
TCSP 250 
TCSP Z60 



C REMARKS 

C COeFFIClENT VECTOR C REMAINS UNCHANBtO IF NOT COINCIDING 

c WITH caepfrcffNT vecTon poi. rcSP 37fl 

C OPERATION IS BYPASSED IN CASE N LESS THAN L. TCSP 280 

C THE LINEAR TRANSFORMAT [3N X-A«Z4^B OR 2=> ( 1/A I (X-BI TRANSFORHSTCSP 290 

C THE RANGE tO. 1) IN X TO THE RANGE (2L.ZRI IN Z. WHERE TCSP 300 

C Zt— B/A AND ZR-<l-BI/A. 

C FOR GIVEN ZL, Z« WE HAVE A = 1/IZR-ZLI AND B"-ZL/UR-ZLI 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

THE TRANSFORMATION IS BASED ON THE RECURRENCE EQUATION FOR 

SHIFTED CHEBYSHEV POLYNOMIALS rS(N,XI 

TS(N»l*XI>(4*X-2l*TS(N,X)-TSIN-ltXI, 

WHERE THE FIRST TERM IN BRACKETS IS THE INDEX. 

THE SECOND IS THE ARGUMENT. 



TCSP 313 
TCSP 320 
TCSP 330 
TCSP J*0 
TCSP 350 
TCSP 360 
TCSP 370 
TCSP 380 
TCSP 390 
TCSP *03 
TCSP *10 
TCSP 420 
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STARTrNC V*Ljes ARE TS(3.X)-i, rS( U XI -2*K-1 . 

THE TRANSFORHAriQN IS MPLICITLf DEFINED 8f MEANS OF 

X-A*i+8 TOGETHER WITH 

SUM(POL(I)*Z»*U-n, SOWHEO OVER I FRDH 1 TO Nl 

-SUH(ClI)«TS(l-l,XI, SUMMED OVER I fROM I TO N>. 



sueROur INE rcspc a.b .pol.n.c.worki 

DIMENSION P01.(n*C(l).HORK(ll 

TEST OF DIMENSnN 
1F(N~112, 1,3 

DIMENSION LESS THAN Z 

1 POL( 1I-C[ 1) 

2 RETURN 

3 XD=A** 
XO'Sffi-l. 

PQL(l)>Cm*C(2)*X0 
P0L(2I-C( 2)*X0 

If IN-212,2.4 

INITIAL IZAT I QN 

4 UOftKID-l. 
WORK) 2 I -XO 
WORK! 31=0. 
WORKUI^XO 
XD-KOtKO 
X0=X0»KO 

CALCULATE COEFFICIENT VECTDR OF NEXT SHIFTED CHEBVSHEV 
POLVNOMIAL AND ADD MULTIPLE OF THIS VECTOR TO POLYNOMIAL POL 

00 6 J>3.N 

P-0. 

DO 5 K=2,J 

H-P-MOR(C(2*K-3»*-XO»i«a«K( 2*K-Z1 

P = UORIC( 2*iC-2» 

W0RK(2*K-2)=H 

WDRK(2*K-3I=P 

POL(K-l) = POL(tC-n*H*C( J) 

5 P=XD*P 
W0RK(2»J-ll-0. 
kORK(2«J»«P 

6 POLI Jt=C(J i*? 
RETURN 

ENO 



rcsp hio 
rcsp **o 
rcsp 450 

TCSP 440 
TCSP 470 
TCSP 480 
..TCSP 490 
TCSP 503 
TCSP 510 
TCSP 520 
TCSP 530 
TCSP 543 
TCSP 550 
TCSP 563 
TCSP 570 
TCSP 583 
TCSP 540 
TCSP 600 
TCSP ilO 
TCSP 620 
TCSP 430 
TCSP 440 
TCSP 650 
TCSP 660 
TCSP 6T0 
TCSP 680 
TCSP 6')0 
TCSP 700 
TCSP 710 
TCSP 720 
TCSP 730 
TCSP 740 
TCSP 753 
TCSP 750 
TCSP 770 
TCSP 780 
TCSP 790 
TCSP a03 
TCSP 810 
TCSP 820 
TCSP 830 
TCSP 843 
TCSP 850 
TCSP B50 
TCSP 870 
TCSP 880 
TCSP 893 
TCSP 900 

TCSP 910 

TCSP 920 



ores ID 
ores 20 

OICS 30 
OTCS 40 

ores 53 

OTCS 60 
DTCS 70 
DTCS 80 

ores 90 

OTCS 100 
OTCS 113 

ores 120 

ores 133 

nnF.I^S 2*" LINEAR TERM IN GIVEN LINEAR TRANSFORMATIONOTCS 150 
...- ^^^^ ^^^ 

CONSTANT TERM IH GIVEN LINEAR TRANSFORMATION OTCS 173 

DOUBLE PRECISION VARIABLE qtcs 180 

COEFFICIENT VECTOR OF POLYNOMIAL (RESULTANT VALUEI OTCS 193 



SUBROUTINE DTCSP 

PURPOSE 

A SERIES EXPANSION IN SHIFTED CHEBrSHEV PQlvnomialS WITH 
IWEPENOENT VARIABLE X IS TRANSFORMED TO A POLYNOMIAL HITM 
INOEPENDENT VARIABLE 2, WHERE X.A*Z«^e. 

USAGE 

CALL OTCSPIA.B.POL.N.C.MOHKI 

DESCRIPTION OF PARAMETERS 



COEFFICIENTS ARE ORDERED FROM LOW TO HI5H 
DOUBLE PRECISION VECTOR 

- DIMENSION OF COEFFICIENT VECTORS POL AND C 

- GIVEN COEFFICIEiir VECTOR OF EXPANSION 
POL ANO C MAY BE lOEMTICALLV LOCAfEo 
COEFFICIENTS ARE ORDERED FROM LOW TO HIGH 
DOUBLE PRECISION VECTOR 

- MORKING STORAGE OF DIMENSION 2*N 
OOUBLE PRECISION ARRAY 



REMARKS 

COEFFICIENT VECTOR C REMAINS UNCHANGED IF NOT COINCIDING 

MITH COEFFICIENT VECTOR POL. 

OPERATION IS BYPASSED IN CASE N LESS THAN 1. 

THE LINEAR TRANSFORMATION X*A*2*B OR I-(1/AHK-S) TRANSFORMSDTCS J40 

THE RANGE 10,11 IN X TO THE RANGE (ZL,2«) IN I. WHERE OTCS 350 

ZL"-B/A ANO ZR-U-6)/A. 

FOR GIVEN ZLi 2R WE HAVE A-1/tZR-ZL) AND B— ZL/(ZR-ILI 



ores 200 
OTCS 210 
OTCS 220 
OTCS 230 
ores 240 
ores 250 
DTCS 260 
OTCS 270 
OTCS 200 
OTCS 290 
DTCS 300 
DTCS 310 
ores 320 
OTCS 330 



METHOD 

THE TRANSF0R»(ATION IS BASED ON THE RECURRENCE EQUATION FOR 

SHIFTED CHEBYSHEV POLYNOMIALS TSIN.Kl 

rSlH*l,Xt-(4*X-2)*TS(N,Xt-TS(M-l,Xl, 

WHERE THE FIRST TERM IN BRACKETS IS THE INDEX, 

THE SECOND IS THE ARGUMENT. 

STARTING VALJE5 ARE TS(0,XI-l, T5 < I , X) "2*X-1 . 

THE TRANSFORMATION IS IMPLICITLY DEFINED BY MEANS OF 

X»A*Z*B TOGETHER WITH 

SUMfPOLI I t*Z«*II-ll, SUMMED OVER I FROM I TO Nl 

= SUM(Cm*TSl I-l,X) , SUMMED OVER I FROM 1 TO Nl. 



SUBROUTINE DTCSP (A, B.POL .NtC tWORK ) 

DIMENSION POLM),C( D.WORKI II 

DOUBLE PRECISION A. B«POL.C .WQRK,H. P, XO, XO 

YESr OF 0INENSI3N 
IFIN-tl2.1.3 

DIMENSION LESS THAN 2 
1 POLI 1»-C( I) 

? RETURN 

J XD-A*A 

XO=Bt6-1.00 

POL( lJ-CmtC12l*X0 

POLI2l-CI2)*XO 

IFIN-2I2«2,4 

INITIALIZATION 
> H0RKUI>1.D0 
W0RK(2I<^X0 

M0RK(3I«0.D0 
H0RKI4I>K0 
XD-XO+XD 
X0=XO*XO 

CALCULATE COEFFICIENT VECTOR OF NEXT SHIFTED CHEBYSHEV 
POLYNOMIAL AND ADD MULTIPLE OF THIS VECTOR TO POLYNOMIAL POL 

DO 6 J>3,N 

P'O.OO 

00 5 K*2tJ 

H-P-WORK( 2*K-3 I •X0*W0RKI 2*K-2) 

P-MORK(2*K-2) 

WORKI2*K-2l«H 

W0RtCC2*K-ll-P 

POL I K- X I « POL C X - 1 1 tH *C IJ 1 

P«XD»P 

WORKI2*J-tt-0.00 

W0RK(2*J1=P 

POL(JI>C(J)*P 

RETURN 

END 



ores 353 
ores 370 
DTCS 380 
DTCS 390 
DTCS 400 
DTCS 410 
ores 420 
OTCS 430 
ores 440 
OTCS 450 
OTCS 460 
DTCS 470 
DTCS 480 
DTCS 490 
OTCS 500 
OTCS 5 10 
DTCS 520 
OTCS 533 
..ores 540 

ores 550 
ores 560 
ores 570 
OTCS 580 
ores 590 
ores 530 
OTCS 510 
OTCS S23 
ores 630 
DTCS 540 
DTCS 650 
ores 660 
ores 570 
DTCS 680 
OTCS 490 

ores 700 

OICS 713 

OTCS 720 

ores 730 

OTCS 740 

DTCS 750 

DTCS 750 

DTCS 770 

OTCS 780 

DTCS 790 

ores 800 

OTCS 810 
DTCS 823 
ores 830 
OTCS 840 
OTCS 850 
ores 860 
DTCS 870 
ores 880 
OTCS 890 
DTCS 900 
OTCS 910 
ores 920 
OTCS 933 
ores 940 
DTCS 950 

ores 960 

OTCS 970 
DTCS 980 
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Subroutines HEP and DHEP 

These subroutines compute the values of the Hermite 
polynomials for a given argument x and orders zero 
up to N. The Hermite pol3Tiomial Hjj(x) satisfies the 
recurrence equation 



H ^, (X) 
n+1 



2 (X 



H (X) 
n 



n . H^_^(x)) 



with starting values Hq(x) =1, Hi(x) = 2 x. 

The order is assumed to be zero for negative 
values of N. 



SUeitOUTINE HEP 

PURPOSE 

COHPUTE THE tTALUES Of THE HeRHITE POLYNOMIALS H(N,X) 
FOR ARGUMENT VALUE X AND ORDERS UP TO N. 

USAGE 

CALL HEP(ViX.N} 

DESCRIPTION OF PARAMETERS 

Y - RESULT VECTOR OF DIMENSION N*l CONTAINING THE 

OF HERMITE POLYNOMIALS OF ORDER UP TO N 

FOR SIVEN ARGUMENT X. 

VALUES ARE ORDERED FROM LOW TO HIGH ORDER 
X - ARGUMENT OF HERMITE POLYNOMIAL 

N - ORDER OF HERMITE POLYNOMIAL 



REMARKS 
N LESS 



IS TREATED AS IF N WERE 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

EVALUATION IS BASED ON THE RECURRENCE EQUATION FOR 

HERMITE POLYNOMIALS H(N,XI 

H(N*lf Xl = Z*U*H(N,XI-N*H{N-l,Xn 

WHERE THE FIRST TERM IN BRACKETS IS THE INDEX, 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE H(0,XI=lt H(l,Xl=2*X. 



SUBROUTINE HEPIV.X.Nt 
DIMENSION Yl 1) 
TEST Of ORDER 

Y(H-1. 

IFINII. 1.2 

1 RETURN 

2 r(2»=xtx 

[F(N-llltlt3 

3 DO * 1=2, N 

f-x*Y(i )-FLOAr( i-i»*Yn-n 

* Y(I*1I=F+F 
RFTURN 

END 



HEP 
, HEP 

HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 

VALUESHEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 

HEP 

HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 
HEP 



130 
ILO 
120 
L3D 
UO 
150 
160 
170 

lao 

203 
210 
220 

2 30 
240 
250 
260 
270 
2B0 
290 
300 
310 
320 

3 30 
340 
150 
360 
370 
3S0 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 



SUBROUTINE OHEP 

PURPOSE 

COMPUTE THE VALUES OF THE HERMITE POLYNOMIALS H(N 
FOK ARGUMENT VALUE X ANO OftOCRS UP TO N. 

USAGE 

CALL OHEPIY.K.N) 

DESCRIPTION OF PARAMETERS 

V - RESULT VECTOR OF DIMENSION N^^l CONTAINING 

OF HERMITE POLYNOMIALS OF OROER UP TO N 

FOR 51VEN ARGUMENT X. 

DOUBLE PRECISION VECTOR. 

VALUES ARE OROEREO FROM LOW TO HIGH OROER 
X - ARGUMENT OF HERMITE POLYNOMIAL 

DOUBLE PRECISION VARIABLE. 
N - ORDER OF HERHlTE POLYNOMIAL 



REMARKS 

N LESS THAN 



IS TREATED AS IF N WERE 



SUBROUriNES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

EVALUATION IS BASED ON THE RECURRENCE EQUATION FOR 

HERHlTE POLYNOMIALS HIN,XI 

KIN*1.X)*2*(X*H(N.XI-N*H(N-1, X)) 

WHERE THE FIRST TERM IN BRACKETS IS THE INDEX. 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE H(0,Xt=l. H(1,XI=2«X. 



SUBROUTINE DHEP(Y,X,NI 

DIMENSION Yd) 

DOUBLE PRECISION Y. X.F 

TEST OF ORDER 
Y(lt-I.DO 
IFINII. 1.2 
RETURN 

V(2I-X*X 
IF(N-1I1.1,3 

- 00 4 I»2tN 
F»X*Y(I )-DFLOATI l-l)*Y( 
VfI*I)=F»F 

RETURN 
END 



OHP 

OHP 

OHP 
OHP 
OHP 
OHP 
.XI OHP 

\ OHP 
OHP 
DHP 
OHP 
OHP 
OHP 
THE VALUESOHP 
OHP 
OHP 
OHP 
OHP 
OHP 
OHP 

DHP 

DHP 
OHP 
OHP 
DHP 
DHP 
DHP 
DHP 
OHP 
OHP 
OHP 
OHP 

OHP 

OHP 
OHP 
OHP 
. . . DHP 
OHP 
DHP 
OHP 
OHP 
OHP 
OHP 
DHP 
DHP 
OHP 
DHP 
DHP 
DHP 
DHP 
OHP 
DHP 
DHP 
DHP 
OHP 
DHP 



90 
100 
119 
120 
1)0 
l«0 
ISO 
l&O 
ITO 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
110 
320 
330 
340 
390 
960 
3T0 
3B0 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
530 
510 
520 
530 
540 
550 
560 
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Subroutines HEPS and DHEPS 

These subroutines compute the value of a series 
expansion in Hermite polynomials. The Hermite 
polynomial Hn(x) satisfies the recurrence equation 



n+1 ^ n ' n-1 



with starting values Hq(x) =1, H^(x) = 2 x. 

An n-term expansion in Hermite polynomials with 
coefficient vector C = (ci, . . ., Cn) is evaluated by 
means of a forward iteration scheme: 



Y = c^. H^=l, H^ =2 . X 
H2=x.H^-(i"l)H^ 



«0 = «1 



«1^«2^«2 



Y = Y + Ci • He 



for 1 = 2, 



This gives the result Y(x) =2 c. * H (x). 

i=l 
Calculation is bypassed in case of a nonpositive 
value of the dimension n. 



SUBROUTINE OKEPS 

PURPOSE 

COMPUTES THE VAtUE Of *N N-TERN EXPANSION IN HERHt TE 
POLVNOHIALS WITH COEFFICIENT VECTOR C FOR ARGUMENT VAUiE K. 

USAGE 

CALL DHEPSIVf X,C(NI 

DESCRIPTION OF PARAMETERS 
Y - RESULT VALUE 

0OU8LE PRECtSION VARIAaiE 
It - ARGUMENT VALUE 

OOJetE PRECISION VARIABLE 
C - COEFFICIENT VECTOR OF GIVEN EXPANSION 

COEFFICIENTS ARE ORDERED FROM LOU TO HIGH 

OOUeLE PRECISION VECTOR 
N - DIMENSION OF COEFFICIENT VECTOR C 

REMARKS 

OPERATION IS BTPASSEO IN CASE N LESS THAN 1 

sueROuriNES and function subprograms reouireo 

NONE 

METHOO 

DEFINITION 

Y^SUMtCd I»hC I-l,xt. SUMMED OVER I FftQM 1 TO Nl. 
EVALUATION IS DONE BY MEANS OF UPWARD RECURSION 
USING THE RECURRENCE EQUATION FOR HERNITE POLYNOMIALS 
H(N*l,XJ=2*(K*HfN,Xt-N«HIN-l.XI I. 



SUBROUTINE OHEPSI Vt X.C,N) 



20 



50 



DIMENSION C( II 

DOUBLE PRECISION C. V.X ,H0.HltM2 

TEST QF DIMENSION 
If (N)l,1.2 

1 RETURN 

2 Y'dll 

If (N-ZI It3t3 

INITIALIZATION 

3 HO=l,00 
Hl"X*X 

DO 4 I-2iN 

H2=X*H1-0FL0AT( l-l)*HO 
HO>HI 
Hl-M2*H2 
A V»Y*CI I 1*M0 
RETURN 
END 



OHPS 

.DHPS 
OHPS 
DHPS 
DHPS 
DHPS 
DHPS TO 
OHPS 90 
DHPS 90 
DHPS 103 
OHPS tlO 
DHPS 120 
OHPS 130 
DHPS 140 
OHPS ISO 
DHPS 160 
OHPS 173 
OHPS 180 
DHPS 190 
OHPS 200 
OHPS 2L0 
OHPS 220 
OHPS 230 
OHPS 240 
OHPS 250 
OHPS Z&O 
OHPS 270 
DHPS 289 
DHPS 293 
DHPS 900 
OHPS 310 
DHPS 320 
DHPS 330 
OHPS 3*0 
OHPS 350 

.OHPS 360 
DHPS 370 
DHPS 300 
DHPS 390 
OHPS ^30 
DHPS *10 
DHPS *20 
OHPS *30 
OHPS «40 
OHPS 450 
OHPS 460 
OHPS 473 
OHPS 480 
DHPS 490 
DHPS SOD 
OHPS 510 
DHPS 523 
OHPS 530 
DHPS 5*0 
OHPS 550 
OHPS 563 
DHPS 5 70 

OHPS sao 

OHPS 590 
DHPS 600 



SUBROUTINE HEPS 

PURPOSE 

COMPUTES THE VALUE OF AN N-TERM EXPANSION IN HERMITE 
POLYNOMIALS kITH COEFFICIENT VECTOR C FOR ARGUMENT VALUE 

USAGE 

CALL HEPSir.X.C.NI 

OESCRIPTtON OF PARAMETERS 
Y - RESULT VALUE 
X - ARGUMENT VALUE 
C - COEFFICIENT VECTOR OF GIVEN EXPANSION 

COEFFICIENTS *RE DROEREO FROM LOM TO HI3H 
N - DIMENSION OF COEFFICIENT VECTOR C 

REMARKS 

OPERATION IS BYPASSED IN CASE N LESS THAN 1 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

DEFINITION 

V«SUMIC(n*HU-l.XI, SUMMED OVER I FROM 1 TO Nt. 

EVALUATION IS DONE BY MEANS OF UPUARO RECURSION 

USING THE RECURRENCE EQUATION FOR HERMITE POLYWJMIALS 

H<N+1,XI=2*(X*HIN,X1-N*H(N-1,XI1. 



60 



SUBROUTINE HEPS I Y,X ,C t N} 

DIMENSION C(II 

TEST OF DIMENSION 
IFtNlia.Z 

1 RETURN 

2 V»Cll» 
IFIN-211.3,3 

INITIALIZATION 

3 HO-1. 
Hl-X«-X 

DO 4 I-2,N 

H2-X*Hl-FLOAT(l-l)»H0 

HO^Hl 

Hl«H2»H2 

4 Y"V*C( I )*H0 
RETURN 

ENO 



HEPS 10 
..HEPS 20 
HEPS 30 
HEPS 
HEPS 
HEPS 
HEPS 
. HEPS 

HEPS 90 
HEPS 100 
HEPS UO 
HEPS 120 
HEPS 130 
HEPS 140 
HEPS 150 
HEPS 160 
HEPS 170 
HEPS 180 
HEPS 190 
HEPS 203 
HEPS 210 
HEPS 220 
HEPS 230 
HEPS 240 
HEPS 250 
HEPS 260 
HEPS 270 
HEPS 200 
HEPS 290 
HEPS 300 
HEPS 310 
HEPS 320 
..HEPS 330 
HEPS 340 
HEPS 350 
HEPS 360 
HEPS 370 
HEPS 360 
HEPS 390 
HEPS 400 
HEPS *10 
HEPS 420 
HEPS 430 
HEPS 440 
HEPS 450 
HEPS 460 
HEPS 4 70 
HEPS 480 
HEPS 499 
HEPS 500 
HEPS 510 
HEPS 520 
HEPS 5 30 
HEPS 540 
HEPS 550 
HEPS 560 
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Subroutines THEP and DTHEP 

These subroutines transform a given series expan- 
sion in Hermite polynomials to a polynomial. The 
independent variable x of the given expansion is 
thereby substituted by the independent variable z of 
the resulting polynomial using the linear treinsforma- 
tion x = A«z + Borz = (x-B)/A. 

N 

This means: Y] C. « H. , (A ♦ z + BV 
. , 1 1-1 
1=1 



N 

E 

i =1 



POL. » z 

1 



i-1 



Calculation is bypassed in case of a nonpositive 

value of the dimension N. 

The range (-c, + c) in x is transformed to the 
range (z^, Zj.) in z with z^ = - (c + B)/A and Zj. = 
(c-B)/A, or vice versa, A = 2 c/(Zr - zj^) and 
B = - c (Zj, + zi)/(Zj. - zi). 

The Hermite poljmomial Hjj(x) satisfies the re- 
currence equation 



H ^, (X) = 2 (x • H (x) - n ■ H . (x)) 
n+1 ^ n n-1' " 



with starting values Ho(x) = 1, Hi(x) = 2 x. 

The transformation is performed by means of a 
forward iteration scheme: 

1 . The coefficient vector of the Hermite poly- 
nomial Hi(x) is calculated from the coefficient 
vectors of Hi-i(x), Hi_2(x) using the recurrence 
equation, for i = 3, . . ., N. 

2, The resulting polynomial coefficient vector is 
obtained by sum.mation of c^ times coefficient vector 



SUS«0UT1NC THCP 



* SERIES EXPANSION IN HCRNITC KILrNfm|ALS WITH INOEPENOENT 
VWIUIE » IS ntNSFMMEII TO t POiniMUL WITH ■NMpiNOENT 



VMIAM.E I, NHEItE ■(■••2>g 



USAGE 

CAll THCPCA.S.PaL.N.CHOItKI 



DESCMMION or rMMETEIIS 



.THE* 
tHEf 
THEP 
TMEP 
THEP 
THEP 
THEP 
THEP 
THEP 150 
THEP 110 
THEP UO 
THEP 130 
THEP l« 



10 



10 

♦0 



iO 



90 



VOM 



- EACTH OF LINCA* TEM IN CKEII LINCAK TMNSFOmUTIONTHEP HO 

- CONSTANT TEH IN OIVEN LINEAIt TAANSFORNATION 

- COEFFICIENT »ECTO« OF POtTHOHUL HESUIIANT VAIUEI 
COEFFICIENTS ARE OROERCO FROM LOW TO HIGI 

- OINENSION OF COEFFICIENT MCT«R POl ANO C 

- COEFFICIENT VECTOR OF CtyEN EmNSION 
COEFFICIENTS ARE OROERCO FRO* LON TO HIG^ 
POL AND C NAT BE IOCNTICAi.LV LOCATED 

- NORKINS STORAGE OF OIHENSION fH 



•ENAMS 

COEFFICIENT VECTOR C KENAINS UNCHANOEO IF NOT COINCIOING 

KITH COEFFICIENT VECTOR POL. 

OPERiTION IS SVPASSEO IN CASE N LESS THAN 



TMEP 1*0 
THEP ITO 
THEP 183 
THEP 190 
THEP 200 
THEP 210 
THEP 220 
THEP 210 
THEP 2*0 
THEP 2S0 
THEP 2t0 
THEP 2T0 
THEP 260 



THE LINEAR TRANSFORHATION «-««2*S OR l>ll/AIIX-«l TRAHSFORHSTHEP 290 



of Hi_j^(x) over i, for 1=1, 



N. 



THE RANCE l-C.CI IN I TO THE RANCE IZL.ZRI IN < WHERE 
IL— IC*BI/« ANO IR'IC-BI/A. 

FOR GIVEN ZLt 2R ANO C HE HAVE A-2C/IIR-2LI ANO 
a— C(2R«ZLI/IZR-ZL1 

SURROuriNCS ANO FUNCTION SUBPROSRANS REOUIREO 
NOME 

HETHOO 

THE TRANSFORHATION IS BASED ON THE RECURRENCE EQUATION 

FOR HERMITE POLVWMIALS HIN.II 

H(N«ttXI-2«(XPH<N,xt-N«HIN-l,Xllt 

WHERE THE FIRST TERN IN BRACKETS IS THE INDEX 

THE SECONO IS THE ARGUHENT. 

STARTING VALUES ARE H(0,XI -IfHI 1* XI>2*R. 

THE TRANSFORHATION IS IHPLICITLV OEFINCO BV NEANS OF 

X-A*Z«B TOGETHER KITH 

SUH|P0LIII«2P«II-1I. SUHHEO OVER 1 FROII 1 TO Nl 

• SUWCIIIRHII-I.XI, SUHHEO OVER I FROH 1 TO N). 



SUBROUTINE THEPI4tB*P0LtN«C«H0RKI 

OINENSION POLUltCllliUORKIll 

TEST OF DIMENSION 
IF(N-II2.1.3 

OIHENSION LESS THAN 2 

1 POLIll-CIl) 

2 RETURN 
C 

3 ltO>A«A 
«0>l«B 

P0tllUC<l»*CI2IPXD 
PaL(2l>C(2l««D 
IFIN-2I2>2.« 

C 

C INITIALIZATION 

4 H0RK1II«I. 
H0RKI2I-X0 
HORRIll-O. 
HORKI4l>XO 
FI-2. 

C 

C CALCULATE COEFFICIENT VECTOR OF NEXT HERHITE POCVNOHIAL 

C ANO AOO NULTIPLE OF THIS VECTOR TO POLVNOmAL POL 

00 » J'ltN 

P»0. 
C 

00 1 R-2.J 

H-P*XO*HORKI2*K-2I*XO-FI*UO«K(2*K-3I 

P-WORlt(2««-21 

HORKI2PK-2I-H 

H0RR(2«K->I-P 
9 P0LIR-1I>P0LU-1I*H*CIJI 

HORK(2PJ-t)*0. 

HDRKf2PJI>P«XD 

FI.FI»2. 
* P0LIJI-CIJI«N0RKI2«JI 

RETURN 

EW> 



THEP 390 
THEP 310 
THEP 120 
THEP 330 
THEP 3*0 
THEP ISO 
THEP 360 
THEP 320 
THEP IBO 
THEP 390 
THEP 400 
THEP »10 
THEP 420 
THEP 410 
THCP 440 
THEP 450 
THEP 440 
THEP 470 
THEP 460 
THEP 490 
..THEP 300 
THEP 510 
THEP 520 
THEP 930 
THEP 540 
THEP 5S0 
THEP 5*0 
THEP 570 
THEP 5B0 
THEP 590 
THEP 600 
THEP 610 
THEP 420 
THEP 630 
THEP 6*0 
THCP *S0 
THEP ttO 
THEP 670 
THCP *•!> 
THCP 690 
THEP TOO 
THEP 710 
THCP 720 
THEP T30 
THEP 7*0 
THEP 710 
THEP 760 
THEP 770 

THEP rao 

THEP T90 
THEP aoo 
THEP (10 
THCP 820 
THCP 9 39 
THEP a*o 
THEP B50 
THCP B60 
THCP B70 
THCP BBO 
THCP B90 
THEP 900 
THCP 910 
THEP 920 
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SUMOUriNC OTHC^ 



20 



50 
«0 



DTHC 

orHC 

0T«« 

orHE 

OTHC 
PIMPOSC „^^ 

A SEftlES EXMNSIOM IN MEdflirC POLVNONULS yiTH INOCHNOEMT DTHC .. 

VMIMCE I IS TftANSFOKMO rO & POLVNOflUL MITH INOCKNOCNT DTHC SO 

VUIMtC Z. MHEKC R-A*Z«« > OTHE «0 

OTHE lOQ 

"S*eE OTHC 110 

CALL OrHE»fA.S,POL.N,C,W(MK| OTHC 120 

DCSCRIMIOM OF PMAMCTCRS OTHC 1«0 

rACTOft OF LINCAR TEAN Id CIVCN LINCAft TAANSFOANATIIMOrHC ISO 



MMMlf PffCCISION VAKIAUE 
■ - CONSTANT TCRH IN 6IVEH LIHCAR TMNSFOKHATION 

aOMLC PMCISION VAItlAALC 
rO. - COCFFICICNT VCCTOA OF FOLTNONUL (ftCSULTANT VUUEI 

COCFFICIENTS AAC OROERCO F«OM LOW TO HIG»1 

OOUSLC FRCCISION VECTOR 
H - OINENSION OF COEFFICIENT VECTOR FOL ANO C 

C - COCFFICIENT VECTOR OF 6IVCH EXFANSION 

COCFFICIENTS ARE OROEREO FROM LM TO HICH 

POL ANO C HAY P£ lOCNTICALLT LOCATED 

OOIMLC FRCCISION VECTOR 
UQRK - HORKINC STQItACE OF OINENSION 2*N 

DOIMLE PRECISION ARRAY 

REMARKS 

COEFFICIENT VECTOR C RCNAINS UNCHANGED If NOT COINCIDING 

MITH COEFFICIENT VCCTOR POL. 

OPCMTION IS IVPASSCO IN CASE N LESS THAN 1. 



THE RANGE (-C«CI IN It TO THE RANGE IZL.ZR) IN Z HHCRE 

ZL«-(C«S1/A ANO Zt>|C-BI/A. 

FOR GIVEN ZLt ZR AND C «E HAVE A-2C/UR-ZL) ANO 

■— CI ZA*2Ll/( 2R-ZL I 

SUBROUTINES ANO FUNCTION SURFROGRANS RCOUIREO 
NONE 

HETHOO 

THE TRANSFDRNATION IS BASED ON THE RECURRENCE EQUATION 

FOR HERNITE POLYNONIALS H(N*KI 

HIN«l*XI«Z*IX«HfNtJ(l-N*HIN-|»Xllt 

WHERE THE FIRST TCRN IN BRACKETS IS THE INDEX 

THE SECOND [S THE ARGUNENT. 

STARTING VALUES ARE HIO.XI -1,H( 1* )<)-Z*X. 

THE TRANSFORNATION tS INPLICITLV DEFINED BY NEANS OF 

X-A«Z*B TOGETHER WITH 

SUHlFOLtl l*Z*«tI-lf . SUNNED OVER I FRON 1 TO Nl 

>SUN(CII)*Hn-UX). SUNNED OVER I FRON 1 TO Nl. 



SUBROUTINE DTHCPI A, B»POL»N,C »MORK) 

OINENSION PaL(l)*C(ll.WMK(l) 

DOUBLE PRECISION A. a«POL*C«HORK«HtP.FI«KDt XO 

TEST OF OINENSION 
IFIN-1I2.1(3 

OINENSION LESS THAN 2 

1 POLIll-Ctll 

2 RETURN 

3 X0-A4-A 
XO«B«S 

PQLU)>C11I+C(2>«X0 
F0L<2I-C(2I«X0 
lF(N-2t2.2.4 

INiriALIZATIOH 

4 UORRUI-l.OO 
UORK(2I>XO 
UORKOI-0.00 
U0IIK(41-X0 
FI>Z.DO 

CALCULATE COEFFICIENT VECTOR OF NEXT HERNITE POLYNOMIAL 
AND AOD MULTIPLE OF THIS VECTOR TO POLYNONtAL POL 

DO A J-3»N 

P-0.00 

00 5 K-2«J 

H-P*X0»H0RK(2«K-2t*XO-FI«WORM2«K-3l 

P-W0RKt2*K-2l 

U0RR(2*K-2I-H 

WORKI2««-3l'f 

5 POL(K-ll-POL(R-ll*M*CIJI 
WDRK(2*^1I-0.D0 
Wa«KI2«Jl-P*X0 
FI-FI»2.00 

A POLf JI-C(JI«WORKf 2*JI 
RETURN 
ENO 



DTHC ISO 

OTHE 360 
OTHC 570 
OTHE 3 BO 
OTHC 390 
OTHC «00 
OTHC «10 
OTHE A20 
DTMC 430 
DTHC 4^A0 
OTHE MO 
DTHC 4*0 
OTHE ATO 
OTHE ABO 
OTHE A«0 
OTHE 500 
OTHE 510 
DTHE 520 
OTHC S30 
OTHE 540 
..DTHE $50 
OTHE 5*0 
OTHC $70 
DTHE S«0 
OTHE 590 
DTHC AOO 
OTHE fclO 
OTHE 620 
OTHC $30 
DTHC AAO 
OTHE 450 
DTHE **0 
DTHE ATO 
OTHE &B0 
DTHE b9D 
DTHE 700 

OTHE no 

OTHE 720 
OTHC 7 30 
OTHE 740 
OTHC 750 
OTHE 7*0 
OTHE 770 
OTHC 7*0 
DTHE 790 
OTW BOO 
DTHC BID 
DTHE B20 
DTHE B30 
OTHE 440 
OTHE BfO 
DTHC B*0 
DTHC B70 
OTHC BBO 
DTHC B90 
DTHE 900 
DTHC 910 
DTHE 420 
OTHE 430 
OTHE 940 
DTHE «$0 
OTHE 960 
OTHE 970 
OTHC 960 



Subroutines LAP and DLAP 

These subroutines compute the values of the nor- 
malized Laguerre polynomials for a given argument 
X and orders zero up to N, The polynomial Ln(x)/n: , 
termed Lj^(x) below, satisfies the recurrence equation 

^n+1 ^""^ = [(2 n + 1 - X) L^ (x) - n L^_^ (x)J /(n+1) 

with starting values Lq(x) =1, L^ (x) = 1 - x. 

For reasons of economy and numerical stability 
the recurrence equation is used in the form 

L ^, (X) = L (x> - L , (X) + L (X) 
n+1 ^ ' n^ ' n-1 ^ ' ^^ 

'[{1^} L^(x>-L^_^(x>] /(n+1). 

For large values of n the last term is negligible, 
giving the approximation 



L ^^ (x> = 2 L (X) - L ^ (x>. 

n+1 n n-1 



This form shows that roundoff errors grow at worst 
linearly as long as x is small compared to n. 

If en+r is the error in Ln4.r(x) due to a single 
rounding error e in Ln(x), the approximation is: 



n+r+1 n+r n+r-1 



with initial conditions e^ = e, Cn-i = 0. This 
implies: 



e , = 2e, e „ = 3 . e, . . . , e , = (r + l)e 

n+1 n+2 n+r ^ ' 



The order is assumed to be zero for negative 

values of N. 



SUBKOUTINE LAP 

PURPOSE 

CDMPUrE THE VALUES OF THE LAGUERRE POLVHOMIALS L(N,X) 
FOR ARGUMENT VALUE X ANO ORDERS UP TO N. 



CALL LAPI Y,X. N) 

DESCRIPTION OF PARAMETERS 

f - RESULT VECTOR OF OlMENSION N*l CONTAINING THE VA 

OF LAGUERRE POLYNOMIALS OF JROER UP TO N 

FOR 5IVEN ARGUMENT X. 

VALUES ARE ORDERED FROM LOW TO HIGH OROgR 
X - ARGUMENT OF LAGUERRE POLVNOKIAL 
N - ORDER OF LAGUERRE POLVNOMIAL 

REMARKS 

N LESS THAN IS TREATED AS IF N WERE 

SUBROUTINES AMD FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

EVALUATION IS BASED ON THE RECURRENCE EQUATION FO^ 

LAGUERRE POLrNOMIALS L(V.XI 

LfN4^1,X) = 2*L(N.XI-L(N-l.X}'((l<^X)*LIN.Xt-L(N-UX) t/(N4^L}. 

WHERE THE FIRST TERM [N BRACKETS IS THE ORDER, 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE LfO.Xt^l, LU.KI = l.-X. 



LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LUESLAP 
LAP 
LAP 

LAP 



LAP 
LAP 
LAP 

LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
LAP 
.LAP 
LAP 



103 
110 
120 
I JO 

140 

150 
160 
170 
183 
190 
£00 

210 
220 
233 

240 
250 
260 
270 
2S0 
290 
300 
310 
320 
330 
3«0 
350 
360 
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SUBROUTINE L*P(V,XtN) 

DIMENSION V( I) 

TEST Of ORDER 
Y(l)-l. 
If INIL,1,2 

RETURN 

! Y(2>-l.-X 
IF(N-1)1,1,3 

INITIALIZATION 
. T'l.^X 

00 4 I-2.N 

Yii*i»=Y(ii-r(i-ii*Y«n-(T*Y(n-Yii-ni/Fio*T(ii 

RETURN 
END 



LAP 


3 TO 


LAP 


i«n 


LAP 


39D 


LAP 


*00 


LAP 


410 


LAP 


«20 


LAP 


430 


lAP 


*40 


LAP 


450 


LAP 


4*0 


LAP 


470 


LAP 


*80 


LAP 


490 


LAP 


500 


LAP 


510 


I AP 


S?0 


LAP 


530 


LAP 


5*0 


LAP 


550 



Subroutines LAPS and DLAPS 

These subroutines compute the value of a series 
expansion in normalized Laguerre polynomials. 
The polynomial Ljj(x)/n'. , termed Ljj(x) below, 
satisfies the recurrence equation 

L (X) = 2 • L (X) - L , (X) - 
n+1 * ' n^ ' n-1 ^ ' 



[(I + X) • L^(x) - L^_^ (x)] /(n+1) 



SUBROUTINE OLAP 

PURPOSE 

CONPUTE THE VALUES OF THE LAGUERRE POLYNOMIALS LIN, XI 
FOR ARGUMENT VALUE X AND ORDERS UP TO N. 

USAGE 

CALL DLAPIY.XfNI 

DESCRIPTION OF PARAMETERS 

Y - RESULT VECTOR OF DIMENSION N+t CONTAINING THE 

OF LAGUERRE POLYNOMIALS OF 3RDER UP TO N 

FOR 3IVEN ARGUMENT X. 

DOUBLE PRECISION VECTOR. 

VALUES ARE ORDERED FROM LOW TO HIGH ORDER 
X - ARGUMENT OF LAGUERRE POLYNOMIAL 

DOUBLE PRECISION VARIABLE. 
N - ORDER OF LAGUERRE POLYNOMIAL 

REMARKS 

N LESS THAN IS TREATED AS IF N WERE 



METHOD 

EVALUATION IS fiASEO ON THE RECURRENCE EQUATION FOR 

LAGUERRE POLYNOMIALS LINfX) 

L(N+1,XI«Z*L( N,X)-L(N-l.X)-(!l*XI*L(N.XI-L(N-l,XI 1/(N* 

WHERE THE FIRST TERM IN BRACKETS IS THE OROERt 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE L(O.Xt=L. LI1,K)=I.-X. 



SUSROUTINE OLAPIY,X,NI 

DIMENSItM Y( II 

DOUBLE PRECISION Y, X.T 

TEST tM= ORDER 
Yll)=l.DO 
IF^INIl. 1,2 

1 RETURN 

2 Y(2l=l.O0-X 
IF<N-1I1,1,3 

INITIALIZATION 

3 T=1,00*X 

00 4 I>2.N 

4 YII*1»»Y1I1-YII-U*YI1 |-(T«Y( II-YI I-ll l/DFLOATI I 1 

RETURN 
END 



DAP 


10 


DAP 


20 


DAP 


33 


DAP 


40 


DAP 


50 


DAP 


60 


DAP 


TO 


DAP 


80 


OAP 


90 


DAP 


LOO 


OAP 


110 


OAP 


120 


OAP 


130 


VALUESOAP 


1*0 


DAP 


150 


DAP 


160 


OAP 


170 


DAP 


180 


DAP 


190 


OAP 


200 


OAP 


210 


OAP 


220 


OAP 


230 


OAP 


240 


OAP 


250 


DAP 


260 


OAP 


?70 


OAP 


280 


DAP 


290 


OAP 


300 


OAP 


310 


1). DAP 


320 


OAP 


130 


DAP 


340 


OAP 


360 


OAP 


360 






DAP 


380 


OAP 


390 


DAP 


400 


OAP 


410 


DAP 


420 


DAP 


430 


DAP 


440 


OAP 


450 


DAP 


*60 


DAP 


470 


OAP 


480 


OAP 


*90 


DAP 


500 


OAP 


510 


DAP 


520 


OAP 


S30 


OAP 


5*0 


DAP 


550 


OAP 


560 


OAP 


5 TO 


OAP 


580 



with starting values Lo(x) = 1, Lj-(x) = 1 - x. 

An n-term expansion in Laguerre polynomials with 
coefficient vector C = (ci, . . . , Cq) is evaluated by 
means of a forward iteration scheme: 

Y = Cj^, Hq = 1, Hj^ = 1 - X, T = 1 - X 



«2 = «l-«0^«l-<^-«l-«0>/^ 



for i = 2, 

. . .. n 



«0 = «1 

«1=«2 

Y = Y + c. • H„ 
1 



This gives the result Y(x) = ^^ c 

i-1 '' 

Calculation is bypassed in case of a nonpositive 
value of the dimension n. 



i-1 



(X). 



SUBROUTINE LAPS 

PURPOSE 

COMPUTES THE VALUE OF AN N-TERM EXPANSION IN LAGUERRE 
POLYNOMIALS WITH COEFFICIENT VECTOR C FOR ARGUMENT VALUE 

USAGE 

CALL LAPS(Y,X,CtN) 

DESCRIPTION OF PARAMETERS 
Y - RESULT VALUE 
X - ARGUMENT VALUE 
C - COEFFICIENT VECTOR OF GIVEN EXPANSION 

COEFFICIENTS ARE ORDERED FROM LOW TO HIGH 
N - DIMENSION OF COEFFICIENT VECTOR C 

REMARKS 

OPERATION IS BYPASSED IN CASE N LESS THAN 1 



METHOD 

DEFINITION 

Y=SOM(C(I )*LI I-I,X) , SUMMED OVER I FROM 1 TO N). 

EVALUATION IS DONE BY MEANS OF UPMARO RECURSION 

USING THE RECURRENCE EQUATION FOR LAGUERRE POLYNOMIALS 

LIN*l.X» = 2»L(N.X)-L(N-l,XI-( ( 1»X) *L(N.XI-L IN-l .XH /( N+H 



to 

20 
30 



6C 



SUBROUTINE LAPS { Y,X ,C.NI 

DIMENSION C(ll 

TEST OF DIMENSION 
IFINI 1,1,2 

1 RETURN 

2 Y«C(1I 
IFIN-211,3,3 

INITIALIZATION 

3 H0=1. 
Hl"l.-X 
T«1.»X 

DO 4 1 = 2, N 

H2=Hl-H0*Hl-(r*Hl-H0)/FL0AT{| I 
MO'Hl 
Hl»H2 
4 Y»Y+C1 I )«H0 
RETURN 
END 



LAPS 
LAPS 
LAPS 
LAPS 
LAPS 

X. LAPS SO 
LAPS 90 
LAPS 100 
LAPS 119 
LAPS 120 
LAPS 130 
LAPS 1*0 
LAPS L50 
LAPS 160 
LAPS L70 
LAPS IflO 
LAPS 190 
LAPS 200 
LAPS 210 
LAPS 220 
LAP£ 23C 
LAPS 240 
LAPS 250 
LAPS 260 
LAPS 270 
LAPS 280 
LAPS 290 
LAPS 300 
LAPS 310 
LAPS 320 

...LAPS 330 
LAPS 340 
LAPS 350 
LAPS 360 
LAPS 370 
LAPS 393 
LAPS 390 
LAPS *00 
LAPS 410 

LAPS 420 
LAPS 430 
LAPS 4*0 
LAPS 450 
LAPS *60 
LAPS *70 
LAPS 483 
LAPS 490 
LAPS 500 
LAPS 510 
LAPS 520 
LAPS 530 
LAPS 540 
LAPS 550 
LAPS 560 
LAPS 570 
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SUBROUTINE DLAPS 

PURPOSE 

COMPUTES THE VALUE OF AN N-TERH EXPANSION IN LAGUERAE. 
POLYNOniALS MITH CDEFFICtENT VECTOR C FOR ARGUMENT VALUE 

USAGE 

CALL OLAPS(YtX,CtNI 

DESCRIPTION Of PARAMETERS 

Y - RESULT VALUE 

OOUSLE PRECISION VARIABLE 
X - AHGUNENT VALUE 

DOUBLE PRECISION VAAIASLE 
C - COEFFICIENT VECTOR OF GIVEN EXPANSION 

COEFFICIENTS ARE ORDERED FROM LOM TO HIGH 

DOUBLE PRECISION VECTOR 
N - DIMENSION OF COEFFICIENT VECTOR C 

REMARKS 

OPERATION IS BYPASSED IN CASE N LESS THAN 1 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REgUIRED 
NONE 

METHOD 

OEFlNirtON 

V = SUM<C(n*L(I-I.X), SUMMED OVER I FROM I TO N). 
EVALUATION IS DONE BY MEANS OF UPWARD RECURSION 
USING THE (tECURREtCE EQUATION FOR LAGUERRE POLYNOMIALS 
LIN+l,X)"2»HNtXI-L(N-l.XI-l ( I + XI *L(N t X ]-L< N-1 tXl } /I N*l ) . 



SUBROUTINE OLAPSf Y, X,C t Nl 

DIMENSION C(l> 

DOUBLE PRECISION C, V, X tHO, H1,H2. T 

TEST OF DIHENSI3N 
IFINU.l.Z 

1 RETURN 

2 Y«C(H 
IF(N-2) Ii3»3 

INITIALIZATION 

3 H0=1.00 

HI=1.00-X 

T=1.D0*X 
DO 4 I=2*N 

H2-Hl-H0*HI-(T*H1-H0)/DFL0AT( I) 
HO'HI 
Hl"H2 
* Y=Y»C( I l*HO 
RETURN 
END 



20 



70 



DAPS 
..DAPS 

DAPS 
DAPS 
DAPS 
DAPS 
DAPS 
. DAPS 80 
OAPS 90 
OAPS LOO 
DAPS 110 
OAPS 120 
OAPS L33 
OAPS UO 
OAPS ISO 
DAPS 160 
DAPS 170 
DAPS 180 
DAPS 190 
OAPS 200 
OAPS 210 
DAPS 220 
OAPS 230 
DAPS 2«0 
OAPS 250 
OAPS 260 
OAPS 2T0 
OAPS 2B0 
OAPS 290 
OAPS 300 
DAPS 310 
OAPS 320 
DAPS 330 
DAPS 340 
OAPS 3S0 
.DAPS 360 
OAPS 3 TO 
OAPS 3B0 
DAPS 390 
OAPS *00 
OAPS 410 
DAPS 42Q 
DAPS 430 
OAPS 443 
DAPS 450 
DAPS 460 
DAPS 4 70 
DAPS 480 
DAPS 490 
DAPS 500 
OAPS 510 
DAPS 520 
DAPS 530 
DAPS 540 
OAPS 550 
OAPS 560 
OAPS 570 
OAPS 5BD 
DAPS 590 
OAPS 600 



Subroutines TLAP and DTLAP 

These subroutines transform a given series expan- 
sion in Laguerre polynomials to a polynomial. The 
independent variable x of the given expansion is 
thereby substituted by the independent variable z of 
the resultii^ polynomial using the linear transfor- 
mation x = A#z + Borz = (x-B)/A. 

N 

This means: V* C, * L, (A * z + B> 
.^-'^ 11-1^ ' 

1 = 1 



N 



E POL 
i = 1 



i-1 



Calculation is b5rpassed in case of a nonpositive 
value of the dimension N. 

The range (0, c) in x is transformed to the range 
(zj^, Zj.) in z with Z]^ = - B/A and Zj. = (c - B)/A, or 
vice versa, A -= c/(Zj, - z^) and B = - c * zi/(Zr ~ ^l)- 

The Laguerre polynomial Lq(x) satisfies the re- 
currence equation 

L^^^(x)=x/(n+l)- L^(x)+ [^2-l/(n+l)l L^(x) - 

[l - l/(n+l)] L^_^(x) 

with starting values Lq(x) =1, L^ (x) = 1 - x. 

The transformation is performed by means of a 
forward iteration scheme: 

1 . The coefficient vector of the Laguerre poly- 
nomial Li(x) is calculated from, the coefficient 
vectors of Ijx-1(x), Lx-2(x) using the recurrence 
equation, for i = 3 N. 

2. The resultii^ polynomial coefficient vector 
is obtained by summation of Cj times L^_i(x) over i, 
for i = 1, ., ., N. 
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Tt*P 13 

rLAP zo 

TLAP 30 

TLAP *0 

TLAP 53 

PURPOSE TLAP (,0 

A SeRIES EXPANSION IN LAGUERRE POLYNOHEALS wrTH INOE^ENOENT TLAP 70 

VARIABLE K IS TAANSFOftMED TO A POLYNOMIAL WITH MDCPENOENT TLAP 80 

VARIABLE Z, iJHERE K = A*Z*B TLAP 90 

TLAP lOD 
TLAP 110 
TLAP 120 
TLAP 130 

DESCRIPTION OF PARAMETERS TLAP t-iO 

A - FACTSR OF LINEAR TERM IN GIVEN LINEAR TRANSFORHATIONTLAP 153 

B ~ CONSTANT TERM IV GIVEN LINEAR TRANSFORMATION TLAP 160 

POL - COEFFICIENT VECIOH OF POLYNOMIAL (RESULTANT VALUE I TLAP ITO 

COEFFICIENTS ARE ORDERED FROM LOW TO HIGH 
N - DIMENSION OF COEFFICIENT VECTORS POL AND C 

C - CIVEV COEFflCtENT VECTOtl OF EXPANSION 

COEfFlCfENTS ARE OftOERED FR01 LOH TO HIGH 
POL ANO C MAY 8€ IDENTICALLY LOCATED 
- WORKING STORAGE OF OIHENSION 2*N 



SUBROUTINE TLAP 



USAGE 

CALL TLAPIA.B. POL. N.C. WORK) 



UOAK 

REMARKS 

COEFFICIENT VECTOR C REMAINS UNCHANGED IF NOT COINCIOINC 

WITH COeFFICIENT VECTOR POL. 

OPERATION IS BYPASSED IN CASE N LESS THAN I, 



TLAP 180 
TLAP 190 
TLAP ZOO 
TLAP 210 
TLAP ZZO 
TLAP 230 
TLAP 240 
TLAP 250 
TLAP 260 
TLAP 270 
TLAP 260 



THE LINEAR TRANSF0RHATI3N X=A*Z*6 OR Z-ll/AtlX-B) TRANSFORMSTL AP 290 



THE RANGE (0,CI IN X TO THE RANGE (2L.ZR1 IN 2, MHERE 

lL'-6/A ANO 2R«<C-e)/A. 

FOR GIVEN ZL, ZR ANO C WE HAVE A=C/(ZB-2Lt AND 

8=-C*ZL/(ZR-ZL) 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOO 

THE TRAMSFORHATION IS SASEO ON THE RECURRENCE EQUATION 

FOR LA&UERRE POLYNOMIALS LIN.Xl 

L(N*l,K»»2*L(N,K)-L(N-l,X|-{(l*X»*L(N,XI-L(N-l,XH/(N»l), 

WHERE THE FIRST TERM IN BRACKETS IS THE INDEX, 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE LfO.Xl=l. L(l,XI=l-X. 

THE TRANSFORMATION IS IMPLICITLY DEFINED BY MEANS OF 

X=A*i+B TOGETHER WITH 

SUHIPQLC I I*Z**(I-n, SUMMED OVER I FROM 1 TO Nl 

-SUM|C(l)*LII-l.X)t SUMMED OVER I FROM 1 TO Nt. 



SUBROUTINE TLAP I A.6 .POL .N,C ,HORK ) 

DIMENSION POLU).C( 1) tWQRK( I) 

TEST OF DIMENSION 
IF(N-1)2.U3 

DIMENSION LESS THAN 2 

p0Lm"cm 

' RETURN 

i POL(ll=C{ll+CI21-B»CI2l 
POU 2I»-CIZ)*A 
IF<N-2)2,2.4 

INITIALIZATION 
. WOflK(L)=l. 

W0flKt2t»I.DO-B 
M0RKO)=0. 
MaftKI4)=-A 
Fl = l, 

CALCULATE COEFFICIENT VECT3R OF NEXT LAGUERRE POLYNOMIAL 
ANO ADD MULTIPLE OF THIS VECTOR TO POLYNOMIAL POL 

DO 6 J=3,N 

FI=FI*1. 

Q-l./FI 

Ol»Q-l. 

C12"U-Q1-B*Q 

Q*Q»A 

P=0. 

00 5 K"2,J 

H=-p*Q+wORK(2*K-2l*Q2+WO«KI2«K-3)*0l 
P=WORKl2*K-2) 
W0RK(2*K-2|=H 
W0RK(2*K-3I«P 
I P0LU-1I»P0L1K-1)+H*C( Jl 
W0RKI2*J-1I-C. 
WaR(C(Z*J)"-0*P 
POL IJ » «CI J I *WORK I 2* J 1 
RETURN 
END 



TLAP J30 
TLAP 310 
TLAP 320 
TLAP 330 
TLAP 340 
TLAP 350 
TLAP 360 
TLAP 370 
TLAP 380 
TLAP 390 
TLAP *00 
TLAP 410 
TLAP 420 
TLAP 430 
TLAP 440 
TLAP 450 
TLAP 460 
TLAP 470 
TLAP 480 
TLAP ^^O 
.TLAP 500 
TLAP 510 
TLAP 520 
TLAP 530 
TLAP 540 
TLAP 550 
TLAP 560 
TLAP 570 
TLAP 580 
TLAP 590 
TLAP 600 
TLAP 610 
TLAP 620 
TLAP 630 
TLAP 640 
TLAP 650 
TLAP 660 
TLAP 670 
TLAP 6B0 
TLAP 690 
TLAP 700 
TLAP 710 
TLAP 720 
TLAP 730 
TLAP T40 
TLAP 750 
TLAP 760 
TLAP 770 
TLAP 780 
TLAP 790 
TLAP 800 
TLAP 8L0 
TLAP 820 
TLAP 830 
TLAP 840 
TLAP 850 
TLAP 860 
TLAP 870 
TLAP 880 
TLAP 890 
TLAP 900 
TLAP 910 
TLAP 920 
TLAP 930 
TLAP 940 



SUBROUTINE DTLAP 



DTLA 10 
DTLA 20 

DTLA 30 

OTL> 40 

OTlA 50 

A SERIES EXPANSION IN LAGUERRE POLYNOMIALS WITH INOEPENOENT OTLA 73 
VARIABLE X IS TRANSFORMED TO A POLYNOHIAL MITH INDEPENDENT OTLA 69 
VARIABLE I, WHERE X>A*Z*S qth 90 

,,_,-, DTLA 103 

"^**'^ DTLA 110 

CALL OTLAPf A. B.POL.N.CMORKI Qj^f^ j^O 

DESCRIPTION OF PARAMETERS ox,^^ j^q 

- FACTOR OF LINEAR TERM IN GIVEN LINEAR TRANSFORMATl ONOTL A 150 
DOUBLE PRECISION VARIABLE DTLA 160 

- CONSTANT TERM IN GIVEN LINEAR TRANSFORMATION DTLA 170 
DOUBLE PRECISION VARIABLE DTLA 180 

- COEFFICIENT VECTOR OF POLYNOMIAL (RESULTANT VALUE) DTLA 190 
COEFFICIENTS ARE ORDERED FROM tOW TO HISH 
DOUBLE PRECISION VECTOR 

- DIMENSION OF COEFFICIENT VECTORS POL ANO C 

- GIVEN COEFFICIENT VECTOR 3F EXPANSION 
COEFFICIENTS ARE ORDERED FROM lOW TO HIGH 
POL ANO C MAY BE IDENTICALLY LOCATED 
DOUBLE PRECISION VECTOR 

- WORKING STORAGE OF DIMENSION 2*N 
DOUBLE PRECISION ARRAY 



POL 



WORK 



REMARKS 

COEFFICIENT VECTOR C RENAINS UNCHANGED IF NOT COINCIDING 

WITH COEFFICIENT VECTOR POL. 

OPERATION IS BYPASSED IN CASE N LESS THAN 1. 



DTLA 200 
OTLA 2t0 
DTLA 220 
OTLA 230 
DTLA 240 
OTLA 250 
DTLA 260 
OTlA 270 
OTLA 280 
DTLA 290 
OTLA 300 
OTLA 310 
DTLA 323 
OTLA 330 



THE LINEAR TRANSFORMATION K>A*Z*B OR Z>(l/AnX-B) TRANSFORMSOTLA 340 

THE RANGE (O.C) IN X TO THE RANGE IZL.ZR) IN Z, WHERE 

ZL— B/A AND ZR-(C-6I/A. 

FOR GIVEN ZL, ZR ANO C WE HAVE A=C/(ZR-ZL) AND 

B=-C*ZL/IZR-ZLI 



SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

THE TRANSFORSATION IS BASED ON THE RECURRENCE EQUATION 

FOR LAGUERRE POLYNOMIALS LlN,X) 

LtN4^L.Xl=:2*L(N.X)-LIN-l.XI-(<l*^X1*L(NtX}-L(N-l,X))/<N*-l}, 

WHERE THE FIRST TEAM IN BRACKETS IS THE INDEX. 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE L(0,X)=L, LIL,X)=t-X. 

THE TRANSFORMATION IS IMPLICITLY DEFINED BY MEANS OF 

X=A*Z*8 TOGETHER WITH 

SUM{PaL(n*Z**(l-LI. SUMMED OVER I FROM 1 TO Nl 

-SUM(C( I l*LlI-ltX) . SUMMED OVER I FROM 1 TO Nl. 



SUBROUTINE OTL API A, BtPOLiN, C. WORK I 

OIHENSION POLUI.CUI.WORKd) 

DOUBLE PRECISION A. B,POL*C,WORK«H,P, 0,31,02, FI 

TEST OF OIHENSION 
IFIN-It2,l,3 

DIMENSION LESS THAN 2 
L P0LI1)-C(1I 
I RETURN 

I P0LI1)-C( lt«^CI2)-B*C(2l 
P0L(2»=-C(2I*A 
IF(N-2I2,2.4 

INITIALIZATION 
t H0RKI1)>L.D0 
H0RK(2)>L.D0-B 

WORKOl-O.DO 

W0RK(4)=-A 

FI-I.DO 

CALCULATE COEFFICIENT VECT3R OF NEXT LAGUERRE POLYNOMIAL 
AND ADO MULTIPLE OF THIS VECTOR TO P0LYN0H1AL POL 

DO 6 J>3.N 

FI-FI*1.00 

Q-l.DO/FI 

OtsQ-l.DO 

Q2-l.00-Ql-fl*Q 

0-Q*A 

P=0.00 

DO 5 K-2.J 

H>-P*Q«^H0RK(2*K-2)*02*^W0RK(2«K-3l«Ql 

P»WORK(2*K-2l 

waRK(2*K-2)-H 

WaRKI2*K-31»P 

PDLIK-1 l«POLIK-l)*H*CIJI 

W0RK{2*J-l)-0.00 

W0RK<2*J)=-Q*P 

POL ( J I =C( J t •WORKC 2* J I 

RETURN 

END 



DT'-A 350 
OTLA 363 
DTLA 370 
DTLA 380 
OTLA 390 
OTLA 400 
DTLA 410 
OTLA 420 
DTLA 430 
OTLA 440 
OTLA 450 
OTLA 460 
OTLA 470 
OTLA 480 
DTLA 490 
OTLA 500 
DTLA 510 
DTLA 520 
OTLA 530 
DTLA 540 
..DTLA 550 
OTLA 560 
DTLA 570 
OTLA 590 
OTLA 590 
OTLA 600 
DTLA 610 
OTLA 620 
OTLA 630 
OTLA 640 
DTLA 650 
DTLA 660 
OTLA 670 
OTLA 680 
OTLA 690 
DTLA 700 
DTLA 710 
OTLA 720 
OTLA 730 
DTLA 740 
DTLA 753 
OTLA 769 
OTLA 770 
OTLA 780 
OTLA 790 
DTLA 800 
OTLA SIO 
DTLA 820 
DTLA 830 
OTLA 840 
DTLA 850 
OTLA 860 
DTLA 870 
OTLA S60 
DTLA 893 
OTLA 900 
OTLA 910 
OTLA 920 
OTLA 930 
DTLA 940 
OTLA 950 
OTLA 963 
DTLA 970 
OTLA 980 
DTLA 990 
OTLAIOOO 
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Subroutines LEP and DLEP 

These subroutines compute the values of the 
Legendre polynomials for a given argument x and 
orders zero up to N. The Legendre polynomial 
Pji(x) satisfies the recurrence equation 

P ^^ (X) = ((2n + l) - X . P (x) -n • P (x))/(n+l) 
n+i n n-i 

with starting values Po(x) =1, Pi (x) = x. 

For reasons of economy and numerical stability 
the recurrence equation is used in the form: 



Vi<")="- V)-Vi<'')""- V) 



(X • P^(x) - P^^{x))/(n+l) 



For large values of n the last term is negligible, 
giving the approximation: 



Vl<^>^2.x.P^(x)-P^_^(x) 



This form shows that roundoff errors grow at worst 
linearly, assuming that the argument x is absolutely 
less than one. 

If Cn+r is the error in Pn+r {^} due to a single 
rounding error e in Pn(x), the approximation is 



e ,=2x-e, -e, . 

n+r+1 n+r n+r-1 



with initial conditions e,. 



e, e 



. «n-l 



0. The solution 



of this difference equation has its maximum for 
|x| = 1: 



e ^ = 0, e = e, e 
n-1 n n+1 



= 2 e. ..., le 



n+r 



= (r + l)e 

The order is assumed to be zero for negative 
values of N. 



SUBROUTINE LEP 

PJRPOSE 

COMPUTE THE VALUES OF THE LE&ENOHE POLYNOMIALS P(N.. 
FOR AftCUMENT VALUE X AND OROEftS UP TO N. 



CALL LEP(V,I,NI 

OeSCRIPTIDN OF PARAMETERS 

Y - RCSUir VECTOR OF DIMENSION U*l CONTAINING THE 

OF tEG£NOR£ POLYNOMIALS OF 3RDER C UP TO N 

FOR CIVEN ARGUMENT X. 

VALUES ARE OROEREO FROM LOW TO HIGH ORDER 
X - ARGUMENT OF LEGENORE POLYNOMIAL 
N - ORDER OF LEGENDRE POLYNOMIAL 

REMARKS 

N LESS THAN IS TREATED AS If N HERE 

SUSROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

EVALUATION !S BASED ON THE RECURRENCE EQUATION F0% 

LEGENDRE POLYNOMIAL^ PCW.X) 

P(N*l,X)"2*X*P(N,X»-P(N-l.XI-(X»*'IN,K)-P<N-l,XM/(N*l 

WHERE THE FIRST TERM IN BRACKETS IS THE ORDER, 

THE SECOND !S THE ARGUMENT. 

STARTING VALUES ARE P(O.X) = U PU.XI=X. 



SUBROUTINE LEP<Y,X.N1 

DIME MS I ON Yd) 

TEST OF ORDER 
V( IJ = I. 
IFINII, 1,2 

RETURN 

Y(2)=X 
IFIN-ll It t ,3 

I 00 * 1=2. N 
G=X»V( I 1 
Y(I*1)=G-Y( I-11*G-(C-Y( 1-1 t I /FLOAT! n 

RETURN 
END 



LEP 


10 






LEP 


30 


LEP 


■*0 


LEP 


■iO 


LEP 


63 


LEP 


TO 


LEP 


93 


LEP 


90 


LEP 


100 


LEP 


llO 


LEP 


120 


LEP 


133 


VALUESLEP 


uo 


LEP 


150 


LEP 


160 


LEP 


170 


LEP 


183 


LEP 


190 


LEP 


POO 


LEP 


2i:i 


LEP 


220 


LEP 


2J0 


LEP 


2*0 


LEP 


f'in 


LEP 


260 


LEP 


270 


LEP 


7B0 


LEP 


290 


LEP 


300 


LEP 


113 


LEP 


320 


LEP 


330 


LEP 


5*0 






LEP 


3b0 


LEP 


370 


LEP 


380 


LEP 


390 


LEP 


400 


LEP 


<tl3 


LEP 


AZO 


LEP 


430 


LEP 


■*40 


LEP 


*53 


LEP 


460 


LEP 


*70 


LEP 


*ao 


LEP 


*<J0 


LEP 


500 


LEP 


■in 


LEP 


520 


LEP 


530 



SUBROUTINE DLEP 

PURPOSE 

COMPUTE THE VALUES OF THE LEGENDRE POLYNOMIALS PIN.X) 
FOR ARGUMENT VALUE X AND ORDERS UP TO N. 

USAGE 

CALL DLEP(Y,X,N) 

DESCRIPTION OF PARAMETERS 

Y - RESULT VECTOR OF DIMENSION N»l CONTAINING THE 

OF LEGENDRE POLYNOMIALS OF ORDER UP TO N 

FOR GIVEN ARGUMENT X. 

DOUBLE PRECISION VECTOR. 

VALUES ARE OROEREO FROM LOW TO HIGH ORDER 
X - ARGUMENT OF LEGENDRE POLYNOMIAL 

DOUBLE PRECISION VARIABLE. 
N - ORDER OF LEGENDRE POLYNOMIAL 

REMARKS 

N LESS THAN IS TREATED AS IF N WERE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

EVALUATION IS BASED ON THE RECURRENCE EQUATION FOR 

LEGENORE POLYNOMIALS ^l^ltXt 

P(N*l,XI=2*X«P<NfXI-P(N-l, XJ-IX*PIN,X|-P(N-1,XI1/IN*1 I 

MHERE THE FIRST TERM IN BRACKETS IS THE ORDER. 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE P(0.X):l. PlliX)-X. 



SUBROUTINE OLEP(Y,X,Nt 

DIMENSION Y( 1) 

DOUBLE PRECISION Y.X.G 

TEST OF ORDER 
Y C 1 1 = I . 00 
IF(N1 1.1.2 
RETURN 



IF(N-1I 1, 1,3 

I 00 * l32,N 
G"X*Y( I I 

Y{I#1>=G-Yn-1I*G-(G-Y( I-in/DFLOATU) 
RETURN 
END 



OEP 


10 






OEP 


33 


OEP 


*0 


OEP 


SO 


DEP 


6C 


OEP 


ro 


DEP 


90 


OEP 


90 


OEP 


103 


DEP 


113 


DEP 


1?0 


DEP 


130 


VALUESOEP 


140 


OEP 


150 


DEP 


160 


OEP 


170 


OEP 


180 


OEP 


190 


OEP 


203 


DEP 


210 


OEP 


??0 


DEP 


Z30 


DEP 


240 


OEP 


750 


OEP 


260 


OEP 


2 70 


OEP 


280 


OEP 


290 


DEP 


300 


DEP 


310 


OEP 


320 


DEP 


330 


DEP 


340 


OEP 


350 


DEP 


360 


DEP 


370 


DEP 


380 


OEP 


390 


OEP 


«f00 


DEP 


*10 


DEP 


420 


OEP 


*30 


DEP 


«.40 


DEP 


450 


DEP 


*6D 


OEP 


470 


OEP 


490 


OEP 


490 


OEP 


500 


DEP 


5 10 


DEP 


520 


OEP 


530 


OEP 


540 


OEP 


550 


DEP 


560 
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Subroutines LEPS and DLEPS 

These subroutines compute the value of a series 
expansion in Legendre polynomials. The^Legendre 
polynomial Pn(x) satisfies the recurrence equation 



P ^ fx) = 2 X ■ P (X) - P rx) - (X . P (X) 

n+1 n n-1 n 



- Pjj_i(x))/(n+l) 

with starting values Po(x) = 1, Pi(x) =x. 

An n-term expansion in Legendre pol3momials 
with coefficient vector C = (cj^, . . . , Cn) is evaluated 
by means of a forward iteration scheme: 



Y = c^, H^=l. H^=x 



H2=x.H^ 



«2 = «2 - ^^0 " «2 - («2 - «0)/^ 



«0 = «1 



for i = 2, . . . , n 



SUBROJTINE LEPS 

PURPOSE 

COMPUTES THE VALUE OF A^ N-TERH EXPANSION IN LEG&NORE 
POLYNOMIALS rflTH COEf=FICIENT VECTOR C FOR KRGUHENT ViLUE 

USAGE 

CALL LEPSfV.XrC.NI 

DESCRIPTION OF PARAMETERS 
V - RESULr VALUE 

X - ARGUMENT VALUE 

C - COEFFICIENT VECTOR OF GIVEN EXPANSION 

COEFFICIENTS AAE ORDERED FROM LOW TO HIGH 
N - DIMENSION OF COEFFICIENT VECTOR C 



REMARKS 

OPERAriON IS arPASSED IN CASE 



LESS THAN I 



SUSROUTINES AND FUNCTION SUBPftOGRA'IS REQUIRED 
NONE 

METHOD 

DEFINITION 

V=SUM(C( 1 )«PI I-L.X) , SUMMED OVER I FROM 1 TO Nl. 

EVALUATION IS ODNE BY MEANS OF UPWARD RECURSION 

USING THE RECURRENCE EQUATION FOR LEGENDRE POLYNOMIALS 

P(N+l,X> = 2»X*P(N,KI-P(N-l, XI-(X*P(N,X»-P(N-1.XI t/(N4-ll. 



SUBROUTINE LEPS ( Y .K ,C. N I 

DIMENSION CI II 

TEST OF DIMENSIDN 
IF|N)t,1.2 
I RETURN 



«1=«2 



INITIALIZATION 
3 HO=l. 



DO 4 1-2, N 

H2=X»H1 

H2=H2-H0*H2-{H2-H0) /FLOAT! II 

HO = Hl 

Hl = H2 
4 Y=Y+C) I )*H0 
RETURN 
END 



LEPS 13 

..LEPS 20 

LEPS J3 

LEPS *0 

LEPS 50 

(.EPS 60 

LEPS 70 

. LEPS ao 

LEPS 90 

LEPS 100 

LEPS MO 

LEPS 120 

LEPS 130 

LEPS U3 

LEPS 150 

LEPS 160 

LEPS 170 
LEPS 190 
LEPS 190 
LEPS 200 
LEPS 210 
LEPS 22^ 
LEPS 230 
LEPS 2*0 
LEPS 250 
LEPS 260 
LfPS 270 
LEPS 280 
LEPS 290 
LEPS 500 
LEPS 310 
LEPS 320 
,.LEPS 330 
LEPS 3*0 
LEPS 350 
LEPS 360 
LEPS 370 
LEPS 380 
LEPS 390 
LEPS 400 
LEPS «10 
LEPS ♦ZO 
LCPS 430 
LEPS 440 
LEPS 453 
LEPS 460 
LEPS 470 
LEPS 480 
LEPS 490 
LEPS 500 
LEPS 510 
LEPS 52D 
LEPS 533 
LEPS 540 
LEPS 550 
LEPS 5bO 
LEPS 570 



Y = Y + c. ■ H 
1 



This gives the result Y(x) = ^ c. • P. (x). 

i=l 



Calculation is bypassed in case of a nonpositive 
value of the dimension N. 



SUBROUTINE DLEPS 

PURPOSE 

COMPUTES THE VALUE OF AN N-TERM EXPANSION IN LEGENDRE 
POLYNOMIALS WITH COEFFICIENT VECTOR C FOR ARGUMENT VALUE 

USAGE 

call olepsiy. x.c.ni 

description of parameters 
y - result value 

double precision variable 
x - argument value 

double precision -variable 
c - coefficient vector of given expansion 

coefftcients are ordered from low to high 

double precision vector 
n - dimension of coefficient vector c 

remarxs 

operation is bypassed in case n less than i 



METHOD 

DEFINITION 

Y»SUM1C(I t»P(I-I,K), SUMMED OVER I FROM I TO Nl. 

EVALUATION IS DONE BY MEANS OF UPWARD RECURSION 

USING THe RECURRENCE EQUATION FOR LEGENDRE POLYNOMIALS 

P(N*l,X)=2*X*P(N,X)-P(N-|,Xl-IX*PfN,X)-P(N-I»Xl l/tN«lt. 



SuaROUTlNE OLEPSI Y. X.CtN) 



DIMENSION C<n 

DOUBLE PRECISION C t Y , K ,HC t Hl,H2 



c 


1 


TEST Of DIMENSION 
IFINIlf 1.2 
RETURN 


f. 








2 


Y-C( 11 
IFIN-2I 1,3,3 


C 






c 




imruLiZiTiou 




3 


HP=1.00 

H1 = X 


c 




00 4 1=2. N 

H2=K«Hl 

H2=H2-HO*HZ-(H2-HO)/OFLOAT( II 
H0=H1 
H|=H2 




4 


Y=Y*CIII*HO 

RETURN 

END 



OEPS 10 
..D6PS 20 
DEPS 30 
DEPS 40 
DEPS 50 
DEPS 60 
DEPS TO 
:. OEPS 80 
DEPS 93 
OEPS 100 
OEPS 110 
DEPS 120 
OEPS 130 
DEPS 140 
DEPS 150 
DEPS 160 
DEPS 170 

OEPS lao 

DEPS 190 
DEPS 200 
DEPS 210 
OEPS 220 

OEPS 230 
OEPS 240 
DFPS 253 
DEPS 260 
DEPS 270 
DEPS 280 
DEPS 290 
OEPS 300 
DEPS 310 
DEPS 320 
OEPS 330 
OEPS 340 
OEPS 353 
..OEPS 360 
OEPS 3T0 
OEPS 3B0 
OEPS 390 
OEPS 400 
DEPS 410 
OEPS 420 
DEPS 430 
DEPS 443 
DEPS 450 
DEPS 460 
OEPS 470 
DFPS *S0 
0£P5 ♦^O 

DEPS 500 
OEPS 510 
OEPS 520 
DEPS 530 
DEPS 540 
OEPS 550 
DEPS 560 
DEPS 5 70 
DEPS 583 
DEPS 590 
OEPS 600 
OEPS 610 
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Subroutines TLEP and DTLEP 

These subroutines transform a given series expan- 
sion in Legendre polynomials to a polynomial. The 
independent variable x of the given expansion is 
thereby substituted by the independent variable z. of 
the resulting polynomial using the linear transfor- 
mation x = A«z + Borz = (x- B)/A. 

N 

This means: V C*P (A«z + By 
. ■^-'^ 1 i-1 
1 = 1 



N 



i-1 



y^ POL. ♦ z 
i=l 



Calculation is bypassed in case of a nonpositive 
value of the dimension N. 

The range (-1, +1) in x is transformed to the 
range (zi, zr) in z with zi = - (1 + B)/A and Zj. = 
(1 - B)/A, or vice versa, A = 2/(zr - ziJ and 
B = - (zj. + zi)/(Zi. - zi). 

The Legendre polynomial P^M satisfies the 
recurrence equation 

Vl^""^ =x[2-l/(n+l)] P^(x) - [l-l/(n+l)] 



n-1 



with starting values Po(x) = 1, Pl(x) =x. 

The transformation is performed by means of a 
forward iteration scheme: 

1. The coefficient vector of the Legendre poly- 
nomial Pi(x) is calculated from the coefficient 
vectors of Pi-i(x), Pi_2(x) using the recurrence 
equation, for i = 3, . . . , N. 

2. The resulting polynomial coefficient vector 
is obtained by summation of ci times coefficient 
vector of Pi-i(x) over i, for i = 1, . . . , N. 



TLEP 10 

TL£f 20 

TLEP SO 
TLEP tfO 
TltP 50 

PURPOSE TLEP 50 

* SERIES EXPANSION IN LEGENORE POLVNOHIALS WITH IMOEPENOENT TLEP 70 
VARIABLE K IS TRANSFORMED TO A POLYNOHIAL WITH INOEPENOfNT TLEP 80 
VARIABLE Z, HHERE X«A*Z*-e TLEP 90 

TLEP 100 
TLEP 110 
TLEP 120 
TLEP 130 

DESCRIPTION OF PARAMETERS TLEP 140 

A - PACTOH Of LINEAR TERM IN GIVEN LINEAR TRANSf ORHATl DNTLEP ISO 
B - CONSTANT TERM IN GIVEN LINEAR TRAMSFORHATION TLEP UO 

- COEFFICIENT VECTOR OF POLYNOMIAL IRESULTANT VALUEI TLEP ITO 
COEFFICIENTS ARE ORDERED FROM LOW TO HIGH 

- OIMENSION OF COEFFICIENT VECTORS POL AND C 

- GlVe^l COEFFICIENT VECTOR OF EXPANSION 
COEFFICIENTS ARE OROERED FROM LOU TO HIGH 
POL AND C HAY BE IDENTICALLY LOCArCO 

- MORKIMG STORAGE OF DIMENSION Z*H 



SUBROUTINE TLEP 



USAGE 

CALL TLEP(A.B.P0L,N.C.W3RKI 



POL 



WORK 



TLEP L80 
TLEP 190 
TLEP 200 
TLEP 210 
TLEP 220 
TLEP 233 
TLEP 2*0 
TLEP 250 
TLEP 260 
TLEP 2T0 
TLEP 280 



REMARKS 

COEFFICIENT VECTOR C REMAINS UNCHANSEO IF NOT COINCIDING 
UITH COEFFICIENT VECTOR POL. 

OPERATION IS BYPASSED IS CASE N LESS THAN I. 

THE LINEAR TR ANSF0RMATI]<4 X>A*Z*S OR Z-(1/A}(X-«| TRANSFORMSTLEP 293 
THE RANGE (-l.»l) IN X TO THE RANGE I2L,2RI IN 2, HHERE TLEP 300 

ZL"-|M6I/A AND 2R = I1-BI/A. TLEP 310 

FOR GIVEN 2L, Z« WE HAVE ^'^/^lR-^Lt AND B— ( ZR+ZL I /I ZR-ZL I TLEP 320 

TLEP 330 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 



METHOD 

THE TRANSFORMATION IS BASED ON THE RECURRENCE EQUATION 

FOR LEGENORE POLYNOMIALS PIN, XI 

P1N*1,XI=2*X»PIN.XJ-P<N-1, K)-(X*P|N,X|-P(N-I.XI l/(N*lt, 

WHERE THE FIRST TERM IN BRACKETS IS THE INDEX. 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE PI0*X]=1, P<ltX}>X. 

THE TRANSFORMATION IS IMPLICITLY OEFINEO BY MEANS OF 

X=A»Z*8 TOGETHER WITH 

SUMfPOLI I l*Z**l l-ll t SUMMED OVER I FROM I TO Nl 

= $UMIC(I l*Pn -I,X), SUMMED OVER I FROM I TO N». 



SUBROUTINE TLEP) ArB ,POL .NtCi WORK I 
OIMENSION PGLUI,CUl,yQRK( 1) 



OIMENSION LESS THAN 2 

1 POHl) = Cni 

2 RETURN 

3 P0L<lt=C(l)*8*C(2) 
POLI2l=A«C(2I 
IF(N-2»2,2t4 

INI T [ALIZAT ION 
!, W0RK(1)*1. 
W0RK(2I=B 
WORK< 31 =0. 
WORtCf^l =A 
FI«1. 

CALCULATE COEFFICIENT VECTOR OF NEXT LEGENORE POLYNOMIAL 
AND AOO MULTIPLE OF THIS VECTOR TO POLYNOMIAL POL 

DO b J = 3,N 

FI=FI*l. 

0=1./Ft-I. 

01 = 1. -q 

P=0. 

DO 5 K-2,J 

H = {A*P*B*WOHKI2*K-2n*QU0*MORK(2*K-3) 

P=WQ«K( 2*K-2I 

WORKI 2*«C-2)=H 

WORK(2«K-3)=P 

POL(K-l I^POLtK-n*H*C( Jl 

W0RK(2*J-l)-O. 

WDRK(^»J)=A*P«OI 

POL)JI=C( J)*WORK( 2*JI 

RETURN 

END 



TLEP 3*0 
TLEP 350 

TLEP 360 
TLEP 370 
TLEP 380 
TLEP 390 
TLEP *00 
TLEP *10 
TLEP 420 
TLEP *30 
TLEP **0 
TLEP 450 
TLEP 460 
TLEP 470 
TLEP 480 
.. TLEP 490 
TLEP 500 
TLEP 510 
TLEP 520 
TLEP 530 
TLEP 540 
TLEP 550 
TLEP 560 
TLEP 570 
TLEP 580 
TLEP 590 
TLEP 600 
TLEP 610 
TLEP 620 
TLEP 630 
TLEP 640 
TLEP 650 
TLEP 660 
TLEP 670 
TLEP 680 
TLEP 690 
TLEP 7C0 
TLEP 710 
TLEP 720 
TLEP 730 
TLEP 740 
TLEP 750 
TLEP 740 
TLEP 770 
TLEP 780 
TLEP 790 
TLEP BOO 
TLEP 810 
TLEP 820 
TLEP 830 
TLEP 840 
TLEP 850 
TLEP 860 
TLEP 870 
TLEP 880 
TLEP 890 
TLEP 900 
TLEP 910 
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SUSROUriNE oruEP 



one 10 

OTlE 20 

OTLE 30 

OTLE 49 

one 50 

PURPOSE OTLE 60 

A SEfttES EXPANSION IN LEGENORE ^OLVNOHIALS WITH INOEPENOENT OTLE TO 

VARIABLE X IS rRANSfORHEO TO A POLYNOHIAL WITH INOEyPENOENT OTLE B3 

VARIABLE Z. WHERE X*A«2«-B OTLE 90 

DFLE 100 

USAGE OfLE 110 

CALL OrLEPI A.B.POL.N.C.WaRICI OTLE 120 

OTLE 130 

OeSCRIPTION OF PARAMETERS OTLE UO 

A - FACT3R OF LINEAR TERK IN GIVEN LINEAR TRANSFORHATIONOTLE 15C 



DOUBLE PRECISION VARIABLE 

- CONSTANT TERH M GIVEN LINEAR rRANSFORHATION 
D9U6LE PRECISION VARIABLE 

- COEFFICIENT VECTOR OF POLYNOMIAL (RESULTANT VALUE) 
COEFFICIENTS ARE ORDERED FROM LOW Tu HIGH 
DOUBLE PRECISION VECTOR 

- OtNENSION OF COEFFICIENT VECTORS POL AND C 

- GIVE^ COEFFICIENT VECTOR OF EXPANSION 
COEFFICIENTS ARE ORDERED FR3f4 LOW TO HIGH 
POL AND C MAY BE IDENTICALLY LOCATED 
DOUBLE PRECISION VECTOR 

- UORKING STORAGE OF DIMENSION 2*N 
OOUSLE PRECISION ARRAY 



OTLE 160 
DTLE ITO 
OTLE ISO 
OTLE 190 
DTLE 200 
OTLE 210 
OTLE 220 
DTLE 230 
OTLE 2*0 
DTLE 2» 
DTLE 260 
DTLE 2T0 
OTLE 280 
OTLE 290 
OTLE 330 
DTLE 310 
DTLE 320 
OTLE 330 



REMARKS 

COEFFICIENT VECTOR C REMAINS UNCHANSEO IF NOT COINCIDING 
WITH COEFFICIENT VECTOR POL. 

OPERATION IS BYPASSED IN CASE N LESS THAN 1. 
THE LINEAR TRANSF0RNATI3N X*A*2te OR /«U/AHX-6) TRANSFORMSOTLE 3*0 
THE RANGE <-lt*^ll IN X TO THE RANGE (ZLtZR> IN 2, WHERE OTLE 350 

2L--(l*fl)/A AND 2R-II-BI/A. OTLE 360 

FOR GIVEN 2L, IR ME HAVE A»2/1ZR-ZLI AND B«-(ZR*2L )/l2R-2LI OTLE 370 

DTLE 380 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 



METHOD 

THE TRANSFORMATION IS BASED ON THE RECURRENCE EQUATION 

FOR LEGENORE POLYNOMIALS PIN, XI 

P(N+l.Xl-2*X*P(N,Xl-P(N-l,X»-(X*P(N,X)-P(N-l,K)l/<N»n, 

WHERE THE. FIRST TERM IN BRACKETS IS THE INDEX, 

THE SECOND IS THE ARGUMENT. 

STARTING VALUES ARE P(0,XI>1, PIl.XI-X. 

THE TRANSFORMATION IS IMPLICITLY DEFINED BY MEANS OF 

K'A^Z+S TOGETHER WITH 

SUNIPOLl I)*Z**(I-U, SUMMED OVER 1 FROM L TO N> 

= SUH(CIII*PU-I.X>f SUMMED OVER I FROM I TO Nl. 



SUBROUTINE OrLEP<A« B. POL . N, C* WORK) 

DIMENSION POLlll.Cin.WORKin 

DOUBLE PRECISION A. B,POL>C tWORK ,H, P.Q,Q l.F I 

TEST OF DIMENSI3N 
IF(N-1I2.1.3 

DIMENSION LESS THAN 2 
I P0L(1>-C( 1) 
! RETURN 

I P0Lni-Clll*B»C(2t 
POL(2l-A«C(2) 
IF(N-2l2t2.4 

INITIALIZATION 
. WORK(LI<^1.00 
H0RK(2)*B 
WORK! 31 >0. 00 
U0RK(4)>A 
Fl-l.DO 

CALCULATE COEFFICIENT VECTOR OF NEXT LEGENORE POLYNOMIAL 
AND AOO MULTIPLE OF THIS VECTOR TO POLYNOMIAL POL 

00 6 J*^3tN 

F I -F 1*1. DO 

a«l-DO/FI-l.D0 

01-l.DO-Q 

P=O.DO 

DO S K>2,J 

H"(A*P*B*HORK(2*K-2>)*Ql*Q*WORK(2*K-3l 

P*H0RK(2*K-21 

H0RKI2*K-2I*H 

MORK(2*K-3)-P 

P0LlK-l|»POLlK-ll*H*C(Jl 

WORK12*J-1)-0.00 

W0RK(2*JJ«A*P*Q1 

POLUI-C(J)*«ORK(Z»JI 

RETURN 

END 



OTLE 390 
DTLE 400 
OTLE 410 
OTLE 420 
OTLE 430 
OTLE 440 
OTLE 450 
DTLE 46.0 
DTLE 470 
OTLE 480 
OILF 490 
OTLE 500 
DTLE 510 
OTLE 520 
DTLE 530 
..DTLE 540 
OTLE 590 
OTLE 560 
DTLE 570 
OTLE 580 
DTLE 590 
OTLE 600 
DTLE 610 
DTLE 620 
OTLE 630 
DTLE 640 
OTLE 690 
OTLE 660 
DTLE 670 
OTLE 660 
OTLE 690 
OTLE 700 
OTLE 710 
OTLE 720 
OTLE 730 
DTLE 740 
DTLE 750 
OTLE 760 
DTLE 770 
OTLE 780 
OTLE 790 
OTLE 800 
OTLE ata 
OTLE 820 
OTLE 630 
OTLE 840 
OTLE B50 
DTLE B60 
DTLE 870 
DTLE 8B0 
OTLE 890 
OTLE 900 
DTLE 910 
DTLE 920 
DTLE 9 30 
DTLE 940 
DTLE 950 
OTLE 960 
DTLE 970 



Roots of Nonlinear Eqiiatlons 

Subroutines RTWI and DRTWI 

These subroutines refine the initial guess x^ of a 
root of the general nonlinear equation x = f(x). 
Wegstein's iteration scheme is used in order to get 
accelerated convergence in case of a function f (x), 
which has at least continuous first derivative in the 
range in which iteration moves. 

Following Figure 14, set x = y„ = ^^^n^ ^'^^ ^i ~ 

f(Xj). 

Refinement of xi is done by determination of the 
intersection of the linear function y = x and the 
secant through the points (x , y ) and (x , y^), thus 
getting: 



"2=^l'"' 



^-^0 






-1 



and y^ = f(X2) 



The next step is done by starting at (x , y ) and 



setting: 



'^3=^2"'- 



''e-^ 






y3=f(x3) 



y = f(x) 




Figure 14. Wegstein's iterative method 
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It is easily seen that this determines the intersec- 
tion between y = x and the secant through the points 
(XI, yi) and (X2, y2). Therefore Wegstein's itera- 
tion scheme is often called the secant modification 

of the normal iteration scheme x = f(x ). 

i+1 ^ i' 

Repeating these steps, the result is the iteration 
scheme: 



2. xi = xi-i and xj ?^ yi = f(xi). This case is 
possible due to roundoff errors or to a very steep 
slope of the secant. 

For reference see G.N. Lance, Numeric'al 
Methods for High Speed Computers . Uiffe, London, 
1960, pp. 134 - 138. 



X. , =x. + 
i+1 i 



x.-x. 
1 1-1 



"i-i-yi-i 



-1 \(i = 1.2,...) (1) 



yi+i = ^(Vi) 



Each step requires one evaluation of f(x). 

This iterative procedure is terminated if the 
following two conditions are satisfied: 



^ and j ^10 ■ e 



with 



i+1 i 



^i+1 



in case of |x. J > 1 



i+1' 



i+1 il in case of |x. | £ 1, V/gx 



«2=^ 



^+1 - ^i+l 



'^i+l 



X. 



i+1 ^i+1 



in case of |x. i > i 



in case of l^-.-il ^ 1 



and tolerance 6 given by input. 

The procedure described above may not converge 
within a specified number of iteration steps. Rea- 
sons for this behavior, which is indicated by an 
error message may be: 

1. Too few iteration steps are specified. 

2. The initial guess xq is too far away from any 
root. 

3. The tolerance £ is too small with respect to 
roundoff errors. 

4. The root to be determined is of muitipiicity 
greater than one. 

Furthermore, the procedure fails if at any iteration 
step the denominator of equation (1) becomes zero. 
This is also indicated by an error message. This 
failure may have two reasons: 

1. The secant has the slope 1, either exactly or 
due to roundoff errors. In both cases it is probable 
that there is at least one point f in the range in 
which iteration moves with ^'( { ) = 1. 



suenouTiNE htmi 

PURPOSE 

TO SOLVE GENERAL N0W.1NEAA EQUATIONS OF THE FORM X>FCT(X} 
8V MEANS OF UEGSTElH-S ITERATION HETHOO. 

USAGE 

CALL RTUI IX. VAL, FCT.XSr.EPS, (END. lERI 
PARAHCTfR FCT REOUIRES AN EXTERNAL STATEWNT. 

OESCRlPTtON OF PARAMETERS 

- RESULTANT ROOT OF EOUAT[ON X«FCT(XI. 

- RESULTANT VALUE OF X-FCTCX) AT R30T X. 

- NAME OF THE EXTERNAL FUNCTION SUBPROGRAM USED. 

- INPUT VALUE WHICH SPECIFIES THE INITIAL GUESS OF 
THE ROOT X. 

- INPUT VALUE UHICH SPECIFIES THE UPPER BOUND OF THE 
ERROR OF RESULT X, 

- KAXtHUM NUMBER OF ITERATION STEPS SPECIFIED. 

- RESULTANT ERROR PARAMETER COOEO AS FOLLOWS 
IEK-0 - NO ERRORt 

lER-l - NO COUVERGENCE AFTER lENO ITERATION STEPS 
lER-2 - AT ANV ITERATION STEP THE DENOMINATOR OF 

ITERATION FORMULA HAS EQUAL TO ZERO. 



10 



40 



TO 



90 
100 



VAL 
FCT 
XST 

EPS 

lENO 
lER 



REMARKS 

The PROCEDURE IS BYPASSED AND GIVES THE ERROR MESSAGE IER-2 
IF AT ANV ITERATION STEP THE DENOMINATOR OF ITERATION 
FORMULA HAS EQUAL TO 2ER0. THAT MEANS THAT THERE IS AT 
LEAST ONE POINT IN THE RANGE IN WHICH ITERATION MOVES WITH 
DERIVATIVE OF FCTCXI EQUAL TO 1. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTIXI MUST BE FURNISHED 
8Y THE USER. 

NETHOO 

SOLUTION OF EQUATION X«FCT(XJ IS DONE BY NEANS OF 

WEGSTEIN-S ITERATION METHOD, WHICH STARTS AT THE INITIAL 

GUESS XST OF A ROOT X. ONE ITERATION STEP REQUIRES ONE 

EVALUATION OF FCTIXI. F3R TEST ON SATISFACTORY ACCURACY SEE 

FORMULAE 121 OF MATHEMATICAL DESCRIPTION. 

FOR REFERENCE* SEE 

111 G. N. LANCE. NUMERICAL METHODS FOR HlfiH SPEED COMPUTERSi 

ILIFFE, LONDON, 1460* PP. 134-138, 
(2) J. WEGSTEIN, ALGORITHM 2» CACH, V0L.3f [SS.2 (19601, 

PP.74. 
131 H.C. THACHER* ALGORITHM IS, CACN, VOL.3, ISS.8 119601, 

PP.4T5, 
141 J.G. HERRIDT, ALGORITHM 26. CACM, VOL.3, ISS.Ll (19601, 

PP.603. 



SUBROUTINE RTHM X«V AL.FCT, XST.EPSt lENO* lER) 



PREPARE ITERATION 

IER-0 

rOL-XST 

X«FCT(TOLI 

A-X-XST 

e"-A 

TOL-X 
VAL*X-FCT(TOLI 



START ITERATION LOOP 
00 6 I-l.IENO 
IFIVALI i,r.i 

EQUATION IS NOT SATISFIED BY X 
L e-B/VAL-1. 
IFfB)2.8.2 

ITERATION IS POSSIBLE 

X-X'tA 
B*VAL 
TOL-X 
VAL'X-FCTITOLI 

TEST ON SATISFACTORY ACCURACY 
TOL-EPS 
0>AaS(XI 
IFfO-1. 14,4,3 
TOL«TaL*0 

IflABSt Al-TaLI5*S,6 
. IF(ABS(VAL)-tO.«rOL)7,T,6 
CONTINUE 
END OF ITERATION LOOP 



NO CONVERGENCE AFTER lEND ITERATION STEPS. ERROR RETURN. 
' RETURN 

ERROR RETURN IN CASE OF ZERO DIVISOR 

IER-2 

RETURN 

END 



RTHI 
.RTWI 
RTWI 
RTWI 
RTHI 
RTHI 
RTWI 
RTHI 
RTHI 
RTW 

RTHI 110 
RTHI 120 
RTWI 130 
RTHI 140 
RTHI ISO 
RTHI 140 
RTHI 170 
RTHI 180 
RTHI 190 
RTWI 290 
RTWI 210 
RTWI 220 
RTWI 230 
RTHI 240 
.RTHI 250 
RTHI 2&0 
RTHI 270 
RTWI 280 
RTWI 290 
RTWI 330 
RTHI 310 
RTHI 320 
RTHI 330 
RTWI 340 
RTHI 350 
RTHI 340 
RTHI 370 
RTHI 380 
RTHI 390 
RTWI 400 
RTHI 410 
RTHI 420 
RTHI 430 
RTHI 440 
RTHI 450 
RTHI 460 
RTHI 470 
RTWI 480 
RTWI 490 
RTWI SOO 
RTHI 510 
RTHI 520 
RTWI «30 
RTWI 549 
RTHI 550 
..RTWI 540 
RTWI 570 
RTHI 580 
RTWI 590 
RTWI 600 
RTWI 610 
RTWI 620 
RTHI 630 
RTWI 640 
RTWI 650 
RTWI 660 
RTWI 670 
RTWI 680 
RTHI 690 
RTWI. TOO 
RTWI TlO 
RTHI T20 
RTHI 730 
RTWI 740 
RTWI 750 
RTHI 760 
RTWI 770 
RTWI 780 
RTWI 790 
RTHI BOO 
RTHI 810 
RTHI 829 
RTHI 830 
RTHI 840 
RTWI 850 
RTWI 860 
RTWI 870 
RTHI 880 
RTHI 890 
RTWI 900 
RTHI 910 
RTWI 920 
RTWI 930 
RTWI 940 
RTWI 950 

m m 

RTWI 910 
ftrwl 9B0 
RTm 910 
RTUIIOOO 
KTUllOll) 
RTHI1320 
«TIII11)30 

«riiil3to 
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suenouTiNE omtwi 

TO $0L« C£NE»AL NONLINEAK EQUATIONS OF THE FORM lt-F^T<KI 
BY «*NS OF MEGSTCIN-S ITERATION METHOD. 

USAGE 

CAtL ORTHI U,VAL.FCT,XST,EPS.1EN0,1ER1 
PARAMETER FCT REQUIRES AN EXTERNAL STAT&HENT. 

DESCRIPTION OF PAAAMCTERS 

X - DOUBLE PRECISION RESULTANT ROOT OF EQUATION 

X-FCT(X>. 

- DOUBLE PRECISIDN RESULTANT VALUE OF X-FCTU) 
AT ROOT X. 

- NAME OF THE EXTERNAL DOU&LE PRECISION FUNCTION 
SUBPROGRAM USED. 

- DOUBLE fRECISION INPUT VALUE MHICH SPECIFIES THE 
INITIAL GUESS OF THE ROOT X. 

• SINGLE PRECISION INPUT VALUE WHICH SPECIFIES THE 
UPPER SOUND OF THE ERROR OF RESULT X. 

- MAXIMUM NUMBER 3F ITERATION STEPS SPECIFIED. 

- RESULTANT ERROR PARAMETER COOED AS FOLLOWS 
IER-0 - NO ERROR* 

|ER«t - NO CONVERGENCE AFTER lEND ITERATION STEPS 

IER*2 - AT ANY ITERATION STEP THE OENDHtHATOR OF 

ITERATION FORMULA HAS EQUAL TO ZERO. 



LO 



30 

♦ 
SO 



BO 



VAL 



FCT 



XST 
EPS 



I END 
lER 



C REMARKS 

C THE PROCEDURE IS BYPASSED AND GIVES THE ERROR MESSAGE ICR-2 

C IF AT ANY ITERATION STEP THE DENOMINATOR OF ITERATION 

C FORMULA HAS EQUAL TO ZERO, THAT BEAMS THAT THERE IS AT 

C LEAST ONE POINT IN THE RANGE IN WHICH ITERATION MOVES WITH 

C DERIVATIVE OF FCTIX) EQUAL TO 1. 

C 

C SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

C THE EXTERNAL D0J8LE PRECISION FUMCTION SUBPROGRAM FCT(X» 

C MUST BE FURNISHED BY THE USER. 

C 

C METHOD 

C SOLUTION OF EQUATION X-FCTIXI IS DONE BY MEANS OF 

C W6GSTEIN-S ITERATION METHOD. WHICH STARTS AT THE INITIAL 

C GUESS XST Of A ROOT X. ONE ITERATION STEP REQUIRES ONE 

C EVALUATION OF FCTfXI, FOR TEST ON SATISFACTORY ACCURACY SEE 

C FORMULAE (21 OF MATHEMATICAL DESCRIPTION. 

C FOR REFERENCE, SEE 

C m G. N. LANCE. NUMERICAL METHODS FOR HISH SPEED COMPUTERS 

C ILIFFE. LONDON, i960. PP. 134-138. 

C (21 J. WEGSTEIN, ALGORITHM 2, CACM« VOL. 3. ISS.2 (H6DI. 

C (3» H.C. THACHCR. ALGORITHM 15, CACM. VOL.3, ISS.B 11«0>, 
C PP.*T5, 

C (4» J.G, HERRIOT, ALGORITHM 26, CACM, VOL.3. ISS.Il (19601, 
C PP.601. 



SUBROUTINE DRTWMX, VAL.FCT, XST,EPS,IENO,IER) 



DOUBLE PRECISION X, VAL,FCT,KST. A, B, D, TOL 

PREPARE ITERATION 

IER>0 

TOL>XST 

X-FCTITOLl 

A-X-XST 

B— A 

TOL-X 

VAL-X-FCTITOLI 



START ITERATION L03P 
DO 6 I-1,IEN0 
IFIVAlll.r.t 

EQUATION IS NOT SATISFIED BY X 

1 B-B/VAL-l.OO 
|F(BI2.B,2 

ITERATION IS POSSIBLE 

2 A-A/S 
X-X+A 

B-VAL 
TOL-X 
VAL-X-FCT(TOLl 

TEST ON SATISFACTORY ACCURACY 

T(H.-EPS 

0>OABSIXl 

|F(0-1. 0014*6,9 

3 TOL" TOL •O 

6 IF(0ABS(At-T0L)9,9,6 

5 IFt0ABS(VALl-1.01*T0tl7,7,6 

6 CONTINUE 

END OF ITERATION LOOP 



NO CONVERGENCE AFTER I END 
IER«1 
r RETURN 

ERROR RETURN IN CASE OF lERO DIVISOR 
! IER-2 
RETURN 
END 



ITERATION STEPS. ERROR RETURN. 



DRTW 

,DRTW 
DRTH 
ORTW 
DRTH 
DRTH 
DRTH 
DRTU 
DRTW 
ORTW 100 
DRTH ilO 
DRTH LZO 
ORTW ISO 
DRTW 1*0 
ORTM 150 
DRTU 160 
DRTW 170 
DRTH ISO 
DRTW 190 
DRTH 200 
ORTW 2t0 
DRTH 220 
DRTH 230 
DRTH 240 
DRTH 250 
DRTH 260 
DRTW 2T0 

,DRTH 210 
DRTW 290 
DRTW 300 
DRTH 310 
DRTH 320 
DRTH 330 
DRTH 340 
DRTW 390 
DRTW 360 
DRTW 370 
DRTH 360 
DRTU 390 
DRTW 400 
ORTU 610 
DRTH 420 
DRTH 430 
DRTH 440 
DRTU 450 
DRTH 460 
ORTW 470 
DRTH 4a0 
DRTU 490 

.DRTW SOO 
DRTH 910 
ORTW S20 
ORTH 530 
DRTH 540 
DRTH 990 
DRTH 560 
DRTH 970 
ORTW 580 
ORTW 590 
DRTU 600 
DRTH 610 
DRTH 620 
DRTH 630 
ORTH 640 
DRTH 650 
ORTH 660 
ORTH 679 
DftTH 6S0 
DRTU 690 
DRTH 700 
ORTU 710 
DRTH 720 
DRTH 730 
DRTH 740 
DRTH 790 
ORTH 760 
DRTH 770 
ORTU 780 
ORTH 790 
DRTU 800 
ORTU 610 
ORTM 120 
DRTU 630 
DRTH B40 
ORTU BSD 
ORTU 860 
DRTH 8T0 
ORTH BBO 
ORTH 890 
DRTH 900 
ORTH 910 
DRTW 920 
ORTH 930 
DRTH 940 
ORTU 990 
ORTH 960 
DRTH 970 
ORTU 980 
DRTW 990 
DRTHIOOO 
DRTHtOIO 
ORTH 10 20 
DRTHI0 30 
ORTH1040 
ORTH1090 
ORTUL060 
ORTHIOTO 
ORTH 1080 
ORTHI 090 



Subroutines RTMI and DRTMI 

These subroutines determine a root of the general 
nonlinear equation f(x) = in the range of x from 
xli up to xri (xli, xri given by injnit) by means of 
Mueller's iteration scheme of successive bisection 
and inverse parabolic interpolation. The procedure 
assumes f(xii) . f(Xj-i) < 0. 

Starting with xi = xn and x^ = Xj-i and following 
Fig. 15, one iteration step is described. 

First, the middle of the interval x, . . .Xj. is 
computed: 

^ (X, +xj. 



m 



1 



In case t(x^) . f(x^) < 0, x^ and x^ are interchanged 
to ensure that i(K^) ■ f(Xr> > 0. 



In case 

Xj. is replaced by x^^ and the bisection step is re- 
peated. If, after a specified number of successive 
bisections, inequality (1) is still satisfied, the 
procedure is bypassed and an error message is 
given. 

In Fig. 15, the second bisection step leads to a 
configuration which does not satisfy inequality (1). 
Thus by inverse parabolic interpolation: 

X -X, 
m 1 



^''-^(^l) f(x )-f(x,) 
^ m' ^ I 



1 + f (X ) 
^ m 



f (x^) - 2 f(x J+f(Xj) , 

[f(x^)-f(x^)] Lf(V^<''l^^' 
and X = X - Ax 

and X is sure to be situated between x, and x^. 



/ inverse quodraHc 
/ parabola 



(2) 



f<x ){2. step) '^ 



f(x_.){4.step) 



y = f(x) 



f(x,) ^ 




Figure 15. Mueller's Iterative method 
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Now, for the next iteration step, x becomes Xj 
and XjQ becomes x^ if f(x) • f(xj) > 0, or x becomes 
xr if f(x) •f(Xj)< 0. 

■ Convergence is either quadratic or linear if the 
multiplicity of the root to be determined is equal to 
one or greater than one respectively, and if f(x) can 
be differentiated continuously at least twice in the 
range x^^ - . . x^^. Each iteration step requires two 
evaluations of f(x). 

This iterative procedure is terminated if either 
the two conditions (checked in bisection loop) 



and 



|x^ - Xji < e.max (1, \xj ) 
|f(xp - f(x )l< 100 -e 



(3) 



or the two conditions (checked after inverse para- 
bolic interpolation) 



and 



Axl < e . max (1, |x| ) 

< ,„. c- ( (4) 



If (x)l 



100 •£ 



are satisfied, where tolerance e is given by input. 

The procedure described above may not converge 
within a specified number of iteration steps followed 
by the same number of successive bisections. Rea- 
sons for this behaviour, which is indicated by an 
error naessage, may be: 

1. Too few iteration steps are specified. 

2. The initial interval xn-- x^j is too long. 

3. The tolerance e is too small with respect to 
roundoff errors . 

Furthermore, the procedure is bypassed, also 
giving an error message, if the basic assumption 
f(x^) . f(Xj.j) <0 is not satisfied. 

For reference see G. K. Kristiansen, "Zero of 
Arbitrary Function", BIT, vol. 3 (1963), pp, 205- 
206. 



SUSROUTINE ftTNl 

PMPOSe 

ro SOL« GEN6KAL WNLlHCAII EQUAriONS OF THE FOTN FCTCXI 
BV MEANS OF NUELLEK-S ITEKATION NCTHOO. 

USAGE 

CALL ftTNI U.F.FCT.XLt.Xltl.EPS.IEND.IEKI 
l>AMMErCK FCr REOUlRES AN EXTEftNAL STATEMENT. 



RTNt 

.KTMI 
ATM I 
RTHI 

Arm 

RTMI 
RTHI 



TO 
«t) 



RTHf 

RTHI 100 

RTHt 110 

RTMI 120 

RTMI IJO 

RTMl lO 

RTMI 150 

RTMI 160 

RTMI 170 



OESCRIRTION OF PARAMETERS 

I - RESULTANT ROOT OF EQUATION FCT(Kt-0. 

F - RESULTANT FUNCTION VALUE AT ROOT «. 

FCT - NAME OF THE EXTERNAL FUNCTION SUBRROGRAM USED. 

XII - INFUT VALUE MHICH SPECIFIES THE INITIAL LEFT eOUMO RTMI 183 

OF rue AooT X. rtmi im 

IRI - INPUT VALUE MHICN SRECIFICS THE INITIAL AIGHT SOUNORfHI 200 

OF rw ROOT X. njm ^iq 

€FS - INCUT VALUE WHICH SPECIFIES THE UPFER ROUND OF THE AFMI 2Z0 

ERROR OF RESULT I. 
lENO - MAXIMUM MUN0ER 3F ITERATION STERS SP£CtFieO 
rCR - RESULTAWr ERROR RARAMETER COOEO AS FOLLOWS 
"■■-" NO ERROR, 

NO COIVERGEMCE AFTER lENO ITERATION STEPS RTMI 2fD 



IER-0 
lEN-t 



FOLLOWED RT lENO StKCESSIVE STEPS OF 
BISECTION, 
lER-Z - BASIC ASSUMPTION FCT! XLI l«FCTIXRI I LESS 
THAN 3R EQUAL TO ZERO IS MOT SATISFIED. 
MARKS 

IIl^-«°Sf?"" RSSOMES THAT FUNCTION VALUES AT INITIAL 
BOUNDS XLI ANO XRI HAVE NOT THE SAME SIGN. IF THIS BASIC 
ASSUMRFION IS NOT SRTISFIEO .V INPUT viCois XLI ANO xi!^ 



PROCEDURE IS BVPASSEO H^O CIvES THE ERROR MESSAGE IEft*2. 

FUNCTION SUBPROCKAMS REQUIRfO 

FUNCTION SUBPROGRAM FCT(Xl MUST BE FURNISHED 



SUBROUTINES AND 
THE EXTERNAL 
BY THE USER. 

METHOD 

SOLUTION OF E 
ITERATION MET 
PARABOLIC INT 
XLI ANO XRI 
FCT(X» AT ROa 
REQUIRES TMQ 
ACCURACY SEE 
FOR REFERENCE 
FUNCTIONt BIT 



RTMI 3T0 
RTMI }eo 
RTMI 390 
RTMI 400 
RTNl 419 
RTHI t,za 

QUATION FCTIX)"0 IS DONE Br MEANS OF MUELLER-S RTMI *40 
HOO OF SUCCESSIVE BISECTIONS ANO INVERSE RTMI *50 
ERPOIATION, WHICH STARTS AT THE INITIAL BOUNDS RTMI *60 
CONVERGENCE IS QUADRATIC IF THE DERIVATIVE Of RTHI *73 
T X IS NOT EQUAL TO ZERO. ONE ITERATION STEP RTMI *e0 
EVALURTIONS OF FCTIXl. FOR TEST ON SATI SFACTORYRTMI 490 
FORMULAE |3,4I OF MATHEMATICAL DESCRIPTION. RTHI 500 
SEE G. R. KRISTIANSEN, ZERO OF ARBITRARY RTMI 510 
VOL. 3 (19631, PP,2C5-206. rthI 520 

RTMI 533 



SUBROUTINE RTHI CX,F .FCT , XL I , XRI ,EPS. lEND, lERI 



PREPARE ITERATION 

IER=0 

XL«XLI 

XR=XRI 

X'XL 

TOL«X 

F=FCT{TOLI 

IF|F|l,16,l 

1 FL-F 
XiXR 
TOL»X 
F-FCF(TOL) 
IF<F12,16,2 

2 FR-F 

IFI$|GN(I.,f'Ll*SIG'4< I. .FR) 125,3.25 

BASIC ASSUMPTION FL*FR LESS THAN IS SATISFIED. 
GENERATE TOLERANCE FOR FUNCTION VALUES. 

3 1=0 
TOLF=100.*EPS 



START irERATION L03P 

4 I«l*l 

START BISECTION LOOP 

00 13 K=1,IEN0 

X=.5*(XL*XRI 

TOL"X 

F»FCHTOL» 

IF(F)5, 16,5 

5 IF(S[GNII.,FI«'S IGNI l.,FRI ) 7,6, 7 

INTERCHANGE Xl'AND XR IN ORDER TO GET THE SANE SIGN IN F AND FR 

6 T0L=XL 
XL = XR 
XR=rOL 
rOL=FL 
FL=FR 
FR= TOL 

7 TOL-F-FL 
A=F*TOL 
A = A«-A 
IFIA-FR*(FR-FL J 18,9,9 

fl IF(I-I£N0I17,I7,9 

9 KR = K 
FR»F 

TEST ON SATISFACTORY ACCURACY IN BISECTION LOOP 

TOL*EPS 

A-ABSI XR} 

If( A- 1. J 11, 11, 10 

10 rOL=TOL*A 

11 IF(ABS(XR-XL»-T0LI12,12.13 

12 IP ( ABS( FR-FLt-TOLFl U. 1*, 13 

13 CONTINUE 
ENO OF BISECTION LOOP 

NO CONVERGENCE AFTER (ENO ITERATION STEPS FOLLOWED BY lENO 
SUCCESSIVE STEPS OF BISECTION OR STEADILY INCREASING FUNCTION 
VALUES AT RIGHT 80JN0S. ERROR RETURN. 
IER=1 

14 IFIABSI FR)~ABS(FL I I 16, 16, 15 

15 X=XL 



COMPUTATION OF ITERATED X-VALUE BY INVERSE PARABOLIC INTERPOLATI 
IT A=FR-F 

DK=|X-XLI*FL*(l.tF*(A-TOL)/(A*(FR-FLUl/TOL 

KH-X 
FM = F 
X=XL-OX 
TOL'X 

F=Fcr(roLi 
iF(F)i8a6,ia 

TEST ON SATISFACTORY ACCURACY IN ITERATION LOOP 

18 rOL=EPS 
A^ABSI X] 
IF(A-l. 120.20,19 

19 TOL = rOL«A 

20 IF( ABS(DXI-TOL (21,21,22 
2! IFIAaS{F)-TaLF) 16.16,22 

PREPARATION OF NEXT BISECTION LOOP 

22 IF(SIGN(l..Ft*SISN( I. . FL H 24,2 3, 24 

23 XR=x 



RTMI 219 






GO TO 4 


RTHI 2*0 




24 


Xl'X 


RTMI 250 






FL = F 


RTMI ZfrO 






XR = XM 


EPS RTMI 2fD 






FRsFM 


RTMI 280 






GO TO 4 


RTMI 290 


C 




END OF ITERATION LOOP 


S RTMI 300 


C 






RTMI JIO 


c 






RTMI 320 


c 




ERROR RETURN IN CASE OF WRONG INPUT 


RTMI 333 




25 


IER = 2 


RTMI 340 






RETURN 


RTMI «0 






END 


THERTMI 160 









..RTMI 540 

RTMI 553 

RTHI 560 

RTMI 570 

RTHI sao 

RTMI 590 
RTHI 600 
RTMI 610 
. RTHI 620 
RTHI 633 
RTMI 540 
RTMI 650 
RTMI 660 
RTHI 670 
RTMI 680 
RTHI 690 
RTMI 700 

RTMI no 

RTHI 720 
RTMI 730 
RTHI 740 
RTHI 750 
RTMI 760 
RTMI T70 
RTHI 780 
RTMI 790 
RTMI 800 
RTHI 810 
RTMI 820 
RTMI 630 
RTMI B40 
RTHI 850 
RTMI 860 
RTMI 870 
RTMI 880 
RTHI 890 
RTMI 900 
RTHt 910 
RTMI 920 
RTMI 930 
RTMI 940 
RTMI 950 
RTMI 960 
RTMI 970 
RTHI 980 
RTMI 993 
RTMUOOO 
RTMUOIO 
RTNIIOZO 
RTMI1030 
RTMIL040 
RrMIl050 
RTMllOftO 
RTMI1070 
RTMI1080 
RTHa090 
RTMHIOO 
RTMIlllO 
RTMILIZO 
RTMU130 
RTHItUO 
RTMIUSO 
RTKI1160 
RTHII170 
RTMI1180 
RTMItI90 
RTMI12D0 
RTMI1210 
RTMI1220 
RrNI1233 
RTMI 1240 
RTMI1250 
DNRTMI1260 
RTMI1270 
RTMI 1280 
RTMI1290 
RrMll300 
RTMU310 
RTMI 1320 
RTHI1330 
RTHI 1343 
RTHII350 
RTMn360 
RTMI1370 
RTMIt380 
RTMI1390 
RrMI1400 
RrMI1410 
RrMI1420 
RTMI 1433 
RTHI 1440 
RTHI1450 
RTMI 1460 
RTMI1470 

RTMiueo 

mum 

RTHIISOO 
RTMI 1510 
RTMI1520 
RTHI1530 
RTHIlS^O 
RrMI1550 
RTHn56D 
RTMIISTO 
RrMI1580 
RTHI1590 
RTHIIftOO 
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SUBROUTINE ORTKI 

PURPOSE 

ro SOLVE GENERAL NONLINEAR EQUATIONS OF THE fORM FCr(XI=0 
BY MEANS OF MUELLER-5 ITtKATION METHOD. ^ 

USAGE 

CALL ORTMI (X,F,FCTi XLItXRI.EPS. lEND) lER) 
PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT. 

OE&CRIPTION OF PARAMETERS 

X - DOUBLE PfiECISI3N RESULTANT ROOT OF EQUATION 

FCT( K)"0. 
F - DOUBLE PRECISnN HESULTANf FUNCTION VALUE 

AT ROOT K. 

- NAME OF THE EXTEHNAL OOUBLE PRECISION FUNCTION 
SU8PR0GRAM USED. 

- IX]U9L£ PRECISION INPUT VALUE WHICH SPECIFIES THE 
INITIAL LEFT SOUND OF THE ROOT X. 

- DOUBLE PRECISION INPUT VALUE WHICH SPECIFIES THE 
INITIAL RIGHT BDUNO OF THE ROOT X. 

- SINGLE PRECISIDN INPJT VALUE WHICH SPECIFIES THE 
UPPER BOUND OF THE ERROR OF RESULT X. 

- HAKIMUN NUMBER OF ITERATION STEPS SPECIFIED. 

- RESULTANT ERROR PARAMETER COOED AS FOLLOWS 
NO ERROR. 



13 



70 



FCT 



XLI 



KR] 



EPS 



lENO 
lER 



ORTM 

,.ORTM 
DRTM 
DRTH 
ORTM 
DRTM 
ORTM 
DRTM 
ORT^ 90 
DRTM IOC 
ORTM UO 
ORTM 120 
ORTM 130 
ORTM L40 
ORTM 150 
DRTH 160 
ORTM I TO 
ORTH 180 
DRTM 190 
ORTM 200 
ORTM 210 
DRTM 220 
DRTM 230 
ORTM 2'VO 
DRTM 250 
ORTM 260 
ORTM 270 
ORTM 280 
DRTH 290 



IER=l - NO CONVERGENCE AFTER lENO ITERATION STEPS ORTH JOD 



FOLLOMEO Br IEND SUCCESSIVE STEPS OF 
BISECTION, 
IER=2 - BASIC ASSUMPTION FCTI XL 1 1 •FCTIXRM LESS 
THAN 3R EQUAL TO ZERO IS NOT SATISFIED. 

REMARKS 

THE PROCEDURE ASSUMES THAT FUNCTION VALUES AT INITIAL 
BOUNDS XLI AND XRI HAVE NOT THE SAME SIGN. IF THIS BASIC 
ASSUMPTION IS NOT SATISFIED BY INPUT VALUES XLI AND XRI, 
PROCEOUHE IS BYPASSED AND GIVES THE ERROR MESSAGE IER=2. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRA-l F C T 1 X 1 
MUST BE FURNISHED BY THE JSER. 



ORTM 310 
DRTM 320 
DRTM J30 
ORTM 340 
DRTM }50 
ORTM 360 
DRTM 370 
DRTM 380 
THEORTH 390 
DRTM 400 
DRTM 410 
ORTM 420 
ORTM 4 30 
ORTM 440 
DRTM 450 
ORTM 4&0 
DRTM 470 
DRTM 490 



METHOD 

SOLUTION OF EQUATION FCT(XI=0 IS DONE BY MEANS OF MUELLER-S 
ITERATION METHOD OF SUCCESSIVE BISECTIONS AND INVERSE 
PARABOLIC INTERPOLATION, WHICH STARTS AT THE INITIAL BOUNDS ORTM 49C 
XLI AND XRI. CONVERGENCE IS QUADRATIC IF THE DERIVATIVE OF DRTM 500 
FCTIXJ AT ROOT X IS NOT EQUAL TO ^ERO. ONE ITERATION STEP DRTM 51Q 
REQUIRES TWO EVALUATIONS OF FCTfX). FOR TEST ON SAT I SFACTDRYDRTM S2C 
ACCURACY SEE FORMULAE (3,41 OF MATHEMATICAL OESCrt 1 PT I DN. DRTM 530 
F(W REFERENCE, SEE G. K. KRISTIANSEN, ZERO OF ARBITRARY ORTM 540 
FUNCTION, BIT, VOL. 3 n")63), PP. 205-206. DRTM 550 

ORTM 5!.0 
ORTM sro 

ORTH sao 

DRTM 590 
ORTM SOO 
ORTM 61C 
ORTM 620 
DRTM 630 
ORTM 640 
DRTM 650 
DRTM 660 
ORTM 670 
ORTM 680 
DRTM 690 
DRTM 700 
ORTM TIO 
ORTM 720 
DRTM 730 
ORTM 740 
ORTM 7S0 
DRTM 753 
DRTM T70 
ORTM TBO 
ORTM 790 
DRTM 800 
ORTM 910 
DRTM 820 
DRTM 830 
DRTM 840 
ORTM 850 
ORTM 860 
DRTM 870 
DRTM 88C 
DRTM S90 
DRTM 900 
ORTM -310 
DRTM 920 
ORTM 930 
ORTM 940 
DRTM 950 
DRTM 960 
DRTM 970 
DRTM 980 
ORTM 990 

drtmiooo 
drtmioio 

0RTM1D20 
DRTM1330 
DRrM1040 
ORTM1050 
DRTMt060 
ORTMU70 
DRTM1380 
0flTMI09C 
ORTMUOO 
ORTMlllO 
ORTM1I20 
ORTMU30 
OfirMII43 
OflfMIISO 
DRTMU60 
ORTMII 70 
DRTM1180 
ORTM1190 
DRTM1200 
DRTMI2I0 
DRTMI22D 
ORTM1230 
DRTMI240 
ORTM1250 
DRTM1260 
ORTMI270 
DRTM1280 
DRTM1290 



SUBRQUT INE DRTM UK, F, FCT, XL I, XRI, EPS, IE NO, lER) 



DOUBLE PRECISION X, F, FCT , XL I , XRI , XL , XR , FL , FR , TOL , TOLF, A.OX . XMtFM 

PREPARE ITERATION 

1ER = 

XL^KLI 

XR'XRI 

X = XL 

TOL = X 

F=FCT(TOLI 

IFiFll, 16, I 

1 FL = F 
X = XR 
TOL = x 
F = FCT{TQLI 
IFIFI2.l5t2 

2 FR = F 
IFIOSIGNI i.D0,FL)tDSIGNU.DO,FRM25, 3,25 

BASIC ASSUMPTION FL«FR LESS THAN IS SATISFIED. 
GENERATE TOLERANCE FOR FUNCTION VALUES. 

3 1=0 
TOLF=100.«EPS 



START ITERATION LOOP 

4 I=l»l 

START BISECTION LOOP 

DO 13 K=1.IEN0 

X=.500*(XL+XR) 

TOL-X 

F=FCTITOLt 

IF(F)5, 16,5 

5 IFIOSIGNU.DO.F t*OSIGN( I.OO,FRI» 7,6.7 

INTERCHANGE XL AMD XR IN ORDER TO GET THE SAME SIGN IN F AND FR 

6 TOL -XL 
XL = XR 
XR=rOL 
rOL=FL 

fl=fr 

FR=TOL 

7 TOL=F-FL 
A'F*rOL 
A^Af-A 
IFI A-FR*tFR-FLl (9,9 ,9 

a IFI I-IENOUT, 17,9 
9 XR = K 
FR = F 

TEST ON SATISFACTORY ACCURACY IN BISECTION LOOP 
TOL = EPS 

il = 04aS( XRI 

IF(A-l.O0m. 11,10 

10 rOL=T0L»A 

11 IF<0A6S(XR-XLt-r0LI 12, 12,13 

12 IFIOABSIFR-fLI-TOLF 114, 14, 13 

13 CONTINUE 
END OF BISECTION LOOP 

NO CONVERGENCE AFTER IEND ITERATION STEPS FOLLOWED BY IEND 
SUCCESSIVE STEPS OP BISECTION OR STEADILY INCREASING FUNCTION 
VALUES AT RIGHT BOUNDS. ERROR RETURN. 

ieR=i 

14 IF(OABS(FRI-OAaS{FL II 16, 16. 15 

15 K«XL 
F = FL 

16 RETURN 



COHPUTATION OF ITERArEO X-VALUE BY INVERSE PARABOLIC 

17 A-FR-F 
0X>(X-XLl*FL*(1.00*F«(A-rOLl/lA*lFR-FLIll/rOL 

XM«X 
FM-F 
X-XL-OX 

roL<x 

F-FCriTOLI 
IF(Flia*16,LB 

TEST ON SATISFACTORY ACCURACY IN ITEAATION LOOP 

18 rOL-EPS 
A>DAeS(XI 
[F(A-1.00)20,20,19 

19 TO(.>rOL*A 

20 IF(0A8S(0K|-TQLI21, 21.22 

21 IF(0AeSIF)-T0LFU6. 16,22 

PREPARATION Of NEXT BISECTION LOOP 

22 IFIDS1GN4 1.00.F1»DSIGNI 1. 00. FL t I 24.23.2 4 

23 XR>X 
FR»F 

GO TO 4 

24 XL-X 

FL-F 

xn*XM 

FR"FM 

GO TO 4 

ENO OF ITERATION L30P 



ERROR RETURN IN CASE OF WRONG INPUT DATA 
25 lER-2 
RETURN 

ENO 



ORTNDOO 
INTERPOLATIONOATNISIO 
DRTM1320 
DftTHLS}} 
0flTH1340 
DRTH13S0 
DRTHi360 
^ ORTHISTO 
DHTM1380 
ORTH1390 
0RTH1400 
ORTM14L0 
ORTHl^ZO 
ORTNIOO 
ORTH1440 
ORTHUSO 
ORTni460 
DRTK1470 
ORTHUSO 
DRTH1490 
ORTML500 
ORTHlflO 
ORTM1520 
DRTMISSO 
ORTH 1540 
DRTHISSO 
DRTHlSbO 
DRTHISTO 
ORTNlSaO 
0RTN1590 
0RTH1600 
0RTN1610 
ORTN1620 
ORTHU30 
ORTH1640 
ORTHUSO 
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Subroutines RTNI and DRTNI 

These subroutines refine the initial guess xq of a 
root of the general nonlinear equation f(x) =' 0. 
Newton's iteration scheme is used in the following 
form: 



1 



(i = 0.1,2, ...) 



(1) 



Convergence is quadratic or linear if the multiplicity 
of the root to be determined is equal to one or 
greater than one respectively, and if f(x) can be 
differentiated continuously at least twice in the 
range in which iteration moves. Each iteration 
step requires one evaluation of f(x) and one evalua- 
tion of f'(x). 

This iterative procedure is terminated if the 
following two conditions are satisfied: 

5 ^e and |f (x ) | 4 100-£ 



with 



X. ,-x. 
1+1 i 



i+1 



in case of Ix. I > 1 
1+1 



(2) 



K+1 ^i I ^^ '^^se of jxj+j^ 1 4 



^ 1 



and tolerance e given by input. 

The procedure described above may not converge 
within a specified number of iteration steps. Rea- 
sons for this behaviour, which is indicated by an 
error message, may be: 

1. Too few iteration steps are specified. 

2. The initial guess xq is too far away from any 
root. 

3. The tolerance e is too small with respect to 
roundoff errors . 

4. The root to be determined is of multiplicity 
greater than one. 

Furthermore, the procedure fails and is by- 
passed if at any iteration step the derivative f(xi) 
becomes zero. This is also indicated by an error 
message. 

For reference see: 

(1) F. B. Hildebrand, Introduction to Numerical 
Analysis , McGraw-Hill, New York/Toronto/ 
London, 1956, pp. 447 - 450. 

(2) R. Zurmiihl, Praktische Mathematik fur 
Ingenieure und Physiker , Springer, Berlin/ 
Gottingen/Heidelberg, 1963, pp. 12 - 17. 



SUBROUriME RTNI 

PURPOSE 

TO SOLVE GENERAL NONLINEAR EQUATIONS OF THE FORM FiXLD 
aw — i.ur «r .., _ iTE^^riON METMOO. 



BY MEANS OF HEwrON-; 



20 



eo 



USAGE 

CALL RTMl (X,F,OERF.FCr.XST,El>S,l£NO.IER| 
PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT. 



RTNI 
RTHI 
RTNI 
RTNI 
RTNI 
RTNI 
RTNI 
RTNI 
RTNI 
RTNI 100 
RTNI LIO 
RTNI 120 
RTNI 130 
RTNI 1^0 
RTNt tSO 
RTNI 160 
RTNI ITO 



DESCRIPTION Of PARAMETERS 

« - RESULTANT ROOT OF EQUATION FIX)-0. 
f - RESULTANT FUNCTION VALUE AT ROOT X. 

OERF - RESULTANT VALUE OF DERIVATIVE AT ROOT X. 

" I??"! ^^ ^"^ EXTERNAL SUflROUTINE USED. IT COMPUTES RTNI 180 
TO *1VEN ARGUNENT X FUNCTION VAtUt F AND OER I VATI VtRTNi 190 
OERF. ITS PARAMETER LIST MUST BE K.F.OERF. rtN 200 

" JlJc^Inn*'-"^ '"^'^" SPECIFIES THE INITIAL 3UESS OF RTNI 210 
THE ROOT X. RlHl 770 

" Vtlil It^^^ """^"^ SPECIFIES THE UPPER BOUND OF THE RTNI 230 
ERROR Or RESULT X. RTMr 3*fl 

- MAXIMUM NUMBER OF ITERATION STEPS SPECIFIED. RTNI 750 

- RESULTANT ERROR PARAMETER COOEO AS FOLLOUS rtNI 260 
IER-0 - NO ERROR, „fjjj f^" 
IER"1 - NO CONVERGENCE AFTER lENO ITERATION STEPS. RTNI 280 
IEa»Z - AT ANY ITERATION STEP DERIVATIVE OERF MAS RTNI Z90 

EQUAL TO ZERO. «rHI WO 

RTNI 310 

THE PROCEDURE IS BYPASSED AND GIVES THE ERROR MESSAGE IER-2 RrHl \M 

IF AT ANY ITERATION STEP DERIVATIVE OF t^(Kl IS EQUAL TO 0, RTNI 3*0 

POSSIBLr THE PROCEDURE ^QULO BE SUCCESSFUL IF IT IS STARTED RTNI 350 

ONCE MORE MITH ANOTHER INITIAL GUESS XST. »iAKito KTNI 350 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL SUBROUTINE FCT ( X,F,0€RF I MUST BE FURNISHED 
BY THE USER. 



EPS 



REMARKS 



OF 



SOLUTION Of EQUATION F(KI=0 IS DONE BY MEANS OF NEWTON-S 
ITERATION METHOD, WHICH STARTS AT THE INITIAL GUESS XST I 
A ROOT X. CONVERGENCE IS QUADRATIC IF THE DERIVATIVE OF 
F(XI AT ROOT X IS NOT EQUAL TO ZERO. ONE ITERATION STEP 
REQUIRES ONE EVALUATION OF F<X» ANO ONE EVALUATION OF THE 
DERIVATIVE OF F(X1. FOR TEST ON SATISFACTORY ACCURACY SEE 
FORMULAE (21 Of MATHEMATICAL DESCRIPTION. 

FOR REFERENCE, SEE R. ZURIUEHL, PRAKTISCHE MATHEMATIK FUER 
INGENIEURE U»JO PHYSIKER, SPRINGER, BERLI N/GOETTINSEN/ 
HEIOELBERGf 1963, PP. 12-17. 



SUSROUriNE RTNr(x,F,OERF,FCr,XST,EPS,IENO,IER| 



PREPARE ITERATION 

IER>0 

X = XST 

TOL»K 

CALL FCTITOL«F,OERF I 

TOLF"I00.*EPS 



START ITERATION LOOP 
00 6 I*l. I END 
IFIF)l,7,l 

EQUATION IS NOT SATISFIED BY X 

1 IF{OERFI2t6,2 

ITERATION IS POSSIBLE 

2 DX«F/OERF 
X'X-OK 

TOL = X 

CALL FCT(TOL.FtOERFI 

TEST ON SATISfACrraiY ACCURACY 

T0L=EPS 

A-ABS(XI 

IF(A'1.)4,4,3 

3 rOL"TOL*A 

4 IF(AaS(DXI-TOLlS,S.6 

5 IF{A8S(F)-T0LF17.7,6 

6 CONTINUE 

END OF ITERATION LOOP 



NO CONVERGENCE AFTER lENO 
IER=l 

7 RETURN 



TERATION STEPS. ERROR RETURN, 



ERROR RETURN IN CASE OF ZERO DIVISOR 
: I£R=2 
RETURN 
END 



RTNI 360 
RTNI 370 
RTNI 3B0 
RTNI 390 
RTNI 400 
RTNI 410 
RTNI 420 
RTNI 430 
RTNI 440 
RTNI 450 
RTNI 460 
RTNI 4T0 
RTNI 4B0 
RTNI 490 
RTNI 500 
RTNI 510 
RTNI 520 
RTNI 53") 
..RTNI 540 
RTNI 550 
RTNI 560 
RTNI 5T0 
RTNI 580 
RTNI 590 
RTNI &00 
RTNI 610 
RTNI 620 
RTNI 630 
RTNI 640 
RTNI 650 
RTNI 660 
RTNI 670 
RTNI 680 
RTNI 690 
RTNI TOO 
RTNI 710 
RTNI 720 
RTNI 7 30 
RTNI 740 
RTNI 750 
RTNI 760 
RTNI 7T0 
RTNI TBO 
RTNI 790 
RTNI BOO 
RTNI 813 
RTNI B20 
RTNI 830 
RTNI 840 
RTNI 850 
RTNI 860 
RTNI 870 
RTNI 880 
RTNI 890 
RTNI 900 
RTNI 910 
RTNI 920 
RTNI 930 
RTNI 940 
RTNI 950 
RTNI 960 
RTNI 970 
RTNI 9B0 
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sueROuriNE ortni 

PURPOSE 

TO SOLVE GENERAL NONLINCAft EQUATIONS OF THE FORM FIK)- 
BY HEANS OF NEWTON-5 ITERATION HETHOO. '' 

USAGE 

CALL ORTNI (X ,F(OERF,FCT, XST tEPSt lENO. lER) 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT. 



DESCRIPTION OF PARAMETERS 



ORTN 
.DRTN 
ORTN 
ORTN 
ORTN 
ORTN 
ORTN 
ORTN 
ORTN 
DRTN 100 
ORTN L13 
ORTN 120 
DRTN 130 
DRTN 140 



69 



DOUBLE PRECISION RESULTANT ROOT OF EQUATION F(X)>0.ORTN 153 



OERF 



FCT 



XST 



EPS 



- 00U8LE PRECISION RESULTANT FUNCTION VALUE AT 
ROOT X. 

- DOUBLE PRECISnN RESULTANT VALUE OF DERIVATIVE 
AT ROOT X. 

- NAME OF THE EXTERNAL SUBROUTINE USED. IT COMPUTES 
TO GIVEN ARGUMENT X FUNCTION VALUE F AND DERI VATI VEORTN 210 
DERF. ITS PARAMETER LIST MUST BE X.F,OEitF, WHERE DRTN 220 
ALL PARAMETERS ARE DOUBLE PRECISION. 

- DOUBLE PRECISION INPUT VALUE WHICH SPECIFIES THE 
INITIAL GUESS OF THE ROOT X. 

- SINGLE PRECISION INPUT VALUE WHICH SPECIFIES THE 
UPPER SOUND OF THE ERROR OF RESULT X. 

lEND - MAXIMUM NUMBER OF ITERATION STEPS SPECIFIED. 
lER - RESULTANT ERROR PARAMETER COOED AS FOLLOWS 

I£R*D - NO ERROR, 

IER"1 - NO COMVErGENCE AFTER lEND ITERATION SIEPStDRTN 310 

IER-2 - AT ANY ITERATION STEP DERIVATIVE OERF WAS ORTN 320 

EQUAL TO ZERO- DRTN 930 

ORTN 340 

MARKS ORTN 353 

THE PROCEDURE IS BYPASSED AND GIVES THE ERROR MESSAGE 1ER»2 ORTN 360 

IF AT ANY ITERATION STEP DERIVATIVE Of FIXl IS EQUAL TO 0. ORTN 370 

POSSIBLY THE PROCEDURE WOULD BE SUCCESSFUL IF IT IS STARTED DRTN 380 



DRTN 160 
ORTN ITO 
DRTN 160 
ORTN 190 
DRTN 200 



ORTN 230 
DRTN 240 
ORTN Z50 
DRTN 260 
ORTN 270 
ORTN 280 
DRTN 290 
ORTN 300 



ONCE MORE WITH ANDTHEft INITIAL GUESS XST. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL SUBROUTINE FCTI X,F,DERF) MUST BE FURNISHED 
BY THE USER. 

METHOD 

SOLUTION OF EQUATION FIX)"0 IS DONE BY MEANS OF NEWTON-S 
ITERATION METHOD, WHICH STARTS AT THE INITIAL GUESS XST OF 
A ROOT X. CONVERGENCE IS QUADRATIC IF THE DERIVATIVE OF 
FIXl AT ROOT X IS NOT E3UAL TO ZERO. ONE ITERATION STEP 
REQUIRES ONE EVALUATION OF F(KI AND ONE EVALUATION OF THE 
DERIVATIVE OF F(X). FOR TEST ON SATISFACT3RY ACCURACY SEE 
FORMULAE (21 OF MATHEMATICAL DESCRIPTION. 

FDR REFERENCE, SEE R. 2URHUEHL, PRAKTISCHE MATHEHATIK FUEH 
INGENIEURE UHD PHYSIKER* SPRINGER, BERL IN/GOETTINSEN/ 
HEIDELBERG. 1963. PP.12-'ir. 



SUBROUTINE DRTNKX, F.DERF,FCT. XSr,EPS, lENO.IER) 



DOUBLE PRECISION X. F,OERF*XST, TOL*TOLF,OX,A 

PREPARE ITERATION 

1ER«0 

X'XST 

TOL-X 

CALL FCT(TOL,F,DERFI 

T0LF-100.*EPS 



START ITERATION LOOP 
00 6 I =1,1 END 
IF{F)1,7,1 

EQUATION JS NOT SATISFIED BY X 

1 tF(OERFI2,B,2 

ITERATION IS POSSIBLE 

2 OX-F/OERF 

X=X-OX 

TOL = X 

CALL FCT(TOL.F,0£RF) 

TEST ON SATISFACTORY ACCURACY 

TOL=EPS 

A-OABSIXl 

EFIA-1. 0014,4, 3 

3 TOL=TOL*A 

4 IF{0A6S(0XI-T0L)5.5.6 

5 IF(DABS(F1-T0LF)7,7,6 

6 CONTINUE 

END OF ITERATION LOOP 



NO CONVERGENCE AFTER lENO ITERATION STEPS. ERROR RETURN. 

IER-1 

RETURN 

ERROR RETURN IN CASE OF ZERO OIVISOR 

lER-2 

RETURN 

END 



ORTN 390 
DRTN 400 
ORTN 410 
ORTN 420 
DRTN 430 
ORTM 4*0 
DRTN 450 
DRTN 460- 
DRTN 470 
ORTN 480 
DRTN <t90 
ORTN 500 
ORTN 510 
ORTN 520 
ORTN 530 
ORTN 540 
DRTN 550 
ORTN 560 
..DRTN 570 
ORTN 580 
DRTN 593 
ORTN 600 
DRTN 610 
DRTN 620 
ORTN 630 
DRTN 640 
ORTN 650 
DRTN 660 
ORTN 670 
ORTN 660 
ORTN 690 
ORTN 700 
ORTN 710 
DRTN 720 
DRTN 730 
DRTN 740 
DRTN 750 
DRTN 760 
DRTN 770 
ORTN 780 
ORTN 790 
DRTN 800 
DRTN StO 
ORTN 820 
ORTN B3Q 
DRTN 840 
ORTN 850 
DRTN 860 
DRTN 870 
DRTN 680 
DRTN 890 
DRTN 900 
DRTN 910 
ORTN 920 
DRTN 930 
ORTN 940 
ORTN 950 
DRTN 960 
ORTN 970 
DRTN 980 
ORTN 990 
DRTNIOOO 
ORTNIOIO 
DRTNI02C 
DRTN1030 



Extremum of Functions 

Subroutines FMFP and DFMFP 

These subroutines perform the calculation of an un- 
constrained minimum of a function of several vari- 
ables using a method proposed by Davldon. The 
underlying method is described in the article by 
R, Fletcher and M.J. D. Powell, "A Rapidly Con- 
vergent Descent Method for Minimization", Compu - 
ter Journal , vol. 6, iss. 2, 1963, pp. 163 - 168. 



It is assumed that the functicm f of the n variables 
XI, . . . , Xjj (abbreviated as argument vector x) may 
be computed together with its gradient vegtor g(x) 
for any point x. The generalized Taylor expansion 
for functions of several variables is 



f (x+u) = f (X) + g(x) 



1 T 
u + - u G(x)u + higher terms 



where g is the gradient vector and G the matrix of 
second order partial derivatives. Vectors are as- 
sumed to be colimin vectors; u^means transpose of 
vector u. It is assumed that in the neighborhood of 
the required minimum x^j^^ the function is approxi- 
mated closely by the first three terms of its Taylor 
expansion, giving 

f(x) = f(xjnin) +1 (X - Xmin)^G(^in) <^ " ^in) 
since gCXj^^i^) = 0. Then the gradient is seen to be 
approximately g(x) = G(xniin) (x - Xmin)- 

Assume now that the symmetric matrix G is 
positive definite. Then the following equation holds 
true: 



G ^ (X. 



) • g(x) 



^"■min ^ ^'^min' 

which would allow x^^^^ to be calculated in one step 
if G"-*- (Xjj^jj) were available. 

To approach G~ (Xj^^^j^), a method of successive 
linear searches in G-conjugate directions is used. 
Starting with the identity matrix G^^) = I, a sequence 
of symmetric matrices g(^) is generated which tends 
to G"^. At the (i+1)^^ iteration step a linear search 
is made in direction hW = -oWgW , where g'^^ is 
an abbreviation for g(xW). By means of the linear 
search the minimum of y (t) = f (x(^) + t • h(^) is deter- 
mined, giving ai"gument x(i^l) = x(^) + ti • li(^), 

The argument of the minimum. x(i+l) on the line 
through x^^) in direction h^^^ is determined by the 
relation that scalar product (g^^"^^) , hW) = 0. 



Now: 



and: 



M) 



= x«). 



t. h 

1 



(i) 



Therefore: 



n-1 



n-1 



scalar product (g^"\ h^^^^ =53*. (Gh^^^ h^-'^ 

i=j+l 

Suppose now that the vectors h(*^) , h(^) , ..., 
h^'^-l) are G-conjugate, satisfying (Gh<^), h^J)) =0 
for i ^U Then (g(n) , h(J)) = 0, and since hW, hW, 
. . . , h<° ) form a basis , g^*^) = and x^'^) = Xmin- 
This shows that the minimum is located at the nth 
iteration for a quadratic function when using succes- 
sive linear searches for G-conjugate directions. 
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For the generation of G-conjugate directions, 
start with h(0) = -g(0) and calculate successive 
directions h(^) by means of h''^) = -G^^'g^^', where 
G(i) is modified to G^^"*"^) so that h^^' is an eigen- 
vector of the matrix g'^"'"-'-) G with eigenvalue 1. 
This ensures that g(^) approaches G"-*^ as x(^) 
approaches Xjjjjjj. An easy calculation shows: 

r^fi + l) _ c<^> , dx • dx"^ G^^^dg • dg'^G^^^ 
dx^ • dg dg'^G^^^dg 
with dg = g(i+l) - g(i) 
dx=x(i+l) -x(i) 

where all vectors are regarded as column vectors, 
and superscript T means transpose of column 
vector — that is, row vector. 

The strategy adopted for termination of the suc- 
cessive linear searches is as follows: 

1. If the fvinction value has not decreased in the 
last iteration step, the search for the minimum is 
terminated provided the gradient is already suffi- 
ciently small; otherwise, the next step is in the 
direction of steepest descent. 

2. If the argument vector and the direction vec- 
tor change by very small amounts , and at least n 
iterations are performed, the minimization is ter- 
minated again. 

3. If the number of iterations exceeds an upper 
bound furnished by the user , further calculation is 
bypassed, and an error code is set to 1 indicating 
poor convergence. 

4. If one of the successive linear searches indi- 
cates that no constrained minimum exists, further 
calculation is bypassed again , and the error code is 
set to 2 indicating that it is likely that no minimum 
exists. 

The i*^ term G(i) is reset to the identity matrix if 
there is indication that the current g(i) is not posi- 
tive definite, or if the formula for G(i + ^) breaks 
down due to zero divisors. 

The linear search technique used in subroutines 
FMFP and DFMFP is as follows. For a given argu- 
ment vector X and vector h, defining a direction 
through X, a local minimum of the function y(t) = 
f(x+th) must be found. This means that a value t^^ 
must be determined for which 

y' (tm) = scalar product (g(x+tjnh),h) = 

From y'(0) = (g(x),h) < it is evident that a mini- 
mum y (tjji) < y(0) should be found for positive 
values of t. 

The calculation of the minimum is in three stages. 
The first estimates the magnitude of tj^^ , the second 
determines an interval containing tj^ , and the third 
interpolates the value of t^^. 



An estimate of the step-size may be obtained , 
assuming that the true value of the constrained 
minimum is equal to the estimated value EST of the 
imconstrained minimum and that y (t) is closely 
represented by a quadratic polynomial passing 
through (x, y(0)) with derivative y'(0): 
step =2 (EST -y(0))/y'(0). 

This equation tends to overestimate the step-size, 
since the unconstrained minimum will normally not 
lie on the line through x with direction h. Therefore, 
step is taken as step-size s only if it is positive and 
less than one. Otherwise, s = 1 is taken as step- 
size. 

At the second stage y(t) and y'(t) are examined at 
the points t = s, 2s, 4s,..., sj^, S2, where succes- 
sive values are obtained by doubling the step-size. 

This search is terminated at t = s, if: 

y'(s2) = 0, or y^sg) > 0, or y(s2) ^ y(si) 
n 

orifs2-( E |l^i|) > 10^°- 
i= 1 

The last case (search argument runs out of range) 
is interpreted as an indication that no local minimum 
exists on the given line. In this case, the error 
indicator is set to (2) and further calculation is 
bypassed. 

In case y'(s2) = 0, tm is set to S2 and x^^ = x = S2h 
is used as the argument of a constrained minimum on 
the line through x with direction h. 

In the second and third case (y'(S2)>0 and/or y(S2) 
>y(si) a minimum lies necessarily between si and S2. 
Its argument value gets approximated using cubic 
interpolation. 

The extrema of the cubic interpolation passing 
through (Sj^, yj^ =y(s^), y\ =y'(sj)) and (83, y2 = 
y(S2)> y'2 "^ y'(^2)) ^^^ given by solving a quadratic 
equation. The solution S3 can be expressed as 
S3 = S]^ + (I-a)(s2-Sj^) = S2 -a(s2 - Sji^) with 
y' - z + w y'2 + z - w 



y'2-y'i+2w 



y' + y' + 2z 



< a < 1, and z = y'j^ + y'2 - 3 



y2 - y2 



1/2 



w = + (z - y'j^y'2) 

The conditions on the problem guarantee a real 
value of w. The sign of w is so chosen that S3 is in 
the interval (s^, S2). If this condition is satisfied 
for the two possible values of S3 , the value closer 
to si is retained. 

As written above, two equivalent formulas can 
provide a. The choice is based on numerical 
stability considerations. 
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If y(S3) ^ y (si) and y(S3) <y(s2), then tm is set 
equal to S3 and x^^ = x + t j^. h is used as argument 
of the desired minimum along the given line. 
Otherwise, the interval (si, S2) is reduced by 
replacing s^ by S3 if y(s3) '^ y{s-i) and y'(s3) <0 
and by replacii^ S2 by S3 in all other cases. The 
interpolation process is repeated for this new 
reduced interval. 
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FtfFP 

FfFP «0 
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F«fP TO 
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FHFP 120 
FMFF 190 



CESCCIFTICk CF PJHAOEIEHS 

FtfcCT - CStK-kSrUEti SienOtTIKE CCkClKHlKG TFf ftWCTIOK TO F»»fF UO 

CE r|Mi>I2EC. 11 ftST CE CF THE FCttf FMFP ISO 
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ARdUPEhT ktiERE TFE ITERATICft STARTS. Ch RETURHi. FHFP 230 

n FCLCS TF£ *R€irCfcT CCRRESPrhOlhG TC ItiE FMFP 240 
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EPS 



- TESIVAIUE REPRESENIINfi TFE EXPECTED AiSCllTE ERROR. FMfP J20 



REASCNAeLE Cl-C ICE IS 1C*«I-AI 
SCPEkFAT CREATER TFAM 1C«A1-CI. hHERE IS THE 
kUPflER CF SICMFICANT CICITS IN FLOAIIhC POUT 
XCPRCSE^TATlCfc. 
PAXIPLP IkLNBER CF ITERATICkS. 
EPtiCft PARAPETEF 

lEA > C PEAKS CCIlVERCEKCE hAS OBTAIIiLEf: 
lER - 1 PEAfcS AC CCMVERCEKfCE IN LIMIT ITERATICHiS 
lER —1 MEAhS ERRCRS IK 6RA0IEMT CAlCtlATIOK 
lER * 2 PEAftS LIKEAH SEARCH TECHIiilCLE IHOICATES 
IT IS IIKELV TFAi IFERE EXISTS NC MIKIPUM. 
kCRKlKC STORAGE CF CIPENSICK ti*U*n/2. 



*EPAIiX! 

II TFE SCCROLIINE KAPE REPIACIKC THE OLPfV ARGUMENT 



PCST EC CECLAREO AS EXTERNAL IK ThE CALLIKG PRCCRAM. 
Ill lER IS SET IC 2 IF , STEPRIKC IK CKE CF TFE CCRPUTEO 
CIRECIICNS. Th£ FUKCTICK HILL KEVER INCREASE MITHIN 
A TCLERACLE AAKCE CF ARCtMEKT. 

lER - 2 MAY CCCUR AL!C If THE IKTERVAL hFERE F 
IKCREASES IS SPALL AKC THE INITIAL ARGLPEKI hAS 
RELATIVELY FAR AtoAV FRCP ThE PIKIPUM SUCH THAT THE 
PIKIPUP MAS CVEMLEAPEC. THIS IS CUE TC TFE SEARCH 
lECFKICUE KMCH OCtELCS TFE SIEPSIZE bNTU A POIKT 
IS FCtKC KFERE ?^£ FLACTICK IKCREASES. 

SLBRCLTIKCS ANC FLNC1I0K SLCPRCCRAPS RECUIREC 
FLKCT 

PETFCC 

TFE METFCC IS CESCRISEC IK THE FCLLCblKG ARTICLE 

». FlETChER AKC M.J.O. FChELL. A RAPID OESCERT PETHCO FOB 

PIKIPIiATlCN. 
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FMFP 3J0 
FMFP 3A0 
FMFP 350 
FMFP 3«0 
FMFP 3T0 
FMFP 3B0 
FMFP 390 
FMFP 400 
FMFP 410 
FMFP 420 
FHFP 430 
FMFP 440 
FMFP 490 
FPfP 4«0 
FONCT FMFP 470 



SLERCLTIFE FPf P (FUKCf .N.X.F .C .EST.EPS.L IPIT, l£R .Hi 

CIPEKSICKEC CLPPT bARIABiES 
CIPEKSICK HUl.aill.Clll 

CCFFLTE FLKCTICK hALiiE AKC ERACIEN1 VECTCR FCR 
CALL FtftCTlK.X.F.GI 

RESET IIERATICK CClJKTER AKC CEKERATE ICEKTI1Y MATRIX 
lER-C 
KCLI>I*C 
K2>K«K 
K3-K2«K 
»3l>lk3«l 

1 X>R3I 
CC 4 J.I.K 
FlRl-l. 
KJ-K-J 
IF(KJIS.9.2 

2 CC 3 I'l.KJ 
PL«li*L 

3 FIRLI-C. 

4 F-KL4I 

!TARI ITERAIICK LCCP 
: (CCIAI-KCLKT «I 

SAVE FLKCflCk VAILE. ARCtPEKT VECTCR AKO GKACIEM VECT 

CC f J*1«K 

K>K-*J 

FUl-CUl 

P-K4K 

FtRl-XIJI 

CEtCfiPIKE CIAECTICK VECTC* F 

I>>j4h3 

1-C. 

CC « l-l.» 
l-T-C(iMMR| 
IF(L-JI(.I.T 
t »*K«K-L 



FPFP 400 
fMfP 490 
fPFP 500 
FNfP 910 
FMFP S20 
FMFP 530 
FMFP 540 
FMFP 550 
FPFP 560 
FMfP 5T0 
FPfR 580 
FMFP 590 
FHfP 600 
FMfP 610 
FPFP 620 
FMFP 630 
FMFP 640 
FMFP 650 
I. FMFP 660 

FMFP 6T0 

> FMFP 680 

FMFP 690 
FPFP 700 
FMFP 710 
FMFP T20 
FMFP 730 
FHFP 740 
lAL ARCUPENTFPfP ISO 
FMFP 760 
FPFP 770 
FMFP 780 
FMFP 790 
FPFP 800 
FMFP 810 
FMFP 820 
FPFP 830 
fPff 840 
FMFP 850 
FMFP 860 
FMFP 870 
FHFP 880 
FMFP 890 
FMFP 900 
FMFP 910 
FMFP 920 
FPFP 930 
FHFP 940 
FHfP V50 
FMfP 960 
FMFP 971 
FMFP 980 
FPFP 990 
FHFPIQOO 
FMFPIOIO 
FMFP 1020 
FMFPIOIO 
fPFP1040 
FMFP 1050 
FMFP 1060 
FMfP 1070 
FMFPIOBO 
FMFP109Q 
FPFPIIOO 
FUFPlllO 



CC IC f 
(■•R41 

CCKTIKLE 

f |JI>T 

CFECK kHEIFER 
CY-C- 

FKRP>C. 
GAPP-C. 



FUKCIICK KILL CECREASE STCPPINC ALCft£ H. 



CALCLLATE ClRECTICNAl DERIVATIVE AKO TESTVALtES FCR OIRECTICN 
VECTCR M ANC GRAC lENT VECTCR 6. 
CC IC J-I.K 
FKRP>FKfp4AeS<t-Ull 
CKPP«CKFP««eSfCfJll 
IC CY>CV4tlJ]4C(J| 

REPEAT SEAPCf IN CIRECTICK CF STEEPEST CESCEKT IF DIRECTIONAL 
CERIVATIVE APPEARS TC BE PCSIIIVE CR 2EIIC. 
IFICYMItSliSl 

RERfJI SEARCF IK CIRECTICK CF STEEPEST OESCEKT IF DIRECTION 
VECTCR F IS SPAll CCPPAREC TC (RAOIEfkl VCCTCR G. 

11 IF(hKPP/CKPP-EPSISU*l. 12 

5EARCF ^thtH.P XICKC CIRECTICK H 

SEARCF ALCKC F fCR RCSIIIVE CISECTICKAL DERIVATIVE 

12 FY-F 
ALFA*2.»(ES1-Ft/C« 
APeCA*I. 

L!E ESTIMATE FCR SIEPS12E CKL« IF 
1. CTFERhlSE TAKE 1. AS STEPSI2E 
IF(ALFAIIS.15.13 

13 lF(ALFA-APeCAlM,15,19 

14 APECA-AifA 

15 JLFA-C. 



FPFP I 120 
FHFP1130 
FMFP1I40 
FMfPIISO 
fMFP116a 
FMffUTO 
FPPP1I80 
FPfP1190 
FMFP I 200 
FPFP1210 
FPFPX220 
FPFP1230 
FPFP1240 
FPFP 1250 
FMFP 1260 
FMFP12T0 
FMFP1280 
FMFP 1290 
FMFPISOO 
FPFPtSlO 
FMFP 1320 
FHFP 1330 
FMfP 1340 
FMFP 1 350 
FMFP 1 360 
FMFPU70 
FMFP1380 
fMFP1390 
fMFPUOO 
FMFP14tO 
fMFP|420 
FI1FPU30 
IS PCSITIVE AND LESS THAN FMFPI440 
FHFP14S0 



FPfPl460 
FHFP1470 

fHfpuao 

FMFP 1490 
FMFPISOO 
FPfPlSlO 
FHFP 1520 
FMFP 1530 
FMFP1540 
FPFP1550 
FPFP 1540 
fMFPlSTO 
FMFP 1580 
FMFP : 590 
FMfPUOO 
FHFP1410 
FPfP1620 

CCMFC1E CIRECTICNAL OEKIkATIhE OY FOR KEN ARGUMENT. TERMIMATE fHfP1630 
SEARCF. IF CY IS FCSITIVC. If CY IS iCBC THE PINIPUM IS FCUNO FMFP1640 

''"^" FHFPI650 

CC IC 1*1, K 
1« CY-CV«C1IJ*F(II 

IFICYII5.34.22 



SAVE FLKCTICK INC CERIVA1IVE VALUES FCR GLC ARCLPENT 
1« FX-FY 
CX-CY 

STEP ARGUMCNI ALCKC F 
CC I? l-l.N 
17 XIII«Xlll4APECA«Ftl) 

CCPfLIE FLRCTICN VALCE AKC CRACIEKI FCR KEU ARGUMENT 
CALL FLI>CT(KtX,f (CI 
FY*F 



C TEHPIKATE SEARCF ALSC IF TFE FLKCTICK VALUE INDICATES THAT 

C A PIFIPUP hAS CEER PASSEC 

IS JF(FY-FXi2C««2»22 
C 

C REFEAI SEARCF AKC CCLBLE STEfSUC FCR FUMHER SEARCHES 
2C APeOA-APCCA«ALFA 

ALFA-APECA 
C EKC Cf SEARCF. LCCF 
C 
C TERPIKAIE IF THE CFANGE IN ARGUMENT CEIS VERY LANCE 

lF(FKRP«APeCA-l.E101Utl(«21 
C 
: IIKEAA SEARCF lECFNICCE IKCICATES THAT KC MIKIMtP EXISTS 

21 IER«2 
fF^ILRK 

IKTEPFCLAIE CICICALLV IK TFE INTERVAL OEFINEC BY THE SEARCH 
ABCVE ANC CCPPUIE ll-E AACUPEKT X FCR bMICW TFE INTCftPCLATiON 
PCLYNCPIAL IS PINIMI2EC 

22 1-C. 

23 IFlApeCAIi4.36.24 

24 2«3.*IFX-FV)/APCCA«CX4CV 
ALFA-APPHllAeSUlfAESIDXI.AaSICVll 
CALFA«2yAlFA 

CAlFA>CALFA*CALFA-CX/AiFA«CY/ALFA 
IF(CALrA)SI.J3.2* 

2! h*ALFA«SCPTICALFA> 
ALfA>C«-CX4K*li 
IFIALFAI 2£C«2:i.25C 
2SC ALFA-IC«-/«til/ALFA 

CC IC Hi 
291 A(.FA>fi«[Y-hl/(2*CX*2*GY| 
2S3 ALFA>AlFA«APeCA 
CC 26 I-I,K 
2t X(II-XII)<IT-ALF«|«I-(11 



fNFP1660 

FMFP 1670 

FMfP16«0 

FNFPt690 

FHFP 1700 

fPfPl7lO 

FMFPITZO 

FMFP1730 

FMFP I 740 

FHFP 1750 

FHFP 1760 

fMFPt770 

FMfP 1780 

FMFP 1790 

FHfPlBOO 

FHFP IB to 

FMFP 1820 

fflFP1830 

FMFP 1840 

FHFPIBSO 

FHfP I860 

FMFPtB70 

FMFPL880 

FHFPlfl90 

FMfP 1900 

fMFP19IO 

fMFPl'920 

FHfP 1930 

FMFP 1940 

fHFPl950 

FPfP1960 

FMfP 1970 

fMfP1971 

FPFP1972 

fMFPl973 

FPFP1974 

fMFPl975 

FMfP I 980 

FMfP1990 

FMFP200O 

FMFP2010 



lERPINATE* IF THE VAILE CF TFE ACTLAL FLKCTICK AT X IS LESS 

It-AK Il-E FtKCTICN VALLES AT TFE IKTERVAL WOS. CTHERHISE RC0UCEFMFP2Q20 

IFE IKTERVAL BY CFCCSING CKt EKO-fCI*T ECUAL TC X ANC REPEAT FpFP2030 

TFE IN1ERFCLATICK. KFKF EKC-PCIKT |$ CFCCSEN CEPENCS ON THE 

VALiiE CF Tl-E fUKCTICN AND IIS GRACIEKT AT X 



CALL FlFCTIftX.f «C) 
If (F-f 11127, ±7,21 
21 IF(F-FYl3<.3t. 2E 
2E CALFA-C. 

CC 2S l-I.K 
2S CAlFA-tALFA*«IIMFIl 

JFUAlfA l>C.i3.33 
>C IFIF-FX132.21.33 
31 IFICX-CAIFAI32«36*32 
2i FX-F 

CX-CAIFA 

T-AIFA 

APECA-JLFA 

CC K 22 

33 lF(f«-f 13S.i4.3; 

34 IF<CV-CALFAIiS«3<,3; 
3! FY-F 

CY-CALFA 

APeCA-APeCA-Alf« 
CC TC 22 



FMFP2040 
FMFP2050 
FMFP2040 
FMFP2070 
FMfP20aO 
FPFP2090 
FMFP2100 
FMFP2110 
FPFP2I20 
FMFP 2 I 30 
fMFP2140 
fMFP2lS0 
FMFP2I60 
FMFP2170 
FMFP2180 



FMFP2200 
FMFP2210 
FMFP2220 
FMFP 22 30 
f»'FP2240 
FPFP2250 
FPFP2260 

il! 'l^"*^*^ *■'* **=' CECREASCC DURING LAST ITERATION FMfP2280 
l.l..f.3e FMFP2290 

"r'^'f.","*"!'^^L):!S!5.''! " «StP£KT ANC CRAOIEKI FROM fwllllt 

FHfP2320 
FPfP2330 
FMFP2J40 
FPFP2350 
fMFP2340 



lEPPIKA 
3t IFULCF-F4EPS 



IkC CCKSECLTIVE IIERATICKS 



FIKl-Cljl-t-UI 
F-K4X 
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31 MKi-vigi-i-di I 

1€SI llfcCI*- Cf IDCLKENT CIfft(tt«E VtClCf *NC tIf*ECTICK VfCTCI 
If *I lt*SI ^ IT[M«1IC^S ►*%€ eet». EKfiCLTtC. Ttt^MNATEt IF 
tClh /PE LESS lf«h EPS 
ItV'C 

■ If («ci.M-M*i.;^.;H 

CC 4C JM.h 

1-l4JESI»-(KI) 

IF 1I-^P»-EFSM1.41.42 

Ith^lfJIE. IF hL^EEft CF IIEMAIICKS kCLLC fcKCFEG LI^IT 

42 IF(KCLI^I-ll^nM3.5C.5C 

f»Ef*PE LPC*TI^C Cf fJIRU •■ 

43 ILF«-C. 

CC 41 J>l«h 

k>C. 

CC 4( L-l.K 
KL-I«*L 

iriL-J|44,4;,45 

CC TC 4C 
4; K"H4l 
4£ CCfcllfCE 

47 KJI-h 

KeFE4I SE^HCf IN CIRECriCh Cf STEEPEST CESCEM If BESUCfS 
tfH KC1 SiTI<fiC1CAV 
lF«i!*«lf«)4E*l«4« 

LFCJ1E P«1»l> •■ 
4E I(•^3l 

CC 4S L-I.A 

CC 4S J"LtN 

l-|Kl>t-<t<|4t-<((LMI-|hJI/2-h(LMI-UI/AlF« 
4S |(-l£*l 
CC It S 

EKC CF 11Ef)#1ICh ICCF 

hC CC»V£fGENC£ *Fie» Ll*'ll ITE«*llCfcS 
SC l€K-l 
FilLft- 

DtSICPE CiC Mniiii OF FUKCTICh «NC ARCCeKTS 

;i CC ti j-Jth 

OLl fC»CIl(«*X*F.C» 

HEPt«l St^BCI- IN CIRCCTICh Cf SietPEil CESCEM If DERIWAIIve 
f«ll£ IC BE SCfFKle^^LY S»'*tL 
lf<Ch(»f-EfSJ55.!5.53 

1EST FCff DEPEAieC fAILLRE Cf I1ER«1ICh 

53 IFllEil»£«.S4,S4 

54 UR"-| 
CCTC 1 

fiS lEIt-C 

5« MTtltfk 

CfcC 



Fof PZJTO 
F»'FP2)80 
FMfPJJSO 

Ff<FP240a 

ffFP24lO 
FMfP24iO 
FI«FP2430 
FfFP2440 
f ffPZ450 
FfFP?440 
ffFPM70 
fKFP?<.flO 
FMFP24?0 
FCFP7iOO 
fJ-FPZilO 
FKFP2520 
Fi'FP2S30 
FMFPZ*40 
FHFP2550 
F«f=P2560 
fmfmio 
FHFP25S0 
FHFP2590 
fl*FP2600 
FHFP2610 
f«FPZ620 
FMFP2630 
FNFP2640 
f»<FPZ650 
FRFP2&A0 
fMFP2670 
FftFP2680 
FfFPZb^O 
fHFp'zTOO 
FPFPZnO 
ffFP2720 
FP.fPZJiO 
F»'FP2T40 
Ft-FPZISO 
FHFP2T60 
FfFPZTTO 
F»'FP2T«0 
fKFP2790 
FFFPZSOO 
Ft>FP2810 
F«FP2823 
Fr«FP2S30 
F*«FP2B40 
FMFP2S90 
FHFPZSAO 

FMFPzero 

FMFP2890 
Fr'FP2a90 
FPFP2900 
FMFP2910 
Ff<FP2920 
FMFP2<1)0 
FKFP2940 
FHFP245a 
FKfP2960 
FMfPZ9T0 
FHFP29aQ 
FHFP^990 
FHFP)000 
Fi'FPaoiO 
FffFP1020 
FflFPSaSO 
Ff«fP3040 
FKFP30S0 
FfFPSOftO 
FPFP30Ta 
FMFPSOeO 
FHFP3090 
fMFP3lOO 



SLEDCLII^E CfffP 

fLFFC£E 

IC flhC ' tGC«L PlftlfUM CF * FUKCIIOft CF SEVERAL V«RI4fil.CS 
EV IhE PETF-CC CF FLEICHCR «hO PCmELL 
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S«CE 

CILl CFPfPlFLKCT. 



h.X.F.CESI.EPStLlPIT.IER.Hl 



CESCHIFIICK CF PARifETERS 



OFfF 
.OFHF 
OFMF 
OF«F 
OfW 
DFPF 60 
OFHF TO 

OFHF ao 

Df«f 90 

OFHF too 

OFMF 110 

OFHF 120 

DFHF 130 



EF£ 



USER-tiKtUSN SieRCtTINE CCKCEPNIhti TfE FUNCTICH TO OFMF UO 

it PIMPI2EC. IT PiST BE Of THE FCRP DfMF HO 

SCeRCCTlkE FCKCTU.ARG.VAL.CRAOI OFHF 160 

the PLST SERVE THE FGLLChUG PUAPCSE OFHF 170 

FCP £*€»' *l-CIPE^£ICN*l ARCLPEM VECTCR *RG« OFHF 160 

Ftl>CIICK V4LUC «kC GRRCIEMT VEC1CR ^LST BE CCHPuTEDOFHF 140 

MhC, Ch RETURh. SIOREO IK VAL AftC G«AC RE 5PECTI VEiVOFKF 200 

PRCVfC AhO GRiC HijST CE CF DOUBLE PRECISION. DFNF 210 

- ktVeER CF b*RI«rLES OFHF 220 

- VECTCP Of CIPEIkSlCh K COhTAIKING THE ir<lTI*L OFHF 230 
«R6UPEN1 htsERE 1t-£ ITERAIICN STAPfS. CN RETURN* OFHF 240 
« hCLCS THE ARGLPENT CCMRESPChOIMG TC TF-E OFHF 250 
CCPPUTEC PIMPtP FtKCTICfc VJIUE OF»'f 260 
CCLBLE FRECISICA VECTOR. OfHF 270 

- SIfcGlE VARUeiE CCM*IMH5 TFE PINIPtP FUNCTION OfNf 280 
VACCE CN RCTURK. I.E. F-fl)>l. OFHF 290 
CCteiE PRCCISKN VARIABLE. OFNF 300 

- VECTCR CF CIPEKSICK N COMAIftlNC THE GRADIENT OFHF 310 
VECIC* CCRKESPCI^CIhG TC THE PIMPUH CN RETURN. OFHF 320 
I.E. C-C<)l». OFHF 330 
CCUBLE PHECISUN VECtCR. OFHF 340 

- I! *h ESTIMATE Cf THE PINIPUP FbNCTICN VALUE. OFHF 390 
SlhGLC PRECIStClk VARIAELE. OFHF 360 

- lESiVALUE REPREUNIING TfE EUPECTEO iCSCLUTE ERROR. OfHf 370 



LIPIT 
lEP 



Dfnf 380 

DF<tF 390 
DFHF 400 
DfMf 410 
OFHF 420 
OFHF 430 
OFMF 440 
OFHF 450 
DFHF 460 
DFHf 470 
DFNF 400 
OFHF 490 
OfHF 900 
DFHF SIO 
OFHF 520 

"EfAFKS DFHF 530 

U TFE SLPKCLIINE NACE S^PlACIkC Iff CU^fV ARGUHEhT FUKCT OFHF S40 

r>tST CE CECIARED AS CaTEMNAL IN ThE CALLING PROGRAP. DFHF 550 

111 lEP IS SET TC 2 IF , STEPPIhG th ChE CF 1^E CCPUIEO OFHF 960 



f RE'SCNABLf CPCJCf IS I0**t-lb)f I.f. 

SCHEkt-AT GKEATCP I^AN |fl*4(-DI. bHERE IS THE 

NLPPEA OF SIGNIFICANT CIGITS IN FLOATlHiG POINT 

REPRESENIATICN. 

SINGLE PRECISIC*. VARIABLE. 

PAXIPCP NLHSER CF (TERATICNS. 

ERRCP PARAHETER 

lER - C fE*^S CCKVERGEKCE WAS OBTAIkED 

lER ■ I PEANS NC CCNVEPGENCE IN LlflT ITERATIONS 

lER --I FEANS ERRCRS IN CRACIENT CALCULATION 

lER * 2 PEANS LlkCAR SEARCH TECHhIQLiE INDICATES 

II IS LIKELY TFAT THERE EXISTS NC PUIHUH. 

ttCRKING STORAGE CF CIPEASICA N*(N*7l/2. 

CCLBLE PRECISICIk ARRAY. 



CIRECIICHS. IfE FUNCTICI^ t<ILL IkEVER INCREASE HITHIA 
A TCLENABLE RANGE CF ARGUMENT. 

lEM - 2 HAV CCCUR AL2C If TfE INTERVAl WHERE F 
ll^CREAStS IS SPALL tkC THE INITIAL ARfiUfEtil HAS 
RELATIVELY FAR AtelV FRCP TNE PINIHUH SUCH THAT THE 
PINIPUP NAS CVERLEAfCC. THIS IS OLE TC THE SEARCH 
lECHhlCbE WHICH CCCELES THE SICPSIZE INTIL A POINT , 
IS fCLNC VHERE T(-E FLNCIIOft INCREASES. ^ 



ANC FLNCTICN SLEFRCCRAPS RECLIREC 



SLEt-CLIINES 
fLNCT 

PETfrCC 

1FE PCTKC IS CEKRIBEC IN 1HE fCLLCWING MTICLE 

P. FLETCHER *hC P.J.C. FChELL, A RAPID DESCEKT HCTHOO FOR 

PINIPUATICN* 

CCPFCTER JCCRNAL VCL.Ct I!!. 2* X'itl, PP.ie3-16B, 



SLEPCLIIf-E CFfFFlFCKCI 



tLlPI 



CIPENSICNEC CLPPY VARIABLE! 
ClfEKSICI^ Hllt.Xill.Clll 

CCLBLE FRECISICN X.f .FR.FY.OLCF .HNRP,GNFP,H.G.OII.CY,ALFA,OALFA, 
lAPHCA.I.Zfh 



FESEI ITCRAIKN CCLNTER ANC GENERATE ICENTITV PATRlX 
IEil«C 
VCCIkl-C 
N2*N4h 
N3-N24N 
»31-N3*1 
P>N31 



HIRI-l.CC 



«IAP1 IIERAllCh LCCP 
PCLKT-RCLNT *1 



SAVE FLI^CIICN VALUE, 
ClCF«f 



Him-ClJl 



ARGLPEKT VECTCR AKO GRACICI^I VECTOR 



DFHF S?0 

OFHF 580 

OFHF 590 

OFHF «00 

OFMF 610 

OFHf 620 

OFHF 630 

OFHF 660 

DFHF 650 

OFHF 660 

OFMF 670 

OFHF 680 

OFHF 690 

OFMF TOO 

DFHF 710 

OFHF T20 

OFMf 730 

DFHF T*0 

.OFMF 750 

OFMF 760 

OFHF r70 

OFHF 790 

DFHF 790 

OFHF aoo 

OFHF 810 
OFHF 820 

DFHF aao 

CCfFLlE FLNCTICN VALLE ANC CRACIENT VECTCR fCf INITIAL ARGOMENTOFMF 840 
CALL FLNCTtN.A.f >Ct OFHF 850 

DFHF 860 
OFHF 870 
DFHF SaO 
DFHF 890 
DFMF 900 
OFHF 910 
OFMF 920 
OFMF 930 
OFHF 940 
OFHF 950 
OFHF 960 
OFHF 970 
OFMF 980 
OFMF 990 
OFHFtOOO 
OFHFIOIO 
OFHF 1020 
0FHF1030 
OFMF 1040 
DFHF1050 
OFHFL060 
OFHf 1070 
DFHF 1080 
OFHF 1090 
OFMf 1100 
OFMF 11 10 
OFHFllZO 
OFHf It 30 
DFHF 1140 
OFMF 1150 
OFMF 1160 
□FHF1170 
OFHF 1180 
OfHF I 190 
DFHF 1200 
OFHF 12 10 
DFHF 1220 
0FHFL230 
OFHF 1260 
OFHF 12 50 
OFHF 1260 
Of Hf 1270 
0FHF1280 
OFHF 1290 
OFMF 1300 
OFHF 1310 
DFHF 1320 
OFMF 1330 
OFMF 1340 
0FHFt350 
DFHF 1360 
OFMF 1370 
0FHfl380 
DFHF 1390 
OFHF 1400 
0FHF14I0 
OFHF 1420, 
OFHF 1430 
OFHF 1440 
0FMFI4S0 
OFHF 1460 
OFHF 1470 
OFHF 1480 
OFHF 1490 
OFMF 1500 
0FMFI510 
DFHF 1520 

t!E ESTIMATE FCR SIEPSIZE CNLV IF IT IS PCSITIVE AND LESS THAN OFHF15I0 

1. CIHJRklSE TAKE 1. AS SIEPSI2E 0FnF1540 

1F1ALFAI15«1S.13 0FHF1550 

13 IFULfA-APeCAU4.15.15 0fHF1560 

14 APBCA-ACFA OFHFISTO 

15 ALFA'O.CC DFMF1580 

DFHF 1590 
DFHF 1600 
OFHF 1610 
0FMfU20 
OFHF 1630 
OfHF 1640 
OFHF 1650 
Of W 1660 
OfHFt670 
DFHF 1680 

OFHF 1700 

DFHF I 7 10 

CCPFLIE CIRECTIGhAL CERIVATIVE DY FCR NEN ARGUHCNI. TCHPINATE 0FW17Z0 

SEARCF, IF CV IS PCSITIVE. If CV IS 2ER0 THE HtNIHUH IS FOUND 0FNFI730 

CY>C.CC 

CC 1( l*J,h 

le cv-cv«ciij*Hiii 

IF<CVI15.*C,22 



H(|(|>II(JI 

CETfRPINE CIRECIIC^ VECTOR H 
P-J*N3 
T-C.CC 
CC E L-ltK 
I-T-GUMHIKI 
IF(L-Jlt«7*1 

e ii«K«ik'-L 

GC TC B 
7 ««K*1 
E CCKTIKLE 
< HIJI-T 

CHECK hHETHER FC^CTICN HILL CECREASE STEPPING ALCNG H. 
CY-C.CC 
HfPP'C.CC 
CNRP-C.CC 

CALCLlAft CIRECTICNAL DERIVATIVE ANO TESIVALCCS FCR DIRECTION 

VECTCR H ANC CRACIENT VECTCR C. 
CC IC J-l.N 
HNRP>HNFP*CAeSIH(J)l 
CNRP>GN«P*CACSI€<JI> 
IC CV'CY4H(JI*G<JI 

REPEAT SEARCH IN CIRECIICN Cf STEEPEST DESCENT If DIRECTIONAL 
CERIVAIIVE APPEARS TC BE PCSITIVE GR ZERC. 
IFICYIIl.fl.Sl 

REPEAT SEARCP IN CIRECTICN CF STEEPEST DESCENT IF DIRECTION 
VECTCR H IS SPALL CCPPAHEC TC GRADIENT VECTOR G. 
11 1F(I-N8P/GN«M-EPS>S1.*1*12 

SEARCH NIKlPbP AlCNC CIRECTICN H 



SEARCK ALCNG 
12 FY-f 

AtFI«2.CC*lEST-f l/CV 
APBCA*1.CC 



FCR PCSITIVE CIRECTIGNAL CERIV6TIVE 



U FH-FY 
CH-CY 



FLNCTICN ANC CERIVATIVE VALUES FCR CLC ARCUPENT 



SIEF ARCUPENT ALCNC H 
CC IT I'l.N 
17 >UJ>X(1J«APECA«HIII 

CCPFLIE FLNCIKN VALLE ANC GRADIENT FCR NEW ARfitPENT 
CALL fLACT<N.AfF,€J 



IS 



lERPINATE SEARCH ALSO IF THE FLNCTICK VALtE INDICATES THAT 
- PINIPUP HAS BEEN PASSEC 



lFlf«-f >|<C.i2.22 



REPEAT SEARCH ANC CCUBLE 
3C APeCA-APCCA«ALf A 
ALFA-APECA 

ENC Cf SEARCH LCCP 



S1EFSIZE fCR FURTHER SEARCHES 



OfHF 1740 
DfHflTSO 
OFHF 1760 
OFHF 1770 
OFHF I 780 
DFHF I 790 
OfHF 1800 
OFHF 18 10 
OFHF 1820 
OFHf 1830 
OFMF I 840 
OFHF 1850 
Of HP 1 860 
DFHFt«TO 
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Ifa^UtflC IF in C^«NCC Ih «llctMC»tT CEIS VEItv LARCC 

ir Ihk«r«rac<-1 .CIO IK. U.2I 



ilhti* se««C^ T£CI-hICUE II^CICATCS IH«1 DC fINIfiUfi EXISTS 
21 lEH-i 
PETbDIt 



OfNf 1I«0 
OfWltOO 
0FPIF1910 
Of MF 1420 
OFKfnjO 

C IM(»(Cllle ClCIC4Ll« III I»E IMEStll. CEFINCC CV IHE SUHCH OfNFltSO 

C «CVt (KC CCI-fl-IE Il-E MCUCEH I PC« IrUCt- tl-E I^UIlroUTIC>l OFWIMO 

C fClVkCri«i IS riklwIlEO DFWIVTO 

li I'C.CC OFMfloo 

!J iFi»ret.ii<,jt,2, Ofwmo 

i« i-9.CC>(E>-FVI/<»CII«c<«C> 0FW2000 

«if«>c»iiiiciesiii.i:<tsic<i,c<esio>ii dfhf20io 

C<lf«.|/»lf. OfWIOZO 

C<I.FfC<lf<<C<lFi-Cl/<lf<»OV/<lF> DFIV2030 

iMcnmsi.js.jj ofW2o*o 

JS kXtFOCSCailCUFO OfKfJOSO 

«IF<.C>-C>41,4fc 0F>IF20«0 

IFI«IF<I 2SC.iSI.2;C OfllF20«l 

aSC *lf*'tCy~l*t,t/fLf* DFHF20«Z 

CC 1C 2!2 0FIIF2063 

2il 4lF«<l2<Ct-lll/II<CI<I<0VI 0FIIF20M 

292 #LF«-#LF«*«FCC« DFItF20«9 

CC 2t l«l«li l)FHF20T0 

2< XIKIIIIKIT-llFtKt'lll OFHFiatO 

C 0FMF2a«0 

C 1EF^IIi«1E. IF IF^E hALCE Cf IFF ACItlAL FUI^CIION if X IS ICSS OFNF2100 

C IF«t IFE FbkCIICII <tAUH It IH ItlEIKKl ENDS. IIHEHIIISE HEOUCEOFHFitia 

C IFE IFIEFVFl EV CFCCSIhC C»C C*<0-FC(hI ECUAi TC X «N0 NEFEAT 0FHF2I20 

C IFE UtEFFCiillCfc. hFICH EXC-FCI*|1 IS CFCOSEN OEFEMCS Ck THE 0FMf2130 

C IrllLE CF IFE FliKCIlCk AMD MS CItCIEkl A1 > DfllF2t40 

C DF«tF2l»0 

CALL FLFCIIF.X.F.ei DFMF21A0 

IF<F-Ftl21.2l.2a 0FHF2I7O 

27 IFIF-F1I3<«J£.2C 0FnF21«O 

i< CAIFA-C.CC 0FNF2190 

CC 2« l*l.k 0FIIF2200 

2S CAIFA«CALFA4GIII*FIII 0FHF2210 

IF(CAlFAl>C«ja.33 0FMF2220 

K IFIF-FII3:.;i>]3 OFHF2290 

31 1FICX-CALFAI32.3C,32 OFNF2240 

1! FX-F 0FI<F22S0 

CX«CAIFA DFftF22«0 

1«*IF« 0FW22T0 

AFECA-AIFI 0FW22IO 

CC IC il DFIIFI210 

33 1FIFY>F 13£.34.3: OFnF2aOO 

34 IF(C«-C«tf<l>S.3<.3! 0FKF2310 
3! FY>F OfWliZO 

O'CALfi OFHF23)0 

/PECA'AFECA-AIFI 0F)IF2J40 

CC IC 22 0F«F2»0 

C _ 0FIIF23«O 

C lEFFIkAIE. IF FUFC1ICK FAS FCT CECttEASEQ CUHINC LASI ITERATICN 0FMF232O 

3e IFICCCF-F«EFSI51«3e.3e DFMF23C0 

C 0Ff*F21«0 

C CCFFL1E CIFFEFEhCt XECICNS CF ARGCFEXT AKC GKAOIEFI FRCH 0FHF2400 

C IkC CChSECLTIVE IIERAIICKS 0FW24I0 

3E CC 31 J-I.k 0FIIF2420 

K-F4J 0FNF24)0 

F(X|.GUI-F(K) OFFF2440 

>•»•« 0FIIF24S0 

31 FI>)>I|J|-FI>I 0F(IF2*M 

C 0F|iF24r0 

C IE!I LEkCU CF AACOFEM CIFFEFEUE XECICI AFC CKECTICII VECtCI Dfl<F24t0 

C IF A1 LEASI F I1EFAIICFS MhE eEEF EXECUIEO. lEFFlhAIE. If 0FHF24W 

C eClF AFC LESS TFAF CFS OFPFZSOO 

lER-C DFMF2SI0 

lFIKCLF1-FMi.3Sf3S 0F11f2920 

3S 1-C.CC 0FI*F2930 

l-C.CC OfllF2MO 

CC 4C J'l.F OFHf2990 

K-F4J 0FFF2S60 

k>FI(l OFFF2S70 

F-F«* 0Ft»F2580 

l-1*CAE£IFfFll DFMF2S90 

4C 2'/*FAFIKI 0FFF2600 

lFtFFFF-EFSMl.41.42 0FFF2610 

41 IF1I-EF!13E.:«.42 OfMF2&2a 

C Dfl<F2630 

C lEFFlFAIE. IF FLFEtf) CF IICMAIICFS bClLC EXCEED LIFIT 0FCF264Q 

*i IFIXCLFI-LIFIIMS.EC.SC 0FI<f265O 

C DfFF2660 

C FFEF«FE CFCAIIFC CF F*IR|X F 0F«F26T0 

43 ALCA-C.CC 0FMf26S0 
CC 4) J'l.F DFHF2«90 
F*J«F3 DFFF2700 
k'C.CC Ofllf2nO 
CC 4£ L-I.F OFF<F2720 
FI.F41 DfFF2730 
»b<FI«C|4Fl«l 0FIIF2740 
1FIL-JM4.4:.4S OFMF27)0 

44 F>F*F-L 0FMF2T60 
CC tC 4< OFtlF2770 

4; F«x*l DFW27B0 

4t CCXIIFLE 0FMF2T90 

K«F4J QfP(f2800 

AlFA.AlfA«F*F(X| 0FWF2S10 

41 F(JI-F 0FHF2flZ0 

C 0FtiF2«30 

C FEFE«I SEARCF IF CIOECTICF CF STEEPEM CESCCFT IF RESULTS DFf*F2a40 

C IRE XCI SATIEFACICRV OFMfZflSO 

IFW4ALFII4E.U4E DFFF2a60 

C 0FMF2870 

C LPCATE FITRIX F 0FFF2fl8O 

4C X>F31 OFFF2a90 

CC 4S L-I.F 0FFF2900 

Il>k24| 0FM2q|0 

CC 44 J.l.k 0FFF2920 

FJ4F24J 0FFF2930 

FIX)«F(x|4F(Xl»4FlkJI/2-FIL»4HJ»/ALFI Of Mf 2940 

45 X-F41 DFFF2950 
CC IC ! OfWifldO 

C EXE Cf IIERAIICX ICCR 0FHf2'>)0 

C OfHF29eO 

C • FC CCFbERCEhCE AFTER LIFli ITCRATICFS 0FFF2990 

5C ItR'l OFIIf3000 

FETLFF 0FFF30I0 

' 0FW30Z0 

C FESICRE CLC ItALCES CF FLFCTKF AFC ARCtiFFFTS DfNflOlO 

51 CC S2 J*I.F OfFf3040 

X"F24J 0FFf3050 

'' XIJI'KXI OfHF3060 

CALL FLFCIIF.X.F.GI OFFFSOTO 

C 0FHF3080 

C aEFEAl SEAFCF IF CIFECIICk CF SIEEFEil CESCEFT If 0E8IVAIIVE 0FIIF309O 

C FAILS TC eC SVFFICIEFTLV SFALL 0FnF3100 

If ICFFF-EFSI95.39.33 0FIIF3110 



TEST fCR FCFEAIEC FAILURE CF ITERATICN 
53 lfllEAI!(.94.!4 
94 lEF— I 

CCIC I 
55 IE»-C 
94 FETURF 

EFC 



Subroutines FMCG and DFMCG 



DFIIf3l20 
OFI<f3l30 
0F»f3l40 
0FHF3150 
0FFF3160 
0fMF3170 
0Fllf3ia0 
0FNF3190 



These subroutines perform the calculation of an un- 
constrained minimum of a functicm of several vari- 
ables using conjugate gradients. The underlying 
method is described in the article by R. Fletcter and 
C. M. Reeves, "Function minimization by conjugate 
gradients", Computer Journal , vol. 7, no. 2, 1964, 
pp. 149-154. 

It is assumed that the function f (x) of the n vari- 
ables xj Xjj may be computed, together with its 

gradient g(x) for any point x =/x,\. In the 




neighborhood of the required minimum x.^^^^ the func- 
tion f (x) is approximated closely by the first three 
terms of its Taylor expansion, giving 

f(x) = f(x . )+J(x-x . )''^G(x . )(x-x . ) 
mm' 2 mm' ^ mm' ^ min 



since g(x , ) = 0. The quantity G(x . ) means the 
"' min' ^ •' ^ mm' 

matrix of second-order partial derivatives taken at 



the point x 



mm 



From the Taylof"expansion, the gradient is seen 
to be approximately: 



g(x) = G(x , ) • (X 
°^ ' * mm ^ 



X . ) 
mm 



The condition for the gradient to vanish is: 



G^(Xmin) • X - G(XjjjJq) • Xmln 



For solution of these equations, directions h(0), 
h(l), . . . are generated such that h'-"^ •'■^ is a linear 
combination of -g(i+l) (x(i+l)) and h(0), h<^), . . . , 
h'^'T so that G-orthogonality is satisfied, that is, 
h(i)'^ Gh(J) = for i ^ j. 



An easy calculation gives the following results. 
If a sequence of successive linear searches in direc- 



(0)_ JO) ^(i + 1) 



tions h" ' = -g 
performed with 



(i + 1) « 
-g + P. 



h(^) is 
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^ . fe"^". s"-", ,0*1) _,«,.,(.) „, 

i , (i) (i), ' "" - X + t fa and 

(g , g ) 



fe<^^^>.h<^))=0 



then this process is guaranteed to locate the mini- 
mum of a quadratic function in n iterations at most. 
For general functions the process is iterative rather 
than n-step. (This is true even for quadratic func- 
tions due to roundoff errors. ) 

Strategy for termination of the successive linear 
searches is as follows: 

1. If the change of the argument is very small, 
and at least n + 1 iterations have been performed, 
tlie search for the minimum is terminated. 

2. If the function value has not decreased in the 
last linear search, the minimization is terminated. 

3. If the number of iterations exceeds axi upper 
bound furnished by the user, further calculation is 
bypassed, and an error code is set to 1 indicating 
poor convergence, 

4. If one of the successive linear searches indi- 
cates that no constrained minimum exists, further 
calculation is bypassed, and the error code is set to 
2 indicating that it is likely that no minimum exists. 

5. After each cycle of n + 1 iterations, the next 
iteration is in the direction of steepest descent. 

The linear search technique used in subroutines 
FMCG and DFMCG is described in the writeup for 
subroutines FMFP and DFMFP, 
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TC UhL LCltL ^IM^uf CF « FLI^CI ICK CF SEVERAL VRIAetES 
t* Il-f fCUCC CF CChJC€«IE GHACIEIkl! ^ 

LSJCt 

Ctii 



r*'cc(FohCiiK««.f tC«EMt£p£.t.ir'ir.itff«^i 



CEKflFIICK CF F4FifE1E«S 



F*>CC 
.FMCG 
Ft'CG 
FMCG 
FNCC 
FfCG 
FMCG 
FKCC 
FKCC 
FMCG 
FNCG 110 
F'CC 120 
FMCG 130 



20 



80 



LSEK-hflinCh SLfiiiCLTthE CCKCEPMKG I»-E F(J^C^iCN TO F^CC 140 



ee flMfWtC. IT ^LST £E CF THE FCHf* 
HecClll^E FLhCI(lk,«RG.V«LtGPiCI 
if^C ''LSI SEHV^ ll-£ FCLLCkl^G fUKPCSE 
FCP EAcr- ^~clf E^£lc^*l ^cci.r'tKi vecicf 
FLhCUCK tiUL£ «kC Grt^CICM VfCKR fLSI 



FfCG 190 

FPCG 160 

FfCG ITO 

JtflG, FfCG LBO 

BE CCF'PUTECFKCG WO 



*^C, Ch tiETURh* SICHEC Ih V«l AKC GKiC MESPFCTf VELVFriCG 200 

- l«Lfttft CF V«f>l«tLE£ F^-CG 210 

- VECRF CF CIfE^flCK S CCKIAUIhC It-t IMIUl FMCG 220 
JFUt»-£hT bFFRt: TFE ITEHAIICK ST«ftT3. Ct KETUHK. FfCC 230 
K t-CLCit IH£ a«>C(.^£KT CCwhESPr.MIlfsU tr THE F*>CC 240 
CCfPLUC HMfl,*' flhCTIC*. V«ttE fP'CC 250 

- SlhGLE Mtflttlt CCfTAIMNC Tl-F dMr-ir FLKCTICK FfCG 260 
V«LL£ CK PtTLRf^, I.E. F>F(X). FriCG 2T0 

- veiKF CF Cir{f>SICh K CChHIMKC ll-E CMAUttKT F«CC 2«0 
VtCTCF CCKriESPChClfG TC fhC »'lMru»' t^ t-EIU^f, FMCG 290 
I.e. C-CUI. FMCG 100 

- 1£ n lSlff«TE CF TFE tilMfLe FCKCTICf VALUE. FMCG 310 

- TEST^«IUE rfEPktSEMUG Ift EXfCCTCC iieSClCTE FP^CR.FmCG 320 



Hta<LKteL£ CFClCt IS lC»»(-*(. I.E. 
5C^EkF«T GKtAIEfi Tt-JIN lC<*(-t). hbtot C IS ThF 
MMStii CF SICMFICAM CICIIS l^ FlCillNG PCIM 
(>EFrtE£Ef TATKh . 

li^ir - t-«j(iMf ».i,fatti CF MFfiAiichS. 

Itf- - l¥iiC^ HARAfETCF 

It-i • C flAKS CCfcWfftGFKCE hA< CflTJlIKEC 
lEH ■ 1 »'EAh£ ht CC^Vt:K(.£^CE l^ IC^II ITE>lATaKS 
UH '-1 ftAKS IKdCt-S I* GjIACUKT CAICCLATITN 
lEfl » i ftA^S Ll^EIA SEAHCl- tCCFMCLC UCICAIES 
II IS lIKtLT It-II Irtwe £»ISIS fcC flM"!."'. 

f - kC^KI^i^ SlC-fACE Cf CI^-EfcSICfc 2*N. 

11 tH i.l,tt*CLIlhE K**t wtfL»Clt>0 Tl-E Cc^fY APCC^EM fUNC 
>'l£I Et tKLAf^Ei: AS E^ltAhAL IK T^E CALLIhC PMCftAC. 
in \t¥ li Sel IC * IF , SItPPIfct IK tKE tF lf£ CCCfUUC 
LI-tCIICN<, I^£ FLhCIICK -UL KtwEP IKCfEASC -IT»^I^ 
/ ICLEKieit KAKGfc CF <HCU''EM. 

ie« • i ftt CCCLP /lie If UE If-Ttf-VAL WftPt F 
IKCKEASES U SfALL AKC T»^£ IMTIAL ARCLF'EKT tajTS 
KtLATtVELt FAR AkAY FRCf Th£ PIKlMCM SCCF It-AT THE 
flhlPtP hA; GVEKLEAFEC. IHI! 15 CCt TC IdE SEARCH 
TtCt-hlCLE kl-lC)- CCLELES IhE STCPSI2E LATIL A f>CIMT 
IS FCLKC kFERf T»^t FLkCTIOK IhCREASES. 

:>Lt;fCLTIhE£ AKC FLKCTICK SCeFRCGRAt'S RECCIHEC 
FLkCT 

#>ETt-CE 

TFE PEUCC IS CtSCRl^CC Ik Il-E FCLLChlKC AKTICLE 
fl.FLETCFER AKC C.M.REfVES. FUNCUCK MIMM1ZA1ICK l>V 
CCkJl.G*TE GKACIEK1S. 
CC^FLIER JCiRKAL bCL.1. IfS.2. ISe«. FP.US-1S4. 



^CeFCCllfE Ff>CC(FCr'CI,Kt)i,F*C.C:i«EP<«Llf|ItIERfHI 



ClfE^ilChEC CLPMY VARIABLES 
ClfEKSlCK XdJtCUIiMll 



tCt>FLIE Fl^KCTION VALLE AKC CRAOIENT ^ECTCR FCK IMTIAL ARGUI 
CALL FL^CKK.K.F.GI 



ITER/liCK CCLKTER 



RE^EI 
KCLM>C 
1£R-C 

SIARI llERATICk CYCLE FCf EVERY h«l ITERATlCkS 
1 CC 4! II-l.Kl 

STEP ITERAIICK CCL^TEN A^C SAVE FLKCTICh VAltC 
*(CLM>KCLhT*l 
CLCF-F 



AKC TERRIKATE If 2ERC 



Tt-E FIRST STEP bl 



CCPFLIE SCLARE CF GRACIEM 
CKPP'C. 
CC 2 J-I*K 
4 CI>R>"CK(P4C(j|«C(Jl 

EACF TIME IFE ITERATION LCCP IS CXECLTEO 

EE Ik ClRECflCh CF STEEPEST CESCEKT 
I iF(II-l t4.4,C 
4 CC t J*1.K 

* FUl— C(J) 

CC TC e 

FLFULP LlRECIlCk VECTCRS F kILL St Cl-CCSFN CCRRESHChClNC 
IC ^t^l CLkJLCATE CRACIEkT ^■ET^CC 
t iftCA-thPM/CLCt 

CC 7 J-l.h 
1 FIJI-A»£CA*FUI-G(JI 

CCPFLTE UEIVALtE FCR OIRECIICkAL VEC1CR «NC CIRECTIChAL 
CERIVATIVE 

* C>"C. 
KkRP"C. 

CC S J-i.f 

S'VE JRCtMEKT VECTCR 
FIKMXUI 

f-kRP-l-FFPfAESIFlJII 
< CV-CV«F(J)*CIJ) 

ChECK kFClFER FLKCTUN hILL CECR£A«E SIEPFIhG ALCNG fi ANC 
SKIF LINEAR SEARCF RCUTIKF IF kCT 
IF{CVIK.42.42 

CCPfLTE SCALE FACICR LSCC Ik LINEAR SEARCF SUtSRCCllNE 
IC SkR#«i./Fkf<R 



FKCG i30 

FcCG 3*0 

FCCG 3iO 

F"fG 16J 

FKCC 3 70 

F"CC IRO 

FfiCC 390 

FMCG *00 

FMCG *10 

FMCG *20 

FfCG S3tl 

FMCG **0 

FfCC t,5Q 

F^-CG ^60 

fCG *ro 

F-CC <.Hn 

ffCG *q? 

ffCG 500 

fMcc ^n 

F«CC 52J 
FMCG 530 
FMCG 540 
FMCG «0 
FMCG 560 
FMCG S70 
FMCG 960 
FMCG S90 
FMCC 600 
FMCC tlO 
FMCG 620 
FMCG 630 
FMCC 640 
FMCC 650 
FMCC 660 
F«GC 610 

...FMCG 680 
FMCG 690 
FMCG 700 
FMCG 710 
FMCC 720 
FMCG ?30 
FMCC 740 
FMCG 750 

ENTFMCG F60 
FMCG 770 
FMCG 7B0 
FMCjG 790 
FHCC 800 
FMCG 810 
FMCG 820 
FMCC 8 90 
FMCG 840 
FMCC-SSO 
FMCG 860 
FMCG ATO 
FMCG 880 
FMCG 890 
FMCG 900 
FMCG 910 
FMCG 920 
FMCG 930 
FMCG 940 
FMCG 950 
FMCG 960 
LL FMCG 970 
FMCC 980 
FMCC 990 
FMCG 1000 
FMCGIOIO 
FMCG1020 
FMCC1030 
FMCG 1040 
FMCC1050 
FMCG1060 
FMCCLJ70 
FMCG 1080 
FMCG1090 
FMCG 1100 
FMCGtllO 
FMCC1I20 

FMCG 1 no 

FfCGll40 
F«CG1150 
FMCGU&O 
FMCG1170 
FMCC1I80 
FMCG 1190 
FMCG 1200 
FMCC1210 
FttCCl220 
FMCG 12 30 
FMCG1240 
FMCC 12 SO 
FMCG1260 
FMCCI270 
FMCG 1280 



SEARCf ^IklMCM ALCf^C CIRECTICk H 

SEARCF ALCkC F FCH PC<ITlVE ClltECIlCKAL CtRIVAIIVE 
FV-F 

ALFA>:.«(ESI-FI/CV 
<PeCA-SARP 



FMCG 1290 
FMCCl 300 
FMCCL310 
FMCC 1320 
FMCG 13 SO 
FHCC 1340 
FMCG1350 
< PCSITIVE AhD LESS THAh FMCG1360 
FNCG1370 
FMCC1380 
FMCGI390 
FMCG 1400 
FMC61410 
FMCCl*ZO 
FMCG 14 30 
FMCC 1440 
FflCG14$0 
FMCC 1460 
FMCGI4T0 
FMCG 1480 
FMCC 1490 
FMCG 1500 
FMCG1510 
FMCG1S20 
FMCG IS 30 
FtlCG1540 
TERMINATE FMCG1550 



est ES1IP41E FCR SUFSUE CkLV IF IT I 
SkhM. CTFEPklSI TAKE SNRM AS STEPSUE. 
IFIALFAI13,I3.II 

11 iFULFJ'^peciiu.n.i; 

12 AMCCA-ALFA 

13 ALFA-C. 

SAVE FtkCTICk thC CERlVATIVE VALUES FCR CLC ARGLMEM 

14 Fk-FY 
O-Ct 

EIEF ARCLPEkl ALCkG ^■ 
CC i; l-l.k 
li X I !■)>< ll4AMECA«f III 

CCPFLU FbkCTICki VALLE AKC CRACIEhl FCR kEh ARCLPENT 
CAIL fLkC1(h,)i,F«CI 



CCMFLTE CIRECTICkCL CERIVATIvE DV FCR kEk ARCUMEkT. 

SE<PCF. IF CV PCSiriVE. IF C> IS 2£RC 1NE MlklMLC IS FCUkC 
CV'C. 

CC IC l«l«»i 
U CV-CY*G(]1«F(I| 
IF(CY)l7*3e*2C 

TEPPIkAlE SEARCF ALSC IF IFE FLKCTlCk VALbC IkCICAlES T(-AT 
A PlklMLP FAS etfh PASSEC 
1) IF(FV-F>I1E.2C*2C 

REPEAT SEARCF AhC CCLCLE flEPSIZE FCR FUkTHEP SEARCHES 
It «MECA>AMEEA*ALFA 
fLFA«Ar£CA 

TEliPIkAlE IF TFt CFAKGE Ik ARGLMEkT GETS VCR* LARGE 
lFlFkf>P«^PfcC«-l.ElC)H.U.lS 

LIkEfF SEARCF TECFMCLE IkCICATES ThAT kC MlklMt^ EUSTS 
IS 1ER<; 

FESKFE CLC VALLES CF FUKCIICk AkC AMCtPEkTS 
F-CICF 

CC ICC J*l«f 
ClJi'FtJt 

|C>k4J 

ICC XtJl-l-iK) 
FETLRk 

EkC CF SEAkCF LCCF 

IkTEIiFCL/U CLeUALLV U TFE IKTEPVAL CeFUCC t!Y THE SEARCH 
AdLVt *kC CLMPGTE TFE ARCLMEM X FCR kUCF IFE IkTCPPCLATICtt 
PCiykCei^L IS ^IMMWEC 



21 IFIAkECA Hiwie,ii 

2i 2>2.*(F>-FVt/A»'eCA4C)i«CY 

/LFA>A|i/>l(*:ESI/I.AE<(Cli).Ab£IC)ll 

CALFA'2/ALFA 

LALFJ-CAtf'4C/lFA-CX/ALFA*CY/ALFA 

IFlCAlffliJ. 27.21 

FtSICFE CLC irALLtS CF FLKCIlCk AkC ARGLPEMS 
ii CC 24 J-l.k 

K>k«j 
24 klJI-FIK) 

CALL FLkCTIk«>,F,CI 

lt;T FCP l-tFEATEC FAILURE CF IIERA1ICN 
kl IFI lER Kl*£(:*4 ) 
it It*i»-1 

ecu 1 

21 k-«LFA*SCkI ICf LFA) 
iLFA"C*-C>«i.«k 
lFIALFA)^7C.:71t27C 
2JC AlFA-(CY-2*kJ/ALFA 

CC TC 27< 
271 /LFA>ti«CY-kl/W*CX*2«CVI 
27: ALFA-ALFAtACeCA 
CC 2i \*\,K 
21 }i(II*X41}4(T-ALFAI*F(II 



FMCG I 560 

FMC6t570 

FMCG IS 80 

FMCG 1590 

FMCGl&OO 

Ff'CC1610 

FMCG1620 

FMCGUBO 

FMCG 1640 

FnCGlASO 

FMCG 1660 

FMCG16T0 

FMCC1680 

FMCG 1690 

FMCG 1700 

FMCGITIO 

FMCC 1720 

FHCGirao 

FMCG1T40 

FMCC 1741 

FMCC1T42 

FMCG1743 

FMCG1744 

FMCG 1 745 

FMCG1746 

FMCGir47 

FMCC 1750 

FMCG 1760 

FMCG17T0 

FIICG1780 

FMCC I 790 

FMCC 1800 

FMCGiaiO 

FMCG Id 20 

FMCG 18 30 

FMCG 1440 

FMCG18S0 

FMCG 1460 

FMCG 1870 

FMCGIAHO 

FMCGie90 

FMCG 1900 

PMCC1910 

FMCC 1920 

FMCG 1930 

FMCG 1940 

FfCGlflSO 

FMCG1960 

FMCC 19 70 

FMCG1980 

FMCG1990 

FMCG2000 

FMCG201O 

FMCG2011 

FMCC2012 

FHCC2013 

FMCC2014 

FHCG2015 

FMCC 2020 

FPCG203O 

FMCG204O 

FMCG2a50 



lEttPIkATE. IF IFiE VALLE CF 7FC ACTtAL fUkCfICK AT X IS LESS 

TFAk IhE FtACTlCk VALUES Al TFE IkTERVAL EIH>S. CTFERIilSE flE0UCEFNCG2060 

IFE IkTERVAL CV CFCCSINC CkE ENO-PCIkf E4GM. TC X AKO REPEAT FMCC2a70 

IFE IfTERFCLATlCf.. kFICH CkC-PCIMI IS CFCOSEh OEPEMS Gh IHE 

VALLC CF 11-E FtkCTICft AkC lf< GRAOIEkT AT X 



24 



CALL FlkC1<kW*F.G) 
If <F-F«)2S.2S,3C 
IF|F-FY);C,>E,3C 



FHCG2080 
FMCG2090 
FMCG2I00 
FMCG2110 
FMCC2t20 
FMCC2130 
FMCG 2 140 
FMCG2150 
FMCG2t60 
FMCC2170 
FMCr.2180 
FMCG2190 
FMCG2Z00 
FnCC2210 
^ FMCG 2220 

FltCG2230 
FMCG2240 
F*tCG22S0 
FMCG2260 
FMCG22TQ 
FKCC2280 

FnCG2 300 
FMCC2310 
F»)CC2a20 
FMCG2a30 
*f^f|;j;CTICk F-AS kCT CECREASEO DUtlNC LAST ITERATION FMCG2340 
' FMCG2350 

FMCG 2 360 
FMCGZSro 
FMCC2 380 
FMCG2390 
FMCC2400 
FMCC 2410 
FMCG 2420 
FnCG24 30 
FMCG2440 



C CCPFL1C ClRECTICk^i CERIVATIVE 

2C CALFA-C. 

CC 31 I-l.k 
31 tAt.FA-CALFA4C(l)*H11 1 

IFICALfAI32.3*.3S 
^i IFIf-F»134.33.3* 
33 IF(CJi-CALFAI34.3£.3« 
3< FX«F 

CX-CALFA 

T-ALFA 

JPECA-AiFA 

CC TC 21 
35 IF(FY-FI*T,3t«37 
3< IF(CY-CALfAt37i3E«37 

•? fy«f 

CY-CALFA 

/PECA-A^fiCA-ALFA 

CC IC 2C 
C 

C rtkPlkATE 

C CIFERhlSE SAVE GRACIEM kCPP 

3E IFICLCF-r4EFSIlS.25.3S 
3S CLCG'CkPP 
C 
C CCPFLIE CIFFEREkCE CF kEk AkC CLO ARGLMECT VECTCR 

l«C. 

CC 4C J-1,t< 

k>J«k 

F(l<|«XUl-h(|IJ 
4C I-14AESIF(KII 
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TCSI LtlkCIt^ CF ClfFERfflCC kCCICH IF *1 LCASt k*l 
»>«V€ eCCK EJiECLICC. TEAMIhilEt IF LEhGIH IS LfSS 
IF()(Cilk1-MI42«4l,41 

41 If<1-CP£M9«4S*42 

\lf¥Ut%l, If hUKCER OF ll(R«riCKS bCULO EKCEEO 
4i IF(KCU«»T*lI|i|TI43«44«44 

43 ICD-C 

IftC Cf 1TE*411QN CYCiE 

5T«*1 fcEkl ll{R«1ICIi CVCiC 
6C TC 1 

kC CC*VE«CENCC «f1CR Lifllf ITERATICHS 

44 IE««I 
IFIC»lti-CrSI4««4«.4T 

1EST rCH SUrflCIEHUV SMLL (AAOIENT 
43 |F(««llD-ffS>4**4«*2S 
4< lEIl-C 
41 FCTUM 
tfiC 



ftlCG2450 

ITER^TlCflS F«CC24«0 

THAN EPS FftceZ^TO 

FMCG24aO 

Ff)CC2440 

f«CG2500 

LIMIT FNC62S10 

> F«K;C2520 

FMCC2SM 

fnC«2940 

f*lCC2950 

fm:g2$«o 
fncczsto 

FRCCZ9SD 

fm:c2s«o 
fm:g2*oo 

Ft*CC2610 
FIIC62420 
FIKC2ft30 
rHCC2M0 
FNCG2AS0 
FflCG2««0 
FWG2&T0 



SLfliClllkC CF^CC 

FljfiFCSE 

TC F[fiC $ LCCti. flhl¥iif CF * Fll^C1IC^ CF SCVEfAL V^RIiBLES 
ev THE »'E1fCC Cf CCNJLOIC GftACJEI^IS 



LSACf 

CiLl CffCCIFtACT, 



h.X,F,C»ESI.EF!.llflI.IEO.HI 



CESCflFIKf^ CF F«»iAC£1EPS 



DFMC 
.OFMC 
DFHC 
OFf-C 
DFMC 
DFKC 
OF«C 
OFHC 
OFMC 
OFMC 100 
OFMC 110 
OFK 120 
OFMC 130 



JO 



90 



CSEO-hRITIEk SieOCLTlhE CChCERMkG 1FE FUhCflCK TO OfRC 140 
«t FlklflZEG. IT CC5I EC CF THE FO«l« OFMC 1»0 

SlBftCCTItvE FullCI (fk,JlllG*V*L*e«AOI OFI«C 160 

AkC CIST SERVE 1t-£ FCLLCklK PURPCSE DFMC 170 

FCR E«CH ^-I:lFE^:lC^AL AilCLfEKT VECTCft ARC* OFMC 110 

FLKCTIC*. WALLC '^C GR^CUNf VECTCR.I>LSt BE CCKPUTECOFMC 190 
AlkC* CK REIURO-t STCREC Ih VAL AHC GRAD SESPECTlVELYOFNC 200 
Afl£«VAl AhC GRAC fCST EE CF CCUSLE FRECISICN. 

h - KCffiEO OF VAftlAElES 

> - VtCTCi! GF £IHEk;iCK h CCfklAIMNC THE IKIIUL 

ARGUMENT liFiEftE 1FE [TERATICN STARTS. CK RETURN. 
» l-CLCS THE ARCL^EfcT CCKAESPCNOIIkG TC TH£ 
CCRFtTEC ^INIPLP FlKCTlCh VALUE 
CCUELE FREClSICk VECTCR. 

F - SIlkCLE VAAIAeiE CChTAUING TFE NINlfLf FUkCTtC*. 

«ALIjE CN RETLRK* I.e. F-FI»I. 
CCiteLE PRECISICN VARIABLE. 

C - ^ECTCR CF CINEI'SICIk k CChTAII^INC THE GRADIENT 

VECTCR CCRRESPCIiCIhG TC THE PINIPUR CN RETURN, 
I.E. £*C-li'l. 
CCtBLE PRECISKk VECTCR. 

E!l - I! AN ESTIPATC CF IFE RINIPtr FtNCTICK VALUE. 

SINGLE PRCCISICN VARlAeLE. 

EFS - lESTVAlUE REPRESENTING TFE EKFECTEO ACSCLUTE ERRCR.OFMC 3T0 

A REASCNASLE CK ICE IS 1C«*(-1«). I.E. 
SCPCbFAT CREATER TFAN tC«*l-Clf ttfCRE IS ThE 
NLfeER CF SIGNIFICANT CIGITE IN FLCATING POINT 
REPREfENTATICN. 
SINGLE PRECIStCN VARUeLE. 

ll¥n - RAXII^LP NUf»eER CF ITERAIICNS. 

lER - EftHCR PARAMETER 

IE« - C CEAAS CCNVEKGENCE hA< CSIAINEO 
lER « 1 CEANS NC CCN«£RG£hCE IN LIMIT ITERATIONS 
lEM >-l MEANS ERRCRS IN CRADIENT CAICULATICN 
lER - 2 PEANS LINEAK S£ARC»^ TEC»1NICLE INDICATES 
IT IS LIKELV IFAT TtiERE EXISTS NC MINIMUM. 

f - kCRKINC STORAGE CF ClfENSICN 2«N. 

CCtaLE PHECISICN ARRAV. 

REMARK! 

II ThE SLERCLTINE NAME REPLACING THE OUMMV ARGUMENT FtttCT 
MLST CE CECLAREL AS EATERNAL IN Tt^E CALLING PRCGRAM. 
Ill lEN IS SET TO 2 IF « STEPPING IN CNE CF TFE CCPPUTEO 
CIRECIICNS. TFE FONCTICN blLL NEVER INCREASE hlTHIN 
A TCLERAeCE RANGE CF ARGUMENT. 

JEM > 2 MAY CCCUR ALSC IF TFE INTERVAL NFERE F 
INCREASES IS Sf'LL ANC TFE INITIAL ARGUMENT NAS 
RELAdVELY FAR ANAY FRCP TFE MINIMUM SUCF TFAT THE 
MIMPUP NAS CVERLEAFEC. THIS IS GLE TC TFE SEARCH 
lECFNlCLE hFICF CCUCLfS THE S1EPSI2E iiNTIL A PCIhl 
IS FCLNC NHERE THE fCNCTION INCREASES. 

SLeflClIINES ANC FLNCTICN SLEFHCGHAfS RECCIHEC 
FLKCT 

PETFCC 

TFE PEIFCO IS CESCRIbEC IN IHE FClLChING ARTICLE 
R.FLEICFEA ANC C.f. REEVES* FUNCTICN *'IMMUAIICN BV 
CCNJ1.CA1C CRACIENtS* 
CCPFLIER JCLRNiL VCl.T. I£S.<, l^M* PP. 149-1*4. 



OFMC 210 




DFMC 220 




OFMC 230 




OFMC 240 




OFMC 290 




DFMC 260 




OFMC 270 




DFMC 2«0 




OFMC 290 




OFMC 300 




OFMC 310 




OFMC 320 




DFMC 330 




OFMC 340 




OFMC 350 




OFMC 360 




.OFMC 370 




DFMC 3»0 




OFMC 390 




DFMC 400 




DFMC 410 




OFMC 420 




OFMC 4 30 




DFMC 440 




OFMC 450 




OFMC 460 




OFMC 470 




OFMC 4«0 




OFMC 490 




OFMC 500 




OFMC SIO 




OFMC 520 




OFMC 530 


OFMC 540 




OFMC 550 




OFMC 560 




OFMC 570 




OFMC 580 




OFMC 590 




OFMC 600 




OFMC 610 




0''MC 620 




D^MC 630 




DFMC 640 


OFMC 650 


OFMC 660 


OFMC 670 




OFMC 690 


OFMC 690 


OFMC 700 




OFKC TIO 




OF«C 720 




CFMC 730 




OF-C 740 




DFMC 150 





SCEFCCIIFf (FPCEIFUNCT.N. 

ClPEhSiCNEC CLPMT VARIASLE! 
ClfENSUN All l«CllltF( 1 I 

CCLELE FRECJSICN X.C.CNRP.F.FNRf.F.FH.FV ,CICF.CICG .<NRM,IMBCA, 
ijC|.FA,CAlFA.T*2>li.CX,CY 



OFMC 760 
.ESI.EF!tlIMMtlEf .H) OFWC 770 

OFMC 790 
DFMC 790 
OFK 800 
DFMC 810 
OFMC 920 
OFMC 8)0 
(.C^FLlt FLhCIICN VALLE ANC CRACIENI VECTCR FCR INIIIAL ARGOMCNTOFmC 840 
CALL FLNCItN.li,F*CI OFMC 850 

OFp^ «60 

FESEl ITERAIICN CCLNTER OFMC 870 

►tLNT-C OFMC 880 

'£*'"C OFKC 890 

*l"^*l OFMC 900 

OFMC 910 

SIAHI IIERAIICN C^Clf FCR EVEft» N#l ITEBATlChS OF»C 920 

I CC 43 II-l.Nl OFMC 950 

OFMC 940 

SItF 11ERATICN CCLNIER ANt SAVE FLKCIICN VALLE OFf-C 950 

KCLM-MCLM*! OFMC 960 



CIMfLTE SCLAHE CF CNACIENT AAC lERMlNAIE IF ZERC 
|NBR«C.CC 
CC 2 J-t.N 
i CN»<>-CNFP*CtJI«G(Jl 
lF(CM)M)4C*4ei3 

EACF TIME 1FE ITERAIICN LCCF IS EREClTEO . THE FIRSI STEP 
BE IN CJKEC1ICN CF STEEPEST CESCEhl 

3 IFI II-IJ4.4.A 

4 CC 5 J-I.N 

5 HUl—CIJI 
CC TC E 

FLR1FER LIRECTICN VECICPS F hILL tt CHCCSEN CCRMESPCNOING 
iC THE CCNJCCATE CNACIENT MEIHCO 
i APCCA-CRFP/CLCC 

CC 7 J-1«N , 
T H(JI-APECA*FU)-GIJ) 

CCPFiTE USIVALUE FOR OIRCCTICNAL VECTCR AW) CIPECTICNAL 

CEAIbAtlvC 
E CY-C.CC 
HNRM-C.CC 
CC « J-I.k 
>>J«N 

SAVE AACLMENT VECTCR 
FIKI'XJI 

H»RH«H»FM«CAeSIHUII 
t CV-CV4H Ui'CfJJ 

CHECIi kHEIHER FtNCtlCh hILL CECREASE STEPPING ALCNG H ANC 
SAIf LINEAR SEARCH RCtTlNE IF NCT 
IF(CYI1C.42.42 

CCPFLIE SCALE FACTCR LSEC IN LINEAR SEARCH SLBRCLTINE 
IC SNRP-I.CC/FNRH 

SEAACH PINIPLP ALCN( CIRECIICN H 

SEARCH ALCHG H FC« FCSITIVE C1REC1I0NAL DERIVATIVE 
fY-F 

ALFA«2.CC«(CS1-F>/CV 
AHECAaSFRA 

LSE ESIIHATE FCR SIEPSIZE CNLT IF IT IS FCSITIVE ANC LESS 

SNRM. ClHERklSE TAKE SNMH AS STEPSIZE. 
IFULFAI13.13.il 
II IFIALFI-AreCAtli.U.I! 
li AMECA-ALFA 

13 «LFA«C.[C 

SAVE FLNC1ICN ANC CERIVATIVE VALUES FCR CLC ARCLMENT 

14 FX*FV 
CA'CT 

SIEF ARCLPENT ALCNC F 
CC IS l-l.N 

15 aill-ill UAfeCAaHIII 

CCPFLTC FLNCTICN VALLE ANC CRACIENI FCR NEb ARGLPENT 
CALL FLNCTIN.X.F.CI 
FV-F 

CCFFLIE LIHECTICNAL CERIVATIVE CV FCR NEh ARCUI'ENT. TERMINAIi 
SEARCH. IF CV FCSITIVE. IF CV IS 2fiRC IHE M|NIPLP IS FGUNC 
CY-C.CC 
CC U l-l.N 
IE CY>CY«G1II*H(II 
|FICTlJT*3e.2C 

TEFPINAIE SEARCH ALSC IF THE FLNCTICN VALLE INCICATES THAT 
A HIAIMbM HAS EEEN PASSEC 
11 IFIFY-F»Me.2C.2C 

REPEAT SEARCH ANC CCLCLE S1EFSI2E FCR FURTHER SEARCHES 
IC APCCA-APeCA4ALFA 
AtFA*APECA 

TERMINATE IF IHE CHANGE IN ARGtMENI GETS VERY LARGE 
|FIHNRP«APeCA-l.CIOI|4,14.19 

LINEAR SEARCH lECHNKLE INCICATES THAI NC PINIPLP EkISTS 
IS l£R>2 

RESICRE CLC VALLE! CF FUNC IICN ANC ARCLPENTS 
F-CLCF 

CC ICC J-l.N 
CIJl'HIJI 
K>N«J 
ICC XJI-FIKJ 
FEtLRN 

ENC CF SEARCH LCCF 

IN1ERFCLAIE CLEICALLY IN THE INTERVAL CEFINEC BY THE SEARCH 
ABCVE ANC CCMFUTE THE ARGLPENI S FCR kHICH THE INTERPCLAT ICN 
PCLYhCPlAL IS MINIMWEC 

2C T-C. 

21 IFIAMeCAI<2,>«.i2 

ii 7>3.CC«(FA-FYI/AMeOA«CX«CV 

ALFA-CM«>llCAES(2).CiaSICXI*CAeStCVII 
CALFA-2/ALFA 

CALFA>CALfA«CALFA-C>/ALFA*CV/ALFA 
|F(CALFAI<>.jI.21 
C 
C RESTCRE CLC V'LLES CF FLNCIICN ANC AHGLMCNTS 

23 CC 24 J*1,N 
R"N*J 

24 X JI-HIKI 
CALL FLACIIN.Ii.F.C) 

TESI FCR REPEATEC FAILURE CF ITERAIICN 
25 lF(IERMI.2e.4l 
2* lER— 1 

CCIC 1 
2T N*ALFA«CSCRT(CALFAI 

/LF«>C«-Cl«t>*k 

iF(ALFAi;jc,:n.27o 

2TC AlFA-(CV-i«kl/ALFA 

CC TC Hi 
Hi /LFA*U«Ct-h)/U«CJi«/«CV| 
272 AiFA.fLFA'AHECA 

CC 2C I- I.N 
2E MU-X(|MIT-ALFAI*H(i| 



OFMC 990 
OFMC 990 
OFMC 1000 
OF»C1010 
OFMCt020 
OFMCIOW 
OF HC 1040 

hILL 0FMCIO5O 
OFMC 1060 
OFMC 10 TO 
DFMC1080 
OFMC1090 
OFMC I 100 
OFMC 1 1 10 
OFMC I 120 
0FMC1130 
OFMC 1140 
DFMC1150 
DFMC I 160 
OFHCUTO 
0FMCU80 
0FMClt90 
OF MCI 200 
0FMC1210 
0FMCI220 
OFMC 1230 
OFMC 1240 
OFMC 1250 
DFMC 1260 
OFMC1270 
OFMC 1280 
OFMC 1290 
OFMC 1300 
0FMC1310 
OFMC 1 320 
OFMC 1330 
OFMC 1)40 
OFMC 1350 
DFMCI360 
l>FfiC13 70 
OFMCUeO 
OFHC1390 
OFMC 1400 
0FMC1410 
0FMC1420 
0FMC1430 

THAN DFMC1440 

DFMC 14 50 

DFMC 1460 
DFMC 1470 
CFMC 1480 
OFMC 1490 
0FMC1500 
OFMCl^lO 
OFMC1520 
OFMCI530 
0FMC1540 
0FHC1550 
OF MCI 560 

OFMC 1510 
0FMC1S80 
DFMC 1590 
0FMCI600 
OFMC 1610 
DFMC1620 
: 0FHC1&3O 
OFMC 1640 
0FMC165a 
0FHC1660 
0FMCU70 
OFMC 1680 
OFMC 1690 
OFMC I TOO 
OFMCITIO 
0FMC1T20 
DFMC 1 730 
CFMC I T40 
OFMC1750 
OFMC 17 60 
OFMCITTO 
OFMC1780 
OFMC 1790 
0FMC1800 
OFMC 18 10 
OFMC I 820 
OFMC1921 
0FMC1822 
DFMC1823 
DFMC1924 
OFMC 1825 
DFMCia26 
DFMC1827 
DFMC1830 
DFMC 1840 
OFMC1950 
0FMC1960 
OFMC 1 870 
OFMC 1880 
DFMC 1890 
OFMC 1900 
0FMC1910 
OFMC1920 
DFMC 1 9 SO 
0FMC1940 
DFMC1950 
OFMC I960 
DFHC 1970 
DFMC1980 
OFMC 1990 
DFMC 2000 
OFMC 20 10 

0FMC2030 
0FHC2040 
0FMC2a50 
0FMC2a60 
OFMC 20 TO 
0FMC29fl0 
DFMC2090 
OFMC 209 I 
OFMC 2092 
0Ft^2093 
OFMC 2094 
OFMC 2095 
CFMC2100 
0FMC2110 
0FMC2120 
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learitiic. ir in »»i.it Cf ii-c »cuii. ftKtick <i » is isss ofHcjiio 
Itf .It!/!;'"""* •*'■'•" " "■' '*"«»" "OS. ci>.ERkisE umiceornnw 

,A NfJJJ'.!!,"'"'"'' '^*' fM!-fCIM CtHl IC « mo «£««! OfKCJliO 
!►£ ItUIFCKIICk. fcncf l»c-(CIM IS C^CCS(^ CefffccS on IHi 

»»itt Cf IK fl,^cIIc^ INC ii< catcuki «i i 



DFMCZlftO 
OFf<C2iro 
DFnC2180 
OFI»C2lflO 
Of K 220(1 

0Fm:22ia 

0F.1C2220 
Cfl<C22)0 
OF « 22*0 
0FHC22S0 
0FI'C22>0 
0F»K;2270 
OFt4C22BO 
0F«C22fl0 
OFKC23QO 
OFHC2310 
Ofl'C2320 
0FI«C2J)0 
DFMC2140 
DfPC2i50 
OFHC2340 
OFK2iro 
i)FI'C23»0 
0FMC2390 
OfHC24(10 
0F»'C2410 
lEftflfcilE, if FLKCTlCh »■*$ kCI CtCuttStC CLUING LUT ITEMATICN 0FMC2420 



CHL Fl»(Tlk.>.F,CI 
lflF-F>(21t<1.3C 
if lFIF-f«l3C.!(,:c 

CCFFIIE CIFECIICkJl CEHIVailVE 
3C C«LF#*C.CC 

EC 31 |t),k 
31 [<lF<-C(Lf<<C(ll>f(|l 

IFICJLr«13^.>;,3; 
!i IFIF-f>i:-<,33.3! 
33 lFlCli-t<Lfai34«3et34 
3* tff 

LfCUft 

EC IC <l 
3S IFIf v-f |31.3£.3I 
It lFlC>-C«Lf«l37.3e.31 
3T f».f 

CV-C«LF« 

ifict'tktci-net 
cc IC :c 



ClfCfklSE S««{ CKtCIEkT kCCF 
36 IFIClCF-f<EFS>11.2S.3S 

3s cicc>cka> 



CCfFLIC 
l-C.CC 



ClFFCaiKCE Cf kEk *fC CLC «RGLr£M VECtCR 



CC 4C J«l.h 

f im-kijl-f IK) 
4C i-i<ci(!<f imi 

lesi likGIf Cf ClffCaEHCE VECIOa If <l IE*SI 11.1 Ite««T10IIS 
t^lVE lUh OECUIEC. IE««I«.<T<, If LEkClh IS CESS IHtN EPS 
Ifl«CCkl-IMI42,4l.41 
«l If tl-CF«14S.45.42 



TEHFiKic. IF kcacca CF iiEaaiicts kcccc exceed 

IF lKCLkT-lll<lT 143.4^,44 

IEa>c 

Eac CF nca^liCh CTCCE 



CIPII 



suai 

£C IC 1 



kExi iiEaaiick cvccE 



ac ccatcacEkCE aiiEa Liaii iiEiaiic 
44 ica-i 

iriCk(a-cFsi4t.4<.4i 

lEsi Fca SLfflcicaiLv saaiL caaoiEki 
«: ifistaa-c»si««,4t.25 

4« ]ER«C 

43 fEitaa 

EkC 



DFW;2430 
0fF'C2440 
Of.^2450 
0FMC2460 
OF«C24ro 
OFMC24no 

Of«C2*»0 
DFK2S00 
0FIK2SI0 
OFf(C2S20 
OfRCJiSO 
0fMC2S40 
OFMC2350 
0FIIC2M0 
0FHC2ST0 
0FK2Ma 
DFW29«) 
DFPtC2«00 
0FltC2>la 
OFIIC2«Z0 
0FNC2«30 
l>FNC2>4a 
l>FNC2«tO 
0FHC2660 
OFDCZiTO 
0FHC2*a0 
0PHC2«90 
DFIIC2700 
0F1IC2T10 
0FMC2T20 
DFm:273Q 
0FK2T4O 
0FKC2T10 
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PERMUTATIONS 

Let n be a positive integer and letN = {l,...,n] . 
A permutation on N is a one- one function from N 
onto N. In what follows, all permutations will be 
on N. 

Suppose P and Q are permutations. We define a 
new permutation R =Q«P by R(j) = (Q«P) (j) = 
Q(P(j)) for jf N. Note that in general P*Q f Q'P, 
although • is associative. The operation • is or- 
dinary function composition. The identity permu- 
tation is the identity function I on N, defined by 
I(j) ~ J foJ^ J e N. An inverse of a permutation P is 
a permutation P~l with the property that P«P~1 = 
P~ • P = I. It is easily proved that every permu- 
tation has a unique inverse; indeed, if P is a permu- 
tation, its inverse P~l is given by P~-'-(j) = s 
where s is such that P(s) = j, je N. Note also that 
if P and Q are permutations, (Q'P)-l = P-1*Q-1. 
The conjugate of Q by P is the permutation P'Q«P"1. 

A transposition is a permutation that moves at 
most two elements of N; that is, T is a transpo- 
sition if and only if integers i and j exist such that 
T(k) = k for k ^ i,j. K may easily be proved 
that every permutation can be written as a product 
Tj.Tg*. . . 'Tj^ of transpositions where for i = 1, . . . , 
n there exists kje N such that: 



T.O) = 



k. if j = i 
i if j = k. 
j if j 5^ l,k, 



Every transposition is its own inverse. 

If P is a permutation, we will identify P and the 
symbol 




p. = P(i) for i = l,...,n. 

At times we will also identify the permutation P 
and the vector (p^ , . . . , p ). Whenever this is the 

case we will write "... permutation P = (pj Pn) 

. . . ", or "permutation vector P = (pj, . . . , Pn)". 

Similarly, if T is the transposition given by: 

j if j7^I,k 
TO) = < i if j=k 
k If j=i 



then we identify T and the ssonbol (i,k). (This 
leads to no difficulty if n =2, since in this case all 
permutations are also transpositions. ) 

We note above that any permutation P can be 
written as a product Tj* . . . 'T^^ of transpositions of 
a certain form. In the new notati<xi we have 
P = (l,ti)....-(n,tj^), t.eN, i = l,..,,n. The 
t. are generally not distinct. At times we will 
identify the product (1, tj)«.. . '(n.tjj) and the vector 
(tj^, — ,tjj). Whenever this identification is meant 
we will write "... transposition vector P = (ti , . . . , 

tn)"- 

Permutations can be used to induce rearrange- 
ments of ordered collections of objects. The con- 
vention that we will use is illustrated by the follow- 
ing example. Suppose that A is an m by n matrix 
and Cj is the i*'^ column of A for i = 1, . . , , n. If 
the permutation P = (Pj^, . . . ,Pj^) is applied to the 
columns of A, there results the m by n matrix A' 
whose pj column, Cpj, is Cjfor I = 1, . . . ,n. 

Examples 

Suppose n =5, and let P and Q be the permu- 
tations given by: 

P(l)=3 P(2)=l P(3)=5 P(4)=2 P(5)=4 
and 

Q(l)=l Q(2)=3 Q(3)=5 Q(4)=2 Q(5) =4 

Then P and Q may also be written as: 

2 3 4 5\ /l 2 3 4 5> 

P =1 ] and Q =[ 

\3i524y \13524> 

or as the permutation vectors: 

P = (3,1,5,2,4) and Q = (1,3,5,2,4) 

Now: 

/l 2 3 4 5\ A 2 3 4 5\ /l 2 3 4 5^ 



Q-P = 



while: 



P.Q = 



,1352 4/ \3 152 4/ \5143 2/ 



/l 2 3 4 5\ A 2 3 4 5\ /I 2 3 4 5\ 



^3 1 5 2 4/ Vl 3 5 2 4/ \3 5 4 1 2/ 
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,-1 



P is the permutation given by 



Subroutine PPRCN 



P V)=2 P~'^(2)=4 P-'^(3)=1 P ^(4) =5 



or 



P"^5)=3 



A 2 3 4 5 



V2 4 1 5 3> 



or the permutation vector P = (2,4,1,5,3). 

We now write P as a product of transpositions in 
the standard form defined above. We have: 

/I 2 3 4 5\ /I 2 3 4 5\ 

P= =(1.3). 1 

\3 1 5 2 4/ \l 3 5 2 4/ 



= (1.3)- 



(2,3)- 




= (1,3). (2, 3). 

(3,5). /I 2 3 4 5 
\l 2 3 5 4 

= (1,3). (2, 3). (3, 5). 
a 2 3 4 5N 
a 2 3 4 5/ 

= (1,3). (2, 3). (3,5). (4,5). (5,5). 

Hence P is equivalent to the transposition vector 
(3,3,5,5,5). 



(4,5). 



Subroutine PPRCN computes the permutation vector 
that is the composition of two given permutation 
vectors, and the permutation vector tiiat Is the con- 
jugate of a given permutation vector by another 
permutation vector. (See the general discussion 
for definitions and notation. ) 

1. Mathematical background 

Suppose that IPl = (Pj^, . . . , p^) and IP2 = {q.^, . . . , q^) 
are permutation vectors on N = { 1, . . . , n] . 

a. The composition IPS = IPZ'IPl of IPl and IP2 
is given by IPS = (rj^, .... r^^) where rj = qpj for 
1 = 1 n. 

b. The conjugate IP3 =IP1«IP2«IP1-1 of IP2 by 
IPl is given by IPS = (r j^, . . . , r^ where rpj = pq- for 
i =1, . . . ,n. 

2. Programming considerations 

Depending on whether the input parameter EPAR is 
nonnegative or negative, subroutine PPRCN com- 
putes either the composition of IPl and IP2 or the 
conjugate of IP2 by IPl. 

Subroutine PERM is used to check that n is 
positive and that IPl and IP2 are permutation 
vectors on N. H n is not positive or if IPl and IP2 
are not both permutation vectors on N, computation 
is terminated as soon as the error is detected, and 
the error parameter lER is set to -1 or 1, re- 
spectively, ff there is no error, lER is set to zero. 

The computation of the resulting vector IPS pro- 
ceeds as follows. 

a. If IPAR is nonnegative, for each i, i = 1, , 

n, IP3(i) is set to IP2(IPl(i)). 

b. ff IPAR is negative, initially subroutine PERM 
is used to compute IP1~1, which is stored in IPS. 
Then, for i =1, . . . ,n, IP3(i) is set to IPl (IP2 
(IPS(1))), 

IPS cannot have the same storage allocation as 
IPl or IP2. IPl and IP2 are returned imchanged. 
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SUBRDUTINE PPRCN 

PURPOSE 

TO COMPUTE, GIVE'W T^O PERHUTATIUN VECTC-^S IPl ANO i?2, THE 



PPrfC 
PPAC 
PP(C 
PPRC 
PPRC 



COMPOSITION IP^dt'll AND THE CONJU^Art 1PI<IP2(|P1 INVe-SEnPPPC 
OF 1P2 BV IPl. (set THt GcNEBAL DISCUSSION fCR OtFINllIONS PPRC 
ANO NOTAIir>N.l ,„., 



USAGE 

CAIL PPRCNt IPt, IP£ 



rPliN.IPAP, lER) 



JtSCSIPTIDM OF PflKAMtTERS 



PPRC 1^0 
PPRC 130 



IP ! 
IP? 
iP3 - 

IPAR - 



- GIVEN Pt^MUfATION VECTOR (DIMENSIQK N) 
GIVEN PFUMUTflTIUN VcCTOfi (DIMCNSICN Nl 
RtSULTlNG PEKMUrAUUN VECTOR (^IMcNSION Nt 
LIMffJSlON F-F VECTORS IPl, IP2 ANC IP3 
INPUT PfliAMETEf 
IPAR NUN-NLGATIve - CUMPUTE |P2(1P1I 

j^Afl NECATive - ccf^Piire ipuip2(ipi inverse)) 

fESULTINC EtcQl- PAtAMETE-; 

N IS NUT POSITIVE 

NO ERRPK 

IPl ANO IP2 Ate NCT BDTH PEfM 

VtCTGRS UN 1 ,..,,N 



ie-< = 



AI IDN 



PPRC 150 
PPftC 160 

PP=f 170 
PPRC IHO 
PP*C ISO 
PP'^C 200 
PPRC 210 
PPRC 220 
PPPC 230 
PPfiC 2aO 
PPRC 250 
PPf-C ZbO 
PPRC 270 
PPRC 280 
PP^C 290 
HcRt HAS BEEN NO COMPUIAnUN. ppRC 300 

IF lt.* = l, TMtN Cn«Pur«TjrN HAS 4E£N UNSUCCESSFUL DUE TOPPtsC 310 
tfiPOC INl- the PAPTIiL PENULTS FOUND IN IP2 ASE JSELESS.PPRC 320 
iAWE STORAGE ACLUCATIUN AS IPl OR PPRC 3?0 
PPRC 3*0 
PPRC 3^0 
tftUlREO PPRC 360 

*''"'" pp«r -fio 

SJSROUTINF PtKM IS USED TO ChECK THAT 1P| ANO I P2 ARE Pt«MU-PP(<C 400 

TATIUN VfcCT'l-S. IF IP^dPlI IS CONPUIEl), iP3II) IS SET TO PPRC 410 

IP2(IPI<I)» FOR 1 = I,,..,N. IF [PKIPZCPl INVLRSEI) IS PP^C 420 

CnnPUTED, FIRST H>i IS SET TO tPl INVtRSE &Y SUbRCUTINE PEfiMPPhC 43r. 

ANO THEN IPJUl lb SET TG IP I ( I P2 ( IP 3 ( 1 1) I FOR 1 = 1 M. PPkC 440 

PPRC 450 

PPRC 4tC 

, , , PPKC 470 

fctttUTINE PPKCNI IPl , I Pi , IPj.N, [PAR, IfcF 1 ppR^ 480 



IF ltR=-l 



INES ANO FUNCTION SUBPRUGRAMS 



iP^U ) . [P3I 1 ) 



CHECK THAT N IS PUSIIIVE ANJ IMAT JP2 IS 
CALL PERM( IP2. 1P3.\,-1 , I ER) 



1 S AN ERROR 



CHECK THAT If 1 ISA PERML 
1 CALL PERMI IPl, IP3,N,-1 , 1 ERl 



TATION VECTOK AND COMPI 



IFMcHIT,^, ? 



TEST IPAh FOR 
^ IFI 1PAR)3,5,5 

COMPUTE IPK 1P2( 1 

3 DO 4 1=1, N 
K-|P3( I ) 
J=IP21K) 

4 1P3( n = IPl( J( 
RETURN 

CTMPUTE 1P2UP11 

5 DO 6 1=1, N 
tC^IPllll 

6 IP3( n = IP2(Kl 

7 RETufN 
END 



TO sEc IF There is an errgb 



The DtSIRED OPERA 



INVERSE) ) 



PPRC 490 

PPRC 500 

PP-^C 510 

PPtC 520 

A Permutation vectdr pprc 530 

PPRC 540 

PPFC 550 

PPRC 560 

PPRC 570 

PrfC 580 
IPl INVERSE PPRC 590 
PPRC 600 
PPfC 610 
PPRC 620 
PPftC 6?0 



PPRC 640 

PPRC 650 

PPRC 660 

PPRC 670 

PPRC 660 

PPRC 690 

P^<iC 700 

PPRC TIO 

PPRC 720 

POrC 730 

PPRC 740 

PPRC 750 

PP^C 760 

PPRC 770 

PPRC 780 

ppsc 790 

PPRC aoo 



Subroutine PERM 

Subroutine PERM computes the permutation vector 
that is the inverse of a given permutation vector, 
the permutation vector that is equivalent to a given 
transposition vector, and a transposition vector 
that is equivalent to a given permutation vector. 
(See the general discussion for definitions and 
notation. ) 

1. Mathematical background 

Let N={l,...,n}. 

a. K IPl = (pj Pjj) is a permutation vector on 

N, its inverse, IP2, is given by IP2 = (r^, . . . , r^) 
where rpj =i for i = 1, . . . ,n. 

b. Let IPl = (tj, . . . , tjj) be a transposition vector 
on N. The computation of the permutation vector 
that is equivalent to IPl is based on the identity: 



n \ /■ V /I ... i 

I • (i, V.) = / 

s I l' I s, . . . s 

n/ \ 1 \ 



n 
(1) 



Applying (1) for i = 1, ... ,n to the right-hand side of 
the identity 



(l,t^).., 
there results 



•(n.tn) 



n/ <^'V 



•(n,t ) 
n 



(^•v----(-.y=(q^:::^) 



The desired permutation vector, IP2, is IP2= (q , 

■•■•V- 

c. Let IPl=(pj^, . . . jPu) be a permutation vector 
on N. The computation of a transposition vector 
that is equivalent to IPl is based on the identity: 



1 .. . n 



= (i. s.) 



i .. . k 



1 . . . s. . . . s 
1 n 



(2) 



for i • 

Pk=i- 
write; 



■ 1, . . . ,n where for each i, k is such that 
Using (2) with i successively 1, . . . , n we may 




= (l,t^)-....(n.t^) 
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for some t.eN. The desired transposition vector is 
IP2=(t^,..',t^). 

2. Programming considerations * 



.PEK 



Depending on whether the input parameter IPAR is 
negative, zero, or positive, subroutine PERM 
performs the computation described above in la, 
lb, or Ic, respectively. 

If n is not positive, there is no computation and 
the error parameter lER is set to -1. If IPAR is 
not zero and IPl is not a permutation vector on N, 
or if IPAR is zero and IPl is not a transposition 
vector on N, computation is terminated as soon as 
the error is detected and lER is set to 1. If there 
is no error, lER is set to zero. 

The computation of the resulting vector IP2 pro- 
ceeds as follows. 

a. If IPAR is negative, for each i, i=l, . • • , n, 
IP2(IPl(i)) is set to i. 

b. If IPAR is zero, initially IP2(i) is set to i for 
i=l, . . . ,n, and then for i=l, . . . ,n in that order, 
IP2(i) and IP2(IPl(i)) are interchanged. 

c. If IPAR is positive, initially IPl is moved to 
IP2, and then the following two steps are repeated 
for i successively 1, . . . ,n: 

(1) Find the smallest j s i such that IP2(j)=i. 

(2) SetIP2(j) toIP2(i). 

IP2 cannot have the same storage allocation as IPl. 
IPl is returned unchanged. 



SUBROUTINE PER"^ 



P6RH 
PERM 
PEPM 
PER^* 
GIVEVPERM 



PUKPOSt 

TO COHPUTE iHt PEi'.IUTATICM VtCTHR TH*t IS INVtkSE 

PEPMUTATIOh VECTOk. THE PERMUTATION VtCTOF THAT IS EOUIVA- PE^H 

LENT TO A GitfEN TKANSPOSl T ICN VECTQK *N0 A TKANSPOiUlON ofok 

VCCTfR THAT IS ECUIVALENT TO A GIVEM PtaHUTATION VECTOR. 

(SEE THE GENtHAC UISCUSSION FOS OCFINlTIUhS *Na NOTATION.! 



PE^^H llO 

P€RM 120 

PfftM 130 

P£tM 140 

PE«M 150 

PEtlH 160 

PESH 170 

pe«M 160 

PERH 190 

ogcM 200 

PFRK 210 



USAC7E 

CALL PEBH(IPl.iP2.N.IPAP,IEF) 

DESCRIPTION Of PARAHETERS 

IPl - GIVEN PESKUTSTION Of TF ANSPOSI T lUN VECTOF 

(OlMENilON N) 
IP2 - RtiULTlNl, PERMUTATION OR TRANSPOSITION VECTOR 

(DIMENSION Nt 
N - DIMENSIUN GF VfcdGRS IPl AND IP2 

IPAR - INPUT PAKAMETER 

Ipif NElifiTlVE - COMPUTE TME PtPMUTATION VECTO'^ IPZ 
THAT Is THE INVERSE Cf TH£ PERMUTA- 
TICN VECTCK IPl 
IPAP = ZE-^'J - COMPUTE THE P£RMUf6TI0N VECTnc ip2 
THAT IS ECUIVALENT TU THE TRANSPOSI 
TION VECTOR IPl 

COMPUTE A TF'NSPOSITinN VECTOR IPZ 
THAT IS E&UIVALEM TO THE PE RMUT ATI OMPERM 300 

PERM 3li1 
PtKM 320 
PERM 330 
PERM 340 
PERMUTATION VECTOR 3R PERM 350 



IPAP PGSITIVE 



PERM 240 
PERM 250 
PERM 2fr0 
PERM 270 
PERK 280 
PERU 290 



lEf^ 



f ESULTING 
IER=-1 - 
I£'t= - 
lto= I - 



VtCTOR IPl 

ES i-ct^ PAI- AMETEt 
N IS NOT POSI ri VE 
NO ERROR 
IPl 15 EITHE"; NCT 



Pffl-'l ?60 



REMARKS 
(11 
(21 



NGT A TrtANSPOSIIItiN VtCIuR ON I 

OEPENDING UN wHLTHfK I^AR IS NUN-iEPO OR PERM 370 

ie?0, PE5PECTIVELY PEJJ 3^0 

PERM 400 

IF IFF--1 THE=E HAS REEN NG COMPuTflT I ON, PE'*''. 410 

F bR-1. THEN CuMPUTATIQN HAS ftEEN UNSUCCESSFUL DUE THPERM 420 

ERROR ANU THE PARTIAL RESULTS fOUNO IN IP2 ARE USELESS. PERM 430 

"2 CaZt HAVE THE SAME STUKACt ALLOCATIL'N AS IPK PERM 440 



SUBROUTINES AND EUNCTION SUBPROGRAMS REgUUED 
NONE 



1P2( n IS SET 



METHOD 






( 1) 


IPAR NEGATIVE - 


SET TO I. 


(2) 


IPAR = ZERO ■ 


- INITIALLY 

i=i,....N 



TU I f-n" 



THth. FOK 1=1. 



(3) IPAR POSITIVE 



ORDER, 1P2II I «ND IPH IPUIII ARt 

INTtRCMANGEO. 

INITIALLY IPl IS MLJVEO TO IP?. THEN 

THE EOHCalNG Tr, ST£»i «Kt RtPttTEO 

FOR 1 SUCCESSIVELY ESU^L TO 1 "■ 

Ol flNO THE SM4LLEST J CREStER THAN ORPERK 590 

EQUAL If 1 iUCrt IhAT 1P3U1.1. PER" <-00 

,81 SET IP^IJ, TO ,P2,,,. PEPJMO 

PERM 630 



PERM 450 
PEf^f^ 460 
PERM 470 
PER** 480 
PERM 4'30 

) ) IS PERM 500 
PERM 510 
PEtM 520 

IN TriATPEKM 530 
PERM 540 
PEhM 550 
PERM 560 
PErtM 570 
PEf f 580 



SJBRCUI INE PeRM(|PliiP2,N,IPAR,IEK) 



I.IMENSION IPHH.IP2(1) 

TEST DIMENSION 

IFINI19, iq.i 

TEST IPA" TO OETEfMINE whETHEP [PI IS TO BE iNTEfP^ETED AS 
a PERMUTATION VECILR Ot AS A TRANSPOSITION VtCTOR 
I If I JPAS )Z, 13t2 

CHtCK THAI IPl IS A PERMUTATION VECTOR ANC COMPUTE IPl INVERSE 
i DC 3 I-liN 
; IP2(II=0 
DO 6 1 = UN 
K=IP1( I) 
IF <K-N)4,5,20 

4 1F(K)20,20.5 

5 IF( IP2(K) »20t6,Z0 

(, IPZtKI^I 

TEST IPAR FOR THE OESIRED OPERATION 
1F( IPAPl 12, 7, 7 

COMPUTE TRANSPOSITION VECTOR IP2 FOR PtRMUTATICN VECTOR iPl 

7 DC fl 1=1. N 

8 iP2( I i = !pnn 

NN=N-1 

IF (NNl 12, 12, "3 
<3 DO 11 1 = 1. NN 
CD 10 J=I.NN 
1F(1P2( J)-I » 10.11. 10 

10 CUNTINUE 

11 IP2(J1=IP2(II 

NORMAL RETURN - NO ERROR 

12 1£C=0 
RETURN 

COMPUTE PtRMUTATION VECTOR IP2 FOR TRANSP tlS [ T ICN VECTOR IPl 

1 3 DO 14 1 = 1. N 

14 IP2)11=I 

00 IS 1 = WN 

<= ipu n 

IH«-I)15,18,16 

15 IHK)20,20,11 

it [FiN-K)20, 17. 17 
17 J=IP2( I I 

IP2( 11 = IP2(K| 

IP2(Kl=J 
le CONT INUE 

GO fO 12 

ERROR RETUliN - N IS NOT POSITIVE 

19 IER=-l 

RETURN 

ERROR RETURN - [Pi IS EITHER NOT A PER^UIAIION VECTOR 
TK NOI A TRANSPCSITICN VtCTOP 

20 IEi: = l 
RETURN 

END 



PERM 640 
PER*! 650 
PERM 660 
PERK 670 
PERM 680 
PERM 6S0 
PEFM 700 
PERM 710 
PERM 720 
OEPK 730 
PECK 740 
PERM 750 
PERM 760 
PERK 770 
PERM 780 
PERM 790 
PERM 800 
PERM 810 
PERM 320 
PERM 830 
PERM 840 
PERM 850 
PERM 860 
PERM 870 
PERM 880 
PERM 890 
PERM <)00 
PERM 910 
PERM 920 
PERM 930 
PERM 940 
PERM 950 
PEtM 960 
PERM 970 
PERM 980 
PECK 990 
PERMIOOO 
PERMIOIO 
oFflMl02fl 
PE^Miri30 
PEftM1040 
PEi^MlOSO 
PERM1060 
PERM1070 
P£f M1080 
PERM I 090 
PERMllOO 
PE«^M1110 
PfRMIUO 

Pt-ftMll30 

PePMll40 
PERMilSO 
PERM1160 
PERMinO 
PERMlieO 
PERM1190 
PERH1200 
PERMISIO 
PERM1220 
P£fiM1230 
PERMli40 
PERM1250 
PEfiHI260 
PERMI270 
PEfiMl280 
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Sequences: Sums and Limits 
Subroutines TEAS and DTE AS 

The problem is to assign a scalar value S to a given 

sequence Xj^, X2, X3 In case of convergence 

of the sequence, S should be the limit. The Epsilon 
algorithm possibly increases the speed of conver- 
gence and determines an approximate value FIN of S 
in terms of the given members of the finite sequence 

Xl. Xg, Xg, ..., x^. 



The values in the third column (with superscript 3) 
are derived from three consecutive members of the 

sequence; for example, x; ' is derived from x^^^ 
(1) (1) '^ 2 ' 

Xg and X . Generally, the column with super- 
script 2k + 1 (k = 1, 2, 3, . . . ) contains quantities 
derived from 2k + 1 consecutive members of the 
sequence. The intermediate values with even super- 
scripts are auxiliary quantities. 

The Epsilon algorithm is based on the following 
relationship: 



1. Theoretical background 

The value FIN is calculated by means of the Epsilon 
algorithm (see Figure 16). 

The first column (with superscript 1) is identical 
to the given sequence: 



x.<^) = x(^ - 
1 1 + 1 



xf > = 



2) 



.(k - 1) ^(k - 1) 



i + 1 



- x; 



(k= 2,3,4....) 
(i = 1, 2, 3, . . . ) 

(1) 



.(1) 



(i = l, 2, 3, ...) 




Figure 16. The complete Epsilon array 



With this fundamental relationship the complete 
Epsilon array shown in Figure 16 is built up from 
left to right. 

2. Programming considerations 

Subroutines TEAS and DTE AS generate only the first 
five columns of the complete Epsilc«i array; this E-2 
transformation is used in an iterative way. Within 
one iteration the quantities in the upward diagonals 
are computed in a DO-loop by means of the algorith- 
mic relationship (1), This process requires six 
auxiliary storage boxes (Wl, W2, W3, W4, W5, W6). 



The values in the fifth column x^^\ x^^^ 



.(5) 



1 ' "2 ' •• 
are successively stored in x(l), x(2). 



NEW-4 
x(NEW-4) as long as they are finite. 

(5) 
If a term x; in the fifth column becomes for- 
mally infinite, the values x| ' up to x^^^^ are can- 
celled and x/^^ is stored in x(l), x^ ' in x(2), 

and so on. Hence, after one iteration no component 
of the transformed vector x becomes infinite except 
possibly the last. 

Consecutive equal terms in the COlUffllJ With 
superscript k(k=l, 2,3) are reproduced in the 
column with superscript k + 2. The basic mesh of 
the E-2 transformation is shown in Figure 17. 

As a nonlinear algorithm the E-2 transformation 
is sensitive to roundoff errors; therefore special 
procedures are incorporated to avoid undue loss of 
accuracy: 
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Figure 17. Basic mesh of tlie E-2 transformation 



a. If there Is an intolerable loss of significance 
in the calculation of a term in the third or 
fifth column, TEAS or DTEAS transfers out 
of the diagonal loop and uses for further 
calculation only those components of vector 
X, which have already been transformed. 

b. If two consecutive quantities in the second 

(2) (2) 

column X. ' and x. (see Figure 17) are 

nearly equal, x.^ ' is large and ill-determined. 
Therefore, if: 



(2) (2) (3) 

c. If X and x. ' are exactly equal, x. be- 
i i + l 1 

comes infinite, and the singular rule for the 

Epsilon algorithm is simply: ^ 



x.^^=xf^.x<3\-x<^> 
i-1 1+1 i-l 1+1 



(4) 



d. If three or more consecutive terms in the 
second column are equal, singular rule (4) 
cannot be applied; the corresponding iterated 
members of the sequence in the fifth column 
become formally infinite. 
Iteration is terminated if one of the following condi- 
tions holds true: 

a. Three times in succession the relative dif- 
ference between neighboring transformed 
terms X(I) = x^ is not greater than EPS; that 



is, 



x. -X. I<EPS- x. , 
1 1+1 - I 1 + 1 



(i = k, k+1, k + 2) 
(5) 



In case Ix. I< 1, the relative difference (5) 
is replace\l by the absolute 



X -X |< EPS 
i 1 + 1 ~ 



(i = k, k+1, k + 2) 
(6) 



|x<^) -x(2) 

1 + 1 I 



< 10-^ .^\ 

= I 1+1 

in single precision orV (2) 



b. The number of the transformed members of 
sequence (NEW-fMIN) is less than six. 



^\ - x(2) 

1+1 1 



< 10 



-12 



,(2) 



i + l 
in double precision 

subroutine TEAS or DTEAS calculates the 

(5) 
iterated member of the sequence x; . with 



a singular rule: 



x(^> • W7 
(5) _ i 



i-l 



i-l 



1 + W7 



(3) 



x 



where W7 



(3) 
1 + 1 



f-\ 



X 



.(1) 
i + l 



^(3)_^(3) ,(3)_^(3) ,(3)_m 
i i+l 1 1-1 1 1+1 



This requires two more auxiliary storage 
locations W7 and T. 



In the first case Xj^ _^ 2 i^ returned as result value 
FIN, and lER = as the error parameter. Qi the 
second case the values lER = 1 and FIN = X]^ are 
returned. 

Some remarks are in order. First, the user 
must specify N — that is, the dimension of the input 
vector x—so that the character of the infinite se- 
quence is recognizable. Second, subroutine TEAS 
or DTEAS works satisfactorily if the convergence of 
the given sequence is a geometric one; that is. 



X - S = A 
n 



x"+0(x\ 



Ixl <i 



(7) 



For reference see: 

(1) Shanks, Algorithm 215, CACM 1963, no. 11, 
p. 662. 

(2) P. Wynn, "Singular Rules for certain nonlinear 
Algorithms," BIT vol. 3, 1963, pp. 175 - 195. 
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SUBROUriNE TEAS 

PURPOSE 

CALCULAFE THE LIMIT OF A GIVEN SEQUENCE BY MEANS OF THE 
EPSILON-ALGORITHH. 

USAGE 

CALL TE*SIX,N.FIN,6PS. EERt 

DESCRIPTION OF PARAMETERS 

X - VECTOR WHOSE COMPONENTS ARE TERMS OF THE GIVEN 

SEflJENCE. ON RETURN THE COMPONENTS OF VECTOR X 
ARE OeSTROVEO. 
N - DIMENSION OF INPUT VECTOR K. 

FIN - RESjtTANT SCALAR CONTAINING ON RETURN THE LIMIT 

OF THE GIVEN SEQUENCE. 
EPS - AN INPUT VALUE, **HICH SPECIFIES THE UPPE« eOUND 

OF THE RELATIVE (ABSaUTEl ERROR IF THE COMPONENT 
OF X ARE AaSOLUTELY GREATEH (LESS) THAN ONE. 
CALCULATION IS TERMINATED AS SOON AS THREE TIMES 
SUCCESSION THE RELATIVE (ABSOLUTE) DIFFERENCE 
BETWEEN NEIGHBOURING TERMS IS NOT GREATER THAN EP: 
lER - RESULTANT ERROR PARAMETER CODED IN THE FOLLOWING 

FORM 
IER=C - NO ERROR 
IER=I - REQUIRED ACCURACY NOT REACHED WITH 

MAXIMAL NUMBER OF ITERATIONS 
IE«=-l - INTEGER N IS LESS THAN TEN- 
REMARKS 

NO ACTION BESIDES ERROR •lESSAGE IN CASE N LESS THAN TEN. 
THE CHARACTER OF THE GIVE^J INFINITE SEQUENCE MUST BE 
RECOCNUABLE BY THOSE N COMPONENTS 3F THE INPUT VECTOR X. 



METHOD 

THE CONVERGENCE OF THE GIVEN SEQUENCE IS ACCELERATED BY 

MEANS OF THE E ( 2 1 -Tft ANSFORMflT I ON , USED IN AN ITERATIVE WAV 

FOR REFERENCE, SEE 

ALGORITHM 215, SHANKS. CACM 1763, NO. lU PP. 66?. AND 

P. wYNN. sin:;ular rules for certain non-linear algorithms 

6IT VOL. 3, 1963, PP. l/S-I^S. 



50 



TEAS ID 
.TEAS 2 
TEAS 30 
TEAS 
TEAS 
TEAS 

TEAS 70 
TEAS 80 
TEAS 90 
TEAS 100 
TEAS 110 
TEAS IZO 
TEAS 130 
TEAS i-iO 
TEAS 150 
TEAS 160 
TEAS 170 
TEAS ISO 
TEAS 190 
TEAS 200 
TEAS 210 
TEAS 220 

INTEAS 233 
TEAS 2A0 

S.TEAS 250 
TEAS 260 
TEAS 27C 
TEAS 280 
TEAS 290 
TEAS JOO 

TEAS an 

TEAS 320 
TEAS i30 
TEAS 340 
TEAS 350 
TEAS 360 
TEAS 370 
TEAS 380 
TEAS 393 
TEAS 400 
TEAS 410 
TEAS 420 
TEAS 430 
TEAS 44D 
TEAS 450 
TEAS 460 
TEAS 4T0 
TEAS 480 



.TEAS 4')D 



.N,F IN, EPS, lER 



SUBROUTINE TEASIK 

DIMENSION X( 11 

TEST ON WRONG I-JPUT PARAMETER N 

NEH = N 
IF(NEW-10H.2,2 

1 IER=-1 

RETURN 

CALCULATE INITIAL VALUES FOR THE EPSIL3N ARRAY 

2 ISW1=0 
ISW2=0 
Wl=1.638 
W7=K(4)-X( 3) 
IF(W7( 3,4,3 

3 Wl = U/H7 

4 W5=t.E3S 

W7 = X(2I-X( 1 I 
IF(H7I5.6,5 

5 W5=I./W7 

6 W4=X( 3)-X( 21 
IF1W4I9,7,9 

7 W4=1.E38 
r=X(2t 
H2-X(3I 

8 W3=l.E38 
GO TO 17 

9 W4=l./W4 



W7=W4-W5 

IF(W7 ( 10, 11, 10 

10 T=X(2)*l./tf7 

11 W2=Wl-W4 
IF1W2I15,12,15 

12 M2=1,E38 

iFI T-1.E38) 13, 14, 14 

13 1SH2=1 

14 W3=W4 

GO TO 17 

15 W2=X(3l*t./W2 
H7=H2-r 
IE(M7n6,8,U 

16 W3=M4«1./W7 

17 ISWi=ISW2 

ISH2-C 
IMIN=4 

CALCULATE DIAGONALS Of THE EPSILON AHRA 

00 40 1=5, NEW 
I AUS=I-IMIN 
W4=l.£38 
H5 = X(I-n 

MT=K( I J-X( I-l ) 
rFIW7)i8,24tl8 

18 W4-1./W7 

IF(Wl-l .E3B1 19,25,25 

19 W6=W4-W1 

TEST FOB NECESSITY OF A SINGULAR RULE 

IF IAflS( W6)-ABS( W<.)« 1. E-4) 20 , 20. 22 

20 ISW2=1 
IF(H6)22, 21,22 

21 W5=I.£38 
W6=W1 

IF( W2-1 .£38126,26,26 

22 W5=X( [-1I*I ./W6 



TEAS 5?0 
TEAS 510 
TEAS 520 
TEAS 530 
TEAS 540 
TEAS 550 
TEAS 560 
TEAS 570 
TEAS 580 
TEAS 590 
TEAS 600 
TEAS 610 
TEAS 620 
TEAS 630 
TEAS 640 
TEAS 650 
TEAS 660 
TEAS 670 
TEAS 680 
TEAS 690 
TEAS 700 
TEAS 710 
TEAS 720 
TEAS 730 
TEAS 740 
TEAS 750 
TEAS 760 
TEAS 770 
TEAS 7B0 
TEAS 790 
TEAS 800 
TEAS 81? 
TEAS 820 
TEAS 830 
TEAS 840 
TEAS 850 

ItflS 860 

TEAS 870 

TEAS aao 

TEAS 890 
TEAS 900 
TEAS 910 
TEAS 920 
TEAS 9 30 
TEAS 943 
TEAS 950 
TEAS 960 
TEAS 970 
TEAS 980 
TEAS 990 
TEASIOOO 
TEASIOIO 
T£AS1:J20 
TEAS1030 
TEAS1040 
TEASI050 
TEflS1060 
IE AS 1170 
TEASIOSO 
TEaS109f> 
lEASllOO 
TEASUIO 
TEASU20 
TEAS1130 

TEAS1150 
TEASIUO 

TEASllTO 
TEASllaO 
TEASI,190 
TEASUOO 
IEAS1210 
TEflSI220 
IEAS1230 
TEAS1240 
reAS1250 
TEAS1260 
TEAS1270 
TEAS12aO 
TEAS1290 
TEASI300 



C FIRST TEST FOR LOSS OF SIGNIFICANCE 

c 

IF(AeS<H5)-AeS(XII-in*l,E-S)23,24,24 

23 IF(W5) 36,24,36 
C 

24 WT>M5-M2 

If (W7»27,25,27 

25 M6=1.638 

26 ISW2-C 

X( IAUS)*H2 
GO TO 37 

27 M6-Wt»l./M7 

28 IFIISUt-1133.29.29 

; CALCULATE XCIAUSI WITH HELP OF SINGULAR RULE 

29 IFIW2-1. £38130,32. 32 

30 WT^WS/IW2-W5)*'T/IW2-T)+X(I-2)/(X( 1-21 -W2) 
IF11.*WT)31.38.31 

31 Xf IAUS)=H7*M2/( l.*W71 
GO TO 39 

32 X(IAUSI=W5»T-K(I-2| 
GO TO 39 

33 WT-W6-W3 
IFIW7t 34,38.34 

34 X(IAUS)>HZ^l./W7 

SECOND TEST FOR LOSS OF SI3N1FICANCE 

[F(*BS< XI lAUS I )-ABSIW2>*l.e-5t 35,37,37 
36 IF(X( lAUS) 136,37,36 

36 NEW-IAUS-1 
ISW2=0 

GO TO 41 

37 IF(W2-L.E3St39.38.38 

38 X(UUSI*1.E38 

IHIN-I 

39 H1>'W4 
T = H2 
H2>=W5 
W3-W6 
ISW1=[SW2 

40 ISH2=0 

NEW^NEW-IMIN 

TEST FOR ACCURACY 

41 IEN0=NEW-1 

DO 47 [=1, lENO 

Hi=A3six(n-x(i*in 

WZ=A8SIX(I»n) 
IF(Hl-EPS)44,44.42 

42 IF(H2-L.)46.46,43 

43 IF(HL-EPS«H2I44,44|46 

44 ISW2^ISH2+1 
IFI3-ISH2I45,45,47 

45 F1N>X( I I 
IER-0 
RETURN 

46 ISM2-0 

47 CQNTINUE 

IF<NEU-6148,2.2 

48 FIN'XINEU) 
lER-l 
RETURN 

END 



TEASDIO 
TEASL320 
rEASl330 
FEAS1343 
TEAS1350 
rEllSl360 
TEAS1370 
TEAS1390 
TEAS1390 
TeAS1400 
TE«S1410 
TCAS1420 
T£AS1430 
TEAS1440 
TEAS1450 
TEASt46C 

TeAsi4rQ 

TEASl4e0 

reASi490 

TEASISOO 
TEASISID 
TEAS1520 
TEAS1530 
TEAS1540 
TEAS1550 
TEAS1560 
TEASlSrO 
TEASISBO 
rEA51590 
TEAS1600 
TEASIMO 
TEAS1620 
rEAS1630 
TEASI640 
TEASL65D 
TEAS1660 
TEASI670 
TEAS1660 
rEASl690 
TEASITOO 
TEAS1710 
TEASI720 
TEAS1730 
TEAS1740 
TEAS1750 
TEAS1760 
TEASI770 
TEASI780 
rEAS1790 
TEASiaOO 
TEAS1810 
TEASia20 
TEAS1S30 

TeASie40 

TEAS1850 
TeA5l860 
TEASUTO 
TEASieSO 
rEAS1890 
TEAS1900 
TEAS1910 
TEASI920 
TEAS1930 
rEAS1940 
r€AS19$0 
TEAS1960 
TEAS 1 970 
TEAS1980 
rEASl990 
TEAS2000 
TEAS2010 
TEAS2020 
TEAS2030 
rEAS2040 
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SUBROUTINE OTEAi 

PURPOSE 

CALCUL4TE THE LIMIT OF & GIVEN SEQUENCE BV MEANS DF THE 
EPSlLON-ftLGORITMM, 



USAGE 

CALL DTEAS(KiN,FINtEPS.I€«I 

DESCRIPTION OF PARAMETERS 

X - DOUBLE PRECISION VECIOft MM3SE COMPONENTS 

OF TME GIVEN SEOJENCE. 3N RETURN THE COMi 

VECTOR X ARE OESTROYEO. 

N - DIMENSION OF INPUT VECTDR K. 

FIN - RESJLTANT SCALAR IN OOJBLE PRECISION CDN 

RETJHN THE LIMIT OF THE GIVEN SEOJENCE 
EPS - SINGLE PRECISI3N INPUT VALUE, WHICH SPEC 

UPPER BOUND OF T^E RELATIVE < ABSOLUTE I 
COMPONENTS OF K ARE ABSOLUTELY GREATER ( 
ONE. 

CALCULATION IS TERMINATED AS SOON AS THRI 
SJCCESSION THE RELATIVE (ABSOLUTE) DIFFE 
BETrfEEN NEIGHBOURING TERMS IS NOT CREATE^ 
lER - RESULTANT ERROR PARAMETER CODED IN THE I 

FORM 
lE^^O - NO ERR3R 

IE<=1 - REQUIRED ACCURACY NOT REACHED 
MAXIMAL NUM8E* OF ITERATIONS 
- INTEGER N IS LESS THAN TEN. 



TAININC ON 

IFIES THE 
RR3R IF 
LESSI THAN 

EE TIHES 
RENCE 

AN EPS 

OLLOWING 



REMARKS 

NO ACTION BESIDES ERROR MESSAGE IN CASE N LESS THAN TEN. 
THE CHARACTER OF THE GIVEN INFINITE SEQUENCE MUST S£ 
REC0GNWA8LE BY THOSE N COMPONENTS OF THE INPUT VECTOR K. 

SUBROUTINES AND FJNCTION SLI9PR0GRAHS REQUIRED 
NONE 

METHOD 

THE CONVERGENCE OF THE GIVEN SEQUENCE IS ACCELERATED BY 

MEANS OF THE E( 2)-TRANSF0RMAT10N, USED IN AN ITERATIVE WAY 

FOR REFERENCE. SEE 

ALGORITHM 215, SHANKS, CACM 1963, NO. 11. PP. 662. AND 

P. HYNN, SINGULAR RULES FOR CERTAIN NON-LINEAR ALGORITHMS 

BIT VOL. 3, 1963. PP. tT5-l<)5. 



SUBROUTINE OTE AS t K, N.F IN. EPS, I ER 1 

DIMENSION X( 11 

DOUBLE PRECISION X , f 1 N . Wl , W2. W3 , w*, W5, W6, MT . T 

TEST ON WRONG INPUT PARAMETER N 

NEW = N 

IF(NEW-I0n, 2,2 
1 ieR=-l 
RETURN 

CALCULATE INITIAL VALUES F3R THE EPS1L3N ARRAY 



■,50 



2 1SH1=0 

ISW2=C 

Wl=l.D38 

M7 = XI<tI-X(3I 

IF(W7I3,«,3 

3 M1=1.D0/WT 

4 M5=1.D38 
K7=X(21-X( 11 
1F(W7»5,6,5 

5 W5=l.DO/W7 

fa WtsXf 31-X<21 
IFI ^^19.7.9 

7 H'i=l.D3B 
T=X(2I 
W2=X(31 

8 H3=l.D3e 
GO TO 17 

9 W4»I.D0/M4 

T=1.03a 
WT=W4-W5 
IFIW7I 10. 11.1? 
IC T=X<21tl.00/W7 

11 W2=«l-W* 
IF(M2t 15.12.15 

12 H2=1.038 
IF(T-1.038I 13, 14, l*. 

13 1SW2=1 
1<. W3 = M4 

GO TO 17 

15 W2=X( 3)*l.D0/M2 
HT=W2-T 
IF(W7I 16,S.16 

16 W3=l*4*1.00/W7 

17 ISWl^ISHZ 

I5WZ=0 
1MIN = *. 



CALCULATE DIAGONALS OF THE EPSILON ARRAY IN A DO-LOOP 



DO AO I»5»NEW 

IAU5=I-IMIN 

H4=1.038 

W5=XU-l» 

W7 = X( I I-X( I-U 

IF(H7118.24.16 

18 W4=1.D0/W7 

IF(W1-I.D36I19,25,25 

19 M6=H4-M1 

TEST FOR NECESSITY DF A SINGULAR RULE 

IFIOABS(H6)-0ABS<W* 1*1.0-12120,20,22 

20 ISVZ"! 
1FIW&) 22,21,22 

21 W5=1.D3B 
W63W1 
IFtW2-1.038l 29.26,2 6 

22 W5=X( I-il*1.00/M6 



DTEA 10 
DTEA 20 
DTEA 3C 
0T6A *0 
DTEA 50 
DTEA 60 
DTEA 70 
OTEA 80 
DTEA 93 
DTEA 133 
OTEA 110 
DTEA 123 
OTEA 130 
DTEA 140 
OTEA 150 
OTEA L60 
DTEA ITO 
OTEA 180 
OTEA 190 
DTEA 29t> 

EDTEA 210 
OTEA iiO 
DTEA 233 

NOTEA 240 
OTEA 250 

.OTEA 260 
OTEA 270 
OTEA 2B0 
DTEA 290 
OTEA 300 
OTEA 310 
OTEA 320 
OTEA 333 
OTEA 3*0 
OTEA 350 
OTEA 360 
DTEA 370 
OTEA 380 
OTEA 390 
OTEA 403 
DTEA ^.13 
OTEA 423 
OTEA 
DTEA 
OTEA 
DTEA *60 
DTEA 470 
OTEA *8C 
OTEA '►90 
DTEA SOD 
OTEA 515 
DTEA 523 
OTEA S33 
DTEA 543 
OTEA 550 
DTEA 550 
OTFA 570 
OTEA 580 
OTEA 593 
OTEA 6C0 
OTEA 610 
OTEA 620 
OTEA 633 
OTEA 640 
OTEA 650 
DTEA 650 
OTEA 470 
DTEA 683 
DTEA 690 
DTEA 730 
OTEA TIC 
OTEA 720 
OTEA 730 
OTEA 740 
OTEA 750 
OTEA 760 
OTEA 770 
DTEA 790 
OTEA 790 
OTEA 800 
DTEA BIO 
DTEA 823 
OTEA 830 
DTEA 840 
OTEA 850 
DTEA 660 
OTEA 670 
OTEA 680 
OTEA 890 
DTEA 900 
OTEA 910 
OTEA 920 
OTEA 930 
DTEA 943 
DTEA 950 
OTEA 960 
DTEA 973 
OTEA 980 
OTEA 990 
OTEAinOO 
DTEAIOIC 
OTEAiO20 
OTEAIOJO 
0TEA1040 
DTEA105C 
OTEA1050 
DTeA1370 

OTEAioao 

OTEMO'SD 
DTEAllOO 
DTEAlllO 
DTEAtlEO 
OTEA1130 
OTEA1140 
OrEAM53 
DTEAU60 
OTEAIWO 
DTEAI193 
DTEAI193 
DrEA1233 
DTEA121D 
OTEA1223 
DtEA1230 
DTEAU40 
DTEA125D 
OTeA1260 
OTEA1270 
OTEA1Z80 
DTEA1290 
OTEAHOO 
0TEA1310 
DTEAI320 



FIRST TEST FDR LOSS OF SIGNIFICANCE 

IFIDABSfUSt-OABStXI I-lt 1*1. 0-10)23. 24, 24 

23 If IH5I36,24,36 

24 W73W5-W2 
IF{WTI27,25,27 

25 H6=l.D3e 

26 I$W2-0 
X<IAUS)>M2 
GO TO 37 

27 W6-W1«-1.D0/U7 

28 IFIISHl-1133.29,29 

CALCULATE X(|AUS> WITH HELP OF SINGULAR RULE 

29 IFtH2-l .038130.32. 3Z 

30 H7«U5/IU2-W5t*T/(H2-Tl*X(I-2I/(X( I-2)-H2) 
IF(|.OQ4^W7l31t38|31 

31 X( I AUS)-M7»W2/< l.D0»H7l 
GO rO 39 

32 X( IAUS1-M5*r-X( 1-2) 
GO TO 39 

33 M7-W6-W3 
IF1W7I34.36.34 

34 XUAUSI^H2«^1.D0/W7 

SECOND TEST FOR LOSS OF SISNIFlCANCE 

IFfOABS ( XI IAUS»)-DAB$(«2) •1.0-10)35, 37,37 

35 IF1X(IAUSI)36,37.36 

36 NEW=IAUS-1 
ISH2=0 

GO TO 41 

37 IF(W2-l.03Bt39f 38,38 

38 X( lAUSI-l.Oaa 

IMIN=I 

39 UI=W4 

T=W2 
H2 = W5 
M3 = W6 
ISW1='ISH2 

40 1SU2=0 

NEW=NEtf-IHIN 

TEST FOR ACCURACY 

41 IENO-NEM-1 

00 47 I"-!, TEND 
H£l=DA8S(Xin-X(I*lU 
ME2-0AaScx( 1*1) I 
IFIHE1-EPS144,44,42 
4Z [F(HE2-1. 146.46,43 

43 IFlHEl-epS#He2)44,44,46 

44 ISW2'ISW2*l 
IF(3-1SW2>45.45,47 

45 FIN-x( I ) 
lER'O 
RETURN 

46 I SU2>>0 

47 CONTINUE 

IF(NEW-6)4fl,2.2 
4B FIN>X(NEM) 
IEft-1 
RETURN 
ENO 



OTEAt33a 

OTEA1340 
DTEA135a 
DTEA1360 
DTEA1370 
OTEAlSeO 
OTEA1390 
OTEA1400 
OTEA1410 
0TEAt42a 
OTEA1430 
0TEA1440 
DTEA1490 
0TEA1460 
OrEAl470 
OTEA14eO 
DT6A1490 
OTEAISOO 
OTEA1513 
DTEAISZO 
OTEAISSO 
OrEA154D 
DTEA1550 
OTEAi560 
OTEA1570 
OTEAlSeO 
0TEAIS99 
DTEAl60a 
0TEA161D 
DTEA1620 
DTEA1630 
DTEA1640 
OTEAlbSO 
OTEAL660 
OTEA16T0 
0TEA16B0 
DTEA1690 
OTEAI700 
OTEAlTtO 
OrEAI720 
DrEAL730 
DTEAI740 
DTEA1750 
DTEA1760 
0TEA1770 
OTEAlTaO 
DTEA1795 
DTEAieOO 
DTEA1813 
0TEAie20 
OTEAiBSO 
OTEA1840 
DTEA1853 
DTEA1B60 
OTEAISTO 
OTEA1683 
OTEAlfl90 
DTEA1900 
0TEA1910 
OTEA1920 
DTEA1930 
OTeAl940 
DTEA19S0 
OTEA1969 
OTeA19T0 
DTEA19B0 
OrEAl990 
DTeA2000 
DTEA2010 
OTEA2020 
0TEA2030 
DrEA2340 
OTEA2050 
DTEA2060 
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Subroutines TEUL and DTEUL 



Generally: 



-These subroutines calculate the sum value of the 

00 

series ^ F by means of a refined Euler trans - 

k= 1 ^ 
formation. 

The following abbreviations are used: 



A F. = F. 
1 1 



A F. =-rF. + F. 1 
1 2 |_ 1 1 + Ij 

A^F. =^rAF. + AF. ,l = 7rF+2r. , + F. 1 
i2Li i + lj4[i i + l i + 2j 

A^F. = I \aF. + a¥. 1 = 7 Tf. + 3F. + 
1 2L 1 i + lj 8Li x+1 

3F „ + F. J 
i + 2 1 + 3j 



. in„ ifm-l^ ni-l„ 1 1 r. 

A F. =- * F. + A F. J = — F. 

I 2 U^ 1 " I + Ij o"^ L ^ 



m 



m 



(1)F. , + (2)r. „ + ...+( JF. + 

i + l ' 1 + 2 \a-r i + m-1 

m 2-] 

m i + m J 



Euler transformation means that the given infinite 
series will be transformed as follows: 



k= 1 

The transformed series will converge whenever the 
given series does, and to the same sum. It may 
even converge when the parent series does not; in 
this case the sum is called the Euler sum of the 
parent series. 

A refined Euler transformation is explained by 
means of the following diagram. 



aF, A F, 



/ No '^ No / i 





.k" i i i 
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The computation is done in this way. First the 
absolute value U F I is compared with | F | (see dia- 
gram). In casei^F I < I F |, the value — (AF ) is 
added to the initial value "F (the beginning of the 
Euler transformation). Then I A F | Is compared 



with AF^ 



(see "YES" in diagram). 



In case I AF j > I F , the value AF is added to 

— F and, as next lAF I, is compared with IF I 

(see "NO"). This means that F is added unchanged, 

and the Euler transformation is delayed for one 
term, and so forth. 

If in this sequence of comparisons |a F 

^ F I is generally true, the value 

- (A F ) is added to the current sum in the sense of 

the Euler transformation. If it is not true, the 

value A F is added and the Euler transformation is 

delayed for one term — that is, the terms F , 

F , ... , F are added unchanged, and the trans- 

formation actually starts with term F 

The highest term in the scheme of calculation may 

be A^^F. (i = 1, 2, 3, . . . , MAX-15), in case 

MAX> 15. Hence a maximum of fourteen term.s of 
the series may be transformed in succession by 
Euler. If the procedure is not terminated up to this 
point, the index of the transformed terms is raised 
by 1, and a further unchanged term is added. 

The last term of the parent series which may be 
used by the computation is F . 

The procedure is terminated if with five succes- 
sive terms of the series the relative change of the 
sum value is less than EPS, or if MAX terms of 
the series were used for calculation. 

For reference see: 
(1.) F. B. Hildebrand, Introduction to Numerical 

Analysis , McGraw-Hill, New York/Toronto/ 

London, 1956, pp. 155 - 160. 
(2.) P. Naur, "Report on the Algorithmic Language 

ALGOL 60", CACM, vol. 3, no. 5 (1960), 

pp. 311. 



SUBROUTINE TEUt 

PURf>OSE 

COMPUTE THE SUH OF FCTKl FOR K FROM ONE UP TO INFINITY. 

\ 
USAGE 

CALL TEUL(FCr, SUN, MAX, EPS. lEftt 

PARAMETER FCT REQUIRES AN EXTERNAL STATEr^NT. 

DESCRIPTION OF PARAMETERS 

FCT - NAME OF AN EXTERNAL FUHCTIOM SUBPROGRAM USED. 

It COMPUTES THE H-TH TERM Of THE SERIES TO AMY 
GIVEN INDEX K. 
SUM - RESULTANT VALUE CONTAINING ON RETURN THE SUM QF 

THE GIVEN SERIES. 
MAX - INPUT VALUE* WHICH SPECIFIES THE MAXIMAL NUMBER 

OF TERMS OF THE SERIES THAT ARE RESPECTED. 
EPS - INPJT VALUE. MMICH SPECIFIES THE UPPER BOUND OF 

THE RELATIVE ERROR. 

SUMMATION IS STOPPED AS SOOM AS FIVE TIMES IN 
SUCCESSION THE ABSOLUTE VALUE OF THE TERMS QF THE 
THANSFORMEO SERIES ARE FOUNft TO BE LESS THAN 
6PS*(ABS0LUT£ VALUE OF CURRENT SUMI . 
lER - RESULTANT ERROR PARAMETER COOEO IN THE FOLLOWING 

FORM 
IEl-0 - NO EHRDR 
lER-L - REQUIRED ACCURACY NOT REACHED WITH 

MAXIMAL NUMBER OF TERMS 
lER — I - THE INTEGER MAX IS LESS THAN ONE. 

REMARKS 

NO ACTION BESIDES ERROR MESSAGE IN CASE MAX LESS THAN ONE. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTlKI MUST BE FURNISHED 
BY THE USER. 

METHOD 

EVALUAflON IS DONE BY MEANS OF A SUITABLY REFINED EULER 
TRANSFORMATION. FOR REFERENCE) SEE 

F.B. HILDEBRAND. INTRODUCTION TO HUNERtCAL ANALYSIS, 
MCGRAW/HILL. NEM V0RK/TaRQ*4Ta/LaND0M| 1956, PP. 159-160. AND 
P. NAUR. REPORT ON THE ALGORITHMIC LANGUAGE ALGOL 60* 
CACM, VOL.}, ISS.5 11960), PP.311. 



SUBROUTINE TEUL (FCT.SUM.MAX.EPS , lERl 

OIHENSION Y( LS) 

TEST ON MRONG ITtPUT PARAMETER MAX 

IFIMAXU.1.2 
, IER=-1 

GOTO 12 

INITIALIZE EULER TRANSFORMATION 

! IER«1 
1=1 
M"l 
N>I 

Y(1I-FCT(N1 
SUM-Y(U*.5 

START EULER-LOOP 



. I«U1 

1F( I-MAXI5t5. 12 
i M-I 

AHN=:FCT(NI 

DO 6 K-1,M 

ANP-(AMN«^YIKI I*. 6 

YIK)*AMN 
, AMN-AMP 

CHECK EULER TRA'tSFORMATION 

IF(A6S(AMN)-ABS(YtHt) 17.9,9 
■ IF(M-15)8,9,9 

I M-M+l 
YIMI-AMN 

AMN".5*AMN 

UPDATE SUM 

SUM'SUM-t-AHN 
IF(ABSIAMN)-EPS*A8S(SUMni0.10.3 

TEST END OF PROCEDURE 

J-J*l 

(F(J-5I4. 11. II 
IER>0 

RETURN 
END 



90 



TEUL 
TEUL 
TEUL 
TEUL 

TEUL 50 
TEUL 60 
TEUL TO 
TEUL SO 
TEUL 90 
TEUL lOo 
TEUL 113 
TEUL 120 
TEUL 130 
TEUL 140 
TEUL 150 
TEUt. 160 
TEUL ITO 
TEUL ISO 
TEUL 190 
TEUL 230 
TEUL 213 
TEUL 220 
TEUL 230 
TEUL 2«0 
TEUL 250 
TEUL 2S9 
TEUL 2T0 
TEUL 28C 
TEUL 290 
TEUL 300 
TEUL BIO 
TEUL 320 
TEUL 330 
TEUL 3*0 
TEUL 350 
TEUL 360 
TEUL 370 
TEUL 380 
TEUL J90 
TEUL *00 
TEUL 410 
TEUL *20 
TEUL *30 
TEUL **0 
TEUL 450 
TEUL 460 
TEUL 4T0 
TEUL 460 
.TEUL 490 
TEUL 500 
TEUL 510 
TEUL 520 
TEUL 530 
TEUL 540 
TEUL 550 
TEUt. 560 
TEUL 570 
TEUL 580 
TEUL 590 
TEUL 600 
TEUL 610 
TEUL 620 
TEUL 630 
TEUL 640 
TEUL 650 
TEUL 660 
TEUL 6 TO 
TEUL 6B0 
TEUL 690 
TEUL 700 
TEUL 710 
TEUL 720 
TEUL 730 
TEUL T40 
TEUL 750 
TEUL 760 
TEUL 770 
TEUL 780 
TEUL T90 
TEUL 800 
TEUL BIO 
TEUL 820 
TEUL 830 
TEUL 840 
TEUL 85C 
TEUL 869 
TEUL 870 
TEUL %^^ 
TEUL 890 
TEUL 900 
TEUL 910 
TEUL 920 
TEUL 930 
TEUL 9*0 
TEUL 950 
TEUL 960 
TEUL 970 
TEUL 980 
TEUL 990 
TEUHOOO 
TEULlOlO 
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sueaouriNE oteul 

PURPOSE 

COHPUTE THE SUM Of FCriK) FOR K fROM ONE UP TO INFINITY- 
USAGE % 
CALL OTEULIFCr.SUH.MAX.EPS.lERI 
PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT. 

DESCRIPTION OF PARAMETERS 

FCT - NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SU6PR0GRAH USEO. IT COMPUTES THE K-TH TERM OF THE 
SERIES TO ANY GIVEN INOEX K. 
SUM - RESULTANT VALUE IN OOUBLE PRECISION CONTAINING ON 

RETURN THE SUM 3F THE GIVEN SERIES. 
MAX - INPUT VALUE. miCH SPECIFIES THE MAXIMAL NUMBER 

OF TERMS OF THE SERIES THAT ARE AE5PECTE0. 
EPS - SINGLE PRECISION INPUT VALUE. WHICH SPECIFIES THE 

UPPER 80UN0 OF THE RELATIVE ERROR. 
SUMMATION rs STOPPEO AS SOON AS FIVE TIMES IN 
SUCCESSION THE ABSOLUTE VALUE OF THE TERMS OF THE 
TRANSFORMED SERIES ARC FOUND TO BE LESS THAN 
EPS^IABSOLUrE I^ALUE OF CURRENT SUM». 
lER - RESULTANT ERROR PARAMETER COOEO IN THE FOLLOWING 

FORM 
IER=0 - NO ERR3R 
IEIl = l - REQUIRED ACCURACY NOT REACHED WITH 

MAKIMAL NUMBER OF TERMS 
lER — l - THE INTEGER MAX IS LESS THAN ONE. 

REMARKS 

MO ACTION BESIOES ERROR MESSAGE IN CASE MAX LESS THAN ONE. 

SUSROUrlNES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCT(KJ MUST BE FURNISHED 
BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF A SUITABLY REFINED EULER 
TRANSFORMATION. FOR REFERENCE, SEE 

F.e.HILOESRAND. INTRODUCTION TO NUMERICAL ANALYSIS. 
MCCRAtf/HILL. NEK TORK/TORONTO/LDNDON, 1956, PP. 155-160, ANO 
P. NAUR, REPJRT ON THE ALGORITHMIC LANGUAGE ALGOL 60, 
CACM, VOL.}. ISS.S (1960). PP. 311. 



20 



50 



BO 



DTEU 
..OTEU 
OTEU 
OTEU 
DTEU 
OTEU 
DTEU 
OTEU 
DTEU 90 
OTEU 100 
OTEU 110 
DTEU 120 
OTEU 130 
OTEU 140 
OTEU ISO 
OTEU 160 
OTEU 170 

DTEU lao 

DTEU 190 
OTEU 200 
OTEU 210 
OTEU 220 
OTEU 2 50 
OTEU 240 
OTEU 250 
OTEU 260 
DTEU 270 
DTEU 280 
OTEU 290 
OTEU 300 
OTEU 310 
DTEU 320 
DTEU 330 
OTEU 3*0 
OTEU 350 
DTEU 360 
DTEU 370 
OTEU 380 
DTEU 390 
OTEU VOO 
DTEU 410 
OTEU 420 
DTEU 430 
OTEU 440 
OTEU 450 
DTEU *60 
DTEU 470 
DTEU 490 
.OTEU 490 
OTEU 500 



SUflROUTINE DTEUL IFCT , SUM.MAX.EPS* lERI 

DIMENSION Y( 15) 

DOUBLE PRECISION FCT.SUH, V, AMN, AMP 

TEST ON MRONC INPUT PARAMETER MAX 

IFIMAX)M.2 
I IER--1 
GOTO 12 

INITIALIZE EULER TRANSFORMATION 

Z lER-l 
1 = 1 
M=l 
N=l 

Yt 1)>FCT(N) 
SUM=Y(l)».5O0 

START EULER-LOOP 

3 J«0 

4 1=1*1 
IFU-MAXI5,5,12 

5 N-I 
AHN-FCT(N) 
DO 6 K>1,H 

AMp.J AMN+Y(Kn*.5D3 
V(K1=AMN 

6 AMN- AMP 

CHECK EULER TRANSFORMATION 

IF ( DABS (AMNI -DABS (YtM> I 17.9,9 

7 IFtM-15}8,9,9 

8 M-M*l 
YIMI=AMN 

AMN*:.500*AMN 

UPDATE SUM 

9 SUM=SUM>AHN 

IFIAfiStSNGLIAHNl l-EPS*AeS( SNGL ( SUM) I 110.10.3 

TEST END OF PROCEDURE 

to J=J*1 

IFl J-51 4, 11,11 

11 IER-0 

12 RETURN 

END 



OTEU 510 
OTEU 520 
OTEU 530 
OTEU 540 
OTEU 550 
DTEU S60 
DTEU 570 
DTEU 5S0 
OTEU 590 
DTEU 600 
OTEU 610 
OTEU 620 
OTEU 630 
OTEU 640 
OTEU 650 
DTEU 660 
OTEU 670 
OTEU 630 
DTEU 690 
DTEU 700 
OTEU 710 
OTEU 720 
OTEU 730 
DTEU 740 
DTEU 750 
DTEU 760 
OTEU 770 
DTEU 780 
OTEU 790 
OTEU aoo 
OTEU 810 
DTEU 820 
DTEU 830 
OTEU 840 
OTEU «50 
OTEU 860 
OTEU 870 
DTEU 880 
OTEU 890 
OTEU 900 
DTEU 910 
DTEU 920 
OTEU 930 
OTEU 940 
DTEU 953 
DTEU 960 
DTEU 970 
DIEU 980 
DTEU 990 
DTEUIOOO 
OTEUIOIO 
DrEUl020 
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Interpolation, Approximation, and Smoothing 

Subroutines ALI and DALI 

These subroutines perform an Aitken- Lagrange inter- 
polation. Given the table x^, yj (i = 1, 2, . . . , n) of 
argument and function values stored in the two one- 
dimensional storage arrays ARG and VAL, the prob- 
lem is to interpolate function value Y at the given 
fKJint X. It is assumed that the table represents a 
single-valued function y = y(x) which is suitable for 
approximation by a polynomial + , and that 
|xj - X| > Xj - X| for i > j ^ 

Then, usii^ the following formulas: 
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1 
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it is possible to generate by row the triangular 
Aitken scheme shown in Figure 18. 



+ This order in table Xj, y^ (i = 1, 2, . . . , n) could 
be generated by subroutines ATSG, ATSM, ATSE, 
DATSG, DATSM, DATSE. 

++This means y(x) should be closely approximated by 
a polynomial of low degree which has the table 
points with arguments next to x as nodes. 






>'1,3 
^1,4 



^1,2,3 
^1,2,4 



''n ^n yi,n ^1,2,0 yi,2,3,n 



^1,2,3,4 



'1,2,3,. ..,n 



Figure 18, Aitken's scheme for Lagrange interpolation 



All result values of row j can be stored in VAL(J) . 
Thus, it is possible to generate the downward diago- 
nal of Aitken's scheme in storage array VAL, using 
the machine-processable formula: 



VAL(J) = 



VAL(I)*(X-ARG(J)) - VAL(J)*(X-ARG(I)) 



ARG(l) - ARG(J) 
(1= 1, 2, ..., J-1) 
for J = 2, 3, ... , NDIM. 



(1) 



The procedure stops under the following condi- 
tions: if the difference of two successive values in 
the downward diagonal is absolutely less than a given 
tolerance e (test starts at step J = 3) , or if the ab- 
solute value of this difference stops diminishing, 
thus showing the influence of rounding errors (test 
starts at step J = 5, or for double-precision, J = 8), 
or if the procedure has worked through the whole 
triangular Aitken scheme, or if it discovers two 
table points with identical arguments. 

Finally, Y is set equal to VAL(J) in case of mono- 
tonically decreasing absolute differences, or equal 
to VAL(J-1) if these differences start oscillating. 

For reference see F. B. Hildebrand, Introduction 
to Numerical Analysis , McGraw-Hill, New York/ 
Toronto/ London, 1956, pp. 49-50. 
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SUBROUTINE ALI 

PURPOSE 

TO INTERPOLArE FUNCTION VALUE Y FOR 4 GIVEN *«CUHENT V*LUE 

X USING A GIVEN TABLE (ARG.VAL) 3P ARGUMENT ANO fUNCTION 
VALUES. > 



CALL ALI IX,ARGtVALtr,N01HtEPSiIERI 

OESCRIPTION OF PARAMETERS 

X - THE ARGUMENT VALUE SPECIFIED BY INPUT. 

ARC - THE INPUT VECT3R lOIHENSION NOIMl DF ARiUMFNT 

VALJES OF THE TABLE (NOT DESTROVEDI. 
VAL - THE INPUT VECT3R (DIMENSION NDIMl OF FUNCTION 

VALJES Of THE TABLe (OESTROYEDI. 
V - THE RESULTING INTERPOLATEO FUNCTION VALUE. 

NOIM - AN INPUT VALUE KHICM SPECIFIES THE NUMBER OF 

P0I>4rS IN TABLE (ARGtVAL). 
EPS - AN INPUT CONSTANT WHICH IS USED AS UPPER BOJNO 

FOR THE ABSOLUTE ERROR. 

A RESULTING ERROR PARAMETER. 



ALI 
.ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 



lER 

REMARKS 

(11 TABLE (ARG.VALt SHOULD REPRESENT A SINGLE-VALUED 

FUNCTION ANO SHOULD BE STORED IN SUCH A WAY, THAT THE 
OlSTANceS ABSIARGU)-X) INCREASE WITH INCREASING 
SUBSCRIPT 1. TO GENERATE THIS OHOER IN TABLE lARG.VAL) 
SUBRQUTIJiES ATSG, ATSM OR ATSE COULD BE USED IN A 
PREVIOUS STAGE. 
121 NO ACTION BESIDES ERROR MESSAGE IN CASE NOIM LESS 

THAN I. 
(St INTERPOLATION IS TERMINATED EITHER IF THE DIFFERENCE 
BETWEEN TWO SUCCESSIVE INTERPOLATED VALUES IS 
ABSOLUTELY LESS THAN TOLERANCE EPS* OR IF THE ABSOLUTE 
VALUE OF THIS DIFFERENCE STOPS DIMINISHlNGi OR AFTER 
(NDIM-l) STEPS. FURTHER IT IS TERMINATED IF THE 
PROCEDURE DISCOVERS TWO ARGUMENT VALUES IN VECTOR ARG 
WHICH ARE IDENTICAL. DEPENDENT ON THESE FOUR CASES, 
ERROR PARAMETER lER IS CODED IN THE FOLLOWING FORM 
IER=0 - IT WAS POSSIBLE TO REACH THE REQUIRED 

ACCURACY (NO ERROR). 
IER=I - IT WAS IMPOSSIBLE TO REACH THE REOUtRECt 

ACCURACY BECAUSE OF ROUNDING ERRORS. 
IER-2 - IT MAS IMPOSSIBLE TO CHECK ACCURACY BECAUSE 

NOIM IS LESS THArt 3, OR THE REQUIRES ACCURACY 
COULD NOT BE REACHED BY MEANS OF THE GIVEN 
TABLE. NDll SHOULD BE INCREASED. 
I£R=3 - THE PROCEDURE DISCOVERED TWO ARGUMENT VALUES 
IN VECTOR ARG WHICH ARE IDENTICAL. 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
NONE 



ALI 
ALI 
ALI 
ALI 

ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 

ALI 

ALI 
ALI 

ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALl 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 



SUBROUTINE AL 1 1 X. ARG. VAL, Y,NOIM, EPS. lER) 



METHOD 

INTERPOLATION IS DONE BY MEANS OF AITKENS SCHEME OF 
LAGRANGE INTERPOLATION. O** RETURN Y CONTAINS AN I NTERPOL ATEDAL 
FUNCTION VALUE AT POINT X, WHICH IS IN THE SENSE OF REMARK ALI 
(31 OPTIMAL WITH RESPECT TO GIVEN TABLE. FOR REFERENCE, SEE ALl 
F.B.HlLDEBRANO, INTRODUCTION TO NUMERICAL ANALYSIS, ALI 

MCGRAW-HILL* NEW Y0RK/TDRONTO/LDNO0N» 1956, PP. 49-50. ALI 

ALI 

ALI 

ALI 
ALI 
ALt 
ALI 
ALI 
ALI 
ALI 
ALl 
ALI 
ALI 
ALI 
ALI 
AH 
ALI 
ALI 
ALl 
ALI 
ALI 



DIMENSION ARGI It.VALf 1 I 

IER=2 

0£LT2=0. 

IFIN0IM-1I9.7.I 

START OF AITKEN-LODP 
L 00 6 J*2,N0IM 

OELTI-DELTz 

IENO-J-1 

DO 2 I=L, lENO 

H-ARG<II-ARG(JI 

IFIHIZ, 13.2 
! VAL(J)='(VALIII«U-ARG(J)>-VAL(JI*(X-ARG{|} )I/H 

OELT2>ABS(VAL(J)-VAL(IENOI) 

IF(J-2I6.6.3 
i tF(0ELT2-EPS»10.10.4 

• IF{J-5l6,5t5 

> IF(0ELT2-0ELT1)6.11 .11 

• CONTINUE 

END OF AITKEN-LODP 

' J-NOIM 
I r>VAL(JI 
I RETURN 

THERE IS SUFFICIENT ACCURACY WITHIN NOlM-1 ITERATION STEPS 
I IER=0 
GOTO 8 

TEST VALUE DELT2 STARTS OSCILLATING 

IER=l 

: J>IEND 

GOTO a 

THERE ARE TWO IDENTICAL ARGUMENT VALUES IN VECTOR ARG 

|ER«3 

GOTO 12 

END 



ALI 
ALI 
ALl 
ALI 
ALI 
ALI 
*LI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 
ALI 



90 
103 
110 
120 
130 
1^3 
ISO 
IbS 
ITO 
IBO 
190 
230 
210 

220 

2 30 

2« 
Z50 
260 
2T0 
280 
293 
330 
310 
320 
330 
340 
350 
360 
JTO 
380 
390 
400 
*10 
420 
430 
440 
450 
460 
470 

4ao 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

630 

610 

6 20 

630 

640 

650 

660 

670 

680 

690 

TOO 

TIO 

720 

730 

T40 

750 

760 

770 

780 

790 

800 

810 

S20 

S30 

940 

850 

860 

870 

880 

890 

900 

910 

9 20 

930 

943 

950 

960 

970 

980 

990 



ALl 1300 

ALI 1010 

ALI 1323 

ALI 1330 

ALl 1040 

ALI 1350 

ALl 1060 

ALl 1370 

ALI 1080 



SUBROUTINE DAL I 

PURPOSE 

TO INTERPOLATE FUNCTION VALUE V FOR A GIVEN ARGUMENT VALUE 
X USING A GIVEN TABLE lARG.VAL) OF ARGUMENT ANO FUNCTION 

VALUES. 

USAGE 

CALL OALI 



IX.ARCVAL.Y.YOIH.EPStlERl 



OALI 
.DAL I 
DAL I 
DALl 
DAL I 
OALI 
DALl 
OALI 
OALI 
DAL! 
OALI 110 
DALl 120 
OALI 130 
OALI 143 



20 



70 



100 



DESCRIPTION OF PARAMETERS 

- DOUBLE PRECISnN 4RGUHENT VALUE SPECIFIED 8V INPUT. OALI ISO 

- DOUBLE PRECISION INPUT VECTOR (DIMENSION NOIHI OF OALI 160 
ARGUMENT VALUES DF THE TABLE (NOT DESTROYEO). 

- DOUBLE PRECISION INPUT VECTOR (DIMENSION NDlNl OF 
FUNCTION VALUES 3F THE TABLE (OESTROYEDI. 

- RESULTING INTERPOLATED DOUBLE PRECISION FUNCTION 
VALUE. 

- AN INPUT VALUE WHICH SPECIFIES THE NUMBER OF 
POINTS IN TABLE (ARG. VAL I. 

- SINGLE PRECISION INPUT CONSTANT WHICH IS USED AS 
UPPER BOUND FOR THE ABSOLUTE ERROR. 
FOR THE ABSOLUTE ERROR. 

- A RESULTING ERROR PARAMETER. 



ARG 



VAL 



NDtH 



EPS 



lER 

REMARKS 

(I) TA8LE lARG.VAL) SHOULD REPRESENT A SINGLE-VALUED 

FUNCTION AND SHOULD BE STORED IN SUCH A WAV, THAT THE 

DISTANCES A8SIARG(I)-X1 INCREASE WITH INCREASING 



DALl 170 
OALI 180 
OALI 193 
OALI 200 
OALI 210 
OALI 220 
OALI 230 
OALI 240 
DALl Z»0 
OALI 260 
DALl 270 
OALI 283 
OALI 290 
DALl 300 
DALl 31D 
DALl 320 



SUBSCRIPT I. TO GENERATE THIS ORDER IN TABLE (ARGiVALI. OALI 330 



SUBROUTINES DATSG, OATSM OR OATSE COULD BE USED IN A 
PREVIOUS STAGE. 
(21 NO ACTION BESIDES ERR3R MESSAGE IN CASE NOIM LESS 

THAN 1. 
(3) INTERPOLATION IS TERMINATED EITHER IF THE DIFFERENCE 
BETWEEN TWO SUCCESSIVE INTERPOLATED VALUES IS 
ABSOLUTELY LESS THAN TOLERANCE EPS, OR IF THE ABSOLUTE 
VALUE OF THIS DIFFERENCE STOPS DIMINISHING, OR AFTER 
(NOlM-1) STEPS. FURTHER IT IS TERKINATCD IF THE 
PROCEDURE DISCOVERS TWO ARGUMENT VALUES IN VECTOR ARC 
WHICH ARE IDENTICAL. DEPENDENT ON THESE FOUR CASES* 
ERROR PARAMETER lER IS CODED IN THE FOLLOWING FORM 
IER»0 - IT WAS POSSIBLE TO HEACH THE REQUIRED 

ACCURACY (NO ERROR]. 
IER=1 - IT WAS IMPOSSIBLE TO REACH THE REQUIRED 

ACCURACY BECAUSE OF ROUNDING ERRORS. 
IER=2 - IT WAS IMPOSSIBLE TO CHECK ACCURACY BECAUSE 

NOIM IS LESS THAN 3. OR THE REOUIREd ACCURACY 
COULD NOT BE REACHED BY MEANS OF THE GIVEN 
TABLE. NDIM SHOULD BE INCREASED. 
IEB=3 - THE PROCEDURE DISCOVERED TWO ARGUMENT VALUES 
IN VECTOR ARG WHICH ARE IDENTICAL. 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
NONE 



OALI 340 

OALI 350 

DALl 360 

DALT 3 70 

DALl 380 

OALI 390 

OALI 400 

OALI 410 

OALI 420 

OALI 430 

OALI 443 

OALI 450 

OALI 463 

OALI 470 

OALI 480 

OALI 490 

DALl 533 

OALI 510 

OALI 520 

DALl 530 

OALI 540 

OALI 550 

OALI 560 

OALI 5 70 

DALl 583 

DALl 590 

OALI 600 

OALI 610 



SUBROUTINE OALI (X, ARG, VAL , Y * NDIM,£PS, lERI 



METHOD 

INTERPOLATION IS DONE BY MEANS OF AITKENS SCHEME OF 
LAGRANGE INTERPOLATION. ON RETURN Y CONTAINS AN INTERPOLATEDOALI 620 
FUNCTION VALUE AT POINT X. WHICH IS IN THE SENSE DF REMARK OALI 630 
(3> OPTIMAL rflTH RESPECT TO GIVEN TABLE. FOR REFERENCE, SEE OALI 640 
F.e.HILDEBRANO. INTRODUCTION TO NUMERICAL ANALYSIS. OALI 650 

MCGRAW-HILL. NEW YORK/TORONTO/LONDON. 1956* PP. 49-50. DALl 660 

OALI 670 

OALI 68Q 

OALI 690 
DALl TOO 
DALl 710 
DALl 720 
DALl 730 
OALI 740 
OALI 753 
DALl 760 
OALI 770 
DALl 780 
DALl 790 
OALI 800 
DALl 810 
DALl 823 
OALI 830 
OALI 840 
OALI 853 
OALI 860 
DALl 870 

OALI sao 
DALl B90 
OALI 900 
OALI 913 
DALl 929 
OALI 930 
OALI 94C 
OALI 950 
DALl 960 
DALl 970 
DALl 980 
DALl 993 
DAL 1 1 003 
DALIIOIO 
OALIia20 
DALI1030 
DALItO40 
DALI1350 
OALI 1060 
OAL 11070 
DAL 11080 
OALI 1090 
DALI1103 
DALllUO 



DIMENSION ARGI l).VAL( I) 

DOUBLE PRECISION ARG. VAL .X. V.H 

IER=2 

OELT2-0. 

If (NOIM-1 19, 7,1 

START OF AITKEN-LOOP 
1 00 6 J-2,NDIH 
DELT1-DELT2 
IEND-J-1 
00 2 1= I. lEND 
H=ARGI I)-ARG(Jt 
IF(H)2. 13.2 

> VAL(JI*(VALIII*(X-ARG(J)I-VAL(J)*(X-ARG(II)I/H 
OELTZ-DABSIVALIJl-VALdENOn 
(F( J-2)6.6.3 

) IF(OELT2-EPS)10.10.4 
' IFIJ-8)6.5,S 

> IF(DELT2-0ELTn6. U.IL 

> CONTINUE 
ENO OF AITKEN-LOOP 

r j=NDIM 
I Y-VALIJ) 
I RETURN 

THERE IS SUFFICIENT ACCURACY WITHIN NDIM-l ITERATION STEPS 
I IER-0 
GOTO 8 

TEST VALUE DELT2 STARTS OSCILLATING 
lER-l 
: J"1£N0 
GOTO 8 

THERE ARE TWO IDENTICAL ARGUMENT VALUES IN VECTOR ARG 
. lER-3 
GOTO 12 
END 
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Subroutines AHI and DAHI 

.These subroutines perform an Aitken-Hermite inter- 
polation. Given the table xj, y^, yj (i = 1, 2 n) 

of argument, function and derivative values, stored 
in the two one-dimensional storage arrays ARG and 
VAL, the problem is to interpolate function value Y 
at the given point X. It is assumed that the table 
represents a single-Valued function y = y(x)' which is 
suitable for approximation by a polynomial ■*■, and 
that it is stored as shown in Figure 19 (first and sec- 
ond column) with |x. - X| >|Xj - Xl for i> j. 

Before starting Aitken's iteration scheme, the 
components of vector VAL (that is, function and de- 
rivative values) are replaced by interpolation values 
z. of first order (third column). This is done by the 
following machine-processable formulas: 



1,2 x^ - x^ 



2,3 x^ - x^ 



z^ x^ - X 



^2 ^ - ^ 
^3 ^2 - ^ 



1,2,3 Xg - x^ 



\,2 "l - ^ 
^2,3 ^2 - ^ 



2'^ ^^3 - ^2 



^3 ^2 - ^ 
z^ X3 - X 



2,3,4 x^ - x^ 



^2,3 ^1 - ^ 
""3,4 ""3 " ^ 



VAL(I) = Y + VAL(I+ 1) * H^ 

(1= 1,3, 5,..., 2 * NDIM-1) (1) 



VAL(I+1) = Y + (VAL(I+2)-Y) 



«l-«2 



(1= 1,3,5,...,2 * NDIM-3) (2) 



with 



Y = VAL(I), H^ = X - ARG(J-l), H^ = X - ARG(J) 
and 



J=^-+ 1 



1,2,3,4 Xg - Xj 



^1,2,3 ^1-^ 
"2,3,4 ^3 - ^ 



All result values of an upward diagonal can be 
stored in positions of vector VAL with decreasing 
subscripts, using the machine-processable formula: 



VAL(K) = 



VAL(K)*(X-H ) - VAL(K+1)*(X-ARG(L)) 



ARG(L) - H 



(J= 1,2,...,!) 



(3) 



with 

K = I + 1 
and 



'•M= [-¥\'-- [^] 



Now it is possible to generate successively the 
upward diagonals of the triai^ular Aitken scheme, 
usii^ the following formulas: 



H^ = ARG(]yi) 



for 1= 1,2,..,, 2 * NDIM-2. 



This order in table Xj, yj, y^ (1 = 1, 2, , , . , n) 
could be generated by subroutines ATSG, ATSM, 
ATSE, DATSG, DATSM, DATSE. 
■^This means y(x) should be closely approximated by 
a polynomial of low degree which has the table 
points with arguments next to x as nodes and which 
has the specified derivative values in these nodes. 



The procedure stops under the following circum- 
stances: if the difference between two successive 
interpolated values VAL(l) is absolutely less than a 
given tolerance e or if the absolute value of this dif- 
ference stops diminishing, thus showing the influence 
of roundii^ errors (test starts at step i = 5, or for 
double-precision, i = 8) , or if the procedure has 
worked through the whole triangular Aitken scheme, 
or if it discovers two table points with identical argu- 
ments . 
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ARG(1) = X| 



ARG^2) = 



ARG(NDIM) = ) 



VAL(l) = y, 
VAL(2) = Y\ 
VAL(3) - y^ 
VAL(4) = y^ 



VAL{2*N0IM-1) 
VAL(2*NDiM) 



VAL(1) = 2, 
VAL(2) = Zj 
VAL(3) = z^ 
VAL(4) = I. 



1,2 
^2,3 
'3,4 



1,2,3 
^2,3,4 



1,2,3,4 



SUBROUTINE AH I ( X 



fl^G.VAt.V.NOIH.EPS.IERI 



VAL{2*NDIM-1) 
= ^2n-l 



Figure 19. Aitken's scheme for Hermite interpolation 

Finally, Y is set equal to VAL(l) in case of mono- 
tonlcally decreasing absolute differences, or to 
VAL(l) of the step before if these differences start 
oscillating. 

For reference see: 

(1) F. B. Hildebrand, Introduction to Numerical 
Analysis , McGraw Hill, New York/Toronto, London, 
1956, pp. 49-50, 352-356. 

(2) Gershinsky/Levine, "Aitken-Hermite Inter- 
polation", JACM, vol. 11, iss. 3 (1964), pp. 352-356. 



suBRouriNe ahi 

PURPOSE 

TO INTEAPOLATE FUNCTION VALUE V FOR A GIVEN ARGUMENT VALUE 
X USING A GIVEN TABLE lAR&.VALI OF ARGUHeNT, FUNCTION, AND 
0€RIVATfVE VALUES. 

USAGe 

CALL AHI (K,ARG, 



AHI 
AHI 



,NOIH,EPStIERl 



AHI 

AHI 
AHI 



DESCRIPTION OF PARAMETERS 

X - THE ARGUMENT VALUE SPECIFIED BY INPUT. 

4«G - TH6 INPUT VECT3R (DIMENSION MOIM) OF AH&UMENT AHl 

VALUES OF THE TABLE (NOT DESTROYED). AHI 

VAL - THE INPUT VECTOR (DIMENSION 2«N0IM) OF FJNCirON AHI 

AND DERIVATIVE VALUES OF THE TABLE (OESTROVEDI. AMI 

FUNCTION AND DERIVATIVE VALUES MUST BE STORED IN AHI 

PAIRS, THAT MEANS BEGINNING; WITH FUNCTION VALUE AT AHI 

POINT ARGdl EVERY FUNCTION VALUE MUST BE FOLLOWED AHI 

BY THE VALUE OF DERIVATIVE AT THE SAME POINT. AHI 

V - THE RESULTING INTERPOLATED FUNCTION VALUE. AHI 

NOIM - AN INPUT VALUE WHICH SPECIFIES THE NUM8ER OF AHI 

POINTS IN TABLE (ARG.VALI. AHI 

EPS - AN INPUT CONSrANT WHICH IS USED AS UPPER SOUND AHI 

FOR THE ABSOLUTE ERROR. AHl 

A RESULTING ERROR PARAMETER. AHI 



AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 



lER 

REMARKS 

( 1> TABLE ( ARG. VAL > SHOULD REPRESENT A Sf NGLE -VALUED 

FUNCTION ANO SHOULD BE STORED IN SUCH A WAY, THAT THE 
DISTANCES ASS(ARG(M-XI INCREASE MiTH INCREASING 
SUBSCRIPT I. TO GENERATE THIS ORDER IN TABLE (Aft3,VALl, 
SUBROUTINES ATSG, ATSM OR AISE COULO BE USED IN A 
PREVIOUS STAGE. 
(2) NO ACTION BESIDES ERRDR MESSAGE IN CASE NOlM LESS 

THAN I. 
131 INTERPOLATION IS TERMINATED EITHER IF THE DIFFERENCE 
BETWEEN TWO SUCCESSIVE INTERPOLATED VALUES IS 
ABSOLUTELY LESS THAN TOLERANCE EPS, OR IF THE ABSOLUTE 
VALUE OF THIS DIFFERENCE STOPS DIMINISHING, OR AFTER 
(2*N0IM-2I STEPS. FURTHER IT IS TERMINATED IF THE 
PROCEDURE DISCOVERS TWO ARGUMENT VALUES IN VECTOR AR& 
WHICH ARE IDENTICAL. DEPENDENT ON THESE FOUR CASES, 
ERROR PARAMETER lER IS COOEO IN THE FDLLDWINl FORM 
IER = - IT WAS POSSIBLE TO REACH I e« ftEOUIREO 

ACCURACY (NO ERROR!. 
IER=I - II WAS IMPOSSIBLE TO REACH THE REQUIRED 

ACCURACY BECAUSE OF ROUNDING ERRORS. 
IER=2 - IT WAS IMPOSSIBLE TO CHECK ACCURACY BECAUSE 

NOIM IS lESS THAN 2. OR THE REOUIAEO ACCURACY 
COULD NOT BE REACHED BY MEANS OF THE GIVEN 
TABLE. NDIH SHOULD BE INCREASED. 
IER*3 - THE PROCEDURE DISCOVERED TWO ARGUMENT VALUES 
IN VECTOR ARC WHICH ARE lOENTICAL, 



METHOD j^„j 

INTERPOLATIOM IS QOnE BY MEANS DP AITKENS SCHEME OF ahI 

HERMITE INTERPOlAnON. ON RETURN Y CONTAINS AN INTERPOLATED AHI 
FUNCTION VALUE AT POINT X, WHICH IS IN THE SENSE OF REMARK AHI 
131 OPTIMAL WITH RESPECT TO GIVEN TABLE. FOR REFERENCE, SEE AHI 
F.B. HILDEBRAND, INTRODUCTION TO NUMERICAL ANALYSIS, AHI 

MCGRAW-HILL, NEW YORK /TORONTO /LONDON, 1^55, PP.3U-31T, AND AHI 
GERSHINSKY/LEVINE, AITKEN-HERMITE INTERPOLATION, AMI 

JACM. VOL, 11, ISS. 3 (196*1, PP. 352-356. ahI 



HI 



83 
■JO 
100 
IIO 
120 
IJO 
1*0 
150 
160 
170 
ISO 
190 
200 
ZIO 
220 
230 
2*0 
250 
Z63 
270 
2S0 
Z90 
303 
310 
320 
330 
3*0 
ISO 
360 
370 
380 
390 
*00 
*10 



500 

510 

520 

53P 

5*0 

550 

560 

570 

580 

590 

600 

41? 

420 

i30 

6*0 

650 

660 

6T0 

680 

690 

700 

TIO 

720 



DIMENSION ARS( t ),VAL( I 1 
I£R'2 

H2^X-ARG( 11 
IF(N0IM-II2.1 ,3 

1 Y = VAL<n*VAL(21*H2 

2 RETURN 

VECTOR ARG HAS HORE THAN I ELEMENT. 

THE FIRST STEP PREPARES VECTOR VAL SUCH 

USED. 

3 [xl 

00 5 J=2,N0IM 

HI=H2 

^2=X-ARG1J1 

Y = VAL( I I 

VALII 1=V+VAL( I*lt*Hl 

H=Hl-H2 

IF(H J*, 13,4 
* VflL(I*l)=Yt{VAL(i+2)-YI*Hl/H 
5 I ^I»2 

VAL( I l^VAH I I *V AH I +11 ♦HZ 

END OF FIRST STEP 

PREPARE AITKEN SCHEME 

0ELT2=0. 

IEND=I-l 

START AITKEN-LDOP 

00 9 1=1, lENO 

OELTl^DELTZ 

Y = VAL( II 

M = < I*3)/2 

Hl=ARG(Ml 

DO 6 J=l, I 

K=I+l-J 

L-(Km/2 
H=ARGILI-H1 
IF(HJ6, lAt6 
6 VAL(Kl = (VAL(Kl*(X-Hll-VALUtH*(X-ARG(l.m/H 



THAT AITKEN SCHEME CAN BE AHI 



DECT2=A6S1 Y-VAI 



( 1 ) > 



IF10ELT2-EPS)I1, 

7 IF( I-5l9,8,a 

8 1F( 0ELT2-0eLTl 11, 12 

9 CDNT!NUE 

END OF AITKEN-LOOP 

10 Y-VAL( I) 



THERE IS SUFFICIENI ACCURACY 
il IER=0 
GDTO 10 



IITHIN 2*N0IM-2 ITERATION STEPS 



TEST VALUE OELTZ STARTS OSCRLAIiNC 

12 1ER=I 

RETURN 

THE«E ARE TWO IDENTICAL ARGUMENT VALUES IN VECTOR 

13 Y^VALin 

I'. ieR = 3 

RETURN 
ENO 



■SUBROUTINE DAHI 

PURPOSE 

TO INTERPOLATE FUNCTION VALUE Y FOR A GIVEN ARGUMENT VALUE 
X USING A GIrfEN TABLE (ARG,VAL» OF ARGUMENT. FUNCTION, AND 
DERIVATIVE VALUES. 



USAGE 

CALL DAHI (X.ARG.V 



IL, V.'JOIM.EPS, lERI 



AH 


730 


AH 


7*0 


AH 


750 


AH 


T60 


AH 


T70 


AH 


7eo 


AH 


790 


AH 


aoo 


ah: 


810 


AHI 


820 


AHi 


830 


ah; 


8*0 


E AHI 


850 


AHl 


86? 


AH] 


870 


AHI 


BBO 


AHI 


890 


AHI 


933 


AHI 


910 


AHI 


920 


AHl 


930 


AHi 


9*3 


AHl 


950 


AHl 


953 


AHI 


970 


AHI 


980 


AHI 


993 


AHI 


IDOO 


AHI 


lOIO 


AHI 


1023 


AHI 


1030 


AHI 


10*3 


AH! 


1050 


AHI 


1C60 


AMI 


1373 


AHI 


1050 


AHI 


109? 


AHI 


1100 


Am 


lllO 


AHI 




AHI 


1130 


AHl 


11*: 


AMI 


1150 


AMI 


1160 


AHI 


1170 


AHI 


1180 


AHI 


1190 


AH[ 


1200 


AHl 


1213 


AMI 


1220 


AHI 


1230 


AHI 


12*3 


AMI 


1250 


AMI 


1260 


AHI 


12 70 


AHI 


1280 


AHl 


1290 


AHI 


1300 


AHI 


131D 


AHI 


1320 


AHI 


1930 


AHI 


13*0 


AHI 


1350 


AHI 


1360 


AHI 


1370 


AHI 


360 


DAHi 


10 


DAHI 


20 


DAHI 


33 


OAHt 


*0 


DAHI 


53 


OAHI 


53 


DAHI 


TO 


OAHI 


80 


DAHI 


90 


OAHI 


100 


OAHI 


no 


OAHl 


120 


DAHI 


13C 


OAHI 


1*0 



DESCRIPTION OF PARAMETERS 

X - D0U3LE PRECISIDN ARGUMENT VALUE SPECIFIED BY INPJT.DAHI 15:1 

ARG - DOUBLE PRECISION INPUT VECTOR (DIMENSION NOlMJ OF OAHI 160 

ARGJMENT VALUES OF THE TABLE (NOT OESIROYEDI. DAHI ITO 

VAL - DOUBLE PREClSrON INPUT VECTOR (DIMENSION 2«N0|MI OFOAH] IBO 

FUNCTION AND DERIVATIVE VALUES OF THE TABLE IDES- DAHI 193 
TROYEDl. FUNCTION AND DERIVATIVE VALUES MUST BE DAHI 233 

STORED IN PAIRS. THAT MEANS BEGINNING WITH FUNCTIONDAHl 210 
VALJE AT POINT A«G( 11 EVERY FUNCTION VALUE MUST BE DAHI 220 
FOLLOWED BY THE DERIVATIVE VALUE AT THE SAME POINT. OAHI 230 

Y - RESULTING INTERPOLATED DOUBLE PRECISION FUNCTION OAHI 2*0 

VALJE. 

NOIM - AN INPUT VALUE WHICH SPECIFIES THE NU1BER OF 
POINTS IN TABLE (ARG,VAL1. 

EPS - 5IN3LE PRECIS13N INPUT CONSTANT WHICH IS USED AS 

UPPER BOUND FOR THE ABSOLUTE ERROR. 

lER - A RESULTING ERR3R PARAMETER. 



REMAR 



II) TABLE (ARG, VAL) SH0UL3 REPRESENT A SI NGIE -VALUED 

FUNCTION ANO SHOULD BE STORED IN SUCH A WAY, THAT THE 
DISTANCES AaS( ARGI IJ-X) INCREASE WITH INCREASING 
SUBSCRIPT I. TO GENERATE THIS OHOER IN TAftuE (A«G,VAL1, 
SUBROUTINES QATSG, OATSM OR OATSE COULD BF USED IN A 
PREVIOUS STAGE- 
(21 NO ACTION BESIDES ERRCIR MESSAGE IN CASE NOIM LESS 

THAN I. 
(3) INTERPOLATION IS TERMINATED EITHER IF THE DIFFERENCE 
BETWEEN TWO SUCCESSIVE INTERPOLATED VALUES IS 
AflSQLUTELY LESS THAN fOLERANCE EPS, OR IF THE ABSOLUTE 
VALUE OF THIS DIFFERENCE STOPS DIMINISHING. OR AFTER 
(2*NDIM-2) STEPS. FURTHER IT IS TERMtNATEO IF HE 
PROCEDURE DISCOVERS TWO ARGUMENT VALUES IN VECTOR ARG 
WHICH ARE lOENT/CAL, OECmm Qti WtU fOUR C45f5) 
ERROR PARAMETER IER IS CODED IN THE FOLLOWING FORM 
IER=0 - IT WAS POSSIBLE TO REACH THE REQUIRED 

ACCURACY (NO ERRORI . 
IER=1 - ir WAS IMPOSSIBLE TO REACH THE REQUIRED 

ACCURACY BECAUSE OF ROUNDING ERRORS. 
IER=2 - IT WAS IMPOSSIBLE TO CHECK ACCURACY BECAUSE 

NOIM IS LESS THAN 2, OR THE REOUIREO ACCURACY 
COULO NOT BE REACHED BY MEANS OF THE GIVEN 
,r„ , TABLE. NOIM SHOULD BE INCREASED. 

IER-3 - THE PROCEDURE DISCOVERED TWO ARGUMENT VALUES 
IN VECTOR ARG WHICH ARE IDENTICAL. 



OAHI 250 

DAHI 269 

OAHI 270 

DAHI 233 

OAHI 290 

OAHI 500 

OAHI 310 

DAHI 320 

OAHI 330 

DAHI 3*0 

OAHI 350 

OAHI 360 

OAHI 370 

DAHI 380 

OAHI 590 
HI 1.00 



Ml 



10 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 



OAHI *20 
OAHI *53 

OAHI *«,0 

DAMI *53 
DAMI *60 

mi 4/0 

OAHI *eo 

OAHI *90 
OAHI 500 
OAHI 510 
DAHI 520 
DAHI 530 
OAHI 5*0 
DAHI 550 
OAHI 56C 
DAHI 570 
DAHI 580 
OAHI 590 
DAHI 603 
OAHI 510 
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HeTMOO 

INTERPOLAnON IS DONE 6^ MEANS OF AITKENS SCHEME Of 
HERNITE INTERPOLATION. 3M RETUKN Y CONTAINS AN INTERPOLATEO 
FUNCTION VALliE AT POINT X. WHICH IS IN THE SENSE OF REMARK 
t3l apTINAL rflTH RESPECT TO GIVEN TA8LE. F0« REFERENCE, SEE 
F.B.HILOEBRAMO, INTROOUCDON TO NUneRICAL ANALYSIS, 
riCGHAH-HILLt NEW Y0RK/T3R0NTa/LQN0ON, 1956, PP.3U-3ir. AND 
GERSHINSKY/LEVIME. AlTKEN-HEftHI TE INTERPOLATION.^ 
JACH, VOL.U, ISS.3 U%*), PP. 352-355. 



SU&ROUTINE 0AHIIX,ARG.VALtY,NOIM,EPS, IERI 



OIMENSI'JN ARGI 1 I .VALI 1 ) 

DOUBLE PRECISION ARG. VAL .X, Y,H.HL.H2 

ieR=2 

H2=K-ARG( II 
1F(NDI<<I-I12.1.3 

I Y = VAL( 1 )*VAL( Z)*H2 
'. RETURN 

VECTOR ARG HAS MORE THAN 1 ELEMENT. 

THE FIRST STEP PREPARES VECTOR VAL SUCH THAT AI TKEN SCHEME CAN BE 
USED. 
i 1=1 

00 5 J-2,N0IM 

Hl = H2 

H2 = )(-ARG(J) 

Y = VAL1 I 1 

VAL(l) = Y+VALn*U*Hl 

H=Hl-H2 

IFIHK, 13,4 
- VAL(I+ll=V*IVAL(I»2l-Y»*Hl/H 
• 1=1*2 

VALI n-VALt [(•VACtI ♦n*H2 

END OF FIRST STEP 

PREPARE AITKEN SCHEME 

oeLr2=o. 

IEND=I-1 

START AITKEN-LOOP 

00 9 I- 1. lENO 

D£LTI=DELT2 

Y=VAL(1> 

M=( (♦3t/2 

Hl=ARG(Ml 

00 6 J=I.I 

K=I+1-J 

L=(Km/2 

H=ARG(Ll-Hl 
1F(H}6, IA,6 
, VAL(KI = (VAL(KI»U-H1I-VALIKHM(X-ARGUH1/H 
DELTZ-OABSIY-VALI II ) 
If (DeLT2-ePS»U.ll. 7 

iFn-8i9,a.8 

1 If (DELT2-DELTl)9, 12.12 

> CONTINUE 

END Of AITKEN-LOOP 

> Y-VALI I } 
RETJRN 

THERE IS SUFFICIENT ACCURACY WITHIN 2«N0IM-Z ITERATION STEPS 

IER=0 

GOTO 10 

TEST VALUE 0eLT2 STARTS OSCILLATING 

IER=l 

RETURN 

THERE ARE TWO IDENTICAL ARGUMENT VALUES IN VICTOR ARG 

y-VALI 11 

IER = 3 

RETURN 

END 



OAHl 623 
OAHl 630 
OAHl 640 
OAHl 650 
OAHl 660 
OAHl <>73 
DAHI 680 
OAHl 690 
DAHI 700 
OAHl TIO 
DAHI 720 
,OAHI 730 
DAHI TtO 
OAHl 750 
DAHI 760 
DAHI TTO 
DAHI 780 
DAHI 790 
DAHI 600 
DAHI a 10 
DAHI B20 
OAHl B33 
OAHl S40 
DAHI 850 
OAHl B60 
OAHl 87D 
DAHI 680 
OAHl 890 
DAHI 900 
OAHl 910 
OAHl 920 
OAHl 930 
OAHl 9^0 
OAHl 953 
OAHl 9S0 
OAHl 970 
OAHl 980 
DAHI 990 
OAHIIOOO 
OAHIIOIO 
DAHI1020 
DAHI1030 
DAHIin^O 
OAHIID50 
DAHI1060 
0AH11D70 

oaHinao 

DAHm93 
OAHl 1133 

DAHI LI 10 
OAHI1120 
DAHtl 130 
0AHI1140 
OAHIH50 
DAHI1160 
0AH1U7D 
OAH11190 
OAHI1190 
0AHI1200 
DAHI 1210 
OAHI1220 
OAHI1230 
OAHI12^0 
DAHI1250 
0AHI1263 
DAHI 1270 
DAHI12aO 
OAHI1290 
0AHI1300 
OAHII3L0 
DAHI1320 
DAHI13J0 
DAHI I 340 
DAHI1350 
DAHIOftO 
DAH11370 
DAHI1380 
DAHIU90 
DAH1I400 



Subroutines ACFI and DACFI 

These subroutines perform a continued fraction inter- 
polation. Given the table Xj, yj (i = 1, 2, . . . , n) of 
argument and function values , stored in the two one- 
dimensional storage arrays ARG and VAL, the prob- 
lem is to interpolate function value Y at the given 
point X. It is assumed that the table represents a 
single-valued function y = y(x) which is suitable for 
approximation by a rational function"*", and that 
|Xi - X| 4 Xj - X| for i> j."*^ 

Then, using the following formulas: 



^2 -^1 



1,2 v - V ' 



^3-^ 



■■ y^ 



X„ - X„ 
3 2 



1,3 y3-y^' "1,2,3 y^^,-y,^. 



^4 -^1 



; y. 



^4-^2 



'1.4 y^-y^' •'1,2,4 y,^^ - y,^^ 



^4 "^3 



^'^'^'^ ^1,2,4 -^1.2,3 



the trlai^ular scheme of inverted differences shown 
in Figure 20 can be generated by row for the given 
table xj, y^ , 

All result values of row i can be stored in VAL(I) . 
Thus, it is possible to generate the downward diago- 
nal of the inverted differences scheme in storage 
array VAL, using the machine-processable formula: 



v-« = ^fir^igl "-.^ -« « 



for 1= 2, 3, ..., NDIM. 



"*"This order in table x^, y^ (i = 1, 2, . . . , n) could 
be generated by subroutines ATSG, ATSM, ATSE, 
DATSG, DATSM, DATSE. 

+'"This means y(x) should be closely approximated by 
a rational function, with numerator and denomina- 
tor of low degree, which has the table points with 
arguments next to x as nodes. 
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"1,3 



"n I ^n y^n ^1,2,0 



'^',2,3 
'1,2,4 



n, 2,3,4 



l,2,3,n 



'K2,3 n 



Figure 20. Triangular sdieme for fraction interpolation 

If for J = I-l, VAL(I) is equal to the infinity ele- 
ment, table point ARG(I), VAL(I) (that is, x-, y.) gets 
interchanged with a table point ahead. 

Now, after computation of each new component 
VAL(I), continued fraction interpolation generates 
the following set of parameters: 



VAL(I) * P + (X - ARG(I-l)) * P 



Q, 



!g = VAL(I) * Q^ + (X - ARG(I-l)) * Q^ 



and 



Y = 



P /Q 



(2) 
(3) 

(4) 



starting with Pj = 1, P2 = VAL(l), Qj = 0, Q2 = 1. 
After havii^ done this, it sets P^ = ?£' ^2 ~ ^3' 
Qj = Q21 ^2 ~ "^3 ^^^^ each step. 

The procedure stops under the following condi- 
tions: if the difference between two successive 
values of Y is absolutely less than a given tolerance 
e, or if the absolute value of this difference starts 
oscillating (test of oscillating differences starts at 
step I = 8 , or for double-precision, I = 10) , or if I 
has become NDIM, or if the procedure discovers two 
table points with identical argument values. 

For reference see F. B. Hildebrand, Introduction 
to Numerical Analysis , McGraw-Hill, New York/ 
Toronto/ London, 1956, pp. 395-406. 



SUBROUTINE ACF I 

PJRPOSE 

TO INTERPOLATE FUNCTION VALUE Y FOR A GIVEN ARGUMENT VALUE 
X USING A GIVEN TABLE lARS.VALI Of ARGUMENT AND FUNCTION 
VALUES. 



USAGE 

CALL ACFI (X,A«G,VAL,Y,VOIN,£PS,lE«) 



DESCRIPTION OF PARAMETERS 



X 
ARC 



NDiM 



THE ARGUMENT VALUE SPECIFIED BY INPUT. 

- THE INPUT VECT3R (DIMENSION NOIMI OF ARGUMENT 
VALUES OF THE TABLE (PDSSI8LY OESTROYEOl. 

- THE INPUT VECTOR (DIMENSION NOIHI OF FUNCTION 
VALUES OF THE TABLE (DESTROYED t. 

- THE RESULTING INTERPOLATED FUNCTION VALUE. 

- AN INPUT VALUE WHICH SPECIFIES THE NUMBER OF 
POINTS IN TABLE (ARG.VAL). 

- AN INPUT CONSTANT MHICH IS USED AS UPPER BOUND 
FOR THE ABSOLUTE ERROR. 

- A RESULTING ERROR PARAMETER. 



ACFI n 

..ACFI 20 

ACFI 30 

ACFI <.3 

ACFI 50 

ACFI 60 

ACFI JO 

ACFI 80 

ACFI 90 

ACfl 100 

ACFI 110 

ACFI 120 

ACFI 13a 

ACFI 1*0 

ACFI 150 

ACFI 160 

ACFI iro 

ACFI ISO 
ACFI 190 
ACFI 200 
ACFI 2n 
ACFI 220 
ACFI 2 30 
ACFI 240 
ACFI 250 
ACFI 260 



ACFI 360 
ACFI 3T0 
ACFI 380 
ACFI 390 
ACFI 400 
ACFI 410 



REMARKS 

III TABLE (ARCVALI SHOULD REPRESENT A SINGLE -VALUED JcF I ?aS 

FUNCTION AND SHOULD BE STORED IN SUCH A way, THAT THE ACF lln 

DISTANCES ABSURCdI-KI INCREASE WITH INCREASING IcF 30O 

SUBSCRIPT I. TO GENERATE THIS ORDER IN TABLE ARC, VAL I . ACF l,t 

lTvZl*lhll^* *'"* °* *'" ""'■° " ""° '"* * *"! "S 

*^' ?Sa"iI°'' ""'"^ "'*'^'^ MESSAGE IN CASE NOIM LESS . icfl 3*5 

(31 INTERPOLATION IS TERMINATED EITHER IF THE DIFFERENCE ^'^^^ ^^^ 

BETHECN TWO SUCCESSIVE IMTERPOLATEO VALUES IS 
ABSOLUTELY LESS THAN TOLERANCE EPS. Ot IF THE ABSOLUTE 
VALUE OF THIS DIFFERENCE STOPS OIHIHISHING. OR AFTER 
(NDIM-1) STEPS (THE NUMBCft OF POSSIBlI STEPS IS 

OIHINISHEO IF AT ANY STAGE INflMITY ELEMENT APPEARS IN «.,r. ,.u 
THE DOWNWARD DIAGONAL OF INVERTEO-DIFFEREMCES-SCHENE ACF OO 

AND IF IT IS IMPOSSIBLf TO ELIMINATE THIS iSFlJlIr J^J tfj 

ELEMENT 9Y INTERCHANGING OF TABLE POINTS I. Icf dn 

:^?.^«L%';..'.^j^?:'r^°„':j"f...!?p«?!'«!.e.'^^°«« t-o acfi ,s, 

ACFI 460 
ACFI 470 
ACFI 480 
ACFI *90 
ACFI 503 
ACFI 510 
ACFI 520 
ACFI 530 
ACFI 540 
ACFI 550 
ACFI 560 
ACFI 5 TO 
ACFI 580 
ACFI 590 
ACFI 600 
ACFI 610 
ACFI 420 
ACFI 630 
ACFI 640 
ACFI 650 
ACFI 660 



ARGUMENT VALUES IN VECTOR AAS WHICH ARE lOEHTICAL. 
DEPENDENT ON THESE FOUR CASES. ERROR PARAMETER |£R 15 
rnnpn rw rHE FOLLOWING FORM ^ 

IT WAS POSSIBLE TO REACH THE REOUIREO 
ACCURACY INO ERROR). 

IT WAS IMPOSSIBLE TO REACH THE REQUIRED 
ACCURACY BECAUSE OF ROUNDING ERRORS. 
IT WAS IMPasslBLE TO CHECK ACCURACY BECAUSE 
NOIM IS LESS THAN 2. OR THE REOUIRED ACCURACY 
COULD NOT BE REACHED BY MEANS OF THE GIVEN 
TABLE, NOIM SHOULD BE INCREASED. 
THE PROCEDURE DISCOVERED TWO ARGUMENT VALUES 
IN VECTOR ARC WHICH ARE IDENTICAL. 



COOED 
lER 



IER = 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 



METHOD 

INIERPOLATION IS DONE BY CONTINUED FRACTIONS AND INVERTED- 
DIFFERFNCeS-SCHEME. ON RETURN Y CONTAINS AN INTERPOLATED 
FUNCTION VALUE AT POINT X. WHICH IS IN THE SENSE OF REMARK ,i.r . »«., 
13) OPTIMAL WITH RESPECT TO GIVEN TABLE. FOR REFERENCE/ SEE IcF 6?0 
F.B.HILOEBRAMO, INTRODUCTION TO NUMERICAL ANALYSIS. ACFI AflO 

MCGRAW-HILL. NEW YORK/TORQNTD/LaNOON, 1956. PP.395-406. 



SUBROuriNE ACF M X, ARC, VAL.Y, NOIM. EPS, lER) 



DIMENSION ARGdI.VALIll 
IER=2 

IF(NDIM120,20il 
1 Y"VAL(II 
0ELT2=0. 
IF(N0IM-1I20,20,2 

PREPARATIONS FOR INTERPOLATION LOOP 
Z P2=l. 
P3 = Y 
02 = 0. 
Q3=U 



START INTERPOLATION LOOP 
DO 16 I-2tN0IM 



P2*P3 
QI-Q2 
Q2-Q3 

i=y 

0£LTI=oeLT2 
JEN0=I-1 

c 

C COMPUTATION OF INVERTED DIFFERENCES 

3 AUX-VAL(I I 

DO 10 J-l.JENO 
H=VALII >-VAL(J) 
tF(A8S(H|-l.E~6*ABS(VAL( t) (14,4,9 

4 IFIARGI II-ARG(J)t5, ir.S 

5 IF(J-JENDie.6.6 
C 

C INTERCHANGE ROW I WITH ROW I*II 

6 II"II*1 
III-I*II 

IF! III-N0IM>r,7.19 

7 VALdl'^VALIIin 
VAL( III l-AUX 
AUX'ARGdl 
ARGID'ARGdIt I 
ARGI IIII'AUX 
GOTO 3 

c 

C COMPUTATION OF VAL(l) IN CASE VAL(n=VAL(J) AND J LESS THAN I- 

8 VAL<II*1.E75 
GOTO 10 

C 

C COMPUTATION OF VALIIl IN CASE VALID NOT EQUAL TO VAUJl 

9 VAL( n*(ARGd l-ARG( Jl )/H 

10 CONTINUE 

C INVERTED DIFFERENCES ARE COMPUTED 

C 

C COMPUTATION OF NEW Y 

P3 = VAL( n»P2*(X-AflG(I-l)l»Pl 

Q3 = VAL( II*Q2*(X-ARG(I-1| l*ai 

IF(Q3lll. 12.11 

11 Y=P3/Q3 
GOTO 13 

12 Y=1.E75 

13 0ELr2=ABS(Z-YI 
IF(DELT2-EPS ) 19, 19. 14 

14 IF(I-8I16.I5,15 

15 IF(DELT2-0ELTlU6,ia,ia 

16 COHTIHU^ 

C END OF INTERPOLATION LOOP 



'^ 17 Ie"! *'*^ ^"^ lOENTICAL ARGUMENT VALUES IN VECTOR ARC 

RETURN 
C 
C TEST VALUE 0ELT2 STARTS OSCILLAdNC 

lER-l 
RETURN 
C 

^ 19 IER»0 '^ SATISFACTORY ACCURACY WITHIN NDIM-1 STEPS 
20 RETURN 
END 
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ACFI 690 
ACFI TOO 

ACFI 710 

ACFI 720 
ACFI 730 
ACFI 740 
ACFI 750 
ACFI 760 
ACFI 770 
ACFI T80 
ACFI 790 
ACFI BOO 
ACFI BID 
ACFI 820 
ACFI 830 
ACFI 040 
ACFI 850 
ACFI 860 
ACFI 870 
ACFI 880 
ACFI 893 
ACFI 900 
ACFI 9L0 
ACFI 920 
ACFI 939 
ACFI 940 
ACFI 950 
ACFI 960 
ACFI 970 
ACF) 980 
ACFI 990 
ACFIIOCO 
ACFIIOIO 
ACFI102C 
ACFI1Q30 
ACFI1040 
ACF I 1050 
ACFI1060 
ACFI1370 
ACFUOBO 
ACFI1390 
ACFIllOO 
ACFIIllO 
ACFI1120 
ACFI1I30 
ACFIL140 
ACFI1150 
ACFIIUO 
ACFm70 
ACFItlBO 
ACF 1 1190 
ACF I 1230 
ACFI1210 
ACFI1220 
ACFI1230 
ACFI1240 
ACFI1250 
ACFI1263 
ACFI1273 
ACFI1280 
ACFIl2qO 
ACFI1303 
ACFH310 
ACF I 1320 
ACFI1333 
ACF 1 13*0 
ACFI1350 
ACFI1360 
ACFI13T0 
ACFII380 
ACF 1 1390 

ACFII410 
ACFI1420 
ACFI1430 
ACFI1440 
ACFI1450 
ACFa460 
ACFI 1470 
ACF|l4aO 
ACFI1490 
ACFU500 

ACFU5I5 

ACFI152D 

ACFI1530 

ACFtl540 

ACFI1550 

ACF 1 1560 

ACFI15T0 

ACF 11580 



SUeROUTINE OACfl 
PURPOSE 

ro iNfERpOLAre function value v fob a GiveN argument valuc 

X USING A GUeN TABLE lAKGiVAL) OF ARGUMENT AND FUNCTION 
VALUES. 

USAGE 

CALL OACFI (XtAAGtVAL,¥*NOIH.EPS. lERl 

OESCniPTlON OF PAAAHETERS 

X - DOUBLE PHECISntJ ARGUMENT VALUE SPECIFIED BY INPUT. 

ARG - OaUflLE PRECISION INPUT VECTOR 10I«ENSION NOIM) OF 

ARGJMENT VALUES OF THE TABLE (POSSiauY OESTROYEDI. 
VAL - DOUBLE PRECISION INPUT VECTOR (OINENSIOM NDIMl OF 

FUNCTION VALUES OF THE TABLE I OESTROYEDI . 
Y - RESULTING INTERPOLATED DOUBLE PRECISION FUNCTION 

VALUE. 
NOIH - AN INPUT VALUE MHICH SPECIFIES THE NUMBER OF 

POINTS IN TABLE lARG.VALI. 
EPS - SINGLE PRECISIDN INPUT CONSTANT WHICH IS USED AS 

UPPER SOUND FOR THE ABSOLUTE ERROR. 
lER - A RESULTING ERROR PARAMETER. 

REMARKS 

111 TABLE (ARG.VALI SHOULD REPRESENT A SINGLE-VALUED 

FUNCTION AND SHOULD BE STORED IN SUCH A MAr, THAT THE 
DISTANCES A8SURG(II-XI INCREASE MITH INCREASING 
SUBSCRIPT I. TO GENERATE THIS ORDER IN TABLE lARG.VAL). 
SU6ROUri*4ES DATSG. OATSM OH OATSE COULO BE USED IN A 
PREVIOUS STAGE. 
IZl NO ACTIO^I BESIDES ERROR MESSAGE IN CASE NDIM LESS 

THAN L. 
I3J INTERPOLATION IS TERMINATED EITHER IF THE DIFFERENCE 
BETWEEN TWO SUCCESSIVE INTERPOLATED VALUES IS 
ABSOLUTELY LESS THAN TOLERANCE EPS, OR IF THE ABSOLUTE 
VALUE OF THIS DIFFERENCE STOPS DIMINISHING, OR AFTER 
(NOIH-l> STEPS (THE NjHBER OF POSSIBLE STEPS IS 
DIMINISHED IF AT ANY STAGE INFINITY ELEMENT APPEARS IN 
THE DOWNWARD DIAGONAL OF INVERTEO-D IFFERENCES-SCHEME 
AND IF ir IS IMPOSSIBLE TO ELIMINATE THIS INFINITY 
ELEMENT BY INTERCHANGING OF TABLE POINTSI. 
FURTHER IT IS TERMINATED IF THE PROCEDURE DISCOVERS TWO 
ARGUMENT VALUES IN VECTOR AUG MHICH ARE IDENTICAL. 
DEPENDENT ON THESE FOUR CASES. ERROR PARAMETER lER IS 
COOED IN THE FOLLOWING FORM 
IEft«0 - IT WAS POSSIBLE TO REACH THE REQUIRED 

ACCURACY (NO ERROR!. 
IER-1 - IT WAS IMP3SSI6LE TO REACH THE REQUIRED 

ACCURACY BECAUSE OF ROUNDING ERRORS. 
IER=2 - IT WAS IMPOSSIBLE TO CHECK ACCURACY BECAUSE 

NOIM IS LESS THAN 2. OR THE REQUIRED ACCURACY 
COULD NOT BE REACHED BY MEANS OF THE GIVEN 
TABLE. NOIM SHOULD BE INCREASED. 
IER-3 - THE PROCEDURE DISCOVERED TWO ARGUMENT VALUES 
IN VECTOR ARG WHICH ARE IDENTICAL. 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
NONE 

INTERPOLATION IS DONE BY CQNTINOEO FRACTIONS ANO INVERTED- 
OIFFERENCES-SCHEME. ON RETURN Y CONTAINS AN INTERPOLATED 
FUNCTION VALUE AT POINT X, WHICH IS IN THE SENSE OF REMARK 
(3) OPTIMAL rflTH RESPECT TO GIVEN TABLE. FOR REFERENCE, SEE 
F.6.HIL0EBRAN0, INTRODUCTION TO NUMERICAL ANALYSIS, 
MCGRAW-HILL, MEW YORK/TORONTO/LONDON. 1956, PP,i95-*06. 



SUBROUTINE OACFH X, ARG.VAL, Y.'tDIM.EPS, lER! 



OIHENSION ARGtn,VALU) 

DOUBLE PRECISION ARG. VAL, X, v,Z ,P 1 . P2, P3. 01 ,02 t03 ,AUX,H 

IER=2 
IFINDINIZO.20,1 



0»CF 


10 


0*CF 


20 


OACF 


M 


0«CF 


40 


OACF 


50 


D*CF 


60 


OACF 


TO 


OACF 


80 


OACF 


90 


OACF 


100 


OACF 


110 


OACF 


120 


OACF 


13D 


OACF 


1*0 


.DACF 


HO 


OACF 


160 


OACF 


ITO 


OACF 


lao 


OACF 


I'lO 


OACF 


200 


OACF 


210 


OACF 


220 


OACF 


2J0 


DACF 


2*0 


OACF 


250 


DACF 


260 


OACF 


270 


OACF 


2«C 


OACF 


!ia 


OACF 


300 


DACF 


310 


OACF 


320 


DACF 


330 


DACF 


3*0 


OACF 


350 


OACF 


360 


OACF 


3TC 


OACF 


390 


OACF 


390 


DACF 


AOO 


OACF 


»10 


OACF 


»20 


DACF 


*30 


OACF 


440 


OACF 


450 


DACF 


460 


OACF 


4T0 


DACF 


480 


OACF 


490 


DACF 


500 


OACF 


510 


DACF 


523 


OACF 


530 


OACF 


540 


OACF 


550 


DACF 


560 


OACF 


57C 


OACF 


580 


DACF 


590 


DACF 


60C 


OACF 


610 


OACF 


620 


DACF 


630 


DACF 


640 


DACF 


650 


OACF 


660 


DACF 


670 


OACF 


680 


OACF 


690 


OACF 


700 


OACF 


710 


.DACF 


720 


OACF 


730 


OACF 


740 


OACF 


750 


DACF 


760 


DACF 


770 


OACF 


783 


OACF 


793 


DACF 


800 



T>VAL( 1) 
DELT2-0. 
IFINOIM-nZO.ZO.Z 

PREPARATIONS FOR IMTERPOLAT ION LOOP 

P2-1.00 

P3-Y 

Q2-a.D0 

03>t.00 



START INTERPOLATION LOOP 

DO L6 1-2.NDIH 

11*0 

P|«P2 

P2-P3 

Ql = 02 

Q2«Q3 

Z-Y 

DELIl-OELTZ 

JEND-I-1 

COMPUTATION OF INVERTED DIFFERENCES 
3 AUX>VAL(I) 

DO ID J-l.JENO 

H-VALdl-VALIJI 

IFIDABS(H)-l.0-13*DABS(VALn H)4,*, 9 
* IF(ARG( ll-ARG(J»15, IT,5 
$ IFIJ-JENOIS.6,6 

INTERCHANGE ROW I WITH ROW 1*11 

6 Il=ll4l 
III'I«^1I 
IFIII[-N0IH)7,T,19 

7 VALdt'VALdll) 
VALtIII)>AUX 
AUX'ARGI II 
ARGtn>ARG(lll) 
ARGI III l-AUX 
GOTO 3 

COMPUTATION OF VALIII IN CASE VAL ( I ) =VAL( JI AND J LESS TMAn I-l 
B VAL(IJ«l.D75 

GOTO 10 

COMPUTATION OF VAL) II IN CASE VALID NOT EQUAL TO VAUJl 
9 VAL(II"IARG<I1-AR6( JII/H 

10 CONTINUE 

INVERTED DIFFERENCES ARE COTPUTED 

COMPUTATION OF NEW Y 
P3=VAL( I)*P2 + (X-ARG(I-m*Pl 
03 = V4L( n*Q2tlX-ARS(I-lK»Ql 
IFtQ3l 11,12,11 

11 Y=P3/03 
GOTO 13 

12 Y=l.075 

13 DELT2-0ABSIZ-YI 
IFI0ELTZ-EPSI19,19, 14 

1* IF(I-10)16,15,15 

15 IFlDELT2-0£LTm6,ia,18 

16 CONTINUE 

END OF INTERPOLATION LOOP 



THERE ARE TWO IDENTICAL ARGUMENT VALUES IN VECTOR ARG 
17 IER-3 
RETURN 

TEST VALUE 0ELT2 STARTS OSCILLATING 

IB Y»Z 
IER=I 
RETURN 

THERE IS SATISFACTORY ACCURACY WITHIN NDIM-l STEPS 

19 I£R=0 

20 RETURN 

END 



OACF a 10 
OACF 820 
DACF 830 
OACF 040 
OACF §50 
OACF B60 
DACF 870 
OACF 680 
OACf S90 
DACF 9O0 
OACF 910 
OACF 920 
DACF 9 30 
DACF 90 
OACF 950 
DACF 969 
DACF 970 
DACF 990 
OACF 990 
04CF1000 
DACFigia 

DACFID20 
DACFL030 
OACFIO*3 
OACFICSO 
DACF1060 
OACF1070 
OACF1080 
DACFL090 
OACFllOO 
DACF I 110 
DACF LI 20 
DACFltSO 
OACF I 1*0 
0ACF1150 
OACFLlfrO 
DACFI170 
DACF1180 
0ACFtt90 
OACF 12 00 
0ACF1210 
OACF1Z20 
DACF1230 
0ACF1240 
DACF1250 
0ACF1260 
DACF1270 
OACF 1280 
OACF1290 
DACFIBOO 
OACF1310 
OACF1320 
OACF1330 
□ACF1340 
DACF135D 
OACF1360 
0ACF13TD 
DACF13B0 
OACF1390 
DACFKOO 
0ACF1410 
0ACF1420 
DACF1430 
OACF 14*0 
DACF1450 
0ACF14&0 
0ACF1470 
DACF1480 
DACF14S0 
DACF1500 
DACFlStO 
0ACF1520 
DACF1532 
0ACF1540 
DACF1550 
OACF1550 
DACF15T0 
OACF1580 
0ACF1590 
OACF1600 
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Subroutines ATSG and DATSG 

These subroutines perform a table selection out of a 
given general table. 

Given a search argument x and a general table 

zj, fj (i = 1, 2 irow) stored in two vectors Z 

and F (in case icol = 1), or z^ fj, f/ (i = 1,2,..., 
irow) stored in vector Z and the two columns of ma- 
trix F (in case icol = 2); the problem is to select 
those n ( < irow) points Zj , f j or zj , f • 



fL 



1. "" "i. ' M. 
(j = 1, 2, . . . , n), respectively, which are next to x 
and to store their coordinates in two vectors ARG 



and VAL so that the distances 



increase 



'jl 



with increasing subscript j . This problem may 
arise when using interpolation subroutines ALI, AHI, 
ACFI, DALI, DAHI, DACFI. The table for the case 
icol = 1 is shown in Figure 21, and that for case 
icol = 2 in Figure 22. 

Selection is done in two parts. In the first part, 
auxiliary vector WORK with components z. - x 

(i = 1) 2 irow) is generated and its greatest 

component, max jz. - xj , is stored in an auxiliary 

storage location. In each of the n steps of the second 
part the subscript i- of the smallest component of 
vector WORK is searched for. Afterwards this com- 
ponent is replaced by a number greater than 
max Iz. - xl . 

Then 



"i. 



and: J 

In case icol = 



In case icol 



goes into the storage location ARG(J) 



fj into the storage loca- 
i tion VAL(J) 



f. into the storage loca- 
J tion VAL(2 * J - 1) and 

f. into the storage loca- 
j tion VAL(2 * J) 



ARG 



VAL 



1 = 1 
i = 2 
1 = 3 

i = 4 



I - irow 2. 



J = " 



2, 

z. 

'2 

Z. 

'3 

Z. 

'4 i 



Jl_l 



Figure 21. Table selection in case icol=I 



1 


'l 




U 




2 


^2 




'2 




3 


'3 




'3 




4 


% 




u 




« 


Z. 




1. 


irow 





ARG 


VAL 


j-' 


'l 




f. 

'l 


i = 2 


Z, 

'2 




'i, 


j=3 


^^3 




f. 
'2 


i=4 


z. 

'4 




1. 
'3 


i = " 


z, 
n 




'3 



j=l 



i = 2 



- j = 3 



Figure 22. Table selection In case icol-2 

If (by an error of the user) the dimension n of the 
table to be selected is greater than the dimension 
irow of the given table, the procedure selects only a 
maximum table of irow points. In order to avoid 
errors in further work with table (ARG, VAL), the 
user ought to check the correspondence between the 
selected table and its dimension by comparison of n 
and irow. This test may be done before or after 
calling subroutine ATSG or DATSG. 



SUSROUTINE ATSG 
PURPOSE 

nSnc»c^T^ ^'^ * ^'^^'^ "'*"*'^ r*BLe ARE SElECrCD AND 
ORDERED SUCH THAT ABS{ ARGM)-X I .3£ . ABS( ARGt J J -X| IF I .GT . 

USAGE 

CACt AFSG IX.Z,F,HORK,U0i<,IC0LtARC,VAL,NDlMI 



DESCRIPTION OF PARAMETERS 

* - THE SEARCH ARGUMENT. 

I - THE VECTOR Of ARGUMENT VALUES (OlliENSION IROH). 

IN C»SE 1C0L.2, F IS M IROK t.1 2 BATRIX. THE FIRStJISG 



ATSG 
• ATSG 

ArSG 

ArSG 

ATSG 

AfSG 

ATSG 

ATSG 

ATSG 
ATSG 100 
ATSG HO 
ATSG 120 
ATSG 130 
ATSG 140 
ATSG ISO 



60 



90 



ATSG 170 



- c, . .. nn mux DT z HAIKIK. THE FIRSTATSG I 



WORK 
IROW 



ICOL 

ARG 



90 
ATSG 200 
ATSG 210 
ATSG 220 
ATSG 230 
ATSG 240 
ATSG 250 
ATSG 260 
ATSG 2?0 
ATSG 2«0 



THE SECOND THE VECTOR OF DERIVATIVES 
A WORKING STORAGE (DIMENSION IROH). 

- THE DIMENSION Of VECTORS t AND WORK AND OF EACH 
COLUMN IN HAIRI« F. 

- THE NUMBER OF COLUMNS IN F d-E. 1 OR 2) 

- The resulting vector OF SELECTED AND ORDERED 
ARGUMENT VALUES lOIHENSlDN NOIM). 

- THE RESULTING VECTOR OF SELECTED FUNCTIOM VALUES 
(DIMENSION NOIMI IN CASE IC0L=1. IN CASE IC0L.2, aisg Z«0 
VAL IS THE VECTOR OF FUNCTION AND DERIVATIVE VALUESATSC 290 
(DIMENSION 2.NDIM1 WHICH ARE STORED IN ("AIRS (I.E. atSg "o 
EACH FUNCTION VALUE IS FOLLOWED 6Y ITS DERIVATIVE ATSG "S 

ATSG 320 
MUST BE SELECTEO OUT OF ATSG 330 
ATSG 340 
ATSG 350 
ATSG 360 
ATSG 370 
IROk, THE PROGRAM ATSG 380 



VALJEI 

THE NUMBER OF POINTS WH 

THE GIVEN TA6LE 12, E). 



REMARKS 

NO ACTION IN CASE IROW LESS THAN 1 

IF INFUI VALJE NDIM IS GREATER THAI. , ... 

SELECTS ONLV A HAKIHUM TABLE OF IROW POINTS. THEREFORE THE ATSG 190 
USER OUGHT T: CHECK CORRESPONDENCE BETWEEN TABLE IARS^VAl" ATSG ITo 

SUBROUTINE ATSG. "i-itR CALLING t,^Q 455 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIR 



ATSG 440 
ATSG 450 
ATSG 463 
ATSG 470 
ATSG 480 
ATSG 440 
ATSG 500 
*rSG 510 
ATSG 520 



SELECTION IS DONE BY GE^tERAriNG THE VECTOR wtWK uir 

r?^^riTE^'r;rN;?^'fi'-i -tJaV ir - -'" ""-^- 



ICHATSG 550 
ATSG 560 
ATSG 570 
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SUSRQUI INE ArSGIK.Z ,f ,WORK, IRO.*, ICOL ,ARG, 



,r40IM> 



DIMENSION fin 
tFI (ROW) 1 I, 11. 1 

1 N=NDIM 

IF N I S GREftr£R TH4N 1«0W 
[Ft N-I)tOW) 3, i,2 

2 N=IRQU 



,wOftK( 1 I ,MQt U . VftH 11 



I 15 Ser EQUAL TO i«OW, 



*T5& 580 
.ATSG 513 
*TSG 6PC 
ATSG 610 
ATSC 420 
ATSG 630 
ATSG 640 
ATSG 650 
ATSG 660 
ATSG 6T0 
ATSG iBO 
ATSG 690 
ATSG 70S 

GENERATION af tfECTDft WORK AND COMPUTATION OF ITS GREATEST eLEMENT.ATSG TIO 
, o-ft *'SG T20 

DO ; ..i,i«o« '"^ "» 

IFtOElH-BIS.i,* "" '" 

5 »t,.«<1..0ELH "II III 

GE»ER.tION OF . .BLE l.«C.V«LI JJS^ JJJ 

ATSG 810 

ATSG 820 



DTSG 13 
.OTSG 20 



00 10 J=liN 
OELTA'B 

DO 7 1=1, IROW 
IFIHORKUI-OELTAU, 7, T 



6 I I ■[ 
QELTA^WORKl I I 

7 CONTINUE 
ARG(J)'2( II ) 

iFdCQL-na.^.e 

B VAt.(2"J-ll = FIII ) 
1 1 1 = 1 I»IROW 
VAL(2*J) = F(lin 

GOTO 10 
q VAL( Jl=F1 I I ) 

10 UORK< I I ) = a 

11 RETURM 
END 



ATSG 830 
ATSG BAD 

ATSG eso 

ATSG abO 
ATSG 970 
ATSG SBD 
ATSG a-JD 
ATSG <)00 
ATSG 910 
ATSG 920 
ATSG 933 
ATSG 90 
ATSG 950 
ATSG 960 
ATSG 970 



SUBROUTINE OATSG 



DTSG 
DTSG 
DTSG 
PURPOSE ^^^'' 

NDIH POINTS OF A GIVEN GENERAL TABLE ARE SELECTED AND DTSG 
ORDERED SUCH THAT 4eS( A*G( It-X I ,GE .ABSI ARGU )-K) IF^I.GT.J. OTSG 



USAGE 

CALL OATSG IX »£tF, WORK. IRON. IC0L.ARG«VAL|NOIH) 



OTSG 90 
OTSG 100 
OTSG 110 
DTSG 120 
OTSG 133 
OTSG 140 
DTSG 150 
OTSG 160 
OTSG I TO 
DTSG 18C 
OTSG 193 



DTSG 220 
DTSG 230 
DTSG 240 
DTSG 250 
OTSG 260 
DTSG 273 

OTSG zao 

DTSG 290 



DESCRIPTION OF PAKAHETEftS 

X - DOUBLE PRECISION SEARCH ARGtfHENT. 

I - DOUBLE PRECISION VECTOR Oo ARGUMENT VALUES 

(DIMENSION IROUI. 

F - IN CASE IC0L«1. F IS THE DOUBLE PRECISION VECTOR 

OF FUNCTION VALUES IDIMENSION IROH). 
IN CASE IC0L = 2. F IS A DOUBU PRECISION IROH BY 2 
MATRIX. THE FIRST COLUHM SPfClFIES VECTOR OF FUNC- DTSG 200 
TIQM VALUES AND THE SECOND VECTOR OF DERIVATIVES. OTSG 210 

WORK - DDJ3LE PRECISION H0RKIV3 STORAGE (DIMENSION IROWl. 

IROH - THE DIMENSION OF VECTORS I AND WORK AND OF EACH 
COLUMN IN MATRIX F. 

ICOL - THE NUMBER OF COLUMNS IN F (I.E. I OR 21. 

ARG - RESULTING DOUBLE PRECISION VECTOR OF SELECTED AND 

ORDERED ARGUMENT VALUES (DIMNSIQN NDIMI. 

VAL - RESJLTING 00U8LE PRECISION VECTOR OF SELECTED 

FUNCTION VALUES (DIM6NSI0N HDIMI IN CASE ICOL= 
IN CASE ICOL-2, VAL IS THE »OUBLE PRECISION VECTOR OTSG 300 
OF FUNCTION AND DERIVATIVE VALUES (DIMENSION DTSG 310 

2«NDiMI WHICH ARE STORED IN PAIRS (I.E. EACH FUNC- DTSG 320 
TIO>l VALUE IS FOLLOWED 8Y ITS DERIVATIVE VALUE I . OTSG 330 

NDIM - THE NUMBER OF POINTS WHICH MUST BE SELECTED OUT OF OTSG 340 
THE GIVEN TABLE CZ,FI. OTSG 350 

DTSG 360 

REMARKS '^^^'^ '^° 

NO ACTION IN CASE IRQM LESS THAN 1. OTSG 3B0 

IF INPUT VALJE NDIM IS GREATER THAN IROW, THE PR03RAH DTSG 390 

SELECTS ONLY A MAXIMUM TABLE OF IROW POINTS. THEREFORE THE OTSG 403 
USER OUGHT T3 CHECK CORRESPONDENCE BETWEEN TABLE lARG.VAL) OTSG 410 
AND ITS DIMENSION BY COMPARISON OF NOIM AND IROW, IN ORDER OTSG 420 
TO GET CORRECT RESULTS IN FURTHER WORK WITH TABLE ( ARG, VALI . DTSG 430 
THIS TEST MAY BE DONE BEFORE OR AFTER CALLING DTSG 440 

SUBROUTINE OATSG. ^If^ ^^C 

SUBROUTINE OATSG ESPECIALLY CAN BE USED FOR GENERATING THE OTSG *63 
TABLE lARG.VALI NEEDED IN SUBROUTINES OALI. DAHI, AND OACFI.OTSG 470 

or SG 4 80 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED DTSG 490 

^°'*^ OTSG 510 

METHOD °^^^ ^^° 

SELECTION IS OONE BY GENERATING THE VECTOR WORK WITH DTSG 530 
COMPONENTS WDRKt I ) =A8S( H IJ-X I ANO AT EACH OF THE NOIM STEPSOTSG 540 
(OR IROW STEPS IF NOIM IS GREATER THAN IROWl DTSG 550 

SEARCHING FOR THE SUBSCRIPT OF THE SMALLEST COMPa>JENT, WHICHOTSG 560 
IS AFTERWARDS REPLACED BY A NUMBER GREATER THAN DTSG 5 70 

MAXIWORKI m. OTSG 580 

OTSG 590 

DTSG 630 

DTSG 610 
OTSG 42C 
DTSG 630 
DTSG 640 
OTSG 550 
OTSG 660 
DTSG 670 
DTSG 680 
DTSG 690 
OTSG T03 
OTSG 710 
UT5G 72" 
GENERATION DF VECTOR WORK. ANO COMPUTATION OF ITS GREATEST ELEMENT. DTSG 730 
6=0.00 

00 5 1=1. IROW 
OELTA-DABS(Z( I l-K t 
IF(DELTA-BI5,5.4 
B=D£LTA 
WORK! I l=DELTA 



SUBROUTINE DATSGl X, Z, F .WORK, (ROW, ICOL . ARG, VAL , NDIMI 



DIMENSION 2(11, FID .WORK I U.ARG( 1I.VAL( 1) 

DOUBLE PRECISION X,Z,F,WORK,ARGi VAL,B,DELT* 

IF( lRaw)ll,ll,l 

N^NDIM 

IF N IS GREATER THAN IROH, N IS SET EQUAL TO IRO". 

IF( N-IROWl 3,3,2 

N=rROW 



GENERATION OF TABLE lARG.VALI 

B=B*1.00 

00 10 J=1,N 

OELTA=a 

DO 7 1=1, IROW 

IF(W0RK(I1-DELTA)6,T,7 

6 11=1 
DELTA=WORK( I 1 

7 CONTINUE 
ARGIJ)=Z( II > 

iFi icoL-iia,9,a 

a VALI2*J-11=F( II } 

I ii=ii*iRaw 

VAL(2»Jt=^FI nil 

GOTO 10 

9 WALIJI-F( II } 

10 WORK! I I l = B 

11 RETURN 

END 



OTSG 740 
OTSG 750 
DTSG 760 
DTSG T70 
DTSG 780 
DTSG 79C 
DTSG 80C 
DTSG 810 
OTSG 820 
DTSG 830 
DTSG 640 
DTSG 850 
DTSG 860 
DTSG 870 
OTSG 8S0 
DTSG 890 
OTSG 900 
OTSG 913 
DTSG 920 
OTSG 933 
DTSG 940 
OTSG 953 
OTSG 960 
OTSG 970 
OTSG 960 
OTSG 990 
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Subroutines ATSM and DATSM 

These subroutines perform a table selection out of a 
given monotonlc table. They have the samevfunction 
as subroutines ATSG and DATSG with the difference 
that the given table is stored with monotonically in- 
creasing or decreasing arguments Zj . 

Selection is done in two parts. In the first part, 
argument z^ next to search argument x is searched 
for by "binary search". This procedure (in case 
irow = 10) is shown in Figure 23. 

The second part starts at z.- . At each of the n 

steps, the procedure decides by comparison of dis- 
tances if the next step has to go to the right or to the 
left. Care must be taken that none of the selected 
subscripts i. becomes greater than irow or less than 
one. Thus, in case n = 5, the sequence of argument 
values becomes Zj = Zg , z- = z^^ , Zj = Zg , 

^i = ^8 ' ^i = ^9 • The selected table is stored in 

the same way as in subroutine ATSG or DATSG. 

If (by an error of the user) the dimension n of the 
table to be selected is greater than the dimension 
irow of the given table, the procedure selects only a 
maximum table of irow points. In order to avoid 
errors in further work with table (ARG, VAL), the 
user ought to check the correspondence between the 
selected table and its dimension by comparison of n 
and irow. This test may be done before or after 
calling subroutine ATSM or DATSM. 



(2) X lies between 2^ and z. . 

(3) X lies between z and z . 



(5) Comparison of the two distances I z , - x I and z - xl shows that z . is next to x. 
t o t I / I 6 



Figure 23. Binary search for argument Zi(irow=10) 



SUSDOuriNE »TSN 

PURPOSE 

NOIN POINTS 3F « CUEN TiSLE WITH HONOTOdlC 4RGUHCNIS «RE 
SELECteO »ND OROEREO SUCH TH»r 

te$l>RCrii-«).cE.Aes<<RG(ji-xi if i.ot.j. ' 

USAGE 

CWL ArSH (X.Z.F.IROU.ICOL.ARG.WAL.NOIMI 



50 



80 



ATSM 13 
. ATSH 20 
ATS" 30 
ATSM 40 
ATSK 
ATSM 
ATSM 
ATSM 
ATSM 
ATSM 100 
ATSM in 
ATSM lio 
ATSM 130 
ATSM 1«0 
ATSM 150 
ATSM 160 
ATSM ITD 
ATSM 180 



IROW 





I COL 

ARG 

VAL 








NOIH 


c 
C 


flEHARKS 



ATSH 230 
ATSM 240 
ATSM 250 
ATSM i&O 
ATSM 270 
ATSM 2B0 
ATSM Z90 
ATSH 300 



DESCRIPTION OF PARAHEtERS 

X - THE SEARCH ARGUMENT. 

I - THE VECTOR OF ARGUMENT VALUES lOIMENSION IROW). 

THE ARGUMENT VALUES MUST BE STOREO IN INCREASING 
OR DECREASING SEQUENCE. 

*= - IN CASE ICOL-l, F IS THE VECTOR OF FUNCTION VALUES ATSM 190 
(DIMENSION IROM). ^^j^ ' ^ 

IN CASE IC0L=2. F IS AN IRQH BY 2 MATRIX. THE FIRSTATSH 2in 
CQLJMN SPECIFIES THE VECTOR OF FUNCTION VALUES ANO ATSM 2" 
THE SECOND THE VECTOR OF DERIVATIVES. 

- THE DIMENSION OF VECTOR I ANO OF EACH COLUMN 
IN lATRlX F. 

- THE NUMBER OF COLUMNS IN F (I.E. 1 OR 2J 

- THE RESULTING VECTOR Of SELECTED AND ORDERED 
ARGUMENT VALUES lOIMENSION NOIH). 

- THE RESULTING VECTOR OF SELECTEO FunCtIdn VALUES 
{DIMENSION NOIM) IN CASE ICOL=l. IN CASE 1C0L=2, 
VAL IS THE VECTOR Of FUNCTION AND DERIVATIVE VALUE5ATSM 310 
(DIMENSION 2*NDIMI WHICH A^IE STORED IN PAIRS (I.E. ATSM 320 
EACH FUNCTION VALUE IS FOILOHED BY ITS DERIVATIVE ATSM 330 
IJ*^^^'- ATSM 340 

- THE NUMBER OF POINTS WHICH MUST 6E SELECTEO OUT OF ATSM 350 
THE GIVEN TABLE IZ,F). ^rSM 360 

ATSM 370 

NO ACTION IN CASE IROW LESS THAN 1. 1[|J 39? 

IF INPUT VALJE NOIM IS GREATER THAN IROW, THE PROGRAM ATSM 400 
SELECTS ONLY A MAXIMUM TABLE OF IROU POINTS. THEREFORE THE ATSM 410 
USER OUGHT T3 CHECK CORRESPONDENCE BETWEEN TABLE IARG.VALI ATSM 420 
ANO ITS DIMENSION BY COMPARISON OF NOIM ANO IROW, IN ORDER ATSM 430 
TO GET CORRECT RESULTS IN FURTHER WORK WITH TABLE ( ARG, VAL J .ATSM 440 
THIS TEST MAr BE DONE BEFORE OR AFTER CALLING ATSM 450 

SUBROUTINE ATSM. ^j^J, ^^g 

SUBROUTINE ATSM ESPECIALLY CAN BE USED FOR GENERATING THE ATSM 470 
TABLE (ARCVALl NEEDED IN SUBROUTINES AL I , AHI , AND ACFI. ATSM 480 

ATSM 490 
ATSM 5D0 
ATSM 510 
ATSM 520 
ATSM 530 
ATSM 540 
ATSM 550 
ATSM 560 
ATSM 570 
ATSM 583 
....ATSM 590 
ATSM 5D0 
ATSM 610 
ATSM 620 
ATSM 630 
ATSM 640 
ATSM 650 
ATSM 6fiO 
ATSM 670 
ATSM 680 
ATSM 590 
ATSM 700 
ATSM 710 
ATSM 72Q 
ATSM 733 
ATSM T40 
ATSM 750 
ATSM 760 
ATSM 770 
ATSM 780 
ATSM 790 
ATSM BOO 
ATSM 810 
ATSM B20 
ATSM 830 
ATSM 840 
ATSM 850 
ATSM 860 
ATSM B70 
ATSM BBO 
ATSM 890 
ATSM qor» 
ATSM 910 
ATSM 920 
ATSM 930 
ATSM 940 
ATSM 950 
ATSM 960 
ATSM 970 
ATSM 980 
ATSM 990 
ATSMlOOO 
ATSMlOio 
ATSMn20 
ATSH103? 
ATSM104D 
ATSMIOSC 
ATSM1363 
ArSMl070 
ATSMIDBO 
ATSM1090 
ATSMllOO 
ATSMlllO 
ATSM1120 
ATSMU30 

mim 

ATSM1150 
ATSMtl60 
ATSMUTO 
ATSM1180 
ATSM1190 
ATSM1200 
ATSM1210 
ATSMI220 



METHOD 

SELECTION IS DONE BY SEARCHING THE SUBSCRIPT J OF THAT 
ARGUMENT, WHICH IS NEXT TQ X (BINARY SEARCH). 
AFTERWARDS NEIGHBOURING ARGUMENT VALUES ARE TESTED ANO 
SELECTEO EN THE ABOVE SENSE. 



SUBROUTINE ATSMU.Z ,F, iHOH, 1C3L, ARG.VAL .NDIMl 



DIMENSION Mn.Fin.ARCm.VALm 

c 

C CASE IRQW^l IS CHECKED OUT 

IFI IR0W-U23»2U1 

1 N^NDIM 
C 
C IF N IS GREATER THAN IROW, N IS SET EQUAL TO IROW. 

IF(N-IROW> 3,3,2 

2 N=IR0W 
C 

C CASE IROW.Ge.2 

C SEARCHING FOR SUBSCRIPT J SUCH THAT ZIJJ IS NEXT TO X, 

3 IFtZI IRO«l-Z( U )5,4t* 

4 J' IROW 
1 = 1 
GOTO 6 

5 I^IROM 
J=l 

6 K={ J»l I /2 
IFIX-ZIKI 17, 7,8 

7 J=K 
GOTO 9 

S I=K 

9 IFI IAaS(J-I)-lHO,10,6 
IC IFlABS[Z(JI-X»-ABSIZ(Il-xm2, U.ii 
I 1 J = I 

TABLE SELECTION 

12 K = J 
JL-O 
JR=0 

DO 20 l=l,N 
ARG( I )=2(KI 
IFI IC0L-1(14,14,13 

13 VA1_(2*I-II=F{K1 
KK-K»[RQM ' 
VAL(2«I l = F(K<Ql 
GOTO 15 

14 VALI I l=F(KI 

15 JJ«:J*J« 
IFI JJR-IROWI 16,18,1 8 

16 JJL=J-Jl 
IF( JJL-U 19,19. 17 

17 IFIABSIZ(JJ«tlI-XP-ABS(ZIJJL-H-XIIl9,l9,l8 

18 JL=JLtl 
K=J-JL 
GOTO 20 

19 J«=JR»l 
K=J*JR 

20 CONTINUE 
RETURN 

CASE IR0W=1 

21 ARGIl»=2UI 
VAL{1»=F| 1) 
IF(ICOL-2)23,22,23 

22 VAL(2I=F(2I 

23 RETURN 
END 
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SUBROUTINE OATSM 

PURPOSE 

NOIH POINTS 3f A GIVEN TASLE WITH MONOTONIC ARGUHENTS ARE 

SELECTED ANO OROEREO SUCH THAT 

ABSURGI n-XI .6E.*BSIARG( J)-X1 IF I.GT.J. > 



OeSCRIPriGN OF PARAMETERS 

X - DOUBLE PRECISION SEARCH ARGUMENT, 

L - DOUBLE PRECISION VECTOR OF ARGUMENT VALUES (DIMEN- 

SION IROHl. THE ARGUMENT VALUES MUST BE STORED IN 
INCREASING OR DECREASING SEQUENCE. 

F - IN CASE lCOL-1, F IS THE DOUBLE PRECISION VECTOR 
OF FUNCTION VALUES (DIMENSION IRawi. 

IN CASE ICOL = 2. F IS A OOUBLE PRECISION I ROW Bf 2 
MATRIX. THE FIRST COLUMN SPECIFIES VECTOR OF FUNC- 
TION VALUES AND THE SECOND VECTOR OF DERIVATIVES. 

- THE DIMENSION OF VECTOR I ANO OF EACH COLUMN 
IN MATRIX F. 

- THE NUMBER OF COLUMNS IN F (I.E. I OR 21. 

- RESULTING DOUBLE PRECISION VECTOR OF SELECTED AND 
ORDERED ARGUMENT VALUES (DIMENSION NOIM), 

- RESULTING DOUBLE PRECISION VECTOR OF SELECTED 
FUNCTION VALUES (DIMENSION NDIMt IN CASE ICOL^l. 
IN CASE IC0L=2, VAL IS THE DOUBLE PRECISION VECTOR 
OF FUNCTION AND DERIVATIVE VALUES (DIMENSION 
2#N0IM) NHICH ARE STORED IN PAIRS (I.E. EACH FUNC- 
TI0"4 VALUE IS FOLLOWED BY ITS DERIVATIVE VALUEI. 

- THE NUMBER Of POINTS WHICH MUST BE SELECTED OUT OF 
THE GIVEN TABLE tZ,F». 



20 



IRON 



I COL 

ARG 



VAL 



NOIM 



REMARKS 

NO ACTION IN CASE IROW LESS THAN I. 

If INPUT VALJE NOIM IS GREATER THAN IRON, THE PROGRAM 

SELECTS ONLY A MAXIMUM TABLE OF IROH POINTS. THEREFORE THE 

USER OUGHT T3 CHECK CORRESPONDENCE BETWEEN TABLE (ARG. VAL) 

ANO ITS DIMENSION BY COMPARISON OF NDIM ANO IROW, IN ORDER 

TO GET CORRECT RESULTS IN FURTHER WORK WITH TABLE (ARG, VAL) 

THIS TEST MAY BE DONE BEFORE OR AFTER CALLING 

SUBROUTINE DATSH. 

SUBROUTINE OATSM ESPECIALLY CAN BE USEO FOR GENERATING THE 

TABLE (ARG, VAL) NEEDED IN SUBROUTINES DAL I , OAHl, ANO DACFI 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NCME 

METHOD 

SELECTION IS DONE BY SEARCHING THE SUBSCRIPT J Of HAT 
ARGUMENT, WHICH IS NEXT TO X (BINARY SEARCH). 
AFTERWARDS NEIGHBOURING ARGUMENT VALUES ARE TESTED AND 
SELECTED IN THE ABOVE SENSE. 



SUBROUTINE OATSMI X, 2,F, IROW, ICDL , ARG, VACNDI M) 



DIMENSION Z(I]tF(l),ARG(L),VAL(l) 
DOUBLE PRECISION X , £, F. ARG, VAL 

CASE IR0W=1 IS CHECKED OUT 
IF( 1R0W-I)23.2t.l 

1 N=NOIM 

IF N IS GREATER THAN IROH. N IS SET EQUAL TO IROW. 
IFIN-IROW)3.3,2 

2 N*IROW 

CASE IR0W.GE.2 

SEARCHING FOR SUBSCRIPT J SUCH THAT Z(JI IS NEXT TO 

3 IFIZI IROHl-Zd) )5.4.A 

4 J=IROW 
l-l 
GOTO 6 

5 1=1 ROW 
J = l 

6 K-(J*II/2 
IF(X-Z(ICH7,7,8 

7 J = K 
GOTO 9 

8 I»K 

9 lF(IABS(J-n-lllO,IO,6 

10 IF(OABS(ZIJI-X)-OABSlZlI)-xm2.l2,ll 

11 J-I 

TABLE SELECTION 

12 K=J 
JL-0 
JR>0 

DO ZO I=1.N 
ARGt l)>ZIK) 
IF(ICOL-l) 1*. 14.13 

13 VAL(2*I-1)-F(K) 
KK^KHROW 
VAC(2*H=f(KK) 
GOTO 15 

14 VAL( I)=F(K> 

15 JJR=J*JR 

IFl JJR-IROHIi6,l8,l 8 

16 JJL=J-JL 
If{JJL-lll9, 19,17 

17 1F(0ABS(£( JJR*ll-XI-OABS(Z{ JJL-1 I -X 1 ) 19 , 19 , I B 
Ifl JL»JL*1 

K=J-JL 
GOTO 20 

19 JR'JR+I 
K»J*JR 

20 CONTINUE 
RETURN 

CASE IR0W>1 

21 ARG( 1)>ZI I) 
VAL{I>>F(II 
IF(ICOL-2)23,22,23 

22 VAL(2)*FI2» 

23 RETURN 
END 



DISM 
DtSM 
DISM 

DTSM 43 

DTSM 50 

DTSM 60 

DTSM 70 

DTSM 80 

DTSM 90 

DTSM 100 

DTSM no 

DTSft 120 

DTSM 130 

DTSM 140 

DTSM 150 

DTSM I6C 

OTSM 170 

DTSM 180 

DTSM 190 

DTSM 200 

DTSM 21C 

DTSM 223 

OTSM 230 

OTSM 24S 

OTSM 250 

DTSM 260 

DTSM 270 

DTSM zao 

OTSM 290 
OTSM JOO 
DTSM )L0 
OTSM 32D 
DTSM 33C 
OTSM 340 
OTSM 35C 
DISM 360 
DTSM 370 
OTSM 380 
DTSM 390 
OTSM 400 
OTSM 410 
OTSM 420 
DTSM 430 

,OTSM 440 
OTSM 450 
DTSM 460 
DISM 4T0 

.DTSM 480 
DTSM 49C 
OTSM 5D0 
DTSM 510 
DTSM 520 
DISM 510 
OTSM 540 
DTSM 550 
DTSM 560 
DTSM 570 
DTSM 580 

.OTSM 593 
DTSM 600 
OTSM 610 
OTSM 620 
DTSM 631 
OTSM 640 
DTSM 650 
DTSM 650 
OTSM 670 
OTSM 680 
DTSM 690 
OTSM 700 
OTSM 710 
DTSM 720 
OTSM 730 
OTSM 740 
DTSM 750 
DTSM 760 
OTSM 770 
DTSM 780 
DTSM 790 
DTSM 800 
DTSM 810 
OTSM 820 
DTSM 830 
OTSM 840 
OTSM 850 
OTSM 863 
OTSM B70 
OTSM 880 
OTSM 890 
DTSM 900 
OTSM 910 
DTSM 920 
OTSM 930 
OrSM 940 
OTSM 950 
OTSM 960 
OTSM 970 
OTSM 990 
OTSM 990 
DTSMlOOO 
DTSMIOIO 
OTSM1020 
DT5MI030 
DTSM1040 
DTSM1350 
DTSM1060 
OTSM1370 
OrSMlOBO 
DTSM1093 
OTSMUOO 
DTSMHIO 
DTSM1120 
OTSMIISO 

orsMiuo 

DTSM1150 
DTSM1160 
DrSMIl70 
DTSM1180 
0TSM119D 
DTSMl20a 
OTSM1210 
DTSM1220 
DTSM1230 



Subroutines ATSE and DATSE 

These subroutines perform a table selection out of a 
given equidistant table. They have the sajne function 
as subroutines ATSG and DATSG with the difference 
that the given table is stored with equidistant argu- 
ments. Instead of vector Z of argument values, sub- 
routines ATSE and DATSE need only the starting 
argument Zg and the increment of arguments dz. 

Selection is done in two parts. In the first part, 
the subscript \-^ of the argument next to search argu- 
ment X is computed, using the formula 



[^ ^ -] 



where [a] means "integer part of a". 

The second part starts at z.- and goes one step to 

the left (right) , one to the right (left) , and so on until 
all n arguments are selected. Care must be taken 
that none of the selected subscripts i. becomes 
greater than irow or less than one. In the example 
shown in Figure 24, the sequence (Zj ) becomes 

J 



= z. 



= z^ 



^ig - ^3 ' "irj - "2 • 

The selected table is stored in the same way as in 

subroutine ATSG or DATSG. 

If, by a user error, the dimension n of the table 
to be selected is greater than the dimension irow of 
the given table, the procedure selects only a maxi- 
mum table of irow points. In order to avoid errors 
in further work with table (ARG, VAL), the user 
ought to check the correspondence between the se- 
lected table and its dimension by comparison of n 
and irow. This test may be done before or after 
callii^ subroutine ATSE or DATSE. 



dz dz dz 



H h 



^1="S "2 



H K— f- 



Figure 24. Generation of sequence (zj.) in case irow=8, n=7 
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ATSE 

Ars€ 

ArSE 
*TS€ 

ATSE 

PURPOSE jirsE 

NOIM POINTS 3F A GIVEN TA9LE WITH ESUIOISTANr ARGUMENTS ARE ATSE 



SUBROUTINE ATSE 



SEteCTCO AND OftOEREO SUCH THAT 
*eSCAItG(II-X).GE.AeSURG(J)-XI 



F I.CT.J. 



USAGE 

CALL ATSE (X.ZStOZ. 



100 



FrlR0HtICOLtAftS.VAt.,NO[HI 



ATSE 
ATSE 
ATSE 
ATSE 
ATSE UQ 
ATSE iJt) 
ATSE 140 
ATSE 150 
ATSE 160 
ATSE 170 



OESCRIPTION OF PAAAHETEAS 

K - THE SEARCH ARGUMENT. 

IS - THE STARTtNC VALUE OF ARGUHENTS. 

DZ - THE ItKREHENT 3f ARGUMENT VALUES. 

F - IN CASE KOL^l. F IS THE VECTOR OF FUNCTION VALUES ATSE 190 

lOIMENSlON IRQH). ATSE 190 

IN CASE ICOL-2, F IS AN IROW BY 2 MATRIX. THE FIRSTATSE 200 
COLJNN SPECIFIES THE VECTOR OF FUNCTION VALUES ANO ATSE 210 
THE SECOND THE VECTOR OF DERIVATIVES. ATSE Z20 

IROW - THE DIMENSION DF EACH CilLUHN IN MATRIX F. AISE 230 

ICOL - THE NUMBER OF COLUMNS IN F II. E. \ OR 2». ATSE 2*0 

ARG - THE RESULTING VECTOR OF SELECTED AND OHOEHEO ATSE 250 

ARGUMENT VALUES (DIMENSION NOIMI. ATSE 260 

VAL - THE RESULTING VECTOR DF SELECTED FUNCTION VALUES AfSE 270 

lOIMENSION NOIMI IN CASE ICQL=l. IN CASE IC0L«2, ATSE 280 

VAL IS THE VECTOR Of FUNCTION ANO DERIVATIVE VALUESATSE 2^0 
tOI>l£NSION 2*N0IMt MHICH ARE STORED IN PAIRS (I.E. ATSE 300 
EACH FUNCTION VALUE IS FOLLOWED BV ITS DERIVATIVE ATSE 310 
"LJEl. ATSE 320 

MDIM - THE NUMBER OF POINTS WHICH MUST BE SELECTED OUT OF ATSE 330 



THE GIVEN TABLE, 

REMARKS 

NO ACTION IN CASE IROW LESS THAN I. 

IF INPUT VALJE NOIM IS GREATER THAN !ROW, THE PROGRAM 
SELECTS ONLY A MAXIMUM TABLE OF IROM POINTS. THEREFORE THI 
USER OUGHT T] CHECK CORRESPONDENCE BETUEEN TABLE lAR&.VALI 
ANO ITS DIMENSION BY COMPARISON OF NOIM ANO IROH« IN OROER 



ATSE 340 

ATSE 350 

AI5E 360 

ATSE 370 

ATSE 380 

ATSE 390 

ATSE 400 

. . _ __ ATSE 410 

ro GET CORRECT RESULTS IN FURTHER WORK WITH TABLE ( ARC. VALI . ATSE 420 



THIS TEST MAY BE DONE BEFORE OR AFTER CALLING 
SUBROUTINE ATSE. 
SUBROUTINE ATSE ESPECIALLY CAN BE USED FOR GENERATING THE 
TABLE (ARG.VALI NEEDED IN SUBROUTINES ALl, AHI, AND ACFI. 

SUBROUTINES AMD FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

SELECTION IS DONE BY COMPUTING THE SUBSCRIPT J OF THAT 
ARGUMENT, MHICH IS NEXT TO X. 

AFTERWARDS NEIGHBOURING ARGUMENT VALUES ARE TESTED ANO 
SELECTED IN THE ABOVE SENSE. 



SUBROUTINE ATSEI X, Z S.DZ .F , IROH. ICOL ,ARSt VAL tNDI Mt 



DIMENSION Fill ,ARG( D.VALl II 
IF(1R0U-1U9.17.1 



CASE 0£*0 IS CHECKED OUT 

1 IF(02I2,17,2 

2 N-=NDIM 



ROW, N IS SET EQUAL TO IROU. 



IF N IS GREATER THAN 
IF(N-lROW}4t4,3 
3 N-IROU 

COMPUTATION OF STARTING SUBSCRIPT J. 
* J=IX-ZS>/02*1.5 
IF(JI$.5,6 

5 J*l 

6 tFfJ'IROWIS.BtT 

7 J- IROW 

GENERATION OF TABLE ARG, VAL IN CASE 02. NE. 

8 n = j 

JL-0 

JR=0 

DO 16 I-lfN 

«RG(I l>ZS*FLaAri II- II ADZ 

IF(ICOL-2l9.10tlO 

9 VALlIl-FIIII 
GOTO 11 

10 VAL(2*[-ll=F<n) 
III>ll4^IR0W 
VAL(2«I).F( nil 

11 IF(J+Jll-IR0W)t2.15t 12 

12 IF<J-JL-1)13,14,13 

13 IF({ARGIII-XI*0ZI14.1S,15 

14 JR=JR+1 
IMJ+JR 
GOTO 16 

15 JL=JL*I 
II=J-JL 

16 CONTINUE 
RETURN 

CASE 02=0 

17 ARG( l)=2S 
VAL(1|=F(1I 
IF(ICQL-2I19.19,18 

18 VAL(2I=F(2» 

19 RETURN 
END 



ATSE 430 
ATSE 440 
ATSE *50 
ATSE 460 
ATSE 470 
ATSE 480 
ATSE 490 
ATSE 500 
ATSE 510 
ATSE 520 
ATSE 530 
ATSE 540 
ATSE 550 
ATSE 563 
...ATSE 570 
ATSE 580 
ATSE 590 
ATSE bOO 
ATSE 610 
ATSE 620 
ATSE 630 
ATSE 640 
ArsE 650 
ATSE 660 
ATSE 670 
ATSE 690 
ATSE 690 
ATSE 700 
ATSE 710 
ATSE 720 
ATSE 730 
ATSE 740 
ATSE 750 
ATSE 760 
ATSE 770 
ATSE 780 
ATSE 790 

ATSE aoo 

ATSE 810 
ATSE 820 
ATSE 830 
ATSE 8V0 
ATSE 850 
ATSE 860 
ATSE 870 
ATSE B80 
ATSE 890 
ATSE 900 
ATSE 910 
ATSE 920 
ATSE 930 
ATSE 940 
ATSE 950 
ATSE 960 
ATSE 970 
ATSE 980 
ATSE 990 
ATSEIOOO 
ATSEIOIO 
ATSE1020 
AISE1030 
ArSE1040 
ATSE1050 
ATSE1060 
ATSE1070 
ATSei080 
ArSEI090 



SUBROUTINE OATSE 



OTSE 
DTSE 
DTSE 
OTSE 



PURPOSE 

SEiECTED ANO OROEAEO SUCH THAT 
ABS(ARG( lt-l(I.G£.AeS(AAC(Jt-X) 



I.GT. J. 

USAGE 

CALL DATSE (X .ZS,02,F, IROU, ICOL, ASG, VAL.NDlnl 
DESCRIPTION OF PARAMETERS 

K - DOUBLE PRECISION SEARCH ARGUHENT. 

iS - OOUBIE PRECISION STARTING VALUE OF ARGUKENTS. 

OZ - DOUBLE PRECISION INCREMENT OF ARGUMENT VALUES. 

F - IN CASE ICQL=l, F IS THE DOUBLE PRECISION VECTOR 
OF FUNCTION VALUES lOIMENSION IKOWI. 



IRON 
ICOL 
ARG 

VAL 



60 
70 
80 



DTSE 
OTSE 

OTSE 100 

DTSE 110 

DTSE 120 

OTSE HO 

OTSE 1«0 

OTSE 150 

OTSE 160 

OTSE 170 

OTSE 180 

IN CASE IC0L.2, F IS A OOUSLE PRECISION IROM BT Z OTSE 200 
HATRIX. THE FIRST COLUMN SPECIFIES VECTOR OF FUNC- OTSE 210 
TION VALUES ANO THE SECOND VECTOR Of DERIVATIVES. OTSE 220 

- THE DIMENSION OF EACH COLUMN IN MATRIX F. OTSE 7V\ 

- THE NUMBER OF COLUNNS IN F (I.E. I OR 2). DTSE 2«0 

- RESULTING DOUBLE PRECISION VECTOR OF SELECTED AND OTSE 250 
ORDERED ARGUMENT VALUES lOIMENSION NOIM). QTSE 2S0 

- RESULTING DOUBLE PRECISION VECTOR OF SELECTED DTSE 270 
FUNCTION VALUES lOINENSION NOIMI IN CASE ICOL-I. OTSE |sO 
IN CASE ICOL-2, VAL IS THE DOUBLE PRECISION VECTOR OTSE 290 
Of FUNCTION AND OERIVAIiVe VALUES (OINENSION DTSE JOO 
2«N0IMI WHICH ARE STORED IN PAIRS (I.E. EACH FUNC" OTSE JIO 
TION VALUE IS FOLLOWED BV ITS DERIVATIVE VALUEI. DTSE J20 

- THE WNBER Of POINTS VHICH NUST >E SELECTED OUT Of OTSE 3J0 
THE GIVEN TABLE. „xSE 3*0 

lARKS °'^^ '" 

NO ACTION IN CASE IROW LESS THAN 1. ot|e 3,3 

IF INPUT VALJE NOIM IS SREATER THAN IROH. THE PROGRAM DTSE 380 
SELECTS ONLY A MAXIMUM TABLE OF IROW POINTS. THEREFORE THE OTSE 190 
USER OUGHT T3 CHECK CORRESPONDENCE BETWEEN TABLE (AR5.VALI DTSE 400 
AND ITS OIHEXSION BY COMPARISON OF NOIM AND IROW. IN OROER OTSE 410 
TO GET CORRECT RESULTS IN FURTHER WORK WITH TABLE (ARC, VAL) . DTSE 420 
THIS TEST MAY BE DONE BEFORE OR AFTER CALLING DTSE 430 

SUBROUTINE OATSE. qtsE 440 

SUBROUTINE OATSE ESPECIALLY CAN BE USED FOR GENERATING THE DTSE 450 



NOIM 



TABLE lARG.VALI NEEDED IN SUBROUTINES OALI. DAI 



METHOD 

SELECTION IS DONE BY COMPUTING THE SUBSCRIPT J OF THAT 
ARGUMENT, WHICH IS NEXT TO X. 

AFTERWARDS NEIGHBOURING ARGUMENT VALUES ARE TESTED ANO 
SELECTED IN THE ABOVE SENSE. 



SUBROUTINE OATSEI X, £S, 02 ,F, IROM, ICOL .ARG, VAL, NOIMI 

DIMENSION Ft LI.ARGI II .VAL( II 
DOUBLE PRECISION X, 2S, DZ , F, ARG. VAL 
IFUR0W-U19,17,1 

CASE OZ-0 IS CHECKED OUT 

1 IFI0il2,l7,2 

2 N=NOIM 

IF N IS GREATER THAN IROM, 
IF{N-IR0W)4.4.3 

3 N'IROW 



M IS SET EQUAL TO IROW. 



COMPUTATION OF STARTING SUBSCRIPT J. 

4 J=(X-2Sl/02+l,500 
IFtJ)5,5.6 

5 J = l 

6 IF(J-IROW)8.9,7 

7 J=IROW 

GENERATION OF TABLE ARG, VAL IN CASE DZ-NE.O. 

8 II^J 
JL*0 
JR = D 

DO 16 [=1,N 

ARG( II>2S»DFL0AT( 1I-1I*DZ 

IFnC0L-2l9,lP, 10 

9 VALt I1=F( II) 
GOTO 11 

10 VALI2*I-l)sF|II) 
II I- 1 1 » IROW 
VAL{2*II>FliII) 

11 IF(J*JR-IR0WI12,I5,12 

12 IFIJ-JL-1 I 13,14,13 

13 IF(IARG(II-X)*02)14,15.15 

14 JR=JR»1 



16 CONTINUE 
RETURN 

CASE DZ=0 

17 ARG( ll=2S 
VAL( 1)»F( 11 
IFIICOL-2119,19,: 

18 VAL(2I<F<2I 

19 RETURN 
ENO 



AND OACFI.OTSE 460 
OTSE 470 
DTSE 480 
OTSE 490 
OTSE 503 
DTSE 510 
OTSE 520 
DTSE 530 
DTSE 540 
OTSE 550 
DTSE 560 
...DTSE 570 
DTSE 580 
DTSE 590 
DTSE 600 
OTSE 610 
OTSE 620 
DTSE 630 
OTSE 640 
DTSE 650 
DTSE 660 
OTSE 6T0 
DTSE 680 
OTSE 690 
DTSE 700 
OTSE 710 
DTSE T20 
OTSE 750 
OTSE 740 
DTSE 750 
OTSE 760 
DTSE 770 
DTSE 780 
OTSE 790 
OTSE BOO 
DTSE 810 
OTSE 820 
OTSE 830 
OTSE 840 
DTSE BSO 
OTSE 860 
OTSE 870 
DTSE 8B0 
OTSE 890 
OTSE 900 
OTSE 910 
DTSE 920 
DTSE 930 
OTSE 940 
OTSE 950 
DTSE 960 
OTSE 970 
DTSE 980 
DTSE 990 
DTSE 1000 
DTSeiOlO 
OTSE1020 
orSE1030 
OrSE1040 
DTSE1050 
DTSE1060 
DTSE1070 
OTSE1080 
DTSE1090 
OTSEUOO 
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Subroutine SG13 and DSG13 

These subroutines compute a vector Z = (z., z^) 

of smoothed function values, given vectors X = 

(XI Xjj) of argument values and Y = (y^ yn) 

of corresponding function values. Except at the 
endpoints Xj^ and Xj^, each smoothed value z^ is 
obtained by evaluating at Xj the least-squares poly- 
nomial of degree 1 relevant to the three successive 
points (x^.^.y^.i). (x.,y.), and (Xj_(.j^,yj^j^j. 

1. Mathematical background 

For i = 3 , . . . , n we must find m j^ and b^ such that 



w.(x) = m.x + b. 

V ' 1 1 



(1) 



gives the least-squares fit to the points (''i-iiyi_2)> 
(Xj_l,yi_l), and (xj y^). The problem, then, is to 
minimize 



F(m.,b.)= X; 
k=0 



w.(x. , ) - y. , 1 
1^ i-k •'i-k 



This minimum will occur when 



3F „ . 8F „ 
1 1 



Now 

8F 



2 

I 
k=0 



8^ =2 D [^^Vk^-Vk] 



and 

aF 



> 



dm. 



= 2 



i: Vkf^^w-yi-kl 

k=0 L -I 



Solving equations (2) and (3) yields: 

2 , 2 . , 2 

1 

k= 



2 ,22 

E VkVk-^/fi: Vk)(E 

k=0 \k=0 /\k=0 



'i-k 



m. 



z ^i-k - ^/Ve Vk^ 



k=0 



(2) 



(3) 



(4) 



Letting: 



— 1 
^i" 



2 

^ E 

k=0 



^i-k' ^ = ^ E ^i-k' 

k=0 



t. , = x. , 
i,k i-k 



X. and V. , = y. , - y 
1 i,k ■'i-k •'i 



(6) 



we may rewrite (4) and (5) as: 
2 
^ *i k ""i k 

k=0 '^ ''•' 



m. 



(7) 



i,k 



k=0 



and 



b. = y. 
1 -^1 



m. X. 
1 1 



(8) 



Using (8) in (1) gives 



w.(x) = m.(x-x.) + y. 
1 1^ i' -^1 



where m. is as in (7). 

The desired smoothed values z. are given by: 



z. = • 
1 



^3<"l> = "^3*3,2^^3 
Vl<''i)='"i+lVl,l"Vl 



if i=l 

if i=2, ... ,n-l 

(9) 
if i=n 



w(x) = m t .+y 
V n^ n' n n, n 

2. Programming considerations 

The subroutines compute the z. in serial order 
according to (9). If n<3, there is no computation, 
and the error parameter lER is set to -1. Other- 
wise lER is set to zero at the end of the computation. 
The output vector Z can have the same storage allo- 
cation as X or Y. 

For reference see Hildebrand, F. B. , Introduc- 
tion to Numerical Analysis . McGraw-Hill, New 
York/Toronto/ London, 1956, pp 258-311. 



U=0 



and 



b. 



2 

E 



Q -^ / y. , - m.x. , \ 



(5) 



Mathematics — Interpolation, Approximation and Smoothing 253 



FUNCTION V'LLfS GIVEN 
CC'ORt SPONGING FUNCTION 



!.LJ6onuTrNt SC13 
PLiRf>rSF 

V£r.T[-.PS C'r iflr.lJMtM VftlUE' 
VALUES. 

U'"-aGt 

CALL S':n( )(.v,z ,nd(^", itm 

DtSCRIPlIf^N TF PARAviEtef.S 

t - f.tVEN VeCTi^H fif APGL'MFM VfLJES (DIMENSION NOIMI 

■^ - (,Eve,M VFfTCK ::f FUNTTICA values CCRt-tSPChOING TO « 

( I'lHi-NSKN NOTM 
I - fifSULriNG VtCT^tJ TE ^MfOlHED fUlflTN VALUES 

(DlMfcNSKN NriMl 
NCIM - otvE^sln^ of uf.ctgrs x.v.and i 
nf- ~ ttSUtTiN-, EPflfR PARtHETEfi 

Uf - -I - Nri" 15 LESS THftT' 3 

Jf' = - NP FGROP. 

REMAKKS 

(i) IF Itk:-! T^,FRE HAS PfEN fsC CQWPUT A T [ re: . 

(^( 7 CAN HAVE THE SAME S lOF.t &f 4LLUC4TKN LS X CR ¥. IF 

;: PK V IS Dlf^TlNCI FROM I. THEN IT I <: NfT DESTCOYEa. 

SUPflQL'TlNES ANP bUfiPRUGRA^'S RE3Ur^£0 



SCI 3 
.SGI' 
SO I? 


IC 


31 


^r.12 


'.O 


SGI 3 


^0 


SGI ) 


6'-l 


SC13 


TO 


s-^n 


ao 


SGI? 


90 


sr,n 


ion 


SG13 


u-i 


SG13 


l?0 


S&13 


1 JO 


SGI? 


1*0 


SG13 


IS J 


sri' 


if.;» 


S'"-i: 


170 


«13 


1Rtl 


SGI 3 


IS") 


5C13 


?00 


SGI 3 


?}0 


S&13 


??-i 


SGI? 


;'3n 


s-iis 


PAT 


SG13 


P-JO 


SGI 3 


2i,Q 


SGl'i 


?70 


5Gi3 


^BU 


SGI 3 


^^'j 


SGU 


'»00 


SG13 


?1C1 



PURPOSE 

Tc cr^purr * vECTrw of SMCCTHtn function valu 

VECTOi*S TF ARGUMENT VALUES AND CCRRE SPpNOI^G 
VALUES. 

USAGE 

CAll DS."1?( XtY, Zf KOIM, lERI 

UtSCB IfT ICN C:F Pfi1AMETE«S 

t - GIVEN VtCTOrt [JF OUUtLE PRECISION «P<"- 

fOIKEN-SION NOIM) 
>■ - GIVCN VECTO' UF nL;U't^ PFcflSlON Fi.M 

COfiOFSPGNDINC TO x O)[KfNSI0,M NDCMI 
Z - KESULTCCC- VECIjR OF C^'J^L^ PffECISlTI' 

FU-tLTION V&LUi:S (DPIV^iC.lrN N0I1I 
^DI'^ - OlMENSiaW C.f 7ECTE"<S y.T.ANC I 
ir* - PESULTir^G EPFOK PAHAMETr-- 

!Ea = -1 - NDIM IS L*^S5 IHAN 3 

Ifc = n - ^n E^POR 

CEf-ACKS 

(U IF Itfl=-l THERE HAS BEEN NJ COKPUIATI Tr:. 

(?) 7 CAN HAVE THF SA*1E STCKAGE AcLHCATTCh . 

X 1-'^ Y IS niSTINTT FROf Z, THFN IT IS Ni 



OSGl 1" 

nSGl 20 

OSGl 30 

OSSl *0 

OSGl ^D 

nSGl 60 

^S GIVEN nSGl 70 

*U'''CTION ' D^Gl 80 

DSGl ■50 

OSGl 100 

OSGl 110 

DSGl 120 

OSGl 130 

OSGl l*iO 

L^^FM VALUES DSGl 150 

OSGl 160 

liC.N VALUES DSGl ITO 

osci len 

^MCOfHfD DSGl 190 

DSGl ?C0 

CS&l 210 

OSGl 270 

DSGl 230 

CSGl ?'.0 

OSGl ?5r~ 

DSGl 260 

D5C-1 2^<^ 

iS X nf. Y. IF DSG! 260 

?T DESTROYED. DSGl ?9n 

DSGl 100 



METHOD 

EXCEPT AT Tl!E tNJPOINff XII) t\u X(NOIMf, FACf ihOCIHED 
VALUE Zll) IS OBTA|f"fP fiy EVAtUTING AT X(ll THE LEAST- 
SOUAftLS PflvNOHIAl CF CfGRfcE 1 RELEVAM TO TH( 3 SUCCESSIVE 
POKl'f, (^M'tO.Yir + KII K = -l.O.I.ISEF HlLDEf''"T, F,o., 
INrRCOUCriDN TO NU«'r:iICAL ANALYSIS, HC '".RAl- -H j L L . NEK VDfiH 
lORCNrr^/LUNnrN, IS'jt, »P-259-^1 l. ) 



ni MtNs lUN X [ 1 



SIAIT LOPP 

1 m ft I ^Ir.-J.lIM 

XM=. 3333 3J3e{x( I-^^♦x^l-^^*xl : ji 

>'M = ,3J33-li^>lVi:-.').Y11-l)»V(Tn 
T L=X( I-^l-X" 

^^-x(I-l)-xM 

T3-X ( 1 l-X- 

X»=TI«Il*T:eT;^*T3*r3 
If ( XMl }. 1,2 

2 XH=(Tls( V< I-2I-VMMT 

CHECK FIRST PTI-ll 
- IF 1 I-3J/.,.., s 

<► H^XM«Tl»YM 
5 ?(!-2l=H 

f H=Xf*T2*YM 

END Lf LCCP 

UPDATE L'Sr TkiL CaMi>CNENT 
Z)NDIM-1 )-f 

?( NDIMl =XM»T 3*Y'1 

lER^O 

PETUSN 



(1-1 )-YMJ»T 1*1 Yt I )-fm M 



ERRriR EXIT J >■ 
7 IER=-1 
PETURN 
END 



f.AS"^ 



wni^! 



1.S LESS THAN 3 



SG13 


3^0 


SGI? 


■thO 


SGI 3 


370 


/ S ", 1 3 


3ao 


SG13 


■*f)rt 


SGI ? 


'.OC 






SG13 


■^?n 


SGI 3 


t^o 


SGI? 


A4C 


S&13 


<.^C 


sr.13 


^f.O 


SGI 3 


<.70 


5&1 J 


'.f<0 


<C13 


<.9n 


SGI 3 


'=30 


SGI 3 


MO 



SGl^ 


SS^i 


Sr,!3 


^^■T 


SGI 3 


^'H 


SCi? 


■^an 


sen 


s^O 


SGi3 


601 


Sr-13 


' !C 


5Gn 


^20 


sr.t 3 


(-J0 


SGij 


b<,<} 


SGI 3 


6bO 


SGI 3 


fciO 


SGM 


6 70 


SGl^ 


eao 


SGI 3 


690 


SG13 


7T0 


SGl» 


710 


SG13 


7?n 


SCI3 


730 


SGI 3 


740 


SGI3 


7 SO 


•^GtS 


/60 


SG13 


770 


SGl^ 


780 



METHOD 

exCEP' AT IHF ENSfOINTS Xlll %NU X(NniMl, EJC 
VALJc 7K\\ IS OBTAINED BY EVALUAFIMG AT X( I ) 
S31ifl«rS Dtr-LYNOMIAL OF DEGREE 1 t^fcLEVANT Tn th 
POINTS IXOKJ,¥n*Kll K = -l,J,l.(SGE HiLCf'i 
ir,Tcn0UCTlCN TC NU^lE^lCAL ANALYSIS, :^C C^AW-l 
TO\CMT!?/lDNDCN. 1 « ^6 , PP. 2 58- 31 1. I 



SUBRDUriric OSGIBfX.YW.NOIM, IE0) 



DIMENSION )<( H,Y1 It.Zd ) 

00U6LE Pf^FCISlGN X , Y , Z , XM, YM, T 1 , T 2 , I i,H 

TfST OF illMFMSION 

I FfNOlM-^l 7,1,1 

START LCUP 
1 on 6 1 = 3. ^(D I M 

XM^.333J3 3 33?3 33?3333DO»(XtI-2l*X( !-l)tx(I )J 
YM^.33 133333 '333 33333IJr)''IY( I -/ 1 » Y { | - 1 1 * Y 1 11 ) 
T1 = XI !-2)-X»- 
T? = y I !-i i-XH 
T 3 - X U I - XM 

)(M.T1#71*I2*I2*T?*I3 

IF (XMI3, 3,2 
Z XM-ITl*! Y(l-?(-Y»^l»T2*(Y( l-I3-YM) + T^-=)vi| )_ym| J/X>! 



e ?n-2i=H 

END C^ LOOP 

urOATii LAST T 
7IND1M-1 )^t- 

7(li;DIK)^X'^*T3tVN 



H SMOOTHED 
THf LEftST- 



OSGl 3 30 

D^Gl 340 

nSCI 35C 
PSr.i 



COMPCNrMS 



OF Tu'^'N 

ERRrR FXIT IN CASE NCI- tS LESS THAN 3 
1 IE=l=^-l 
PCTUFN 
END 



SUCCESSIVE OSGl STU 
AND. F.S.. DSGl 3fi(.' 

ILL. NEW YORK/DSGl 3«»0 

rsGi too 

OSGl AlO 

nSGl '^20 

DSGl <>30 

DSGl AAO 

CSGI *^0 

OSGl 4<^0 

0S!",1 4 7^ 

OSGl -.ao 

DSGl iOO 

OSGl 500 

DSGl -SIO 

DSGl 'i.''0 

DSGl 5 30 

DiGl f.^o 

DSGl Sf-xO 

DSGl 560 

DSGl "^TO 

CSGl SQO 

D>GI 600 

DSGl MO 

DSGl 620 

DSG" f-^O 

DSGl 6*n 

□ ■^Gl A5C 

CSGl 6t-0 

OSGl 67 

OS&l t>=)0 

CSGl 690 

OSGt 700 

OSGl 710 



OSGl 'sr. 

DSGl 760 

OSGl 770 

DSGl 7il0 

DSGl 7Q0 

DSGl POO 
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Subroutines SE13 and DSE13 



. These subroutines compute a vector Z = (z,,.,., 
z ) of smoothed function values, given aVector 

Y = (y, yjj) of function values whose entries 

Yi correspond to n equidistantly spaced argument 
values xi, with Xj - x^_, = h for i = 2, . . . ,n. 
Except at the endpoints x, and Xj^, each smoothed 
value Zj is obtained by evaluating at x. the least- 
squares polynomial of degree 1 relevant to the three 
successive points (''■ ,i,>y- ,u)» ^ ~ ~li*'> ^' 

1. Mathematical background 

The procedure is exactly that described for sub- 
routines SG13 and DSG13, but here we have the 
additional relation Xj^ - x^_i = h, a constant, for 
i = 2, . . . , n. This leads to the following expressions 



..n-1 (1) 



":;" (-y „ + 2y , + 5y ) if i=n 

2. Programming considerations 

The subroutines compute the Zz in serial order 
according to (1). If n< 3, there is no computation, 
and the error parameter lER is set to -1. Other- 
wise lER is set to zero at the end of the computa- 
tion. The output vector Z can have the same 
storage allocation as Y. 

For reference see F, B , Hildebrand, Introduc- 
tion to Nimierical Analysis. McGraw-Hill, New 
York/Toronto/ London, 1956, pp 295-302. 



for the z.: 
1 




( 6 <'yi ' '^2 - ^3) 


if i=l 


^i = ^ 3 ^yi-l^^i^W 


if i=2. 



sueppu'ifiF 



?13 



PliRPCS= 

T" CCf-PUTE A VECTOR TF SMnolHtQ t-UNC 1 1 UN V£LlIf-S CIVFN A 
VECTCfi Of FUNCTION VALUt? WHr.Sf ^ifJTBlES COC-cSPCND '0 
eOUIOISTflfULY SPSTEO aRGHMEMT VftLU^S. 



OeSCfitPIION OF PARAMtTERS 

V - r-IVEN Vt^CTCR OF FUK'CTf'W VALUES ( 01 '^e.NS IPN »I01H) 

Z - C"tSUiIlMG VtZIZ'-' CF --^r'lThcC FUi^tTIilN VALJE3 

([;1hENSICN hOI"! 
NL)(M - LJtMENSliJN Cf VECTORi V A«;lj I 
l€k - Ft;,'JLTINr, f-^!10B PJfuMl-IES 

Uft = -1 - NGI*' IS LfSS THAN 3 

ItR = - Ijn E^ Htl'^ 



P EM ARKS 



If lEft=-l IHIPf H 

1 L&r. HAVE THE « 

IS DISTINCT Fsr-^ 



r <;TORtGF ALLOCATION CU V, 
, I^^F^/ II IS NOr llfSfRDYtrU. 



MfcTHOD 

IF t IS Ihf- (SUP^eeSSEUI VL-CTCR HF A^(;uMENT VAL'JtS, THEW 
EXx-.E-T AT Ihl 2N'lP0If:rs XI 1) A'^n X(Nr)lf*J. EACH S^'nOTMED 
VALJt .'(IJ li TSTAINCO yr EViLil^TiNj ^t Kill ''HE LCAST- 
SO'iafES PCtVNOMIAL GE DEGREE 1 i-fLEVANT TO THE 3 SUCCESSIVE 
POINTS < X< 1*K) ,V( |»K > I K = -l.O.l. (SEE HlL5t3S*Nn, f.B., 
IKT-<r DUCT ION TH NUMERICAL AKALYSIS, MC GRAK-hUl, H = k YCRK/ 
TCRQNTC/LDNCnN, 1956, PP. 295-^0?. J 



Sfl3 


10 


.SE13 


?0 


SF13 


»n 


SFI3 


<.o 


SEll 


50 


SEl-* 


f'J 


sen 


70 


SE13 


so 


SFn 


90 


SFli 


100 


SEl? 


no 


sni 


1/0 


SEM 


110 


Sf 13 


U!! 


sEn 


1^0 


.>e; 3 


ItQ 


SEIJ 


170 


SEl? 


ISO 


SE13 


lOlJ 


SEI3 


zoo 


SE13 


^Kl 


SFM 


2?0 


Sf 13 


?10 


$ei3 


^■'40 


^ = 1 3 


?so 


sen 


;'60 


sfl - 


;70 


sei3 


^■80 


S^iJ 


290 


SF13 


iOC 


sei3 


310 


SF13 


3?.1 


sei3 


3-^0 


SFIl 


)<.0 


Sfl3 


JGO 


SF13 


3ibf) 


SC13 


STO 


SFt3 


3«11 



SUB«niiTINE S£13(V,7,ND! M» IFftt 



DIMENSION Ydl.Zlll 

TEST <DF OIMENSIPN 
lf(NOIM-3)3,l.l 

PPEPAKE LCPP 

1 S«.1666667«(5.*Y(!I*Y(2»+YI2J-V(3II 

C--166t.667*(5.»Y(N01MI»V(NDI«-ll*YIN0IM-l)- 

DO 2 I=3,N0l« 

A>n 

P = .33i3333»(V(I-?I + Y(I-ll+Ymi 

2 ZII-ZI-A 

END CF LOOP 



TWC COMPGNENTS 



UPDATi LAJ 
2(N0IM-!I=(« 

Z(NOI«)=C 

ltP"0 

RETURN 

EBROK f.XII 7N CASE NDK 
IER=-1 
RETURN 
F.no 



IS LESS THAN \ 



SEl 3 ^"0 
.Sfl3 '•00 

sri3 410 
sei3 <.'o 

St:l3 <.3n 

SEl 3 4VJ 

Sfl3 450 

SE13 A60 

Sei3 4 70 

Sei3 460 

SE13 49U 

SF13 500 

SF13 510 

Sf;i3 520 

Sfl3 530 

SF13 540 

SEn 550 

Sfl3 5f.0 

sfM ^ro 

SFl? 550 
S(fI3 590 
Sei3 600 
SE13 *10 
SE13 6?0 
SF13 030 
Sei3 640 
S€13 650 
Stl3 6SO 
SE13 670 

sen 680 

SEl 3 6^0 
5EH TOO 



SUBFrUTTNF OSF 1 3 
PURPOSE 

T'', c^-^pjTE A uEcrrfl rsF s«orrHfn function values siven a 
VECTO<i OF FUNCTION V4LU6S WHOSE fNTHIES CflF^ EfONO TO 
eCUniSTANTLV SPVCEO ^RGU•^E^T VALUES. 



USAGc 

CAIL DSE13(V 



\OIM 



l^ftl 



-UNCTION VALUES 



1M S'^OOTHEO 



OESCRIPTIDN OF PAPAMETEkS 

Y - r.lVEN VECTOR pF OC'^cE Pi*EClSIGN 

(DIMCN^IO.N. n:^imi 
I - FESULTDG V'TTOG OF 0::';rL£ P^'ECIS 

fUNCTlUN VALUES IDIf^'iNSION NOIMI 
NDEH - DIMEKSION Of VECTCf.S Y AND I 
IFR - i^tSULTINC ERROR PARA.'^tTER 

I^p , -1 - vDlf IS L?SS THAN 3 

IEk = - NO cuncR 



REMARKS 

tn IF I^R^-t THERE HA? 66fN NP Car?UT*T | Cf, . 
(21 I CBN HAVE IHE S1ME SIO^SSF HLOCATION tt Y. If Y 

]S CISTINCr FHO« Z, iHtN IT IS NOT Of. S T -*."! YEO . 

SUBROUTINES ANC 5U8'»''OCB AKS RCCUIREO 
NOwe 

H^TNOO 

IF X IS The (SUPPStSSEDl VECTC^P OF ARGUMEnT ViL'iF^, THtiN 
cXCEP' AT THE EN3"J!WTS XIII A^n XIKDI**), FAtH SMmTHfiO 
VALUE Zin IS OBTAINti; 6Y EVALUATIN5 AT K(l» THE LEAST- 
SOUAftES PPLYNOHIAL OP DEGREE 1 ^ElEVAM TO TM<^ 5 SUCCESSIVE 
POINTS IXIUKI ,Y{ UK)) K = -1,0,1. .(SEE HlLOE-HlNO, ^.6.. 
INFRUDUCTICIN TJ NU*!=R ICAL AN^UYtlS, HC GRAW-Hl'_'_. NEW VO^K/ 
TOPDNTfi/LONOON. 1956, re. 2'»5-iC2.l 



SU8fiCUTIN£ f>Sfl3IV,Z,NDIM. Ift) 



PHEPASE LOOP 
« = .1666666e'ft 666^066 ?');)•( 5.00»Y{ lUV 1 2 I tYI Z l-Y( 3 3 1 
C=. t 666666^6 666f.ti( 6 T* I 5 . D0»¥ ( NOI H ) ■♦ " 1 *-D IK-l 1 ♦ Y ( MO ( «- I I -Y ( NC IM-2 ) ) 

START LOO? 
DO 2 I«3.N0If 
A=B 

(!! = .3133333i53 3 33 533300«I Y( I-?1*Y(1-II*Y(II) 
2( t-2I=A 

END CF LOO" 

UPDATE LAST T 'VI? COMPONENTS 
ZIND|M-I)=e 
Z(NOIHI=C 
IFi» = 
KETURN 

EKRCR IXIT If- CASE NOl" IS LESS THAN 3 



DEI? in 

.OP 1 3 20 

DE13 3C1 

0E13 40 

DE13 SO 

0&13 60 

DF13 70 

0C13 ao 

0E13 11 

0E13 no 
DE13 m 
0£i3 i;o 

0613 1 JO 
OEl? 14C 
DEIJ liO 
DE13 16T 
OEl' 1 Ti) 
0613 110 
DEl.^ 190 
DEI 3 .'00 
Oei3 210 
D£n 2:'0 
DE13 230 
CE13 2'.0 
0E13 250 
CE13 ?60 
0E!3 ?7D 
0E13 230 
0E13 2^0 

de:3 no 

DE13 ilO 

Otl3 320 

Dfi I 3 ! ?ci 

UE13 340 

0ei3 350 

12 13 i^O 

0E13 370 

nei3 33n 

oeiJ s-^i 

0E13 AlO 
.0E13 '.IJ 

oei3 4 '0 

0E13 4 3C 
0E13 4'.0 
0E13 *S0 
0E13 460 
0ei3 4T.T 
0E13 4P0 
DEI 5 'i-r'C 
DEI 3 500 
0E13 510 
DEI3 '20 
DE15 ^?0 
DE13 540 
DEn 5'=;0 
DEI 3 560 
DEn 570 
0^13 5 30 
DEI; 590 
Oil 3 e-'n 
0E13 MO 
0E13 fr'O 
0i-:i3 6 30 
DF13 640 
DEI 3 '.-0 
0613 610 
0ei3 670 
DE13 6^50 
Dei3 690 
Otl3 701 
DE13 710 



Mathematics—Interpolation, Approximation and Smoothing 255 



Subroutines SE15 and DSE15 

These subroutines compute a vector Z = (z , . . . , 
z^)of smoothed function values, given a vector 
Y = (y-^, . . . ,y^) of function values whose entries 
yj correspond to n equldistantly spaced argument 
values X. with x.-x. , = h for i = 2, . . . ,n. Except 
at the points Xj^, Xg, ^_i, and Xjj, each smoothed 
value z^ is obtained by evaluating at x^ the least- 
squares polynomial of degree 1 relevant to the 
five successive points (x^+j,, Y+i,). k = -2,-1, 

• « • ] ^« 



Using the fact that x. - Xi_i = h, a constant, for 
j = 2, . . . , n, (4) and (5) may be rewritten as 



°^i= 1^ <2y.+y._^-y._3-2y^_^) 



and 



b. = 

1 



-t E 



y. , - m.x. „ 
•'i-k 1 1-2 



k=0 



(6) 



(7) 



1. Mathematical backgrotmd 



For i = 5, . . . , n we find m. and b. such that 



Using (7) in (1) yields 



w.(x) = m.x + b. 
1^ ' 1 1 



(1) 



gives the least-squares fit to the points (Xj[_k, yi_k), 
k=0, — ,4. The problem, then, is to minimize 



F(m.,b.)= E 
k=0 



-, 2 



w.(x. , ) -y. , 
1^ i-k' •'i-k 



This minimum will occur when 



8F „ ^ 9F 

— r-= and - — = 

9b. 8m. 



(2) 



Now 



and 



8F 
9b. 



9F 
9 m. 



= 2i: 



k=0 



w.(x. , )-y. , 
1 i-k -^i-k 



= 2 E 



x. , 
i-k 



k=0 



w. (X. , )-y. , 
1^ i-k' ■'i-k 



(3) 



Solving equations (2) and (3) yields: 

4 4 4 

E Vk^i-k-— (E VkVE Vk 

k=0 \k=0 /Vk=0 



m. = 
1 



4 

E 

k=0 



i-k 



4 

z 

k=0 



i-k 



and 



k=0 



y. , - m.x.-k 
i-k 1 1 



(4) 



(5) 



w.(x) = m.(x-x. J + -7- (y. . + 
1 1 1-2 5 "^1-4 



^.+y,) 



The desired smoothed function values zi are given 
by: 



'^^(^i) = -T- (3y, + 2y^ + y, - y\ i=l 



5' r 



5 ' ■'I •'2 ■'3 ■'S' 



w^(x„) = — - (4y, + 3y„ + 2y„ + yji=2 
gv 2' 10 ^ •'l -^2 ^3 -^4' 



w. „(x.) = — (v + V + V + V 
i+2^ i' 5 "^i-2 •'^i-l -^i -^i+l 



z. =-s 
1 



+ yj+2^ i=3,...,n-2 



(8) 



w (x ,) = tt: (y „ + 2y „ + 3y , 
tT n-r 10 ^n-3 •^n-2 -^n-l 



+ 4y ) i=n-l 



w (x ) = -r- {-y + y „ + 2y , 
n^ n' 5 -^0-4 •^n-2 "^n-l 

+ 3y ) i=n 
n 



2. Programming considerations 

The subroutines compute the zj in serial order ac- 
cording to (8). If n < 5, there is no computation, 

and the error parameter lER is set to -1. OthQVWiSQ 

lER is set to zero at the end of the computation. The 
output vector Z can have the same storage allocation 
as Y. 

For reference see F. B. Hildebrand, Introduc- 
tion to Numerical Analysis . McGraw-Hill, New 
York/Toronto/London, 1956, pp 295-302. 
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suapouTiNt sei5 

PURPPSF 

Tr CCHOUTF A VCCTfJR riF SMOOTMen FUNCTION V»LliF' GIV^W * 
VCCTC«= OF FUNCTION VALUFS WHOSt fiNTP.IES COKRESPfifcO TO 
EOUIDISFAMLY SP4CtD UfiUMENT VALUES. 

US*Gf 

C^LL SElSfV.Z.NCIH.ItFI 

D£SCfiIPnON OF PARAMETERS 

V - GIVEN VJCrOR RF FUNCTl;iN VALUeS I DIiei'iSION ND(W» 

I - "tSULTMu VE'TTllP OF SMOCTHED FUNCTION VALUES 

(DIMfeNSlQN N::)IH) 
NDIH - OlrtENSnN Oi-" VECTORS Y A^0 7. 
!e« - «^5ULTINt Ej» = (:k PARA'-eTfR 

JCR ^ _i _ f.niH IS l?SS T-iAtJ 5 

11^= - NO E^RO'* 

RFMA«KS 

HI IF IE«=-1 IHEte HAS BEEN NO COMPUTATinN. 

<2I I '"AN HAVE THE SAHt ST0e6GE AlLDCftTiOM AS Y. IF V IS 

DISTINCT FttQH Z. THEN IT IS NOT DESTfiOYCP. 

SUeHUUTlNc ANT FUNCTION SUemOGtAME REOUIHED 

Nowr 

MfTHflC 

IF X IS THf (SUP"1l-:Sir3) VFCTC.: Cf ARGUKfNT VtLJ^S. TH5N 

fxcE?' AT THE pcirgrs x( n, x(2j .xinoi ■^^u tjo y(^oI«l. sack 

SKDJIHEO V/LUC 2(1) !." aBTAI^EU PY EVALUATING AT X(II THE 
Lf ASr-SOUA''FS POLVNOKIAL OF OFGfiEE 1 RELEVAMT iri THE 5 
SUCCESSIVE POINTS < JtlMK) , VU +Kn K "^ -2t-lf....2. CSEE 
Hlll-iJ^^lJ, F."*., IMT^niJUCl ;:,N TO NUMERICAL A^4LYSIS. 
ur "■^Iw-Hp L. N^W YOr-K/TORONii-'/LCND'JN, IPS'!. P". 295-302.) 



SUeFOUTirJE SEl^f Y,?»NOIf, IE^'I 



niMENsnN "u I . M n 

TEST C- lllMGNSIGN 
IF(NDlM-:,)?,l,l 

PRtPARF LCnr* 

1 A=Y1 1)*YI 1 1 
C=Y(2t*YI ;) 
S=.2»(A«Y( n*C*y(31-Y( 51} 

C = .l*( A+A*C*Y( z>*Y( 3)«''( 3 l*Y(4|| 

STARI LTOP 
DO 2 I-SfNOI" 

A=a 

P-C 
r-.2*(YlI-'-l*Y(I-3I*Y{|-2l*Y(!-ll*YlII] 

2 ZtI-'V)=A 

ENC Of LOOP 

UPDATE la*;t FOUP COHPONENTS 

A«YIN0IM1*Y(N0I1) 
0A».1*( A+A*Y(NOi'<-U*Yir;oiM-] )*v(NDIM-l I ♦Y(NniM-2)* 
I *¥(iVDI**-?l t 

Z(N0I«-3l't 

Z(NDI«-2)=C 

ZINOtM-H = A 

; Z(Nniw)«A*fi-c 
ieR=o 

C6TUCN 

FRRO« EXIT tN CASE \CI« IS LESS THAN 5 

3 IE<1 = -1 
RETURN 
END 
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.SEl^ 
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SF15 
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SEIS 
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5E15 


TO 
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no 


5E15 


uo 


SE15 


1?? 


sei5 


lAO 


Stli 


1*>0 


S615 


I ISO 


SE15 


170 


sei5 


IPO 


Stl5 


193 


SF15 


70y 


SE15 


^U' 


S'^l'i 


?23 


S?15 


?10 


S£l*5 


i'-o 


SEl^ 


2S0 


SEl^ 


?S? 


5^15 


^70 


SEIS 


?B0 


SEIS 


?qo 


SE15 


310 


SE15 


313 


SFIS 


370 


SE15 


390 


SP15 


3<.0 


SF15 


350 


5E15 


360 


SF15 


170 


SE15 


330 


SE15 


3*30 


,SF15 


AOO 


SE15 


410 


SF15 


AJQ 


SEI5 


A 10 


SF15 


4A0 


SiilS 


A$0 


SE15 


4/>0 


SE15 


ATO 


5E15 


APO 


SF15 


4<,0 


5E)? 


^00 


SEii 


5-10 


SEli 


^20 


SE15 


5'C 


5f 15 


5'.0 


SE'.i' 


550 


SFI5 


5^0 


SFI-^ 


57P 


SE!5 


-ao 


SF15 


5°0 


SEI5 


too 


SElb 


(SIO 


SE15 


6?0 


Sfl5 


*.30 


SE15 


A40 


SE15 


e-io 


S£15 


6A0 


SE15 


670 


SEIS 


663 


SE15 


690 


SE15 


con 


SE15 


710 


SEI6 


7?0 


SE15 


7S0 


SE15 


740 


SEi5 


T-XJ 


SF15 


760 


SE15 


770 


SEl-i 


780 



SUBROUTINE 0SE1:> 

PURPOSE 

TO COMPUIE A veCTOH a^ SHOOTHF.O function VALUES GIVEK A 
VECTT» Z)f FUNCTION VALUtS WHOSE EN'RIES COBRESPOND TO 
EOUIOISTAK^LV spaces r.PCUMENT VALUES. 

USAGE 

CALL 0SEl5tYtZ»N0IM, lER) 

DESCRIPTION CF PARAMElEfiS 

V - 'JIVEN VcCTOft CF OOUdLE "RCCISION F UNCI I ON VALUES 

< DIMENSION NDIMI 
I - -rSULT'fX VFCTtll' Cr O'^USLt i-^ECI^JCM ?»-'OQlHfn 

FUiiCTION V4LUFS IDIXENSION NOIM) 
NOIJl - 0IM?NS1GN Or VECTORS Y ANa I 
lER - QfSULTINC ERi^Ok PARtM^TFa 

1£H . -1 - MOIM IS LESS THAN 5 

, CR = o - -liC fOROU 

RPHARKS 

Itl IF IER = -1 (HERE f'AS BEEiJ \C CO^PUTA T I CiN. 

121 I r\u HAVE th:; ^^ME STnsAOf *1'.ica^iom <s y. if y is 
^ oist:.vct r-<ivn i, then it is not oestr^yo. 

SUB.^CUnVE tHi fUNCTIGN SUflPRCG^A*IS HEOUIHED 

:^CN£ 

METHGO 

IF X IS THE (SUP^c.essFD) VECfR CF ARGLMENT VALUES. THEN 
E^CfoT AT THE prfNIS X( 1 > , X( 2 1 . X (NOI*--!! AND XINDIM), EACH 
S.Mj'^HSO value ZU) I*. OBTAIhfn RY EVSLUATING AT X(l) THE 
LEAiT-S3UA«E5 PCLY^OM!AL CF JEr.ftEt 1 kELEVANT TO THE 5 

succtSiivf. ?c:^^T; ixi i*i;i ,v( :♦<)» « ^ -2,-1 2. isee 

hILOE(tiAM0, f.8., IMaCSuCTiCN TP NU*l£«ICAL AKALYSIS. 

i^C GRAW-hlLLi N^W YGRK/TORONTO/LONOON, X'i'ib, F => . 295-302.) 



SUBROUTINE DSEI5(Y,^,^01M, lEf ( 



DIMENSION VI It ,it 1 1 

O'^UflLE PRF.ClSinK Y,Z,A,t,,C 

TEST OF 0!MErJS:JN 
IF(NDlH-5)^, 1. 1 

PREPA^F tnCF 
fl = YlU+Yil) 
C=v( 2)+v( 2) 

fl=.2DO'-16«Y113*C*Yt3)-Y(bll 
C=.100*( »+fl+C*Y(2»*Y(3J*Yl 3l*r(4i; 

STAiT LOOP 
nC ? l='i,\OIH 

A=B 



C=.200*(Yt l-4J*Y(I-3l+ 
2 Z(I-AI»A 

END CF LIICP 



'{I-2I*Y(I-II»Y{ I )) 



UPDATE LAST FCUC CflMPONtNTS 

A=Y(NDI«I*Y(NDIMI 
0A=. 100*1 AtA + YINClM-1 1 ♦¥ (NOIM-1 ( ♦¥( ND If^ 
I i-VtriDlM-3) t 

ZIN0IM-3I=6 

ZtN0IM-2l = r: 

ZIN0IM~1)=1 

Z|NDIMl=A+A-r 

IFR=0 

CFTURN 

ERBCR cXIT IN CASE NCI-" IS LESS T-^A 
3 1ER=-1 
RETUR^f 

END 



■1)*Y(N3IM-2I» 
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Subroutine SE35 and DSE35 

These subroutines compute a vector Z = (zj, . . . , z^) 
of smoothed function values, given a vector Y = (yj, 
• • • >yn) of fimction values whose entries yj corre- 
spond to n equidistantly spaced argument values xj, 
with xi - xi_i = h for i = 2, . . . , n. Except at the 
points xi,X2,Xn_i, and Xn, each smoothed value zj 
is obtained by evaluating at Xj the least-squares 
polynomial of degree 3 relevant to the five succes- 
sive points (Xi+k, yi+k), k =-2, -1, . . . , 2. 



a. = A. 
I 1 



b. = -3 A. X. „ + B. 
1 1 1-2 i 



c = 3A.X. „ - 2B. X. „ + C. 
1 11-2 1 1-2 1 



3 2 

-A. X. + B. X. „ - C. X, „ + D. + V 
1 1-2 1 1-2 1 i-2 i •'i 



1- Mathematical background 



where: 



For i = 5, . . . , n we must find aj, bj, Cj^, and dj such 
that 



3 2 

w. (x) = a.x + b. X + c.x + d. 
1 1 1 1 1 



(1) 



' So ''-^ 



A. =-7r, 3 (y. - 2y. + 2v -v) 
1 12 h "^i-4 •'i-S •'i-l •'i' 



gives the least-squares fit to the points (xj-k, yi-k)> 
k = 0,...,4. 

The problem, thus, is to minimize 



B. 
1 



I4h2 (4yi_4+yi_3-^yi_i + 4y.-10y.) 



F(a., b., c., d.) = X; 



k=0 L 

The minimum will occur when 
8F 8F dF dF 



w.(x. , ) - y. , 
1^ i-k' ■'i-k 



da.. dh. 8c. 8d. 
1111 



= 



Now: 
aF 



4 3 



1 k=0 



w.(x. , ) - y. , 
1 i-k' •'i-k 



-^ 



aF 

ab. 

1 


k=0 


2 
i-k 


w.(x._^) - 


^i-k 


aF 

9c 


= 2 E ^i-k 


^<vk) - ^i-k " 


i 


k=0 *- 


aF 


^ r 1 


ad. 
1 


= 2 j: 

k=0 


w.(x. 
1 1 


-k^ - ^i-k 





(2) 



y (3) 



Solving (2) and (3) for a^, bj, cj, and dj, with xj - 
Xi_i = h, we get: 



^i = lih (^1-4 - %-3 ^ ^^i-l -^ 



I>i ="7 <4y._4 + y. 3+y._jH.4y.-10y.) 

Finally, the desired smoothed values zj are given 
by: 



''wg(x^) = y,~6% ifi=l 



^^V = y2-'4«\"^=2 



V 



z. ={ ^i+2<''i> = ^i " 35 * ^i '^ '=^ ''"^ ) <*) 



w(x J = y +TT6y „if i=n-l 
n^ n-l' -^n-l 35 •'n-2 



1 4 
w(x) =y - -=^ 6 y „if i=n 
n n' •'n 70 ■'n-2 



where 



6y.=yj_2-4y._^ + 6y. -4y.^^+y.^2 
for i=3,.,, ,n-2 
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2. Programming considerations 

These subroutines compute the zj in serial order ac- 
cording to (4). If n < 5, there is no computation, 
and the error parameter lER is set to -1. Other- 
wise lER is set to zero at the end of the computa- 
tion. The output vector Z can have the same storage 
allocation as Y. 

For reference see F. B. Hildebrand, Introduc- 
tion to Nmnerical Analysis . McGraw-Hill, New 
York/Toronto/London, 1956, pp. 295-302. 



SUSROtiTIK'E S635 

PURPOSC 

TC CCMPUTr * ¥ECTC»{ CF SHOQTHeD fUNCTION VALUES OIVEN A 
VeCTCfi PF FUVCTI3N VALUES t<MOS'^ tMHIFS CCSafSPONO TO 
EOt'TDIS'itTtV S»flCtD A5GUNENT VtLUES. 

USAGE 

CALL SEl'.fY.Z.NOIf'.IEKl 

OCSCH = TIQN Of (»Afl«*lETe''S 

V - GIVEK VeCTOP 3F FUNCflCN VALUCS (OI•<F^SIOH hOlf') 

i - PISUtriNC- VECTOR CF S'^rOTHtO FyNCTI"*: VALUES 

IDIHENSiON hDII) 
*lOi»' - DIMENSIOfJ Of VECTOeS V AND I 
1E1 - •!fSUt1IiilG- tR'OS PAR^Mlfff. 

Iff « -1 - NOI*! IS LriS Th*N 5 

itR ■ - NO E1RC» 

II) IF [ER»-1 IMfcftE HAS 6cE>( NO CC'PUTATICN. 

(21 7 CAM HAVE TH= S*''t STJloAC-t ALLHCATION AS Y. IF Y IS 

DISTINCT FftCM I, THEfJ I' I< NOT OESTPOVE"). 

SUBhCUTr.fc A^J FUNCriCN SuecRCGRftMS teCJIBF? 

NCMr 

IF X IS THC (SOPPftSSEDJ VeCTOP CF ARGUMENT VAIUES, THEN 
EXCfT *l THt POINTS XU ). XI 3 I ♦»< "(OTH-l) A^O X1N[,|fi|), EACH 
i«001MEJ VALUE ZMl IS 08T«1^FD BY CVALUATIN:; AT Kill THE 
LtAST-S-JUeP-^S PCLYM3NI*(, CF Of.^ES ? PfLEViNT TC THE S 
Sy.CESSIVf P01.NTS |)I(I*KI,YI It^KH K s -2«-l,....2. (SEE 
HILOFBSANU. F.B.. INTRCCUCTICN TO NUHtaiCAL IVALYSISt 
liC f.-.IH-HULt NE« YraK/TORC'NTn/LD'^OOM, 1956, PP. 2<:5-302.) 



su»iKfHjTiNt ';e3'Mv,?,noim, le^i 



OIMtNSl&N VC l>,Zlt> 

TEST OF OIMEHSIOf 
IFINOl*"-?!*.!,! 

PREPARE LOOP 

C*V(2I 

ST*«I LOOP 
00 3 I'«,»iOI»« 
A<S 

e-c 
C"rti-2i 

GENERATE pf^uaTH CENTRAL l>IFF£RFf!C = 
0-C-8-YU-II 

c-o*o*c 

0>0«0*A*VI1I 

tMtCK HffST TWO COHfCNENTS 
IF! [-517.2. i 
Z!ll**-.3l*Z8')7l«D 
2l2»=«*.05Tl*?^'i*0 
iM-2l*C-.0^57lV?9«0 

END OF LOOP 

UPJOATf^ LAST TWO COMPONENTS 
ZI»»OI«-l»-YfM0IM-ll*.057l42 3fc«O 
ZlNUIH)-VtNU[M|-.01«26571«0 
IER-0 

RETUftN 

ERROR EXIT IN CASE NUIN IS LESS THAN 5 
lER— I 
RETURN 

END 



. SE?5 20 




SE35 ?0 




SE35 *c) 




seis 50 




SE35 60 




SE?5 TO 




SE-IS 80 




se3s OO 




Se35 100 
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SE35 110 




Sc?5 120 




SE3S I3f> 
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Sf35 1*0 




Se35 I-iO 




Sf»5 160 




<P35 170 




SF35 l"i.T 




S535 t*)0 




5^35 >00 




^^35 ZIO 




SE35 2^0 




SE35 230 




SE35 2*0 




S=35 250 




SE35 260 




S:35 27.1 




SFI5 2fD 




SEJ5 S-^O 




S?35 330 




SE3S 310 




se?5 j?o 




se;- :?o 


c 


5P35 4*0 




SE35 350 




SE35 360 




SE2% 3T0 




SF'5 390 


c 


5f3^ 3?0 


.SE35 A01 




SE35 *10 




SC35 *20 




S£35 *15 




sea?- **o 


c 


5E35 *50 




Se35 ^fcO 
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5€35 «70 




S63^ *8J 




se35 «<>a 




5E3^ ^00 




SF35 510 




SE35 520 




SE35 5"0 




5E35 540 




SE35 550 




SE35 560 




SE35 570 




S€3'i 5(93 




SE3 5 59J 




SE35 600 




SE35 610 




SEi5 h?rt 




Se39 63') 




SE35 640 




SE35 *S3 




SF35 663 




SE35 6T0 




SE35 680 




SE35 69n 




5E35 701) 




SE35 71'? 




SE35 720 




SE35 730 




SE35 7*;; 




SE35 750 




$£35 7S0 




SE35 770 




SE35 780 




SE35 790 




SE35 eoo 




SE35 **W 





SUBROUTINE 0SE35 

PURPOSE 

TC COHPUTE A VECTOR OF SHOOTHEO FUNCTIOM VALUES SIVEN A 
VECTOR Of fUNCTIOM VALUES yhOSE ENfftlES CORPESPONP TO 
ECUIOtSTANTLV SPACED ARGUHCNT VALUES. 

U^AGE 

CALL OS£35ir.2«NOrH*IERI 

DESCRIPTION OF PARAHETERS 

Y - QIVEN VECTOR OF DOUBLE PRECISION FUNCTION VALUES 

(OrMEHSION NDinl 
2 - RcSULTlNC VECTOR Of OOUSLE PRECISIOtj SHOOTHEO 

FUNCTION VALUES (DIMENSION NOIMl 
MOIn - OIHEMSION OF VECTOHS V ANO Z 
Iff - BE^utTINC EcCflf PARAMETER 

iER > -1 • NOIM IS LESS FHAN 5 

lER - 3 - no EftRCR 

REMAPK5 

11) IF l£R--| THERE HAS BEEh KO COMPUTATION. 
(21 2 CAN HAVE THE SAME STORAGE (ttLOCATU'N AS Y. IF Y I 
0I5T1NCT FRCM Z. THEN IT IS NOT OESTRGYED. 

SUBP.CUTINE /NO FUNTTION SJ6PR0GRANS REOUIREO 

NONE 

HE1H00 

IF K IS THE (SUPPRESSED) VECTOR CF ARGUNENT VALUES, THEN 
EXCEPT AT THc POINTS XI 1 I , X( 2) ,X(N0|M-11 AND K(NOINI, EACH 
SMOOTHED VALUE Kit IS OBTAINED BY EVALUATING %T x(ll THE 
LEA$r-S9UARcS POLYNOMIAL OF DEGREE 3 RELEVANT TO THE S 
SUCCESSIVE POINTS I K( UK),V( l^^K) t K « -2,-1, ....2. (SEE 
HILOSSRANO, F.e., INTROOUCTIUN TO NUNERICAL ANALYSIS* 
•1C GRAU-HlLL. NEiJ VORK/TORONTr /LONDON, 19S6. PP. 295-302.1 



60 



40 



SUBRDUriNE 0Sc35(Y,ZtNniH. ItRI 



DIMENSION Y( ll.Zdl 

DOUBLE PRECISION V,Z,A,n,C,D 



TEST OF DIMENSION 
IFINOIM-SI*. 1. I 





PREPAftE 


1 OOP 


6- 


'Y(l) 






C' 


■YC2I 








ST Art T 


L-!CP 


DC 


1 3 l'^^ 


rhO 1 f 


A* 


'i 






B- 


C 






C- 


rYU-2) 







GENERATE FCU«TH CENTRAL OIFFERENCE 
D-C-a-Y( I- 1 J 
D«0*D»C 
C-D+O^A^Yt I ) 

CHECK FISST Tl*0 COMPONENTS 
1F(I-5I2.2.3 

2lll-A-.0i*2857I««5TU2a600*D 
Z t 2) "B*. 057 1 *?35 7142 6571*300*0 
It 1-2) =C-.i. B 571*2857142857 iOO«0 

END OF L30? 

UPDATE LAST T-'O COMPCNEnTS 
Z(N0IM-ll=VINDIM-il*.057l428571426571*3D0*D 
Z (NOlMJoYC^E)!")-. 01*285 71*2 857142 86D0-D 
IE««0 

RETURN 

ERROR £<(IT IN CASE NDIH IS LESS THAN 5 
IE<I — I 
BE TURN 
END 



DSE3 

..DSE9 
OSES 
OSES 
DSE3 
0SE3 
DSE) 
OSES 
0SE3 
OSES too 
OSES 110 
DSE 9 120 
0SF3 130 
DSE 3 140 
0SE3 ISO 
OSES 160 
OSES 170 
DSE 3 180 
0SE3 190 
OSES 200 
OSES 210 
DSE3 2Z0 
OSES 230 
OSES 240 
OSES 250 

i 0SE3 260 
OSES 2 70 
OSES 2S0 
DSE3 270 
0SE3 30O 
0SE3 310 
OSES 320 
OSES 330 
0SE3 340 
OSES 350 
OSES 360 
CSES 370 
OSES 380 
DSE3 390 
DSE3 400 

.OSES 410 
OSES 470 
0SE3 430 
OSES 440 
OSES *50 
OSES 460 
DSE3 *70 
DSE3 430 
DSF3 440 
C5£3 500 
DSE3 510 
0SE3 520 
DSE 3 5 40 
OSES 5*0 
0SE3 510 
0SE3 560 
OSES 570 
0SE3 581 
0SE3 590 
OSES 601 
OSES 610 
OSES 620 
OSES 630 
OSES 640 
OSES 6<i0 
OSES 660 
OSES eTO 
0SE3 bno 
DSE3 ft'iJ 
DSE 3 7 00 
DSf3 710 
0SE3 720 
OSES 730 
DSF^ 740 
OSES 75 1» 
OSES 760 
CSE3 T7i) 
DSF3 TPO 
05E3 T-JO 
0SE3 830 
05E3 ?13 
OSES 820 
DSE3 830 
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Subroutine APFS and DAPFS 

Ttiese subroutines compute the solution of the 
normal equations set up by subroutines APLL and 
DAPLL. This Is the second step in the procedure 
for determining the least-squares fit of a given 
discrete function. 



or, with e = F^WF, 
o 



e = e - 2c'^GWF + c'^GWg'^C 
m o 



Using (1'), equations (2) may be written as 



(!•) 



1. Mathematical badtground 

Let f(x), g.(x), i=l, 2, . , . ,m, and w(x) > be func- 
tions defined for x=xi, X2, . . . , Xjj. 

The problem is to determine the coefficients Cj of 
the linear combination 



GWG C = GWF 
Combining (!') and (2') gives 



T T 
e -e = C GWG C 
o m 



(2') 



(3) 



m 



p(x) = X) c,.g,(x) 



1=1 

such that 

n 2 

e^^ = X] ^<\) <f(\) - P^^)) " minimum (1) 
k=l 

The necessary conditions 

de 



8c. 
1 



0, 1=1, 2, .. , ,m 



(2) 



The normal equations (2') for the unknown vector C 
may be solved using Cholesky's method, since the 
coefficient matrix A = GWGT Is obviously symmetric 
and is positive definite if all the fundamental func- 
tions gj(x) are linearly independent for the arguments 
xi; that is, if the rows of G are linearly independent. 
Let R = GWF. Using Cholesky's method, A and R 
are replaced without additional storage requirements 
by T and {tT)-1r, where A = t'^T, and T Is upper 
triangular. 

Using these facts, an easy calculation shows 



e - e = 
o m 



T 



-1 



R 



form a system of m linear equations in m imknowns 

Ci. 

To simplify the notation we introduce the fol- 
lowing matrices: 



X = 



^1 




f(Xj) 




^2 








• 


. F = 


• 


, W = 


• 

X 

_ n. 




_f(x^)_ 





w(x^) 



wfx^) 



. G 



m 
Then we have 



gl(x^) . . gi(x^) 



^m^) • • Sm<\> 



T T T 

e = (F - C G) W(F - G C) 
m ' 



w(x ) 
nj 



Introducing additional fundamental functions in the 
linear combination p(x) will not affect the first m 
rows and coliimns of A or the first m elements of R. 
Therefore, Cholesky's method gives a decomposition 
of bq - ejn into the separate components correspond- 
ing to individual degrees of freedom. 



2. Programming considerations 

All least-squares fits of dimension 1, 2, . . , , m may 
be computed from the reduced normal equations 
TC = (t'^)~ R. If the solutions are generated in the 
storage locations of T, there is no additional storage 
requirement. 

Using the decomposition of eo - em, the factoriza- 
tion may be terminated with dimension k if ej^ < Tjegi 
giving the least-squares fit of dimension k which 
satisfies the user-specified precision (relative toler- 
ance rj). Due to rounding errors this will work only 
if 77 is approximately between 1 and 10"^ in single 
precision, and between 1 and 10"15 j^ double preci- 
sion. Nevertheless, the square sum of residuals 
corresponding to a least-squares fit calculated in 
single or double precision may be as small as 
Co 10"12 or g^ 10-30^ respectively. 
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Due to rounding errors the square root method 
may break dovm if very small or negative pivot 
elements indicate a loss of significance. Therefore, 
all pivot elements are tested against the absolute 
value of EPS multiplied by the first diagonal element 
of A. If the kth pivot element is not greater than this 
internal test value, the normal equatitms are treated 
as if they had dimension k-1 only. 

Let Nl, N2 denote the following numbers: 

Nl = the largest number less than or equal to m 
for which there is no indication of loss of significance 

N2 = the smallest number less than or equal to m 
for which 



"'N2 



\V' 



Depending on the input parameter TOP, which speci- 
fies the operations to be performed, the dimension 
IRES (that is, the dimension of the subsystem of the 
normal equations used for calculation) is set to Nl if 
lOP is positive or zero, and to the smaller of the two 
numbers Nl, N2 if lOP is negative. 

The operations performed by APFS are: 

lOP = Compute the triangular factorization 

A = tTt, TC = (TT)-1r and ejj^jjgOnly. 

TOP = ±1 In addition to the above, the least- 
squares fit of dimension IRES is 
computed and stored in column IRES 
of the triangular array WORK. 

lOP = ±2 In addition to lOP = calculations, all 
least-square fits of dimension 1 up to 
IRES are computed and stored in 
columns 1 up to IRES of the array 
WORK. 

a. Storage allocation 

Mtially the symmetric coefficient matrix A is 
stored columnwise in compressed form in the tri- 
angular array WORK. It is followed immediately by 
the right-hand side vector R and a single location 
containing Cq initially and e]RES oi^ return. This 
storage scheme is generated by subroutine APLL. 

b. Errors 



Tlie error parameter lER is set to -1 if a non- 
positive dimension m has been specified. 

H lOP is positive or zero, lER is set to 1 in case 
of an indication of a loss of significance. 

If lOP is negative, lER is set to 1 if the specified 
accuracy could not be reached, even with a fit of 
dimension IRES. 



For reference see A. T. Berztiss, "Least- 
squares fitting of polynomials to irregularly spaced 
data", SIAM Review (1964), vol. 6, no. 3, pp 203- 
227. ^ 



SUBRGUTINt /'PIS 

PUtPGSc 

PF«F*1RM SVMHETRIC FACTQRlZATnN OF THE MATFIV 
FCUAIIONS fOLLOHFC tY feLCULMION CF THE Ltft-i 
OPTlJlNALLV 



D= THE NOPMiL 
SGUARES FIT 



IP.I'ES.IOP.e^SiFIA.IFRI 



OESCRiPTiaN OF PAftAMETtKS 



APfS 
APFS 
APFS 

APFS 

APFS 

APFS 
APFS 
APFS 
APFS 
APFS 
APFS 
APFS 
A-'FS 

APFS 

APFS 
APFS 
AOFS 
APFS 
Aof S 
APFS 
APFS 
APFS 
APFS 



GIVEN SYMMETRIC COEFFICIFNT MATRIX, STC'^ED 

C>*P=ESSFO. l.F UPPEF TaiMilGULAR PAftT CCLUHNkI SE. 

THE GIVEN RIGht HAND SIt)€ OCCUPIES Tht NEtT IP 

LOCATIUNS IN KQRK. THE VERY LAST COMPGNEMT OF WORK 

CrNTAlNS THE SQUARE SUM OF FUNCTICN VAIUES EO 

THIS SCHEME DF STORAGE ALLOCATION IS PPOOUCEO E<6« 

*(Y SUbOOUTINE A^>J.L. 

THE GIVEN MATRIX IS FACIOaEO IN THE FfRH 

TrtA'JSPCSe(Tl«T AND THT CIVEN RIGHT HAND SIDE IS 

OlVlOEO .-iy TRANSf'OSEtTl, 

THE UPPER TFI.'NGULAR F^r.TOR T IS RFTURNED IN WORK IFAPFS 

ICi* eOUALS ZERO. At»FS 

IN CASt -IF NOf;Z£RO ITjf THE CALCUtATFD SOLUTIONS ARE APfS 

STOIEO in TH€ COLUMNS CI= TRIANGUIAP APPAY WORK OF APFS 

CGCpESPCNDING OIKENSICN B«IO 60 IS fECL'CEO QV THE APFS 

SO'JARF SUM OF THE ERSORS FOR FIT CF PIMPNSIOM IRES. APFS 

THE TOTAL OI^tNSION OF «DRK IS I IP+ lMUP+2 1 /2 APFS 

- KlIMgER Of FUNOAMEnTAL FUNCTIONS USEf FO-) LEAST APfS 
<.OUAR£S FIT to^<. 

- OiMENSlO;^ OF fALCULATCi) LEAST SOU^RtS FIT. APFS 
LET Nl, N^» JENOTE the FOLLJ-IINS NU«aE^r. APFS 
!■! = HAXIMAL JJIMENSICN FIR WHICH NC LOSo OF APFS 

SIGNIFICANCE WAS INDICATED DUPING <^ACTOfilZftTIONAPFS 

N2 = SMALLEST DIMENSION FOB WHICH THE SQUARE SUM OF APFS 

THE ErtPn^S DOES »>;0T EXCEED TEST = ABS (ET A*FSQI APFS 

IRFS=*"INO(IP'Nll IF IPP IS NnNKE'oaTIVE 1PFS 

IRES=MINt;( IP,N1 ,N21 IF ICP IS NEGATIVE A^FS 

^AMETfC FOfl SrLECTIOfH OF OWtC'TIGN APfS 

>1£ANS T'*UNCUL*P fACTQRIZAT 1 Jfi, DIVISION OF APFS 

THc RIGHT HANJ S 1 0£ flv TR a^■ SPf SF ( T I AND APFS 

CALCULATION OF THE S3UARE <.m OF ERRORS IS APFS 

PEPFOi^MED ONLY A°F5 

♦ 1 CR -1 KtANS THE SOLUTION C-t- OIKENSION IRES APFS 

IS CALCULATtO AODinUNALLY Ai'FS 

*Z PR -Z MEANS ALL SOLUTinNS FvP OIHENSION ONEAPFS 

UP TO IRES ARE CALCULATED A011TI0NALLV APFS 

- PELATIVE TOLERANCE fO« TESr UN LOSS Or SIGNIF ICANCE.APFS 
A SENSlBLe VALUE IS eEThEEN l.E-3 ANO l.t-6 APFS 

- RELATIVE TOLERANCE FOa TOUtRATED SCUARE SUM OF APFS 
ERRORS, ft REALISTIC VALUE IS B£Ti(EEN 1 .EO AND l.E-5 A'FS 

- RESULTANT ER3QB PARA>"ETt1 APFS 
lER =-1 iEANS NOKPOSITIVF IP APFS 

I MEANS NO LOSS Of SIGNIFICANCE DETECTED APFS 

AND SPECIFIED TOLERANCE OF ERRORS REACHED APFS 
MEANS LOSS C^ SIGNIFICANCE OF'TtTgD OR 
SPECIFIED TOLERANCE OF E»R0?5 NUT REACHED 



THEN 
AN!) 
INPUT 



I OP 



lE-^ 



lER 



APF: 

APFS 

APFS 
APFS 
APFS 
APfS 



REMARKS 

THE ASSCLUTE TOLERANCE USED INTERNALLY FOR 'EST ON LOSS OF 
^ICNIFICAf.f.E IS TCL = A?SIFBS«HG'H( 11! . 
THE APSOLUTE TOLERANCE USEO INTSRMLLV FOR THE 5UUARE SUM OFAPFS 
ERRORS IS A3S(tTA«FSCI. •"■'S 

lOP GREATER THAN 2 HAS THE SA-^c EFfECT AS lOP = 2. APFS 

IDP LESS THAN -2 HAS THE SAME EFFECT AS lOP «-?. A^FS 

IPCS * ME*.NS THE ABSOLUTE VALUE CF £PS IS NOT LESS THAN APFS 
ONE AND/Ufi hCPKdl IS NOT POSITIVE AND/OR IP IS NOT POSITIVEAPFS 

APFS 

SUBROUTINES AND FUNCTION SUBPROGRAMS RECUIREO 
NONE 



100 

no 

IZC 
l^C 
1^0 
15fi 
160 
170 
180 
190 
200 
21» 
220 
230 
2-^0 
PIO 
260 
270 
230 

3 30 
310 
120 
3^) 
340 
350 
360 
370 
1^0 



450 

*.T0 
4 3 1) 



510 
5?n 
S^O 



5 80 

^00 
(.10 
620 
610 



METHOD 

CALCULATION OF THJ LEAST SQUARES FITS IS OOW USING 

CHOLtSKYS SQUARE FOOT METHOD FOR SYMMETRIC FAfTOP I ZAT ION. 

THE INCORPQRATED TEST ON LOSS OF SIGNIFICANCE^ HeAMS EACH 

RAOICAND MUST 9E GREATER THAN THE INTERNAL ASSHLUTE 

TOLERANCE TOL= ABSItPS'HORK U» ) . 

IN CASE OF LOSS OF SIGNIFICAXCS IM THE ABOVE SENSE ONLY A 

SUBSYSTEM CF THE NOftHAL EQUATIONS IS SOLVEO. 

IN CASE OF NEGATIVE ICP THE TRIANGULAR FACTORIZATION IS 

TERMINATEO PREMATURELY EITHER IF THE SQUARE SUM OF THE 

ERRORS DOES NOT EXCEED ETA»FSO 01 IF THERE IS INDICATION 

FCP LOSS OF SIGNIFICANCE 



SUfiBOUTINE APFS1H0«K,IP.IRES»10P.€?S.ETA.IEP I 



OIMENSIOHEO DUMMY VAClABLES 
DIMENSION HORKt 1) 
1PES=0 

TEST OF SPECIFIED OIKENSIDN 
IF( IP)1, 1.2 

ERROR RETURN IN CASE OF ILLEGAL DIMENSION 
t IEft=-l 
RETURN 

imriALlU FACTORIZATION PROCESS 

> IPIV-Q 
IPPl«IP*l 
[Eft«l 

ITE>IP*IPPl/2 
IEND'irE*IPPl 
TOL>AeSf EPS*HOR)(( 1) I 
rESr=AeSIETA«HOHK( lENOn 

START LOOP OVER ALL ROWS OF NOPK 
DO 11 I-UIP 
IPIV=IP|V+I 
JA=IPIv-IR£> 
JE=IPIV-l 

FORM SCALAR PROOUCT NEROEO TC MODIFY CURRENT RCW ELEMENTS 
JK=IP|V 



APFS 
APFS 
APFS 
APFS 
APf S 
APFS 
APFS 
APFS 
AOFS 
APFS 
APFS 
APFS 
APFS 
AOPS 
APFS 
.APFS 



670 

bf*t 

69n 

700 
110 
720 
7^0 
743 
750 
7A0 
770 
780 
790 
800 
«10 
920 

mo 
a40 

850 

860 
970 

sao 
APFS e-*o 

APFS ■'00 
APFS ^10 
APFS 920 
APFS S30 
APFS 940 
APFS 950 
APFS <)60 
APFS -570 
A7FS 9'!0 
APFS 990 
APf 51000 
APFSIOIC 
APFSi020 
APf S1090 
APF 5 10*0 
APFS1Q50 
APFS1060 
APFS1070 
APFSlOaO 
APFS1090 
APFSllOO 
ftPFSIlIO 
APFS II 20 
APFS1130 
APF51140 
APF SI 150 
APF51160 
APFSl 170 
APFSll'lO 
APFSl 190 
APF 5 I 200 
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OO 9 K-LIPOi 
SUM=0, 

S JK=JK-(S£$ 

OC *. J = J*.JF 

SUf = SUiH+'^OF K ) J J •uoftui J< I 
- 4 JK=JK»1 

TEST Fpfi LCSS OF SIGNIFITANCf 

6 5UM=H0ftK( IPIV(-SOM 
IFISUM-TOLI 12,12,7 

7 SUM=SCRT(SUM) 

WOPK( IPI VJ=SUM 

PIV=1./SU« 
GOTO 9 

UPDATE DFF-0I4G0NA). tCPMS 

WPRO JK)=Su.H 
«) JlC=JK*K 

UPOATf SQltiKE SUM CF EPROPS 
WORK(IENO)=WORK( lENO »-SWi*SU« 

RECOPO ajDaeSS OF LAST PIVOT ELFi^c^^r 
IPES-IHESH 
I4DR=I'IV 

reST FHR Tf3lERAfiLE ERRIR IF SPtCIFIFO 

IF) lOPllO, 11 ,11 
IL^ IFlHOOm IFNC l-reSTI 13, 13, 11 
U CD^TINLr£ 

IF< inp) 12,2?, 12 

PEPFOP.*! SACK SUtiSTirUTION IF SPECIflEO 
I? IF( !a''llA,2 *t 14 

13 IER*0 

14 I?IV=IRES 

l^ IF( rPIV123, .'3, 16 
U SUM=0. 

jA=irE*-iPrv 

JJ= f AD« 

JK=IAOR 

K=iprv 

00 19 I = 1 , I P I V 

WGRK(JKJ=(WCflK(jai-5UM)/wrRK( JJI 
lF|K-n20,^0,l7 

17 JF=JJ-1 
SUM=0. 

00 U J=K,IPIV 
SUIH=SUM*W.1RKC JK)*WOkK) JCJ 
JK=J(C*1 

18 jE=-je*j 

JK=JE-IPIV 

JAiJA-1 

JJ=JJ-K 

19 K=K-1 

20 IFI IOP/2)ai,23,<;i 
^1 IA0R<[A0R~IP1V 

IPIV=tPIu-l 
GOTO 15 

KORHAt. RFTUMN 
iZ IIER=0 
J?3 RffURN 
END 



SOf S1210 
*PFS12?0 
APF SI 2.^0 
APFS12A0 
*PFS1250 
APfSl*60 
APFS1270 
APFS1260 
APFS1290 

a;>fsi3go 

APFSI310 

APFS1320 

APFS1330 

«PfSl3<fO 

APFS1350 

APFSl?6J 

APFS1370 

tPFS1330 

APFSU'?!) 

APPJUOO 

APFS1*10 

BPFSl-iPO 

*PFSI<.?0 

APFSIA^O 

APFS14S0 

APFS1460 

APFSI'.7'J 

*PFSl<.3^ 

A''FSl'i<»0 

APFSISOO 

iOfSL-JlJ 

APFS157-3 

APFS1530 

APFSl54d 

APFS1551 

APFSlSoO 

APfSl';70 

APFS1580 

APFS1590 

APFS160Q 

APFS1610 

APFS1620 

APf 51^3-^ 

APFSlfc^O 

APFSlftSO 

APFSIceo 

4PFS1 i73 

AOFSi630 

APFS1690 

APFSlTCn 

APFS1710 

APFSI720 

APFS1730 

APFS17^C 

APf SIT50 

APFSl 7ftO 

APFS1770 

APFSl7eO 

APFSl 7<»0 
APFSlROn 
APFS1310 

APFsiaac 

APFSl83t> 
APFSin^O 
APFS1050 
APFSld60 
APFSie70 



REHAftKS 



SUBROUTINE OAPFS 



OAPF 

OAPF 

DAPF 
OAPF 

OAPF 

PURPOSE OAPF 

PERFQRH SrHHETRIC F AC TCR IZ AT I QN OF TH£ HATRIX OF THE NORMAL DAPF 

tQUATlONS FOLLOWED BY CALCULATION OF THE LEAST SQUARES FIT OAPF 



OPTIONALLY 



USAGE 

CALL OAPFSfHPRK.IP.JRfcS.IOP.EPS.ETA.IERJ 



OeSCFIPTION OF PARAMETERS 



70 
80 

DAPF 90 
OAPF 100 
DAPF 1 10 
DAPF 120 
OAPF 130 
OAPF 1*0 
OAPF 150 
OAPF 160 
DAPF 170 
DAPF 180 
OAPF 190 
OAPF 200 
OAPF 210 
OAPF 220 
OAPF 230 
DAPF 240 



- GIVEN SYHHETRIC COEFFICIENT MATRIlt, STORED 

COMPRESSED, I.E UPPfcR TRIANGULAR PART COLUMNWISE, 

THE GIVEN RIGHT HAND SIDE OCCUPIES THE NEXT IP 

LOCATIONS IN WORK. THE VERY LAST COHPCiNENT Of WORK 

CONTAINS THE SQUARE SUM OF FUNCTION VALUES EO 

THIS SCHEME OF STORAGE ALLOCATION IS PRODUCED E.G. 

BY SUBROUTINE APLL. 

THE GIVEN MATRIX IS FACTOBED IN THE FORM 

TRANSPOSE (T)«T AND THE GIVEN RIGHT HAND SIDE IS 

DIVIDED BY TRANSPOSEdl. 

THE UPPER TRIANGULAR FACTOR T IS RETURNED IN WORK IFDAPF 250 

IQP EQUALS ZERO. DAPF MO 

IN CASE OF NONZERO IQP THE CALCULATED SOLUTIONS ARE DAPF 270 

STQR60 IN THE COLUMNS OF TRIANGULAR ARRAY WORK OF OAPF 280 

CORRESPONDING DIMENSION AND EO IS REPLACED BY THE OAPF 290 

SQUARE SUM OF THE ERRORS FOR FIT OF DIMENSION IRES, DAPF 300 

THE TOTAL DIMENSION OF WORK IS I IP*! 1 •( IP*2I /2 DAPF 310 

WORK MUST BE Of D0U8LE PRECISION OAPF 320 

NUMBER OF FUNDAMENTAL FUNCTIONS USED FOR LEAST DAPF 330 

SQUARES Fir OAPF 340 

DIMENSION OF CALCULATED LEAST SOUAfitS FIT. OAPF 350 

LET NI, HZt DENOTE THE FOLLOWING NUMBERS OAPF 360 

Nl » MAXIMAL DIMENSION FOR WHICH NO LOSS Of DAPF 370 

SIGNIFICANCE HAS INDICATED DURING FACTOR IZATIONOAPF 380 
N2 = SMALLEST DIMENSION FOS WHICH THE SCUARE SUM OF D*Pf 390 

THE ERRORS DOES NOT EKCEEO TESI«AHS ( ET A»FSQI OAPf 400 

THEN IRES=MINO(IP(hll IF lOP IS NONNEGATIVE OAPF *I0 

AND IRES-MINOnP,Nl,N21 IF lOP IS NEGATIVE OAPF 420 

INPUT PARAMETER FOR SELECTION OF OPERATION DAPF 430 

lOP « MEANS TRIANGULAR f ACTURI ZATION, DIVISION OF DAPF 440 
THE RIGHT HAND SIOE dY rRANSPDSECTI ANO OAPf 450 

CALCULATION OF THE SQUARE SUM OF ERRORS IS OAPF 460 
PERFORMED ONLY Q^pp ^70 

1 OF -I MEANS THE SOLUTION OF DIMENSION IRES OAPF 480 
IS CALCULATED AODITIONALLV oAPF 490 

2 OR -2 MEANS ALL SOLUTIONS fPR DIMENSION ONEOAPF 500 
UP ro IRES ARE CALCULATED ADDITIONALLY DAPF 510 

- FELATIVE TOLERANCE FOP TEST ON LOSS OF SIGNI F ICANCE.OApf 520 
A SENSIBLE VALUE IS BETWEEN l.E-IO AND 1,E-15 DAPF 530 

- RELATIVE TOLERANCE FOR TOLERATED SQUARE SUM OF DAPF 540 
^^^PI'L'.* ?!*^i^T'^ ^**-^^ *5 BETWEEN 1.60 AND 1.E-15DAPF 550 

DAPF 560 



lOP 



lOP 



OAPF 620 

lOP GREATER THAN 2 HAS THE SAME EFFECT AS lOP - 2, , DAPF llo 

lOP LESS THAN -2 HAS THE SAME EFFECT AS loi --2. "J^ HI 

IFES - MEANS THE ABSOLUTE VALUE Of EPS IS NOT LESS THAN DAPF 700 
ONE ANO/OR WORKIU IS NOT POSITIVE AND/OR IP IS NOT P05I TI VEOAPF 710 

SUBROUTINES AND. FUNCTION SUBPROGRAMS REgUIREO SaPF 730 

OAPF 740 
OAPF 750 
OAPF 760 
DAPF 770 
DAPF 780 
OAPf 790 
OAPF 800 
OAPF SIO 
OAPF 820 
DAPF 830 
OAPF 840 
DAPF 850 
DAPF 860 
DAPF 870 
OAPF 660 



NONF 

METHOD 

CALCULATION OF THE LEAST SQUARES FITS IS DONE USING 

CHOLESKYS SQUARE ROOT HETHOO fOR SYMMETRIC f ACTORIZATION 

THE INCO*:pOFATED TEST ON LOSS OF SIGNIFIC«(ICE MEANS EACH 

RAOICANO MUST BE GREATER THAN THE INTERNAL ABSOLUTE 

TOLERANCE TOL. 

IN CASE OF LOSS OF SIGNIFICANCE IN THE ABOVE SENSE ONLY A 

SUBSYSTEM OF THE NORMAL EQUATIONS IS SOLVED* 

IN CASE OF NEGATIVE lOP THE TRIANGULAR FACTORIZATION IS 

TERMINATED PREMATLPREtY EITHER IF THE SQUARE SUM OF THE 

ERRORS DOES NOT EXCEED ETAtFSO OR IF THERE IS INDICATION 

FOR LOSS OF SIGNIFICANCE 



.OAPF 



RESULTANT ERROR PARAMETER 

lEF =-1 MEANS NUNPOSITIVE IP 

lER = MEANS NO LOSS OF SIGNIFICANCE DETECTED 

AND SPECIFIED TOLERANCE OF ERRORS REACHED 
lER = I MEANS LCSS OF SIGNIFICANCE OCTECTFO OR 

SPECIFIED TOLESANCfc Of EflncfiS NOT REACHED 



DAPF 5T0 
DAPF 5B0 
DAPF 590 
DAPF 600 
OAPF 610 



SUBROUTINE OAPFS (WORK. IP, I RES. I OP, EPS, ETA. I ER I 



C DIMENSIONED DUMMY VARIABLES 

DIMENSION WORK(l) 

DOUBLE PRECISION WQRKfSUM.PIV 

Ifl£S=0 
C 
C TEST OF SPECIFIED DIMENSION 

IF(IPI1.1.2 
C 
C ERROR RETURN IN CASE OF ILLEGAL DIMENSION 

1 IER«-1 
RE TURN 

r 

C INITIALIZE FACTORIZATION PROCESS 

2 IPIV-0 
IPP1=IP*1 
!EB»1 

lTE»IP«IPPl/2 
lENO-ITE+IPPl 

T0L=A6SIEPS*SNGLtWCRK(l>}) 
TEST'ABS(ETA*SNGL<W0RK(IEND)1 I 

C 

C START LOOP OVER ALL ROWS OF WORK 

UU 1 I I'ltIP 

JPIV'IPIV+I 

JA=IPIV-IRES 

JE=IPIV-1 
C 
C FORM SCALAR PRODUCT NEEDED TO MODIFY CURRENT RON ELEMENTS 

JK-IPIV 

DO 9 K-I,[PPL 

SUM* 0,00 

IF(IRES)5.5.3 

3 JK=JK-|RES 
00 4 J>JA,JE 

SUM = SUM*WORK ( J I ^WORK ( JK ) 

4 JK"JK*l 

5 IF(JK-IPIV)6t6.8 
C 

C TEST FOR LOSS OF SIGNIFICANCE 

6 SUM-iJORK,(IPIV)-SUM 

I F ( SNGL ( SUM » -TOL I 12 , 12 . 7 

7 SUM=OSQRT(SUM) 
WOFKdPIVl'SUM 
PIV=t.OO/SUM 
GOTO 9 

C 

C UPDATE OFF-DIAGONAL TERMS 

8 SUM=(H0RK|JK|--SUMI*P1V 
WORK(JKI«SUM 

9 JK-JK+K 
C 

C UPDATE SQUARE SUM OF ERRORS 

WORKlIENOI>WCRK( lENDI -SUH«SUH 
C 
C RECORD ADDRESS OF LAST PIVOT ELEMENT 

1RES«IPES*1 

lAORsIPIV 
C 
: TEST FOR TOLERABLE ERROR IF SPECIFIED 

IFU0P)10tll,Ll 

10 IF(SNGL(WORKIIEN0))-TESTI 13,13,11 

1 1 CONT INUE 
IFII0P|12,22,12 

PERFORM BACK SUBSTITUTION If SPECIFIED 

12 IF{I0P>14,23,14 
li IER-0 

14 IPIV>[RES 

15 lF(IPlV)2Jt23,16 

16 SUM>0.00 
JA=ITE+IPIV 
JJ'IADR 
JK-IADR 
K=IPIV 

OO ll 1-1,IPIV 

WORKtJKI-(WORK(JAt-SUMI/wnRK( JJI 
IFtK-l|20,Z0,l7 

17 JE'JJ-1 
SUM«0.D0 

DO 18 J^KflPIV 

JK-JK+l 
IB JE«JE*J 

JK=JE-IPIV 

JAcJA~l 

JJ-JJ-K 

19 K-K-l 

20 IFnoP/2121,23,21 

21 IA0fl*|A0R-IPIV 
IPIV-IPIV-I 
GOTO 15 

NORMAL RETURN 

22 IER-0 
2 3 RETURN 

ENO 



890 
DAPF 900 
OAPF 910 
OAPF 920 
OAPF 930 
OAPF 940 
DAPF 950 
OAPF 960 
DAPF 970 
OAPF 9S0 
OAPF 990 
OAPF 1000 
OAPFIOIO 
0APFX020 
0APF1030 
OAPf 1040 
OAPflOSO 
0APF1060 
DAPF 1070 
OAPflOSO 
DAPf 1090 
OAPF 1100 
DAPF 11 10 
DAPF1120 
OAPF 11 30 
0APF1140 
OAPF 11 50 
DAPF1160 
DAPF I I 70 
0APF1180 
OAPf 1190 
DAPF 1200 
0APF1210 
OAPF1220 
OAPF1230 
DAPF 1240 
DAPF 1250 
DAPF 1260 
0APF1270 
OAPF1280 
DAPF1290 
OAPF 1300 
0APFL310 
DAPF1320 
OAPF 1 330 
DAPF 1340 
OAPF 1350 
OAPF 1360 
0APFL370 
OAPF1380 
OAPF 1390 
0APF1400 
0APFI410 
OAPF 1420 
0APF1430 
DAPF1440 
OAPF1450 
0APF1460 
DAPF1470 
OAPF 1400 
OAPF 1490 
OAPF 1500 
OAPf 1510 
OAPF 1520 
0APF1530 
DAPF 1540 
0APF15S0 
DAPF 1560 
OAPF 1 570 
DAPF 1580 
DAPF1590 
OAPF1600 
DAPF1610 
DAPF1620 
0APF1630 
OAPf 1640 
OAPF 1650 
0APFt660 
OAPF 1670 
DAPF 1680 
DAPF 1690 
OAPf 1 700 
0APF1710 
DAPf 1720 
DAPf 17 }0 
OAPF 1740 
0APF1750 
DAPF1760 
0APF1770 
0APF1780 
OAPF I 790 
DAPF 1800 
OAPflBIO 

DAPFiaao 

OAPf 1830 
OAPF 1640 
0APF1850 
OAPF I860 

OAPFiaTO 
DAPF 1880 
0APFt890 
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Subroutine APCH and DAPCH 

These subroutines set up the normal equations for a 
polynomial least-squares fit to a given discrete 
function. The solution of these equations is deter- 
mined by subroutine APFS. The best fitting poly- 
nomial is computed in terms of its Chebyshev 
expansion. 

1. Mathematical background 

Let f(x) be a function defined for x=xi, X2, Xj^- 

The problem is to determine the coefficients of 
the polynomial 



m 



i-1 



P(^) = X/ ^-^ > such that 
i=l 



^ 2 

2_, (f(x.) - p(x.)) = minimum 

i=l 



This problem leads to a system of linear equations 
AC = R where C is the vector of unknown coefficients, 
A is the m by m symmetric positive definite matrix 
with elements 









and R is the vector with elements 



n 

= E 

i=l 



1 1 



If there is a weight Wf corresponding to each point 
(xi, f(xj)), the i^^ term of the sums for the asy^ and 
rj must be multiplied by wj. 

In practice the positive definite matrix A is badly 
ill-conditioned. Therefore, the straightforward 
method described above is feasible only for poly- 
nomials of low degree, about 3 or 4. 

Use of Chebyshev polynomials instead of mono- 
mials results in a remarkable improvement of the 
condition of the normal equations, provided the 
arguments have a sensible distribution (for example, 
equidistant). 

Let XL and xj^ denote the leftmost and rightmost 
arguments. By means of the linear transformation 



t(x) = 






'^D-^^'^O 



the argument range xl sx sxr is reduced to the 
argument range -1 < t ^s +1. 

The polynomial p(x) is calculated in the form of 
its Chebyshev expansion p(x) = bj Tq (t)+ b2 Tj (t) + 
. . . + bm Tin.i(t), where Tk(t) is the Chebyshev 
polynomial of degree k. 

Then the vector B of the uifcnown coefficients bj 
is a solution of the matrix equation AB = R, where A 
is an m by m symmetric posittve definite matrix 
with elements 



jk 



n 

= E 

i=l 



^J-l(*^^i»^k-l<*<^i)) 



and R is a vector with elements 

n 
r. = E T (t(x )) f(x ) 
•" i=l •" 

The values of the Chebyshev polynomials for the 
argument t are calculated by means of the three- 
term recurrence equation: 

V = ^* • \-l<*) " \-2<*^= ^ ^^ 

with starting values Tq (t) = 1, Tj (t) = t. 

In setting up the matrix A, time is saved by using 
the identity 2Tj 



'^k - 1'j+k + Tj_k. 



a. Remarks 

The Chebyshev expansion of the poljmomial p(x) 
gives a much better indication of the accuracy of the 
approximation than the coefficient vector of the poly- 
nomial itself. If the specified degree of the poly- 
nomial is too high, the last terms of the Chebyshev 
expansion will be imiformly small compared to the 
coefficients in front. The degree may be reduced 
by the number of small trailing coefficients without 
unduly enlarging the overall error. 

An upper bound for the error introduced by ne- 
glecting the last terms of the Chebyshev expansion 
is given by the smn of the absolute values of these 
terms. Normally, transformation of the Chebyshev 
expansions in t(x) to ordinary polynomials in x re- 
sults in severe loss of accuracy. Therefore, no 
attempt is made to return the polynomial expansions, 
which is no disadvantage since the Chebyshev expan- 
sion may be evaluated effectively for a specified 
argument x using subroutines CNPS and DCNPS with 
argument t = x • xq + xq and the calculated coeffi- 
cient vector of the Chebyshev expansion. 

The transformation of the calculated Chebyshev 
expansion to an ordinary polynomial may be ac- 
complished using subroutines TCNP and DTCNP. 
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2. Programming considerations 

Input arrays passed to subroutines APCH and 
DAPCH are DAT! and WORK. DATI contains the 
given data set to be approximated, consisting of n 
argument values x^, ... ,34^ followed by correspond- 
ing function values f^, . . . , f^ and by corresponding 
weight values (if any). Constant weighting (value 
one) is implied if DATI (2n + 1) contains a nonposi- 
tive value. 

instead of arguments xj, we use tj = xj • xq + xq 
for setting up the normal equations. The constants 
Xj^ and Xq are returned as result values. 

The normal equations are generated in the tri- 
angular array WORK. Only the upper triangular 
part of the symmetric coefficient matrix is gener- 
ated and stored columnwise, followed immediately 
by the right-hand side and by the weighted square 
sum of function values. 

This storage allocation schem^e is required by 
subroutine APFS and DAPFS, which may be used 
for calculation of the solution of the normal equa- 
tions. Exceptions are indicated by the error param- 
eter lER, which is set to -1 if n and m are not both 
positive or if n is less than m, and to +1 if the argu- 
ments are coincidii^; otherwise to zero, indicating 
successful operation. 



S£l LF hCflfiL EtLAIlCKS Cf LtASI SCLAKES fit It. lEKMS OF 
CUCYSfEV PtLYfCHULS fCP » GIVEIk CISCRETE ft^CTICK 



30 



60 



LSICt 

CiLL 4PCfiC*ll 



,K* IFt)IC,>C«hCKK,|ERI 



Ct£Cfi|FIKK Cf f/P/CETEPS 

CJll - ^tCJCft Lf ClfEhilCh 3»ft (CO OlfeKSlCh i«K»U 

CCt^?»IMNC- ^^t CU€fc AACt.fCMS. FCLLCkEC ei ^^E 

FthCTICK ViLOES »hC S I HE SPEC 1 1 HEl V II bEIGHT 

VOICES. THE tfMEM CH VECICfl t*TI RE»'AIHS 

LfkCh«hCEC. 
* - fcti-eEf Cf ClWEfc PClhfS 

IF - CIPEKSICN Cf LE«£1 SCUiREJ FII* I.E. MjHeER GF 

Ct-CeVSfEV l>.£LVhLfl4LS USEE *S I^UKOlfEh 1AL fUhCTIQN: 

IP ShCLLC hOT E>CEEC h 
*C - R£StLI«M fLLf IFLiCAIIVt CChSliKT FCR IIN€« 

IH'^SFCIiWATICK CF ARCUfEM RAKCE 
>C - H€£t.LT«K1 A0CI1IV£ CCftSTIht FCP LIKE^P 

t»»hSfC»f*1lCh CF ARGUftM R*HCE 
bCPf - ^CfHthd SICft'Ct CF CIHEASICk t IP*1 I *f IP*2 1/2 

Ck itEKkf. kQKH CCI>I«INS It-E ftffEIRIC CCCFflCIEI^T 

PUftlU Cf lh£ ^CI^^#L ECtAIICkS Ih CUPFRESSEO FCR*- 

fCLLCt>EC IPftCl^tlLV ev HlQt-J hAkC SICE 

M£ SCL'RE SUI' CF FUhCTICfc VALUES 
lEN - XESLLTIfiC ERKCfl PtHtWeiiR 

lER —1 t*tAK% FCRfAL ERROfiS IK Clf'thSICh 

lER - C ^EAhS KC ERRORS 

lER - 1 fttKS CCIhCfCINC tRCCr-ENIS 

hC bElC»-TS ARE LSEC IF IfE VALLE Cf CATI(2*K*1I IS 

IkCI PCSIUVE. 

t^ECLIICfi CF HCRCLTlht «fC^ IS A FR£PARA?CRt STEP FOR 

CJLCLlAflCfc CF LEJSI SCLAHES fJIS IK CHEBYSHEk PCLVNOflALS 

II St-COLC ti fCLLCtiEC e> EUCCUTICK CF SteROCrihE APFS 



flJt-CC 

IfE UASf 5CLARE fll IS CEfERMIfcEC CSIfcC CHEP»Sf-£V 

FCIVRCPIALS AS FtACAPtMfl FUMCTICK SVSIEP. 

TFE PEIt-CC l£ CISCLSSEC Ik THE AR11CLE 

A.I.eCRUISS, UASl SCCARCS flllilkC TC IRRECttARtV SPACED 

CAIA, :|AP REVIEh, VCl.e, ISS.3. lift, PP. 2C3-227. 



SLeRCif l»E APCKCAI|,i,,iF,itc,>C.I.CR«,iet(» 



ClfEkSIChEC CLPfV VARIAdLES 
CIRE^SiC* CAIJdI.taCRRm 



APCH 
..APCH 
APCH 
APCM 
APCH 
APCH 

APCM 

APCH 80 
APCH 90 
APCH too 
APCH 110 
ARCH 120 
APCH 130 
APCH 1'40 
APCH ISO 
APCH 160 
AfCH 170 
APCH 190 
APCH 190 
APCH 200 
i APCH 2 to 
APCH 220 
APCH 210 
APCH 240 
APCh 250 
APCH 2«0 
APCH 270 
APCH 2B0 
APCH 290 
APCH 300 
APCH 110 
APCH 120 
APCH »30 
APCH 3«0 
APCH 150 
APCH )60 
APCH 3 70 

APCH ISO 

APCH 340 
APCH 400 

APCH 410 

APCH 420 
APCH 430 
APCH 440 
APCH 450 
ARCH 460 
APCH 4 70 
APCM 4ao 
APCH 490 
ARCH 500 
APCH 510 
APCH 520 
APCH 530 
APCH 540 
ARCH 550 
APCH 5*0 
APCH S?0 
ARCH 580 
APCH 590 
APCH 400 



IFlJ-lMtlif.t"''^ '"""^ "^ S^CIFIEC CIRE^SICKS 

1 If UFI14.19.2 

. ,f(""^t 5*''^'-"* *^C lARGCSl ARCUREM 

2 iiJ-CATIuI" 
>C-IIA 

»E-C. 

CC 7 l«l,K 
'R'CAll III 
IF UtA-lf ti,>.4 
4 JiA-IR 

: If («c->pic,).T 

1 CLMIhLE 



**(IF*IIF4Ul/2 
if^C■R1lF•«l 
RTi-IHIF 
H2^»R1<-1 

^^ SEI hCFKIfcC SICRACE AfcC RICH FAHC SICE TC 2€RC 

J-M2-J 
hCRRlJI-C. 
t>CRK< I )-c. 
K-R«I 
E hCRK(KI<C. 

C»-ECI< FCR CECESERJTE ARCCREM RAKGE 
If f>CI<C.iC.^ 

S K.-ficii''^ CCfcSIAMS fCR RECLCIICK CF ARGLREftIS 

SLR-C. 

ilAM QUitl LCCf C*.efi Alt CUCh PCIMS 

i-c*i n I i*]tc*fc 

[f-tATllJI 

CAtCLL/T^ thZ STCBE VALtfS CF C^-£EYS^EV PCtVt^CRIALS 

IFlCMI<^4h41|lu.tl.lC 

IC J■J«^ 

»*'CATI(J| 

11 I'MI 

H^'SLR«Cf«Cf»«* 
Cf -CF*CF 

l< K'HJ 

\1 kC»<V|jl>hCH«|J}«»A 
IFU-M<Pll4.l5,lb 

IE-l«]iR-»A 

>A-;iR 

*^->E 

IF4J-IF 114.1^,13 

CCMihLE 



14 



CALCLl/IE RAIRIX [f hCH^'Al ECUATIC^S 



l'ti«RI2f 
-J-l 

CC li j'l.f 

h C ^ K ( L t I - fcC F R ( K I ♦ hC t- «« IJ J I 

lt«Ll-| 

iFU-jj||t.U,ll 

JJ* I 
CCIC IE 

■ .J-JJ*I 

CCMIM,E 
lEf.C 

FEILRA 



FETLRh 
(AC 



XOf XO.WORK I IfRI 



ARCH 610 
APCM 620 
APCH «90 
*RCH 640 
ARCH 450 
ARCH 660 
AfCH 670 
ARCH «flO 
' APCH 640 

*PCH TOO 
APCH flO 
APCH 720 
ARCH 730 
APCM 740 
ARCH 750 
ARCH 760 
APCH 770 
ARCH 710 
APCH 790 
APCH SOO 
ARCH flio 
ARCH «20 
APCh 810 
APCH 640 
APCM 850 
ARCH 860 
APCH 870 
APCH 880 
APCH 890 
ARCH 900 
APCH 910 
APCH 920 
ARCH 930 
APCH 940 
APCM 950 
APCH 960 
APCH 970 
APCH 980 
APCH 990 
APCHIOOO 
ARCHIOIO 
APCH1020 

APCHioao 

ARCH 1040 
APCMIOSO 
ARCH 1060 
APCH107Q 
APCH1080 
APCH 1090 
AFCHIIOO 
APCHlllO 
APCHU20 
APCHlllO 
APCHU40 
ARCHU50 
APCH1160 

APCHiiro 

APCHiieo 

APCH1190 
APCH1200 
ARCH12t0 
A PCM I 220 
APCH1230 
ARCH1240 
APCH1250 
APCH1260 
APCHI270 
APCHI280 
APCH1290 
ARCHIJOO 
APCHUIO 
ARCH1320 
APCMl J30 
APCH1140 
APCH1350 
APCH1160 
APCMl)70 
APCH13aO 
APCH 1390 
APCH1400 
APCHUIO 
APCH14Z0 
APCH1430 
APCMI440 
APCH1450 
ARCH 1460 
ARCH14 70 
APCH14S0 
APCHI490 
A^CHl'iOO 
APCH1510 
APCHL520 
APCH1530 
APCH|54a 
1RCH1550 
APCM1560 
ARCH15T0 
APCH 1580 



SUBROUTINE OAPCH 

PURPOSE 

SET UP NORMAL egUATIONS OF LEAST SQUARES FIT IN TERMS 
CmEB/SMEV POLITNOMIALS fOR A G1V6N DISCRETE FUNCTION 

USAGE 

CALL OAPCHlDiT I.N.IP 



oescRiPTnN Of rara'^eters 

DATI - VECTOR DP oi«ENSiO« }*fi (QH ointtiUQH imii 

CONTttHlHG THE GIVEN ARG'JMENrS* FOLLOHCD BY THE 
FU-CTION VALUeS ANO N (RESPECTI VELV U WEIGHT 
VALUES. TM€ CONTENT OF VECTOR D*T| RtMAINS 
UNCHANGED, 

OATl HUST BE OF 0CU9l E PC£CISIO« 
N - NUMetR Of GIVEN POINTS 

IP - illHEhSION Of LEAST SQUARES FIT, I.E. NU><eER OF 

CHEBYSH£V POLVNOMIALS US£0 AS FUNOAHPNTAL FUNCTIONS 
IP "IHOULO NO' tKCECO H 
fO - CESULTANT MULTIPLICATIVE CONSTANT FOR LINEAR 

TRANSFORHATION of ARIiUHENT RANGE 
XO MUST BE OnuSLE PKFCISION 
1.0 - RESULTANT ADDITIVE CONSTANT FOR LINfan 

TCANSFORMATION OF AftGUflENT fiANGE 
KG MUST RE DOJBLE PR£CI5IDN 
«CF< - WORKING STORAGE Cf OIMgNSION UP. 1 I •( FP* ? (/2 



OAPC 10 

..DAPC ZO 

DAPC ?0 

DAPC 40 

OAPC 50 

OAPC 60 

OAPC 70 

DAPC 60 

DAPC 90 

DAPC 100 

DAPC ttO 

OAPC 120 

OAPC 130 

mi m 

DAPC ISO 
OAPC 160 
OAPC 170 
DAPC 180 
OAOC 190 
OAPC 7.00 
DAPC 210 
DAPC 220 
DAPC 230 
OAPC 240 
DAPC 250 
OAPC 260 
OAPC 270 
OAPC 2Ra 
DAPC 290 
OAPC 3^0 
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CN RETUHN WORK CCNT*tMS THE SYMME fB I C CUEFFICieNT 
MATPIK OF THf NGFKAL E!3UaTlDN5 If! CtJ«!?Bf SSED FOPH 
FOLLOWED IMMEOIATELV "W RIGHT HftNO SID: 
AND SQUARE SUM Qf Fut^CTION VALUES 
KIRK MUST BE Of OrUPlF PRECISION 
lEB - o.ESULTlNk; ER«nR PARAMCTfp 

ipe =-I i«e4NS FOfiMAL GRROftS IK CIHENSIOM 

lER = MEANS NO ER1C1S 

lE^ . I MEANS COIVCIOINO ARCUMtNTS ^ 

tEi'ftf «': 

NC WPIGHTS ABE USED I^ 1 HE VALUE OF DATH2*".*1I IS 
NOT POSITIVE. 

Execuri-riN of susrcutime dapch [S a preparatcsy step for 

CA1.CULAT101J OF L^AST ^OUAiJES ► I T <i IN CHEftY'!-FV pOLVNOWIALS 

IT Should be followed bv £xer.u''iutj of susjioutine oa?fs 

SUSKI^uriNES AND fONCIION SUPP RC T.C AMS RECUIREO 

METHCD 

THE LEAST SJUA.<€ FIT (S f-Erf^MlNtO USING CHEE-VSHEV 

»CIY«3'*IALS AS FUNOAHrNTAt FUNCTION SV5TE>'. 

THE MCThGJ I« OlSCUSSfcO IN THE ARTICLE 

A.T.PER21 ISS, L.'AST S;;UARES FITTING TO IRf^t^ULARLY SPfcCFO 

lATA, SIAM REVIEM, VrL .b, I SS. 3. l'>6*.t PP. ?U3-i'?7, 



DAPC 310 
dap: 520 
DAPC 330 
DAPC i^O 
OAPC ISO 
DAPC 3f*Q 
OAPC i70 
DftPC 330 
CAPC 590 
DAPC 4 00 
DAPC 410 
CAPC 420 
DAPC 4*0 
DAPC 4<.0 
OAPC -^^O 
DAPC 4W 
DAPC <tTO 
DA or. tiBn 
DAPC AQO 
DAPC 5on 
DAPC 510 
OAPC 5?0 
DAPC 510 
OAOC 540 
DAPC 5'-0 
O-^PC 560 



Subroutines ARAT and DARAT 

These subroutines compute the best rational approxi- 
mation P(x)/Q(x) to a discrete function, f (x) , in the 
least-squares sense. The argument range should 
be the interval [-1, +l]. 

Subroutines FRAT and DFRAT are an integral 
part of the procedure and have no independent 
meaning. 

1. Mathematical background 



SURROU^IN'^. flA. 



IDATUN.lP.Xn.XO.KG-JK.IEPI 



OIMENSnN^D '>UMt;Y VAi?IAPLrS 
DIMENSION DATM 1 l,HO^K( 1) 

DDuecE psecrstCN oati .^crk.xl-, xc 



A , XE, XM.OF , r, ^Uf 

N SPECIFIED DIMENSIONS 



CHECK FDR FORMAL ERH0R5 
IF(N-1 1 1-3.20, 1 

1 lF(iP)ig,i?.2 

SEAPCH SMALLEST AND LA^CLST APGU'^ENT 

2 lF(!P-^i)3,3.l'J 

3 XA=0AT1 I U 

xo^xe 

XE=O.OI} 
00 7 !=1,N 
XM=DAT1 [ I I 
IF(XA-XM15. 5,4 

<i XA = XW 

5 1F(XC-XH)6, 7,7 

(• XO = Xh 

7 CUNT INUE 

INITIALIZE CALCULATION OF NCfif-AL d^ilJATIGNS 
XO=.X0-X£ 
h=l IP*( !Ptl) I/? 
IEND=*1+IP*l 
MT2=IP*IP 

JET ^CfKlMH ST^RA-^E flWD RrGHI HiKQ s H)£ TU ZERC 
DO 8 I-I,tt» 
J=«T2-I 
waRKIJ) = 0,r)c 
WORKMl-0.00 

K=M* I 

e wcflK{K)=c.JO 



CHECK FCR OEGcNERATE ARGUMENT RA' 
IFIXDIZ0.?0,9 



GE 



»eOUCTION OF ARGUMENTS 



: CAccuLAie ccnsta 

5 X0 = -(K0*)'A)/X0 
KD=2.D0/XD 
SUM=O.DO 

; STAtT GFjAT LOOP OVff ALL 5IVEN pGINTS 

CD I^ I=1.N 
T=DATI r I )*xn»xo 
J=l»-N 

OF=OATI( Jl 

CALCULATE AND STD^e VALUES OF CH=3VSHEV POLYNGMIALS 
FOR ARGUWEM T 

XA=1.00 

KH=T 

IFCDAT I(2«N*U I 11, 11, 1(1 
10 J=J*N 

XA=DATI(J1 

XM=T*XA 
U T=T+T 

SUK-SUH+OF»OF*XA 

DFiOF+r,F 

J=l 

12 K"M*J 
W0«<CKI=l.-3RK{K)+0F">'A 

13 WOaK(JI = WCRKt J )4XA 
IF(J-f'T?KH<.,l5,15 

14 J=J*1 
X£=r*XM-X.i 
XA = X^' 

xM=xe 

IF(J-IDU2. 12. n 

15 COPiTINUt 

WORK( I=NO)=SUMtSUH 

CALCULATE HATRIX OF NORMAL EQUATIONS 
LL = M 
KK=MT2M 
JJ=1 
K,=KK 

DO IB J=1,M 

WORtCtLL) =WQR<t.lK I *-WORM J J) 
Ll=LL-l 
If(K-JJ) 16, 16, 17 

16 KK=»(»(-2 

K-KK 
JJ=l 
GOTO 18 
U JJ=JJ+l 
K=IC-l 

18 CONTINUE 
IER=0 
RETURN 

ERROR RETURN IN CASE OF FORMAL FRRORS 

19 ieft=-l 
RETURN 

ERBOF 5eTURN 

20 !€«=! 
RETURN 
END 



CASE OF COINCIDING ARGUMENTS 



OAPC •=>'^Q 
DflPC 603 
DAOC 610 
DAPC t20 
D^^'C 630 
DAPC 640 
DAPC 6 50 
OAPC 660 
DAPC 670 
DAPC 5?0 
CA:>C 6P0 
CAPC 700 
DAPC 7tO 
OAPC 720 
DAPC 730 
DAPC 740 
DAPC TSn 
CAPC 760 
DAPC TTO 
DAPC 780 
DAPC 790 
C'Pf Ppr> 
OAOC RIO 
OAPC 820 
DAPC 830 
OAT. JJ4 
OiiPC fl'^l 
DAPC 860 
OAPC 870 
D.1PC 6fl0 
OAPC fl90 
DAPC 900 
OAPC 910 
DAPC <f2Q 
DA^r 130 
OAPC •940 
CAPC 950 
Ofl^C **60 
OAPC 970 

DAPC <5ao 

DAPC 990 
OAPCinOO 
OAPCIOIO 
DAPCIOZO 
0APC1030 
DAPC1040 
DAPC1050 
DAOC1060 
0APC1070 
DAPC1060 
DaPC1090 
DAPCllOO 
DAPCt liO 
DAPC11?0 

cAPci no 

DAPC1140 
OAPC i 150 
DA PCI 160 
DAPC1170 
OAPCllP'J 
0APCil90 
0Aori200 
DAPC1210 
DAPC1220 
DAPC12in 
DA9C1240 
DAPC1250 
OAPC12tO 
DAPC1270 
CAPCt2«0 
0APC1290 
DAPC1300 
DADC1310 
CAPC1320 
D6PC1330 
DAPCl J40 
DAPC1350 
DAPC1360 
OAPC 13 70 
0APC138O 
DAPClSin 
0APC1*.00 
OAPC1410 
CSPC1420 
OAPC1430 
0APC1440 

D4PCi450 

DAPC1460 
OAPC1470 
0APC14P0 
DAPCl 490 
OAPC 1500 
DAPC1510 
DAPC15;?0 
DAPC I 530 
DAPC 1540 
DAPC 15 50 
0APC1560 
0APC1570 
0apci58a 
0AOC1590 
DAPC1600 
DAPC1610 
0APC1620 
OAPf 1630 



Given positive integers ip, iq, and n, arguments xj, 
function values fi, and positive weights wj, i=l, 
2, , , . , n, the problem is to determine the coefficients 
of the polynomials 



P(x)= p^ +P2X + ,..+ p X 



ip-1 



Q(x) = q^ + q2X+-..+ q.^x 
such that 



iq-1 



F= E 



w. 



i=l 



f. 

1 



P{x.) 

0^9 



n2 



= mmimuni 



(1) 



A direct approach to the problem (1) leads to a sys- 
tem of nonlinear equations. Therefore the problem 
is reformulated in the following way- 
Let Pq(x) and Qo(x) be an aj^roximate solution to 
(1). The problem is then to determine increments 
APq(x) and AQo(x) such that 



F=i: 



w. 



i=l 



P (x.) + AP (x.) 
o r r 



t2 



i Q^(x.) + AQ^(x.) 



= minimum (1^ 



\WLthout loss of generality it may be assumed that the 

constant term of Qq remains unchanged, that is that 

the constant term of AQq Is zero, since numerator 

and denominator of the rational approximation are 

determined only up to a common factor. 

P +AP 

Linearizing -r — — - with respect to AP and AQ , 

" Q + AQ "^ o ^o 



P +AP 
o o 

Q +AQ ' 
o o 



Q„ 



^P AQ 



1 +- 



Q, 



(2) 



and using (2) in (!') gives the approximation F ?« Fq 
where 
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n w 

F =V -1 
o ^ 2 

i=l Q„(xJ 



f.Q (X.) - P (X.) - AP (X.) 
1 o' i' o 1 o i' 



1"- 



P (X.) 
O 1 



Defining 



f. = f.Q (X.) - P (X.) 
1 1 o i' o i 



w. = w./Q (x.) 

1 1 O 1 


and a set of functions 




g,(x) = x'^-^ 


we may write 


n r 


1=1 


['.*- 



k=l,2,. . . ,iq- 1 



k = iq,iq+l iq + ip- 1 



where 



g(x) = X) c g(x) m = iq+ip-l 



i=l 



and the c. are the coefficients of AQ (x) and AP (x): 

1 GO 



iq-1 
AQ^(x) = E ^jX^ 
1=1 



m 



AP (x) = y] c. X ^ 
o . . 1 

i=iq 

Now the coefficients Cj are determined so that Fq = 
minimum. This is a problem of the tj^e discussed 
in APLL with function values f^, weights w- and 
fundamental functions gj(x), and leads to a system 
of linear equations 

AC = R 



with symmetric positive semi-definite coefficient 
matrix A (see APLL writeup for a desciption of A 
and R). 

In subroutine ARAT, APLL is used to set up the 
normal equations AC = R, and APES is used to solve 
the system for the coefficient vector C. 

Given a solution APq and AQ^ to the problem 
Fq = minimum, a new approximation is formed 
using 



P + AP 
o o 



Q, = Q + AQ 
loo 



In general, given approximations Pj^ and Qj^, incre- 
ments APjj and AQj^ are determined as indicated 
above, and the next approximations are 



P, , = P + AP 

k+1 k k 



Vl = \'^\ 



(3) 



This process is started with some initial approxima- 
tion (usually with Po(x) = 0, Qo(x) = 1) and is 
stopped when there is indication of convergence (see 
below) . 

a. Refinement of the calculation procedure 

The above approach has several defects: 

(1) There is no guarantee for improvement of 
the rational fit obtained with successive iterations if 
the initial approximation is not close enough to a 
true solution. 

(2) Zeros may come into the denominator, caus- 
ing a complete breakdown of the procedure. 

(3) The normal equations of the linearized prob- 
lem are badly ill-conditioned if monomials are used 
as fundamental functions. 

The first difficulty is resolved using an approach 
suggested by D. Braess in reference (1). Let 



n 
^^\?1 






Then instead of using the relations (3) we use 
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where the relaxation factor r is chosen so that 
Sjj^+j is close to a minimum when regarded as a 
function of r,and S^+i ^S^. If this cannot be done, 
the error parameter lER is set to lER =* 1, and the 
process is stopped. Choosing r sufficiently small 
also prevents zeros from entering the denominator. 

The condition of the normal equations is im- 
proved remarkably by using Chebyshev polynomials 
Tjj(x) instead of monomials x'^ as fundamental func- 
tions; that is, the numerator and denominator are 
calculated in terms of their Chebyshev expansions. 
The ai^ument range is assumed to be (-1, +1). 

If it turns out that the normal equations are still 
ill-conditioned, the diagonal elements of the coeffi- 
cient matrix are sli^tly increased. This modifica- 
tion was suggested by D. W. Marquardt in reference 
(2). fii this case again the calculated increment is 
modified by a relaxation factor r; but now r may 
take on values even greater than 1 if this does not 
imply zeros coming into the denominator. 

b. Convergence 

Let Tk denote the sum of the absolute values of the 
coefficients of Pji(x) and Qk(x). Then, assuming 
that the Marquardt modification was not needed, the 
process is stopped if either 






+1 



s r e 



T - T 
Ik k+1 



s r e 



k+1 



k+1 



V T, 



k+1 



Here e = 10"^ and T) = 10" ^1. If the diagonal terms 
of the coefficient matrix of the normal equations 
were increased, only the last test is applied. If 
none of these conditions is met, the process is re- 
peated until the maximum number of iterations 
k = LIMIT is reached (LIMIT is set to 20 in ARAT). 

c. Remarks 

(1) The user must specify the dimension of the 
denominator and of the numerator of the rational 
approximation he wants to calculate. The calcula- 
tion procedure is somewhat sensitive to getting ade- 
quate dimensions. If the specified dimensions are 



unrealistically high, the calculation procedure may 
break down due to a very poor convergence. In this 
case it is best to repeat the calculation with 
decreased dimensions. 

(2) The initial approximation \\1iich the user has 
the option to specify must be such that the denomi- 
nator is free of zeros over the range of approxima- 
tion (-1, +1). The standard initial approximation is 
P(x) s and Q(x) = 1. 

(3) The arguments of the given discrete functions 
should be reduced to the interval (-1, +1). Argu- 
ments absolutely greater than 1 cause error propa- 
gation in the calculation of Chebyshev polynomials 
and may produce dubious results. 

(4) Numerical experience has shown that the 
dimensions used in single precision should not 
exceed 5, and in double precision should not be 
above 10. 

(5) Transformation of Chebyshev expansions to 
ordinary polynomials normally results in severe 
loss of accuracy. Therefore, no attempt is made to 
return the polynomial coefficients. This transfor- 
mation may be easily accomplished through subrou- 
tines TCNP and DTCNP. The calculated Chebyshev 
expansions may be evaluated for a specified argu- 
ment using subroutines CNPS and DCNPS. 

2. Programming considerations 

Arrays passed to subroutines ARAT and DARAT are 
DATI, WORK, and P. DATI contains the given data 
set to be approximated, consisting of n arguments 
xi, . . . , Xjj followed by the corresponding function 



values fi. 



, fn and by weights wj, . 



w„ 



Constant weighting (value one) is implied if DATI 
(2n + 1) contains a nonpositive value. 

WORK is used as working storage. On return it 
contains the values of the numerator in WORK 
(n + 1) up to WORK (2n) and the values of the denom- 
inator in WORK (2n + 1) up to WORK (3n). The stor- 
age positions WORK (1) up to W^lORK (n) and WORK 
(3n +1) up to WORK (4n) are used to record the cur- 
rent nonmoderated values of change of numerator 
and denominator respectively. The remaining 
(ip + iq) (ip + iq + 1) + 1 storage locations of WORK 
are used to store the normal equations in com- 
pressed form twice, in a working area as well as in 
a save area. This is necessary to avoid recalcula- 
tion of the normal equations in case of an ill- condi- 
tioned coefficient matrix. 

P is a vector of dimension ip + iq containing the 
calculated rational approximation on return. The 
coefficients of the Chebyshev e35)ansion of the 
denominator are stored first, immediately followed 
by the coefficients of ttie Chebyghev expansion of the 
numerator. Coefficients are ordered from low to 



Mathematics — Interpolation, Approximation and Smoothing 267 



hi^. P may also be used as an input array con- 
taining the initial approximation in terms of its 
Chebyshev expansions (with same ordering) option- 
ally. 

The normal equations are generated internally 
by means of subroutines APLL and DAPLL in the 
Storage allocation scheme which is required by 
subroutines APFS and DAPFS. Subroutines FRAT 
and DFRAT are simply the interface between sub- 
routines ARAT, DARAT and APLL, DAPLL used 
for handling the given data set and the specified 
fundamental functions. 

The error parameter lER gives an indication of 
success or failure of the procedure. 

lER = The process converged in the sense 

mentioned above. 
lER = - 1 Formal error occurred in specified 
dimensions or initial approximations 
such as violation of any of the restric- 
tions n > 0, ip > 0, iq > 0, n ^ ip + iq 
or Qo(x) / on (-1, 1), The latter 
could occur only if an optional initial 
approximation was used. 
lER = 1 The Marquardt modification was tried 
LIMIT times without success, or a 
suitable relaxation factor could not be 
found. 
lER = 2 The process has not converged after 
LIMIT steps. 
In all cases where lER s there is a calculated 
approximation available, but only in the case lER = 
is there strong indication that this approximation 
is close to the best rational fit in the least- squares 
sense. 

For reference see: 

(1) D. Braess, "Ueber Daempfung bei Minimal- 
isierungsverfahren". Computing (1966) vol. 1, ed. 
3, pp 264- 272. 

(2) D. W. Marquardt, "An algorithm for least- 
squares estimation of non-linear parameters", 
JSIAM (1963). vol. n, ed. 2, pp. 431— 441. 



- DIMENSION OF THE DENOHINtTDe IINCUI ViLUEl 

- RESULTANT ERROR PARAMETER 
ICR — 1 MEANS FORMAL ERRORS 
lER ' MEANS NO ERRORS 

lER - 1,2 MEANS POOR CONVERGENCE OF ITERATION 
lER IS ALSO USED AS INPUT VALUE 

A NONiERU INPUT VALUE INDICATES AVAlLAeiLITV OF AN 
INITIAL APPROXIMATION STCREO IN P ' 



OlSCFETE 



SU6ROUTINE ARAT 

PURPOSE 

CALCULATE BEST PATIONAL APProx | Mfl T I QN OF 
FUNCTION IN THE LEAST SOUARtS SENSE 

USAGE 

CALL ARATIOATIiN.hOAK.P.If .IQ.IERI 

DESCFIPTION OF PAKAMETECS 

DATI - TWODIMENSIONAL ARRAY NIIH 3 COLUMNS AND N ROWS 

THE FIRST COLUMN MUST CONTAIN THE GIVEN ARGUMENTS, 
THE SECOND COLUMN THE GIVEN FUNCTION VALUES AND 
THE THIRD COLUMN THE GIVEN hEICHTS IF ANY. 
IF NO UEIGHTS ARE TO 6f USED THEV THE THIDO 
COLUMN MAY BE OCOP»ED . EXCEPT THE FIPST ELEMENT 
UHICH MUSI CONTAIN A NQNPOSITIVE VALUE 
N - NUMBER Of NODES OF THE GIVEN DISCRETE FUNCTION 

WORK - NORKING STORAGE WHICH IS Of DIMENSION 
IIP«IUI«IIPtI0.11.«.N»I AT LEAST. 

ON RETURN THE VALUES OF THE NUMERATOR ARE CONTAINED 
IN WOPKIN.ll UP TO UOnKT2*Nl, WHILE THE VALUES OF 
THE OtNOMINATDR ARE STORED IN 1.0R«(2«N«1I UP TO 
WORKO«NI 
P - RESULTANT COEFFICIENT VECTOR OF DENOMINATOR AND 

NUMERATOR. THE DENOMINATOR IS STORED IN FIRST 10 
LOCATIONS, THE NUMERATOR IN THE FOLLOWING IP 
LOCATIONS. 

COEFFICIENTS ARE ORDERED FROM LOW TO HIGH. 
IP - DIMENSION OF THE NUMERATOR (INPUT VALUE I 



ARAT 


10 


AC4T 


*0 


ARAT 


^0 


ARAT 


t,0 


(.RAT 


TO 


ARAT 


80 


A<tAT 


<90 


ftPAT 


100 


ARAT 


MO 


ARAT 


120 


APAT 


130 


ARAT 


un 


ARAT 


150 


ARAT 


160 


ARAT 


170 


URAT 


lAO 


ARAT 


190 


ARAT 


200 


ARAT 


210 


ARAT 


220 


ARAT 


230 


ARAT 


240 


ARAT 


250 


ARAT 


260 


ARAT 


270 


ARAT 


280 


ARAT 


290 


ARAT 


300 


ARAT 


310 


ARAT 


i?n 


ARAT 


330 



AAAT 340 
ARAT 350 
APAT 360 
ARAT 370 
ARAT asO 
APAT 390 
ARAT 400 
ARAT 410 
APAT 420 
ARAT 430 
ARAT 440 
APAT 450 
ARAT 460 



REMARKS 

THf COEFFICIENT VECTORS OF THE DENOHINATOR AND NUMERATOR 

OF THE RATIONAL APPRQX IMATIOh ARE BOTH STOSED IN P 

STARTING HITM LUH POWfcRS (DENOMINATOR fIRSII. 

1P*10 BUST NOT EXCEED N, ALL THREE VALUES MUST BE POSITIVE. ARAT 470 

SINCE CHEBYSHEV POLVNOMIALS ARE USED AS FUKDAMENTAL Abat 480 

FUNCTIONS, THE ARGUMENTS SHOULD BE RtOUCEO TG THE INTERVAL ARAT 490 

(-1.1J. THIS CAM ALWAYS BE ACCOMPLISHED BY MEANS OF A LINEARAHAT 500 

TRANSFORMATION OF THE OPIOINALLV GIVEN ACCUMENTS. 

IF A FIT IN OTHER FUNCTIONS IS REQUlREDi CNP ANO CNPS MUST 

ee REPLACED BY SUBROUTINES WHICH ARE OF ANALC&nuS DESIGN. 

SUBROUTINES ANO FUNCTION SUBPROGRAMS KEOUIREO 
APLL, APFS. FRAT, CNPS, CNP 
CNP IS FEOUIPED WITHIN FCAT 

METHOD 

THfc ITERATIVE SCHEME USED EOF CALCULATION Of THE 

APPROXIMATION IS REPtATEO SOLUTION CF THE KORMAL EQUATIONS 

WHICH ARE OBTAINED BY L iNE&fi IZATICN. 

A REFINED TECHNIQUE OF THIS LINEAF LEAST SOUAPES APPROACH 

IS USED WHICH GUARANTEES THAT THE DENGMIMATCR IS FREE OF 

ZERCES WITHIN THfc APPROXIMATION INTERVAL. 

FOR f-EFEfiENCE SEE 

D. BRAESS, ueeER DAEMPFUNG BEI MINIMALI 5IERUNGSVERFAHREN, 

CCiMPUTING(I966l, VOL.1, ED. 3, PP. 264-272. 

D.W.MePCUAfiOT, AN ALGORITHM FOR LEAST-SQUARES ESTIMATION 

OF NONLINEAR PAftAHETERSt 

JSIAM(1963l, VOL.11, ED. 2, PP. 431-441. 



suet OUT I NE AR AT I OAT UN, WORK, P, IP, 10, lEF t 



TEFNAL FRAT 



C DIMENSIONED LOCAL VARIABLE 

DIMENSION IERV(3) 
C 
C OIMENSIONEO DUMMY VARIAfiLES 

DIMENSION OATH 1) .WORKI 1 I .P( II 
C 
C INITIALIZE TESTVALUES 

LIMlT-20 

ETA =l.E-Il 

EPS=l.E-5 

: CHECK FOR FORMAL ERRRRS 
If (N14,4,l 

1 IF(IPI4,4,2 

2 IF(I0)4.4,3 

3 Ipg=lP+IO 
IFtN-IPa»4.S.5 

: ERROR RETURN IN CASE OF FORMAL EFPDRS 

4 IER=-l 
RETURN 

INITIALIZE ITERATION PROCESS 

5 KrUNT=0 
IFBV(2 l = IP 
IERV(3I=I0 
NOP=N+N+l 
NNE=NDP+NOP 
IX=IP0-1 
IQPI=1Q+1 
IHHS-NNE*IPU*IX/2 
ieNO=IRHS*IX 

TEST FOR AVAILABILITY OF AN INITIAL APPBOXIMAI ION 
If (IERIfi,6,fi 

INITIALIZE NUMEPATOF AND OENOMINATOP 

6 00 7 1=2, IPO 

7 P( I 1=0. 
P( 1»"1. 

CALCULATE VALUES OF NUMERATOR ANO DENOMINATOR FOR INITIAL 
APPROXIMATION 
B 00 9 J=1,N 
T=DATI(J J 
1=J + N 

CALL CNPStWORKtl ), r,P( IQPl) .IPt 
K=I*N 
9 CALL CNPS(WORK(K),T,P, IQ) 

SET UP NORMAL EQUATIONS (MAIN LOOP OF ITERATION) 

10 CALL APLL(FRAT,N,IX,U0RK.U0RK(I£N04'U.DAn,IERVI 

CHECK FOR ZERO DENOMINATOR 
IFf lEFVt 1)14,11,4 

11 INCR-O 
ReLAX-2. 

RESTORE MATRIX IN WORKING STORAGE 
la J=IEND 

DO 13 I=NNE,IENO 
J-J*l 

13 HORKd )=waRt((J} 
IF(KQUNT) 14,14,15 

SAVE SQUARE SUM Of ERRORS 

14 OSUM=WORK( lENDI 

K=rQ 

ADO CONSTANT TO DIAGONAL 
IF(WORK(NhE 11 17,17, 19 

15 IF(!MCRII9,I9.L6 

16 K-IPQ 

17 J«HNE-l 

00 IB I=I.K 
WORKt J)-UORK( Jl+DIAG 
IB J=J*I 

SOLVE NORMAL EQUATIONS 
19 CALL APF$<WOPK(NNE), IX.IPES.l.EPS.ETA.lEf'l 



CHECK FOR FAILURE OF EQUATION SOLVER 



AOAT 510 
ARAT 520 
ARAT 530 
Aiiar 540 
ARAT 550 
ARAT 560 
ACAT 570 
ARAT 5B0 
ARAT 590 
A OAT 600 
ARAT 610 

ARAT 620 

APAT 630 

ARAT 640 
ACAT 650 
ARAT 660 
ARAT 670 
ARAT 6a0 
ARAT 690 
ARAT TOO 
ARAT 710 
ARAI 720 

ARAT 730 

ARAT 740 
ARAT 750 
ARAT 760 
ARAT 770 
ARAT 780 
ARAT 7^0 
ARAT 800 
ARAT 810 
ARAT S20 
ACAT 630 
ARAT 640 
APAT 850 
APAT 860 
ARAT 670 
ARAT 880 
ARAT 890 
ARAT qOO 
ARAT 910 
ARAT 920 
ARAT 930 
ARAT 940 
APAT 950 
ARAT 960 
ARAT 970 
APAT 980 
ARAT 990 
ARATIOOO 
APATIOIO 
ARAT1020 
ARAT1030 
APAT1040 
ARAT 1050 
ARAT1060 
■FATIOTO 
ARAT1080 
ARAT 1090 
APATllOO 
ARATlllO 
ARAT1120 
ARAT1130 
ARAT I 140 
ARATII50 

ARAT1I60 

ARATil70 
ARATlieO 
ARAT1190 
AHAT1200 
ARAT1210 
AfiAT1220 
ARAT1230 
ARAT1240 
ARAT1250 
ARAT1260 
APAT1270 
ARAT1280 
ARAT1290 
APAT13O0 
*ftAT13tO 
ARAT1320 
APAT1330 
ARAT1340 
ARAT1350 
ACAT1360 
ARATUTO 

ARAT1360 

•PAT 1390 

ARATI400 
ARAT1410 
&0&ri420 
ARAri430 
ARAT 1440 
80AT1450 
ARAT1460 

mmio 

AC AT 1480 
ARAT1490 
ARAT 1500 
ARATISIO 
ARAT 1520 
ARAT1530 
APAT1540 
ARAT 1550 
ARAT1560 
ARAT1570 
ARAT1580 
ARAT1590 
AnATl600 
ARATL610 
ARAT1620 
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TtSr FPR OEFeCIIVt NORMALEOUATIONS 
20 1F( IPES-IXI21.2'..2* 

22 DIAG=01AG«0.I2^ 

23 DI AG^OIAC+OIAG 

INCR=IfcJCR*l y 

START WITH OWEF FELAXATION 
RELAX=e. 
Iff INCR-LIMITI 12,45,45 

CALCULATE VALUES OF CHAriGE OF NUMERATOR AND DENOMINATOR 

24 L*NOP 
J=NNE*IPES*(IFES-l»/2-l 
K=JtlO 

wORKC j)=0. 
ICC=IO 

IRP=1RES-IQ*1 
IF( IRP}2;>, 26,26 

25 IF0=IPES*1 
Zt 00 29 1=1, N 

T"DAT[I I 1 

WORKd (=0. 

CALL CNPSIWORKI I ) ,T,*<ORK(K) , IRP) 

CALL CNPS(MORK|M},T,U0fiKt J),IRQ) 
IF(WORKIM»»WQRK(L I 127,29,29 

27 SUH=WO(-K< LI /WOhK( HI 

if (RELAX+SU«)29,29,2e 

28 ReL4K=-SUM 

29 L=L*1 

HOOIFV RELAXATION FACfOK IF NECESSARY 
SS06 = 011UM 
IT6R=LIMIT 

30 SUM=0. 
RELAX=RELAX*O.S 
DO iZ 1=1, N 

M= I*N 

K = H+N 

L = K + N 

SAV£=OAT[ (Mt-(WORK(M)+RELA 

SAVE=SAVE*SAVE 

IFlOATI{NOPn32,3^,3l 

31 SAVE=SAVE*OATI(K ) 
3? SUM=SUH*$AVE 

(F( ITER 1*^5, 33,33 

33 ITEK=ITER-1 
!F(SUM-OSUM)3A,37,35 

34 USUM=SUM 
GnT:^ 30 

TEST FDR IMPHUVEMENI 

35 IF(OSU»<-SSGE> 36,30,30 

36 BELBX=F£LAX+RELAX 

37 T-0. 
SAVfc=0. 
K=IoES+l 
00 38 I«2,K 
J=J*1 

T=TtABS(Plll» 
P( I1=P1I l+RfLAX*WORK( J) 

38 SAV£ = SAVE*AaS(P) II 1 



WORK! U I/I 



X*mORK(LI 1 



UPDATE CURRENT VALUES Of NUMERATOR ANO DENOMINATOR 
DO 39 1=1, N 



L=KtM 

l«aFK(J J=«ORK) JI»FELAX»WU«K( 1 J 

39 t>0RK(KI=W0RK(Kl4-RELAK*W0RK(L) 

TEST FOR CDNVERGcNCE 
IF( INCR 140,40,42 

40 If ISS0E-0SUH-ReLAX*EPS»0SUM)46,'.6,4l 

41 IF (A6S(T-SAVEI-RELAK"tPS»SAVei46,46,42 

42 If (0SUM-ETA*SAVe)46,46,43 

43 K0UNT=K0UNrtl 

IF (KOONT-LIMITI 10,44,44 

ERROR RETURN IN CASE OF POOR CONVERGENCE 

44 I£R=2 
RETURN 

4t. 1ER=1 
RETURN 

NQRHAL RETURN 
46 I£R=0 
RETURN 
END 



At ATlblO 
ARAT1640 
ARAT1650 
ARAT 1660 
ARAri670 
ARAI 1680 
ARAT1690 
ARATITOO 
ARATiriO 
ARAT1720 
ARATlT3a 

ARAT I T40 

ARAT1750 
ARATI760 
ARAT 1770 
ARAT1780 
ARAT1790 
ARATieOO 
ARATIBIO 
ARAT1820 
ARAT1630 
ARAT1840 
ARATIBSO 
AFAT1860 
ARAT1870 
ARAT 1880 
ADAT1890 
AfiAT1900 

ARAT 191 O 

■CAT1920 
ARAT1930 

ARAT1940 

AeAT1950 
ARAT1960 
ARAT1970 

ACflT1980 
ARAI 1990 
ARAT2000 
«FliT20I0 
AfiAT^OZO 
AR AT2030 
AF (,12040 
APAT20^0 
ARAT2060 
A=flT2070 
ARAT2080 
ARAT2090 
ARflT2lQ0 
ARAT21 10 
ARAT?1?0 
AFAT2I30 
ARAT21<.0 
ARAI2150 
ARaT2l60 
ARAT2170 
ARAT2180 
ARAT2190 
ARAT2200 
ARAT22tO 
ARAT2220 
ARAT2230 
ARAT22<.0 
ARAT2250 
ARAT2260 
ARAT2270 
ARAT2260 
AfiAT2290 
ARAT2300 
ARAT2310 
AflAT2320 
AR6T2330 
ARAT2340 
APAT2350 
ABAT23bO 
ARAT23TO 
ARAT2380 
ARftT2390 
ftRAT2400 
ARATZ410 
fiPfiT2420 
fiHAT2430 
ARAT2^40 
AFfiT2450 
ARAT2460 
ARAT2470 
APAT2480 
ARAT2490 
ARAT250Q 
AC AT2510 
ARAT2570 
ARAT2530 
ARAT2S40 



<,1J.'^(:C1_|TI^|E FP n» 

PUKPOS' 

FcflT IS USFCi FOR HANDLING Or JaTA AMD FjhRAMc'IT^L FUNCTIONS 
W1T.1 -JftTirNiL iPPCOXt'iMluN. I' IS 4 '^U^STANTffll ^.fl'T Of 
R/^Tl ONAL APi'SUKIMATlUH fifrJ HAS NJ MEAN 1 NO I Ntf. '^ NOE N TL Y 

USAGE 

CA',1 FPATt I,fJ,M,P.OATI ,WC-T, lEK ) 

OESCH^IION Of PARAMETERS 

1 - SUrtSCRIPT np CU=<''EKT DATA PCIM 

N - NKMPER HF ALL DATA POINTS 

H - hUMPfP OF FUNOfMtKTAL FUNCTIONS USED 

P - Afi«a/ np OIMENSK.N •^*l AT LEAST, WHICH CCNTaiNIi 

ON RETURN THE VALuES PF THE M FUNOAMEVTAL 
FUNCTIONS, FOLLCitTi) Hf r,U«a£^T FUNCTlf^N VALJf 
DAII - AS^flV CGNTAINIMG :; I VE.\ N AoCUMEMTS, FCLLLlWED 

fiV \ FUNCTION VALJtS ANO FiNALtV »V 1 ■)£ SPCCI I tf FLY 
N .<firHI VALUc£ 
WCT - C.esuiTANT W=IiJmT FAtT^'S UStO FCR l-TH TFC'^ 

U t - PFSULT4NT ERRJO P4PA'<ET,:R, CGMaiMfO WITH I\3i]T 

V«LUcS FO" rONIfiOL 

1=0(2) f^AHi DIMENSION PF ■iUHilAlO^ 
ItB(3} MfflMS yIME^S10N "^f OEN'if] NATOH 
I^'lll IS USED AS RESULTANT ER^OR PA *IA v.f: t = r , 
lErill « IN CASE Ct NO E-^tC-S 
I=R{!) = 1 OTHERWISE (ZERO OfMOMINATdS) 



oemai^k; 

V^CTT- 



UP IS USED FOP CC'1'*UNIC>TIQN t^FTwEEN •-"^fl 4*^D FFAT 



SUB»OyT(\ES A^O FUNCTION SUtPF.UCHAHS RECUIRED 

CNP 



C.f . ■^flTHtMiTlCAL OESCRIPIH'N Or SJBROUilNE AC/>T 



SURKOUTINf Ftv/ail 



IWITl AL I/AT l-^N 
IP=lEfl(?l 

IOMl=IC-l 

IPC=1P+I3 

LO'TK UP AC&UMENT, FUKCTIOh ViLJE 4-'0 WEIT.hT 

LCCK l^P MUMFtATO^ AND OENCWINATDR 
T = DATI( I 3 
J= I+N 
F=CATl(J) 

5NJW-0( J I 

J = JtN 
WC,T=1. 

If CDSTK 2«.v+ll 12, ?, 1 
WGT»OATj (Jl 
I FOEN=PIJI 

CALCULATE FUNCTION VAL'JE US£:5 
F=F»FDEN-fNU»« 

CHECt FOR Zt«3 OENQMlNATaR 
IF(FDeN)4, 3,4 

ECFQC tiCTUBN IN CaSE OF ^6=0 OENIMINATOR 

I iERin = i 

RETUiiN 

CA^:'.JLVT= WEIGHT "^ACTlias USED 
. WCT=WGT/(''D';N*FOtNI 

FNUM=-FNUM/FOEr'J 

CALCULATE FiJNDAMtNTAL FUNCTIONS 
J=ICM1 

IF( IP-IOlft.ft, ^ 
J=IP-I 
CALL CNPlPf IQ) ,T, Jl 

STPKF VALUES 0= OENIMINATCft F UN[>A;M.NTAL FUNCTIONS 
IF(ICMl) 10, 10.8 
DO 9 11=1, J [)Mi 
J=Ii*IQ 
PI 11 1=P( JI*''NUM 

STORE FL'VCTIDN YALUE 
P( IPQ)=F 

NORMAL RETURN 
lERI ll-O 
RETURN 
END 



FP4T 100 

F«^T MO 

FOAT 120 

FRAT no 

FRAT 140 

FRAT 150 

F-A^ 160 

FRAT 170 

FRAI 180 

fRil 190 

FFAT 200 

<= = 1T 210 

FRAT 2?0 

FRAT 230 

FRAT 240 

FCAT 2 SO 

FHAT 260 

^flA^ 270 

FBAT 230 

F=AT 290 

FBAT 300 

FRAT 310 

FRAT 320 

F4AT J30 

FCai 340 

FBAT 350 

F^AT 360 

FaaT 370 

F^AT 380 

FRAT 390 

FRAT 400 



Foai 500 

ri^iT sio 

F«aT ^70 
FIAT 530 
F^JT ^40 
FOAT ^50 
FRAT SfeO 
FRAT 570 
FRAT 3 80 
FRAT 590 
FRAT 600 
FRAT 610 
FRAT 620 
FRIT fG 
FRAT 640 
FRAT 550 
f^AT 660 
FR&I 670 
PRAT 6B0 
Fotr 690 
fRAI 700 
FRAT 710 
FRAT 720 
FRAT 730 
FRAT 740 
FRAT 750 
FRAT 760 
FRAT 770 
F=4T 730 
FRAT 790 
FRAT 900 
F54T 
FBST 
FRAT 830 
FRAT 940 
FRIT 850 
FRAT ibO 
FHAT 870 
FHAT d80 
FRAI 090 
FRAT -^00 
FRU 910 
FRAT 9?0 
FRAT 930 
FRAT 940 
FOAT 950 
FRAT 960 
FRAT 970 
FRAT 980 
FRAT 990 
FBATIOOO 



120 
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SUflCCUTlNE DftRAT 

PURPOSE 

CALCULATE BEST KATIONAL AfPPtiK I MAT I t.M Uf t OISC-ETE 
FUhCTION [N THt ItASI SOUARtS StNSE 



II •N.WUKKiP) IP,1Q. Itkl 

OeSCREPTlOK OF PAHAf£TE=S 

UATI - TWOiJlHENSIONAL AKRAY V\XH 3 COLUMNS AND N POWS 

IHt fiRST COLUMN MUiT CC^^A1•■I iHil GIVEN ARGU^ttNTS 
THE StCuKO COLUMN THb GlVtN FUNCTICjN V6LUt<: f^■J 
ine TH[Kl) column THc 01Ve%' KclCHIS IF AKV. 
IF Nn ktlGHTS ARE Hi flE UStO THtN THE THIRD 
CDLUf«N MftY Pf OKlPPtO , Exri.o| XM£ f 1 1^ S I Fie-ENl 
hlllCH MUSI CUMAIN A N JNPOS I 11 Vt VALUt 
DAT! MUST BE OE DfuHLt PHEtlSlTN 
NUMRE*^ LF NtJOES uF Th£ G[VEN UlSC^-tTE FUNC,II:?^ 
"OrtKING SrC'lAGE «HICH li CT DLKcNSlUN 
*nP*IC*l It-i'M+l AT LEAST, 



DA 



180 



hnfiK 



OA-f- 190 

OARA ^no 

TflRA 210 

DflPA 230 

DAftA 2^0 

CN i-ETU'<N THE VALUfcS Uf THE NUKeRAlOF fi= E CONTAINED DARfl Z^Q 



hORK(2*Nl , bMILE T Nt 
ASE STURtU IN k-jaK(?»N*l 



VALI 



t S (Jf 



IN WUftOl N« 1 ) 

THE DEKOMtNATr.R 

KOf K(3*N( 

•iORK MUSI 6E Uf DOueLc PREC.ISIU'^ 

RESJLTANI COtFFICiEhT VECTCB I]F DENOMlNATOfl AKO 

NUMEFATOt^. THE UtNUMNflrCF IS STQoeD IN FIHSI 10 

LOCATIONS, i HE NUKEflATUH IN IHt FQLLOV^rNCj TP 

LHCATIGNS. 

COEFFICIENTS AFF OFDE=EO F^CM LOW ID HIGH. 

P MUSI BE Uf OQUBLt PREClSrC^ 

DIMfNSION OF THE NUMERATOR (INPUT VALUE 1 

DIMeNSIUN UF THE DENt;MINAIOR (INPUT VALUt) 

rtESULIANI E-<RGR PARAMETER 

lER =-1 MEANS FOt^MAL EHRGflS 

lEP = MEINS NLi ERhORS 

lER = 1.3 MEANS PUOR CGNVERCtNCE Cf (TESAriON 

IFR lb ALbU USED AS INPUT VALUE 

A NONiEFO INPUT VALUE INDICATES AVAILASILIIV Lt- Af 

INITIAL APPftuXIMAT IIjN STOPEC IN P 



UARO ZtO 

OAPA 270 

OARA ^80 

OARA ?90 

OARA 300 

OARA 310 



CARA 



>2a 



THE CCtFFlClfNT VECTORS OF TnE OErrMNATCR AND NU>*fRAIOR 

CF THE RATIONAL APPROXIMATION ARE ELTH SIUKtl/ IN p 

STARTING WITH LOW POWERS (UENUMINATC« FI«STI. 

IP*-iO MUST NOT txCcEO N, AlL THKEE VALUtS MUSI BE PPSITIVF 

SINCE CHEBVSHEV POLrNCMIALS ARE USED AS FUNOAMENTAL 

FUhCTIONS, IHL AtJGUMENIS SHOULD BE RcDUCEO TU TnE INTERVAL 

(-1,11. THIS CAN ALWAYS BE ACCCPL 1 SHEC BV MEANS OF A LIN'EAROARA 530 



OARA 330 
OARA 3^0 

OARA 350 

OARA 360 

DARA 3 70 

OARA 360 

OARA 390 

OARA i.no 

OARA 410 
OARA 420 
OARA 430 

OARA ^t,0 

OAF A 4S0 
OARA 463 
OARA 470 
DA' A 480 
DARA A<»0 
JAPA 500 
Elfi'^A 510 

5i-0 



TRANSFORMATION Cf THE ORIGINALLV GIVEN AF&UMENTS. 

IF A FIT IN DINER FJNCIIONS IS BEQUIi^ED, DC NP AND OCNPS Ml 

at REPLACED EV SU6RnuTINES WHICH ARE PF ANflLCOOUS CcSICN. 

SUBROUTINES ANi) FUNCTION SuePRCGRAIS REQUIHtO 
OflPLL, DAPFS, OFr^Al, OCNPS, OCNP 
OCNP IS REQUIHEO WITHIN DFPAT 

MFTMnO 

THE ITERATIVE SCHEME USED FOR CALCULATIUN CF THE 

APPROXIMATION IS REPEATED SoLUTlCN Of THE NORMAL E0UATI';n5 

WHICH ARE OSTAINtO 3Y LINEARIZATION. 

A PtFINED lECHNIOUe OF THIS LINEAR LFAST SQUARES APPRL'ACH 

IS USED hHICH GUAilANTEES fHAT THE OENOMINATOH IS FBEr CF 

ZEROES WITHIN THE APPROXIMATION INTERVAL. 

FCt: REFERENCE SEE 

O.BRAESSi UEBER OAEMPFUNG fiEI MINIMAL] S I ERUNGSVERFAHt? EN. 

COMPUT INGI 1966), VOL.1, £0.3, PP.^64-272. 

O.W.MABOUACOT, AN ALGOFITHM FOS L EA S T -SOU «= E S ESTIHfiriDN 

OF NONLINEAR PARAMETERS, 

JSIAM(1963I, VCL.ll, E0.2, PP. 431-441. 



SUECCUTINE CAR AT (DAT I.N.WOFK.P, I P. lU. IFF ) 



eXTEONAL OFPAT 

DIMENSIONED LDC< 
DIMENSION I£RV£3) 

OIMENSIONED DUMWY VARIASLES 
DIMENSION OATIU) .KOFMll.Pf 11 
DOUSLE PRECISION OAT I . WLRK, P, T.OSUM, Dl AC^E LAX , SUM. SSOE , SAVE 

INITIALIZE TESTVALUES 
L IMIT=Z0 
ETA=UE-29 
EPS=1.E-14 

CHECK FOR FORMAL ERRORS 
IF 1NJ4,4, 1 
IF( IP)4,4, 2 
IFI 1014.4,3 
IP0=IP*rO 
IF(N-IP0K,5.5 

ERROR RETURN IN CASt Of fORMAL fcRRCRS 



DAP 6 
STDARA 550 

OARA 560 
DAcfl 57,) 
OARA 580 
OARA 5S0 
OIRA 600 
DARA 610 
OAPA 620 
OAF' 630 
DARA fc40 
OARA 650 



OARA 



660 



,L VARIABLE 



INITIALIZE ITEftAriON PSncESS 
I K0UNT=0 
ieRV(2l=IP 
lERVI 3)=I0 

NOP=N*N+I 

NNE=NDPtNDP 

Ix=lP3-l 

mpt = iQ+i 

I«hS=NNE»;PU*f x/^ 

lENO^IRHS+IX 



TEST FCH AVAILASILIIV OF AN INII 
IF ( lER 18.6,8 

INITIALIZE NUMERATOR AND DENOMINATOR 
■ 00 7 1=2, IPQ 

p( n=o.oo 

P( I 1 = 1.00 

CALCULATE VALUES OF NUMERATOF AND OENCMINATUP FUF INIIIA 

APPROXIMATION 
00 9 J=1,N 
T = OATI IJ) 
1=J*N 



AL APPRLjXIMAI ION 



OARA 670 
DARA 680 
OARA 690 
OARA 700 
DAP A 710 
DAR* 720 
OARA 730 
OARA 740 
DARA 750 
...OABA 7fcO 
DARA 770 
OARA 7B0 
DARA 790 
DARA 800 
OARA BIO 
OARA 820 
OARA B30 
OARA 840 
OARA 850 
DARA 860 
DARA 870 
DARA 680 
OARA S90 
DARA 900 
OARA 910 
DARA 920 
DARA 930 
OARA 940 
DARA 950 
DARA 960 
DARA 970 
DAtA 930 
OARA 990 
DARAIOOO 
DAF AlOlO 
OARA1O20 

0ARA1030 

UA^eiOiO 
DflRAI050 

DASAlOfon 
0AOA1070 
DAHA1060 
0ARA1O90 
OflPAllOO 

OARAUIO 
DARAI 120 
0APA1130 

DARflII50 
DAaflll60 
DARA1170 
DARA1180 
DARAUQO 
DARA1200 
0AftA1210 

da(;ai?20 

OARA1230 
DAflAI240 
DAfiA1250 
0ARAI260 
DARA1270 
DARA12e0 
0AR01290 



CALL OCNPSUORM I I ,1 ,P( itjPl ), If) 
K- I*N 
9 CALL DCNPS(l"ORK(K) ,r,P , (CI 

SET UP NORMAL EOJAIILNS I MA I N LUQP OF ITtRlTluN) 

10 CALL DAPLL (Of fiAI.N, I K,WURK,hORK( JENDU 1 ,UAT[ ,1ERVI 

CHECK FOF ZfcCQ DfNOMINAlnc 
IF ( lERVI 1 I 14,11,4 

11 INCR=0 

FeLax=2.00 



KING STORAGE 



RESTCRE MATR IX IN 

12 J=IENO 

DO 13 I^NNE, lEND 
J = J*I 

13 WOFKI I JsWDt^KI Jl 

IF (KUUM n4. i4. 1^ 

SAVE SkiUARE SUM OF ERRORS 

14 [1SUM = W0RK{ lENDI 
DIAG=OSUM»EPS 
K=]Q 

ADO CONSTANT T{j DIAGONAL 
IF (W0RK(NNE 1117,17,19 

15 IF t INCRl 19, 19, 16 

16 K=iPQ 

17 J=NNE-1 

DC le 1=1. K 

W0PKtJl = WOHIC(J l*DI AC 
la J=j*I 

SOLVE NORMAL EOUAIICNS 
19 CALL OAPFSt WOHK{NNE 1 , IX, IRESt I .fcPS.ETA, li^Rl 

CHECK FOR FAILUFE OF EOUATIGN SQLVFF 
IF ( IRESI4,4,20 

TEST FC& DEFECTIVE NUF HAL EQUfl T I UNS 
2') IE ( IRES- 1X121 ,24,2'. 

21 IF( INCRI22,22,23 

22 DIAG=D1AG«0.1?500 

23 DIfl& = L)IAG*OIAG 
IWCR=INCK*1 



iTARI hlTH OVER BFL 
RELAXES. DO 
I F ( INCF-L IMIT) 12,45,45 



AT lUN 



CALCULATE VALUES CF CHANGE OF NUMERATOR ANO DENL■^rINATOR 

24 L=NDP 
J=NNE*IReS*(IReS-l)/2-l 
K=JtIC 
WCFK(JI=0.00 

IRO=IO 

lfiP=lRES-IOtl 
IF ( I^P 12i).26,26 

25 IRO=IRES*! 

26 00 29 1 = 1, N 
T^DATI I 1 ) 
kORKI I 1=0.00 

CALL DCNPSIWORKII 1 , T ,HORK 1 K 1 , I RP I 
M = L»N 

CALL OCNPS (WORK (Ml ,I,kOfiKIJ),IRQ) 
]F(WQRK(MJ«wOftK(L] J27,29,29 

27 SUM^HEIPKILJ/WCRIM) 

If (RELAXtSUM(2q,29,2 8 

28 RELAX=-SUH 

29 L^L*I 

MODIFY RELAXATION FACTOR IF NECESSARY 
SSCE=OSUM 
ITER=LIMIT 

30 5UM=0.DO 
RELAX=RELAX«0.500 
DC 32 I=l,N 
M=ItN 



wQFK( I ) l/( WORK(K)t 



L=K + N 

SAV£=DATI{M|-tWORK(MI*RELAX 
SAVE=SAVe«SAVe 
IF(DATI(N0P1)32,32,31 

31 SAVE=SAVE"OATI (Kl 

32 SUM=SUMtSAVE 

IF( ITeR)45, 33,33 

33 ITER-irER-1 
IF(SUH-0SUM)34,37,35 

34 rSUM=SUM 
GOTO 30 

TEST FOR IMPROVEMENT 
3 5 IF (OSUM-SSOE ( 36, 30, 30 

36 RELAX^HELAX+RELAX 

37 T = 0- 

$AVC=0-DO 

K= IRES*! 
or 38 1=2, K 
J = J*l 
I=T»DABS(P( 1 I 1 

PI 1 I =PI I ItBELAX^WGRKf J ) 

39 five-iAVEtOOSSlPdlJ 



UPDATE CURRENT VALUES UF NUMfKATOH AND OF NOM 1 NA I L'^'. 
00 39 1=1, N 
J= I*N 
K = J»N 
L=K.*N 

W0RK( J)=WCRKIJltRCLAX*t.GRK( I] 
39 kGfiK(K) =ta&Rt;{Kl .RELAX»WGRK(i ) 

lEST FOR CONVERGENCE 
IFI /NCRJ40f40f42 

40 lF(SSO£-CSUM-FELAX»OSUM*DeLt(EPSI ) 46,46,4 1 

41 IF{OABSU-SAVE)-RELAX»SAVt*DBLEIEPSl 146,46,42 

42 IF{OSUM-SAVE*DBLE<ETAl 146,46,4} 

43 KOUNT=KOUNT*l 
IFCKOUNT-LIMITl 10,44,44 

EfiPOP RETURN IN CASE OF POOR CONVERGENCE 

44 IER=2 
RETURN 

45 lER-l 
RETURN 

NORMAL RETURN 

46 IER=0 
RETURN 

END 



OARA1300 
DARAl 310 
DflRA1320 

DARA1330 
OAkAl 340 
OA.<A1350 
0ARA1360 
OARA1370 
OARA1380 

DAR6139C 
DAH A1400 
L)ARA1410 
DARA1420 
0AftA143n 
DARA1440 
0ACfll45C 
0ARA1460 
0ARA1470 
DAPAl4eO 
OARA1490 
0ARA1500 
DACA1510 
OARAI520 
DAR41530 

OACA1540 

9ARA1550 
0ARA1560 
DAFC1570 
0ARA1580 
DAR*i59a 
0AFA1600 
0ARA1610 
DARA1620 
0AkA163O 
DARA1640 
DARA1650 
DAPil660 
0ARA1670 
DARAI6Q0 
DAFfll690 
DARA1700 
0AfiAI710 
OAt. £1720 
DARA1730 
DARA 1740 
DflRAl750 
DARA1760 
DARA1770 
DARA1780 
0ARA1790 
OAHAieCO 
0ARA181C 

0ARA1820 

0ARA1830 

0ARAI840 

OARAIB50 

0ARAIB60 

OARAIBTO 

DARA16P0 

DARA1890 

DARAigOO 

0ARA1910 

DACA1920 

DARA1930 

OAR A 194 

OAFA1950 

0ARA1960 

0ARA1970 

0APAI980 

DARA1990 

DARA2000 

0AFC20I0 

DARA2020 

DARA2030 

0ARA204(1 

DARA2050 

DARA2060 

DARA2070 

0ARA208D 

0ARA2090 

DflRfi2IO0 

OA«A21I0 

DARA2120 

DAPA2130 

DARA2140 

OARA2150 

OAR A2160 

OARA2170 

DAaA2180 

DACA21S0 

DARA2200 

0ARA2210 

DARA2220 

DARA2230 

OAaA2240 

0ARA2250 

OARA2260 

0ARA2270 

0ARA2280 

DARA2290 

DARA2300 

[>ARfle310 

DA,RA2 320 

DARfl2330 

0ARA2340 

OARA255C 
0ARA2360 
DARA2370 
OARA2380 
DARA2390 
0ARA2400 
DARA24L0 

mmid 

0ARA2430 
0ARA2440 
DARA2450 
0ARA246C 
DARA2470 
DARA24aO 
DAftA2490 
OAR A2 500 

DARA2510 

DARA2520 

0ARA2530 

0ARA2540 

OARA2550 

0ARA2560 

DARA25T0 

DARA25eO 
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SUBROUTINE OfHAT 



OfRA 

0F=5 

DFRA 
Offtk 
OfRt 

S USEO FOB HANDLING Cf 0*Tft awC FUNCAfE«JT«L FUhCT ICNSDf R* 



TH RATIONAL APPROKIflAF ION. IT IS * JU9SIA»^TUL PARI OF DFRA 

RflriCJNAl. APPRCKIMATIOM ANO t-*S NH YEAN INC I NOE PF^DENTL Y DFRA 

Df«A 

U-iAGF D*RA 

CALL OFRATn.N»H,P,DATI ,WG1 .IE"! DfPA 

DFRA 

DfSCPK^IICN PF PA^AMFTEHS DFPA 

: - SUfcSCRIPT OF CURFEUT OAT* PCU.T 0F= « 

K - NUHPtC OF ALL OAIA P0IMT5 DfRA 

M - NU^^eff OF FUNDAMENTAL FUNCTIONS USED OFRA 

P - ARRAY ?F CIHfNSirH y+1 AT LEAST. kHiCH CCNTdlNS DFRA 

CN RtTUaN THE VALUtS CIF THt H FUND*NEKTAL D^HA 

FUNCTIONS. FOLlOtaElJ PY CURItNT FUNCTI^^ VALUE PFRA 

P fAJSI **? OF OOtlflLe PRiJCISION OF^A 

3AT; - ARRAY COf»T-IMNG r.IVtM N ARGUMENTS, FPLinwED OFRA 

ev N rUNCTION VALUtS AND FINALLY 6Y I Hf SPf CT I VELY D^^A 

N WEIGHT VAL1JE5 CF^* 

OATI ^^UST PE UF DCUeiE PRECISEDN OFRA 

Wf^I - RESULTANT W^f&HI FACGR UiED rO"^ I-TM "tRA Cr«A 

WGT MUSI Ft OF OnuBLF PRFCISIOK' DFRA 

IFR - RESULTANT E-tROR Pf-Klif-fJlf^, C0M6INF}) WjTh SN^UT OF^A 

VALUti Fi'P CONTROL Df-oA 

IEP(2I KfttNS 5IHf\SICiN Of NUMERATOR DF«A 

IER(?I MEANS OIME'JCIPN OF OENO«INATPR DFRA 

lERtH I'i UJED AS PESULIANT crtROR PARAMftR. D'^<'A 

lE'^dl = IN C«SE Of N'j ERRORS D''RA 

lERdJ => 1 OTHERk-lSE I7ER0 DE\OMINATCP) 



REMARKS 

VFft.R IE? IS usee FJ« CCM-UNICATION BETWEEN 

SUSROUIfME!; AND FUNCTION SJflP^CG^A'^S REQUIHfO 
JCNP 



Cf. MATHEMATICAL DESC^^PTIC^ OH iUilHOUTINE ARAT 



OF»A 
DFCA 
CFRA 
AT ANO CFRAIOFCA 
DFRA 
DFRA 
OFRA 
DfCA 



ICO 
110 
L20 
l?0 
I'tO 
1^0 
160 
170 

lao 
l'»0 
?co 

210 
??0 
2JP 
?40 
2^0 
260 
270 
260 
?■>"> 
300 
310 
3?0 
350 
^t,0 
^50 
3ftO 
3'0 
3A0 
3<»0 



SUSROUTINE OFPATlI.N.M.P.OATI.WLlI.iei^l 



OlMfiNSnNEO DUMMY VARIABLES 
DIMENSION P t U.OAIK II, iER( I) 
DOUBLE PRECISION P.OATI ,WGT,T ,F,FNUM,FDEN 

INITIALIZATION 
I=>1E5(2I 
IO-IFil( 3> 

I3M1=I0-1 

IPi}=IP*|Q 

LOOK UP ARSUMEMT, FUNCTION VALUE *ND HEIGHT 

LOOK UP NUMERATOR AND DENPMI^ATCR 
f^OAIK I I 
J=l + N 
F^OATIIJI 
FNU«-P<J) 
J=J*N 
WGT=1.00 
IFI0Ar||2«N+i) i2,2, I 

1 tfGT=0*TI(Jt 

2 FDeN=PlJ> 

CALCULATE FUNCTION VALUE USEO 
F=F*FDEN-FNUM 

CHECK Ff?R lEBC DENOMINATOR 
IFIF0EN)4t3,* 

ERROR RETURN IN CASE OF ZERO OSNOHINATOR 
i IERII)=1 
RETURN 

CALCULATE WEIGHT FACTORS USED 
<f WGT=WGT/(FOEN*FOEMI 
FNUM=-F^U«/FDEN 

CALCULATE FUNDAMENTAL FUNCTIONS 
J=I0M1 
IF|IP-I0)6.6.5 

5 J=IP-1 

6 CALL DCNPIPt 101 tT. Jl 

STORE WALUES OF DENDKINAIOR FUNOAMFNTAL FUNCTIONS 

7 IFI I3HII 10. 10,8 

8 DO 9 II^lWOMl 
J=I1*I0 

9 P( II l = P( J)*FNUK 

STORE FUNCTION VALUE 
10 PdPOUf 

NORMAL RETURN 
I6Bn>=0 
FETU^N 
END 



^AO 



OFo 
.DF=A *S0 

OF^A *60 
OFRA 470 
DF1A 480 
OFRA 490 
DF»A SOO 
OFitA SIO 
DFRA 5?0 
DF^A 530 
OFCA 5*0 
OFRA S-iO 
OFRA 560 
OFRA 5T0 
DFRA 590 
OF".* S90 
DFRA 600 
OFPA 610 
DFRA 620 
DFRA 630 
OFRA 640 
OFPA 650 
OFRA 660 
OFRA 670 
OFO a 6(>0 
OFRA frflO 
OFRA 700 
DF=A 710 
D»^-A T20 
OFRA 730 
D'^RA 740 
DfiA 750 
DfIA 760 
DPRA 770 
DFoa 780 
OFOA 790 

OFRA eoo 

D==A eio 
DFPA R20 
CFRA 830 
OFRA 640 
DFRA 650 
OFRA B60 
DFRA 870 
OFRA 6H0 
CFRA B90 
OFRA 900 
DFRA 910 
DF^^A 920 
DFRA 930 
OF=fi 940 
0f«A 950 
OFBA 960 
pFflA 970 
DFFA 980 
DFHA 990 
DFRAIGOO 
DPRAIOIO 
DFRA1020 
0FRA1030 
DFRA1040 



Subroutines APLL and DAPLL 

These subroutines set up the normal equations for 
a linear least- squares fit to a given discrete func- 
tion, APLL is a preparatory step for the calcula- 
tion of the least- squares fit. Normally it is fol- 
lowed by subroutine APFS, 

A user- coded external subroutine must be sup- 
plied to compute the values of the fundamental func- 
tions. 

1. Mathematical background 

Let f(x), gi(x), i = 1, 2, . . , m, and w(x) > be 
functions defined for x = xj, X2, • . , x^ (the Xj 

may be vectors as well as scalar s). The problem 
is to determine the coefficients Cj of the linear com- 
bination 



m 
p(x) - E c.g.(x) 
i=l ^ ^ 



such that 



r w(x^) (f(x^) - P(x, )) = minimum 



This problem leads to a system of linear equations 
AC = R, where C is the vector of unknown coef- 
ficients, A is the m by m symmetric positive 
definite matrix with elements 



a.j^ = E w(x.) g. (x.) g^ (x.) 



i=l 



1 J 



and R is an m-dimensional vector with elements 



r = E w{x.) f (x.) g (x.) 
J i=l 



(See APFS for detaUs.) 



Some remarks regardii^ polynomial approximation 
are in order. Use of monomials g.(x) = x^"l as 
fundamental functions results in a badly ill- 
conditioned coefficient matrix A. If Chebyshev or 
Legendre polynomials are used instead, the condi- 
tion of the normal equations is improved remarkably, 
provided the arguments have a sensible distribution 
(for example, are equidistant in the interval -1 to 
+ 1). 
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2. Programming considerations 

To allow for full flexibility in data handling, the 
user must provide an external subroutine that 
returns the values gj(xj) , g2(xj), . . . , gni(Xj), f(xj) 
stored in a vector P together with the weight value 
w(xj). Input values to this subroutine are the cur- 
rent subscript value i, a number of points n, and — 
for ease of communication between main line and 
external — a dummy array named DATI. 

Coefficient matrix A and right-hand side R are 
allocated adjacently. A is stored columnwise in 
compressed form, and R is augmented by one 
element ff in which the weighted square sum of 
function values is returned. The coefficient matrix 
A, ri^t-hand side R, and square sum of function 
values ff are generated in a loop over i from 1 to n. 
Initially they are set to zero. 

Storage allocation scheme: 



w(x.) 




f (Xi) 

Triangular array WORK Vector P of Weight 
of dimension m+1 by m+1 dimension m+1 WGT 

For updating of the j^ column of the triai^ular 
array WORK, the j**^ element of vector P is multi- 
plied by the weight WGT, giving AUX and then P(i). 
AUX is added to the i*^ element in the j™ column of 
WORK for i equal 1 up to j. 

In this way the coefficient matrix A, the right- 
hand side R, and the square sum of function values 
are generated quite naturally by one and the same 
scheme. 

a. External subroutine for data handling 

iTie error parameter lER may be declared as 
scalar (that is, vector with one element) or vector 
in the user's main line. Within APLL it is treated 
as a vector with one element. 

lER(l) is used for control purposes. If lER(l) 
is set to a nonzero value within the external sub- 
routine, APLL returns to the calling program 
(main line), with an unchanged value of lER(l). 



APLL sets the error parameter lER(l) to zero at 
the beginning. An error return with lER(l) = -l 
is activated if n and m are not both positive or if n 
is less than m. 

The user has full flexibility for handling of the 
dataxi, f(Xi), w(xi), gi(Xi) gni(Xi). 

(1) If he wishes to allocate Xj, f(xi), w(Xi), 
gl(xi), . . . , gm(xi) in main storage, he may use 
an array the name of which replaces the dummy 
DATL 

Integer values needed for addressing may be 
inserted as additional components in the vector 
EER. 

(2) Use of COMMON is another possibQity for 
data exchange between the main line and the data 
handling external subroutine. 

(3) Calculation of some or all of the required 
quantities as functions of the subscript or as func- 
tions of the argument Xj is another convenient 
choice. 

(4) The needed data may be read in sequentially 
from one or more external devices, for example, 
x^, f(xj), w(xj) from card unit, and/or gi(x.),. . . , 
Sm(xj) from tape unit. 

The four cases listed above may occur in any 
sensible combination. 



SUBROUTfNE APLL 

PuePnSE 

SET UP NORMAL EQUAT IQIMS FOR A LINEAR LEAST SQUARES FIT 
TO A GIVEN DISCRETE FUNCTICh 

USAGE 

CALL APLLIffCT,N,IP,P,HORK,DATI.[€R) 
SUBROUTINE FFCT ftCOUIftES AM EXTERNAL SUTgngNT 

0ESC«1PTI0N Of PARAMETERS 

FFCT - USER CODED SUfiROtTINE WHICH MUST BE OECLAR£0 
EXTERNAL IN THE MAIN PROGRAM. IT IS CALLED 
CALL FfCni.N.IPtP.OATItMGTtlER) AND RETURNS 
THE VALUES OF THE FUNDAMENTAL FUNCTIONS FOR 
THE I-TH ARGUMENT IN t>(l) UP TO PdPl 
FOLLOhEO 6Y THE I-TH FUNCTION VALUe IN P{IP+ll 
N IS THE NUMBER CF ALL POINTS 

OATI IS A DUMMY PARAMETER WHICH IS USED AS ARRAY 
NAHE. THE GIVEN DATA SET MAY BE AUDCATED IN OATI 
WGT IS THE WEIGHT FACTOR FOR THE I-TH POINT 
Il-R IS USED AS RESULTANT ERROR PARAMETER IN FFCT 

N - KUMBtR OF GIVEN POINTS 

IP - NUHBCR OF FUNDAMENTAL FUNCTIONS USED FOB LEAST 

SQUiOfS FIT 
IP SHOULD NOT EXCEED N 

P - WORKING STORAGE OF DIMENSION IP*-l, WHICH 

IS USED AS INTERFACE BETWEEN APLL AND THE USER 
COOED SUBROUTINE FFCT 

WORK - riCRKING STORAGE OF DIMENSION ( IP* 1 1* ( I P*2 1/2. 

ON RETURN HDRK CONTAI\|S THE SYMMETRIC COEFFICIENT 
MATKIX Of THE NORMAL EQ'JATIONS IN COMPRESSED FORM, 
I.E. UPPFB TRINGULAe P »P T ONLY STOFEO COLUMNWISE. 
THE FOLLOWING IP POSITIONS CONTAIN THE RIGHT 
HAND SIDE AND WORK ( 11 P*l ) •UP*2 I /2» CONTAINS 
THE t.£IGHTEO SQUARE SJM OF Th; FUNCTION VALUcS 

OiTI - DUMMY EhTRY TO COMMUNICATE AN ACPAY NAME BETWEEN 
MAIN LINE AiNf) SU^SOUTlNf^ FFCT. 

ItK - RESULTING Et^ROR PA^AMrTCR 

IE« =-l MEANS FORMAL ERRORS IN SPECIFIEO OIHENSIONS 

lER - 1) MEANS NO FRRQHS 

lER = 1 MEANS 6 = P0P IN t-KTEDNAL SUPRGUTINE FFCT 



TO iuoH nR e4sr c-^HminicAiwn of iHKQtH ML(/c5 

SETWrEN MAINLME iNO FXTP'^N^L SUSPQUTlNE FFCT, THE E.^ROC 
PARAA-FTSR le-^ IS TREATcO AS A VECTOR OF DIMENSION I WITHIN 
SuaftJuriNE APLL. AOOiriONAL COMPONENTi OF |ER MAY dE 
rMr-^TOUCEO IV the USE'? for communication 9*CK AND FOflTH. 
IN THIS CAS-, r<aWEVER, THt US=R AU^T SPECIFY I £P AS A 

vccrpfi IN HIS mainline. 

EXfCt'TIUN Of SUflKCUTINE APLL IS A PBEPARATCRY STE" FOR 

CALCI.LATION Of THE LINEAS LEAST SQU1RFS FIT. 

NG^MALLV IT IS FlLLOwdC 6Y tXECUTUN OF SUeROUTI.NE APFS 

SUS'^OUriNES ftND FO.^CTIO'y SUBP-iCGRAMS REaOiREO 

THE EXTERNAL SUBKOUT irJE FFCT MUST BE FURNISMFD 3¥ THI! USER 

METHOD 

HANDLING OF THE GIVFN PAIA SET ( S')GUMEN T S, FUN-" T |JM VALUES 
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100 
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APLL 


190 


APLL 


203 


APLL 


210 


APLL 


220 
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320 
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360 


APLL 


3Tt> 


APLL 
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400 


AFLL 


410 
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420 
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4 30 


APLL 


440 
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450 
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460 


APLL 


470 


m m 


APLL 


490 


APLL 


500 


AfLL 


510 


APLL 


520 


A^LL 


530 


APLL 


540 


APLL 


550 
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570 
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IS CU»i>L£ItL'' cE'^r TD THt USe« 
H4^ THREE tHOICf:^ 



AN J WEIGHT 



TNE I-TH VfttUES OF AH&UMENT, FUNCTION VAtU' 
A" E CALCULATED WITHIN SJBPJUTINE FFCT FO-i f.I VcN I. 
THE 1-TH V4LUES OF AAGOlENT, fUNCTlQN VALU: "NO nEIGhT 
«aE DETF-^HINED 3V TABLE LOOK U?. THE STa«aG£ L^CATIOMS 

^EaiiiReD Ase allocated hi thin thf dijmhy arsa^ oati 

(POSSIBLY IN P TOOt I^ EXCESS DF THt SP^CIFIE) If ♦ I 
LOCATIONS). „ ^.,^ 

ANOTHER PCSSiaiLirv KOUcD 9E TO USE COMMON AS INTEBFACE 
e = TWE€N MAIN LINE HHC SJei<nuriNE l^FCT ANC TT ALLOCATE 
STORAGE fC^ THE CATA SET IN COMMON. 

THE I-TH VALUES Of A'«U*<F'^T, FUNCTION VALU^ 5ND WEIfHT 
ASE REAb IN fHC^ AN EKltR^AL OEVICe. THIS -^Av RE EASILY 
aCCO^',PLlS^'eD SCICE I IS USiD STRICTLY INCSEAilNS FftTM 
ONE UP TC ^ WITHI^ APLL 



SU6fiOUTl^;; ACLL{ft=CT,N.R.PiK':'«K,DAri,IcR) 



LIMEVStC'NtO OUf-hV WfPlABLfS 
DI WENS I OK ,= I U.hCPKI K.CATHll.IE'.I U 

CHECK Fr>) FD*-MAL ESPOFS IN SPECIFIEU DIMENSIONS 
IF INHC, 10. I 

1 IF [ IP) 16,10. 2 

2 If IW-IPHO.3.3 

SET ^aSKING SICRAGt AND RIGHT H4N0 SIDE TG ZEPC 
? 1PPI=1P*1 

M=IPPi»( IP-.?!/? 

lEPdl^C 

DO '• I = l.'^ 

t, WO«K( I )^''. 

START GREAT LOOP OVEfi ^.L L GIVEN POINTS 

ro ". I = : . M 

CALL FFCT(I,K.I?.P.L'4TI,KGT,ltR) 
IFUERt II 19, 5,9 

5 J=0 

DO 7 K=l . IP^I 

fiUX=PIK (•■rf&T 

DO h L=l .< 

J = J<-1 
t hC^K( J|-WOK<U 1*P(L J*AU>f 
7 rCNTINU*^ 

Q CONTINUE 

9 RETIJfi^J 

bRR^R RETURN IN CASE OF FCRMAL ESR^jaS 
10 IER(11=-1 
Rf TURN 
ENO 



APLL 6'>0 

APLL 650 

APLL 6b0 

«PLL 6 TO 

AOLL 680 

APLL 6'30 

APLL ?00 

APLL 710 

APLL 720 

APLL 730 

APLL 7*0 

APLL 750 

APLL 760 

APLL 7T0 

APLl 7ao 

APLL 79P 

;iPLL eoo 

.APLL 610 

ftPLL ^^0 

APLL 830 

JPLL B*0 

APLL 650 

APLL fiftO 

APLL 670 

fipLL eao 

APLL S'iO 
APlL •'00 
flPLC "»10 
APLL 920 
APLL 910 
APLL 9*0 
APLL 9?10 
APLL 960 
APiL 970 
APLL 9SD 
APLL 990 
APLLIOOO 
AOLllOlO 
APLLlOPO 
APLL 1030 
APLLIOOO 
APLLIOSO 
APLLlOhO 
APllIOTO 
APLLlOflO 
APLL1090 
APLLl lOfl 
APLLIUO 
A^LLll^O 
APLLl 1 JO 
APLLtl'^O 
APLLlI^O 
APLLl 160 
APLLU70 
APLL1190 
APLLl 190 
APLLU03 



METHCO 

HANDLING OF THf Cl>/eN DATA SET ( OPGUMi.MTS.f UNC TICN VALUES 
Af.0 WEIGHTS) IS COMPLETtLY LEFT TD THE USER 
ESSENTIALLY H£ HAS THREE CHCIICFS 



I 1) 



121 



THF I-TH VALUtS OF ARGUMENT, FUNCTION VALUE AhO WEIGHT 
ISE CCCULATEO WITHIN SU?iPOUTI«E FFCI FO^ C'\\€K I. 
THE I-TH VALUtS OF ARGUMENT F«NCIION VALUS AND t^EICHT 
ARe DETtBKINED BY TAELE LOOK Of. THE STORAGE LOCATIONS 
"EQUIR^O ARE ALLOCATED WITHIN THE DUMMY Afi-tAY DATI 
(POSSIELV IN ? TOO, IN EXCESS OF ''HE SPECIFI60 IP * I 
LOCATIONS] . 

Af.OTHCP PDSSieiLIIV WOULD &^. TO USE COMMON AS INTERFACE 
BETWEEN MAIN LINE AMD SUS'^nUTIHE rFCT AND Xr ALLOCATE 
STCRACe FOR THE DATA SET I,'J COt^MON. 
(31 THE I-TH VALUES OF AfGUKENT, FUNCTION VALUE AN? WEIGHT 
ARE REAO IN FPOH AN EXTERNAL OtVlCE. THIS MAY BE EASILY 
ACCOMPcrSHED SINCE I IS USEO STRICTLY INCaEASING FROM 
C^f UP rr H WITHIN APLL 



SUBROUTINE OAPLHf fCT.N, IP.P.HCK' 



DIMENSIONED OUMHV VAStAELES 

^llM^t;slrJ^ P( i) .kcpki 1 1 .oath II ,IFRI U 

DOUeLE PRtCISlCN p, WORK , DATI ,kC-T ,AUX 

CHECK FOR FORMAL ERRCRS IN SPECIFIED OIHfNStONS 
IFINllO. :0)1 

1 IFl IP) 10, 10,2 

2 IF(N-IP110.3,3 

SET WORKING STORAGE AND RIGHT HAND SIDE TC ZERP 

3 JPPl=|P*l 
M=IPPl*(lP*2)/2 
!£"( 11=0 

DO * 1=1. M 
* WORKtl )=0.00 

STACT 5PEAT LOCP OVEF ALL GlVtN POINTS 
DO a I=l,N 

CALL FFCT( l,N, lo.P.OATI .V*GT,!ER1 
IF(lf_(i( in'J.5,9 
1 J=0 

on 7 K=l, TPPl 
AUX = P(KI«WC,T 
UQ 6 L=l.K 
J=J» I 

6 WOPK(J)=WOSK(J1+P1L)*AUX 

7 CONTINUE 
R CONTINUF 

NORMAL RETURN 
9 RETURN 

FRftCH RETURN (N CASE Of FCRMAL ERROR? 
10 IE«(U=-1 

PETURN 
ENO 



OAPl 640 
OAPL e50 
OAPL 660 
HAOL fcTO 
OAPL 6^0 
OAPL 690 
DAPL TOO 
OAPL 710 
OAPL 720 
OAPL 710 
OAPL 740 
OAPL 7'iO 
OAPL 740 
OAPL 7 70 
OAPL 780 
OAPL 790 

DAPL eoo 

OAPL 810 
DAPL 8Z0 
DAPL a30 
.OAPL B40 
DAPL 850 
e*PL 36i3 
OAPL 970 
DAPL BflO 
CAPL 890 
OAPL 900 
DAPL 910 
PAPL 920 
OAPL 910 
OAPL 940 
OAPL 9sn 
OAPL 950 
OAPL 97 
OAPL '7S0 
DAPL 990 
DAPL 1 000 
OAPLlOlO 
D/PL1020 
DAPL1030 
DAPL 1040 
OAPL1050 
OAPL 1060 
DiPllOTO 
DflPl 1010 
0APtl09O 
OAPLIIOO 
DAPLIllO 
OAPLl 120 
OAPLIUO 
DflPLll40 
0APL1150 
DAPLI160 
DAPLI170 
0«PL1180 
OAPL 11 90 
0APL1200 
0APL1210 
OAPL1220 
DAPL1210 
OAPLL240 



SUBROUTINE OAPLL 
PU'PQSt 

SET UP NORMAL EOUATIONS FOR A LINEAR LEAST SOUARtS FIT 

Tn A GIVEN 01SCRET£ pu^CTICN 



dS£H 



P»?)/2. 
nCEFFICI^KT 



U^fGE 

CALL 06PLHFFCI»N.IP,PfH2RK 
SJ5RQUTINE FFCT HfiOUtaES AW 

DESC=PT10N 0* PA«AMETEC5 

FftT - USER CODED SUBROUTINE rfHiCH MUST RE DECLARED 
EXTERNAL 1^ THE MAIN PROGRAM. JI IS CALLED 
CALL f F£T( l,N, IP.P,DATI.»<GT,ItHI AND RtTUilSS 
THE VALUES OF THE FUN^A-IZNTAL FUNCT1C\^ Fa*^ 
THE I-TH ARGUMENT IN Ptll UP TO PdPl 
FLLLcWEO BY THE l-IH FUNCTION VALUE IN "(IP+ll 
N IS THE NUMftEP CF ALL "GINTS 
P, OAT], MOT MUST SE OF OOUBLE PRECISION. 

OCT] IS A DUMMY Pft = 6f'ETE« WHICH IS USED AS AkKAY 

NAME. THE ilVEN CATA SET MAY bE ALLuCATEC IN CATI 

wr.l IS THt WEIGHT FACTO? FOR THE I-TH PniNT 

lER IS USEO AS RESULTANT FRRO« PARAM-^TFR IN CFCT 

N - NUPtlFF OF GIVEN POINTS 

IP - NUHRER OF FUNOAMENIAL FUNCTIONS USEO E0« LEAST 

SCUARES FIT 
IP S-^ruLO SOT EKCFE) N 

p - HCKM^5 SlQtAGE OF OIM^NSION 1P*1, ^H"' 

IS USE3 t< INTERFACE T;TWEEN AVLL ANO 
CCOEIJ SUBROUTINE FFCT 
P "UST BE OF Of'JSLF ?»Ci,l5I0N. 

H^-'< - WCR^INO STORAGE 0? 01 >i:^f,SlL'N (IP*1)*I 
PN FETURN WORK TONIMmS THE SYMMETRIC 
MATRiX OF THE NDRi-IAL riJlJAIlCNS IN CC'VP'^f SS-rT FORM, 
T r u^PEP TRINGULAk P AF 1 CNL^ STHREC CCLljMNwISE. 
THE fJLLOWlNG IP POSPiCNS CONTAIN TH^ RLiHT 

HANC S'D^ ANQ WCF". I I If-'l l*l IP*i'l/2l CfNiai\S 

Th*t w^ICHlLO SQUARE SUM OF THE FUNCT1"N VALUtS 
WC-'K MUST e.C OF OrudLC- PRECISION. 

Ot.-l - CU-«iy ,NTF.V to ^.•-■^rf-l;^lICtTf AN AP5AT NAMJ - = TWEEN 

MAI*. I [NE ANC ^UR=C1JT1NE FFCT, 
DATI MMSI Pe OF DOU?Lt PRECIS'ON. 
[fP - RESULTING ERROK PAR,l.M = TtR 

lER .-1 MEANS FORMAL ERRCBS IN SPtCIFlEO DIMENSIONS 

lER = MEANS NJ ERPDR^ 

Ifc = 1 MEftNS EKcnc IN EXTERNAL SUeROiJTINf ffCf 

rn .ULO^ FOR EASY COMMUN/C AT ION OF INTEGER VAlU^' 

afTyfFM fiiriNLINF 'NO EXTEI'ML 5L"irOUTiNe FFCT. 'nF €t^C^ 

OA-JAMETER 1L1 IS IRfcATE'J iS A VECTOR CF DIMiiNSION I WITHIN 

SUS'(OUTINE [>APLL. ADO IT lONAL CC.-PONENTS OF 1 ET MA-/ Qf 

It'iF.<ODUCED PV THE USER FOR COMMON ICAI 1 UN BACK AND FORTH. 

1^ THl^ CASE. HOWEVER. ^Hf USf MUS"^ SPECIFY Jr<^ AS 

VFCTUP IN HIS laiNLINE. 

EXECUTION OF SJBRflUTII^E OAPlL IS A PREPARATORY ST£P FOR 

CALCULATION or .HE LINEAR LEAST SOUARFS FIT. 

NtlRCALLY IT IS PGLLOHEO GY tXiCUTION CF 5UHRCUT 1 \£ DAPf S 

SUR'ObTl\£S AND FUNCTION SU'^*^ROOR ArtS REOUfcO 

THE eKTeR^A^. SUBRCUTINE ffC.T MUST HE FuRNIShFD PY THE USER 



DAPL 
.OAPL 
OAPL 
OAPL 
DAPL 
DAPL 
DAPL 
Oi^PL 
CAPL 
DAPL 
OAPL 
OAPL 
DAPL 
OAPL 
OAPL 
OAPL 
DAPL 
OAPL 
DAPL 
OAPL 
OAPL 
DAOL 
DAPL 
CAUL 

PAPL 

Cfl»L 
OAOL 
OA'JL 

OAPl 

PA^L 

OAPL 

OAPL 



PAPL 

OAPL 
DAPL 
OAPL 
OAPL 
OAPL 
CA-^L 
DAPL 
PAPL 
OAOL 
CAPL 
OAPL 
Dfl»L 
DAPL 
DAPL 
OAPL 
DAPL 
OAPL 
OAPL 
DAPL 
OAPL 
OAPL 
DAi'L 
DA^L 
DAPL 
OAPL 
OAPL 
DAPL 
OAPL 
DAPL 
0A'>1 



100 
110 
120 
130 
140 
150 
160 
170 

ino 

IfO 
20C 
210 
220 
230 
240 
.'50 
260 
270 

2eo 

290 
300 
31C 
320 
330 
540 
350 
360 
370 
3^0 
^490 



500 

510 
520 
5 30 
540 
550 
560 
570 
580 
590 
600 
610 
620 
f ?0 
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Subroutine FORIF 

This subroutine produces the Fourier coefficients 
for a given periodic function. 
Given: 

1. A function f (x) for values of x between 
and 2 IT 

2. N - the spacing desired such that the interval 
is 2ir/(2N + 1) 

3. M - the desired order of the Fourier 
coefficients, < M < N 

the coefficients of the Fourier series that approxi- 
mate the given function are calculated as follows: 



C =cos (^^) 
1 \2N+1/ 

V2N+1/ 



«1 


= sin 


^2 


= 


S 


= 


C 


= 1 


s 


= 


J 


= 1 



(1) 

(2) 



The following recursive sequence is used to com- 
pute Uq, Ujl, and V^: 



"o = '(IS) -«"r". 



(3) 



^2 = ^1 



^1 = ^0 



for values of ra = 2N, 2N-1, . . 
The coefficients are then: 



The values of C and S are updated to: 
Q = C^ C - S^ S 



(4) 
(5) 



J is stepped by 1 and the sequence starting at equa- 
tion (3) is now repeated until M+1 pairs of coeffi- 
cients have been computed. 



SUBROUTINE FORIF 

PURPOSE 

FOURIER ANALYSIS OF A G!V€N PERIODIC FUNCTION IN THE 
RANGE O'ZPl 

COMPUTES THE COEFFICIENTS OF THE OESIREO NUH6ER QF TEftHS 
IN THE FOURIER SERIES Fl XI -A<0>«SUM( A(K>C0S KX*BIK)SIN KXI 
WHERE H»l,2,..,,« TO APPROltlHATE THE COMPUTED VALUES OF A 
GIVEN FUNCriON'SUePROGRAN 

USAGE 

CALL FORIF<FUNtN.M,A.a,IERI 

DESCRIPTION OF PAftAHETERS 

FUN-NAME OF FUNCTION SUfiPROOftAM TO BE USED FOR CONPUTING 

DATA POINTS 
N -DEFINES THE INTERVAL SUCH THAT 2N+1 POINTS ARE TAKEN 

OVER THE INTERVAL lO.ZPII. THE SPACING IS THUS 2PI/ZN*I 
N -THE MAXINUH ORDER OF THE HARMONICS TO BE FITTED 
A -RESULTANT VECTOR OF FOURIER COSINE COEFFICIENTS OF 

LENGTH H4-L 

A SUB Ot A sue 1...., A SUB N 
8 -RESULTANT VECTOR OF FOURIER SINE COEFFICIENTS Of 

LENGTH M*l 

a SUB Or B sue l..... b sub m 

IER-RESUlTanT error CODE WHERE 
tER-0 NO ERROR 

IER=1 N NOT GREATER OR EQUAL TO M 
IER-2 M LESS THAN 

REMARKS 

H MUST BE CRcATER THAN OR EQUAL TO fEHO 

N MUST BE GREATER THAN J« EQUAL TO M 

THE FIRST ELEMENT IN VECTOR B IS ZEUO IN ALL CASES 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

FUN-NAME OF USER FUNCTION SUBPROGRAM USED FOR COHPUTING 

DATA POINTS 
CALLING PRQG«AM MUST HAVE FORTRAN EXTERNAL STATEMENT 
CONTAINING NAMES OF FUNCTION SUBPROGRAMS LISTED IN CALL TO 
FORtF 

MEIHDO 

USES RECURSWE TECHNIQUE DESCRIBED IN A. RALSTON. H. NILF, 
'MATHEMATICAL METHODS FOR OICITAL COMPUTERS', JOHN MIL6V 
AND SONS, NEW rORK, 1963. CHAPTER 2*. THE METHOD OF 
INDEXING THRDUGH THE PROCEDURE HAS BEEN MODIFIED TO 
SIMPLIFY THE COMPUTATION, 



FRIF 
FRIF 



*0 



90 



SUBROUTINE f ORlf I FUN. N,M, A, B, lER I 
DIMENSION A(LI.B(lt 
C 

C CHeC«C FOR PARAMETER ERRORS 

C 

lER'O 
2C IFIMl 30.40.^0 
30 IER-2 

RETURN 
40 IF(H-N) 60(60(SO 
50 IER=l 
RETURN 
C 

C COMPUTE AND PRESET CONSTANTS 

C 

60 AN*N 

CQEF«2.0/(2.0*AN*1.0> 

C0NST=3.14I593*C0EF 

Sl=SfN(CONSTI 

CI-COS(CONSTI 

C"l.O 

S>:0.0 

J'l 

FUNi"F0N<0.3) 
70 U2»0.0 
Ul-O.C 
AI-2*N 

FORM FOURIER COEFFICIENTS RECURSIVELY 

75 x-Ai*caNsr 

U0=FUNU(»*2.0*C*Ul-U2 

U2 = UI 

Ul-UO 

AI-AI-l.Q 

iF(Aii ao.ao«T5 

80 A(JI>C0EF*(FUN2*C*JI-U2t 
8< J)-C0Ef*S«Ul 

iF(j-<H4in 90,100.100 

90 Q«CI*C-Sl*S 
S=CI«S+S1«C 

C»Q 
J=J»I 
SO TO 70 
100 ACll=AIU*0.5 
RETURN 
END 



FRIF 50 
FRIF 
FRIF 
FRIF 
FRIF 
FRIF 100 
FRIF UD 
FRIF 120 
FRIF 130 
FRIF 1*0 
FRIF 150 
FRIF 160 
FRIF 170 
FRIF ISO 
FRIF 190 
FRIF 2O0 
FRIF 210 
FRIF 220 
FRIF 230 
FRIF 240 
FRIF 250 
FRIF 260 
FRIF 270 
FRIF 280 
FRIF 290 
FRIF JOO 
FRIF 310 
FRIF 320 
FRIF 3 30 
FRIF 3*0 
FRIF 350 
FRIF 360 
FRIF 370 
FRIF 380 
FRIF 390 
FRIF *0D 
FRIF 410 
FRIF 420 
FRIF 430 
FRIF 440 
FRIF 4S0 
FRIF 460 
FRIF 470 
FRIF 480 
FRIF 490 
FRIF 590 
FRIF SIO 
FRIF 520 



...FRIF 530 
FRIF 540 
FRIF 550 
FRIF 560 
FRIF 570 
FRIF 580 

FRIF 590 

FRIF 600 
FRIF 610 
FRIF 620 
FRIF 635 
FRIF 640 
FRIF 650 
FRIF 660 
FRIF 670 
FRIF 680 
FRIF 690 
FRIF 700 
FRIF 710 
FRIF 720 
FRIF 730 
FRIF 740 
FRIF 750 
FRIF 760 
FRIF 770 
FRIF 780 
FRIF 790 
FRIF 800 
FRIF 810 
FRIF 820 
FRIF 830 
FRIF 840 
FRIF 850 
FRIF 863 
FRIF 870 
FRIF 880 
FRIF 890 
FRIF 900 
FRIF 910 
FRIF 920 
FRIF 939 
FRIF 940 
FRIF 950 
FRIF 960 
FRIF 970 
FRIF 980 
FRIF 990 
FRIFIOOO 
FRIFIOIO 



S 

C = Q 



C S + S C 
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Subroutine FORIT 

.This subroutine produces the Fourier coefficients of 
a tabulated function. 
Given: 

1. Tabulated values of a function f(x) for x 
between and 2irin steps of 2ir/(2N+ 1) 

2. N such that there are 2N+ 1 tabulated data 
points: 2Kir/(2N+ 1), K = 0, 1, 2 2N 

3. M - the desired order of the Fourier 
coefficients where < M < N 

the coefficients of the Fourier series which approxi- 
mate the given function are calculated as follows: 



C = COS 


(2n\ 
\2N+1/ 


S = sin 


/ 2.\ 
\2N+1/ 


V^ = 




u^ = o 




C = 1 




S =0 




J = 1 





(1) 

(2) 



The following recursive sequence is used to com- 
pute Uq, Uj, and Ug 



^ /^mjr_\ ^2^u, 
V2N+iy 1 

^2 = ^1 



^1 = ^ 



for values of m = 2N, 2N-1, 

The coefficients are then: 
2 



(3) 



J 2N+1 
2 



(m-cv^-u^) 



^J '2N+1 



S U, 



(4) 
(5) 



j is stepped by 1 and the sequence starting at equa- 
tion (3) is now repeated until M+ 1 pairs of coeffi- 
cients have been computed. 



SUBROUriNE fDRir 

PURPOSE 

FOURIER ANJILVSIS OF A «RIOOICALLY TABULATED FUNCTION. 
COMPUTES THE COEFFICIENTS OF THE OESIREO NUMBER OF TERHS 
IN TH£ FOURIER SeRIf-S F< X» ''AiO^SUM AlK ICOS KX+61KISIN KX) 
WHERE K-L.2,...,M TO APPROXIMATE A CIVEN SET OF 
PERlOOICAtLY TABULATED VALUES OF A FUNCTION. 



USAGE 

CALL FORIT(f»IT, 



N.MfA.BilER) 



DESCRIPTION OF PARAMETERS 

FNT-VECTOR OF TASULATED FUNCTION VALUES OF LENGTH 2N+1 
N 'DEFINES THE INTERVAL SUCH THAT 2N«I POINTS ARE TAK€N 

OVER THE INTERVAL lOiZPI). THE SPACING IS THUS 2P1/2N* 
M -HAKIMU1 ORDER OF HARMONICS TO 6E FITTED 
A -RESULTANT VECTOR OF FOURIER COSINE COEFFICIENTS OF 

LENGTH N*l 

A SUB 0, A SUB L*...« A SUB M 
B -RESULTANT VECTOR OF FOURIER SINE COEFFICIENTS OF 

LENGTH H* I 

e SUB 0. B SUB I B SUB M 

lER-RESULTANT ERROR CODE MHCR6 

lER'O NO ERROR 

ieil=L N NOT GREATER OR EQUAL TO H 

IER«2 H LESS THAN 

REMARKS 

n MUST BE GREATER THAN DR EQUAL TO ZERO 

N MUST BE GREATER THAN JR EQUAL TO It 

THE FIRST ELEMENT OF VECTOR 9 IS ZERO IN ALL CASES 

SUBROUTINES AND FUNCTION SUBPROGRAMS RCOUIRED 
NONE 

METHOD 

USES RECURSIVE TECHNIQUE DESCRIBED IN A. RALSTON, H. UILF, 
■MATHEMATICAL METHODS FOR DIGITAL COMPUTERS*. JOHN MILEV 
AND SONS, NEW VORK. 1963, CHAPTER 24. THE METHOD OF INDEXl 
THROUGH THE PROCEDURE HAS BEEN MODIFIED TO SIMPLIFY THE 
COMPUTATION. 



SUBROUTINE FORI Tl FNT.N.M, A, 6, lER t 
DIMENSION Alll.Bdl ,FNT(ll 

CHECK FOR PARAMETER ERRORS 

lER-O 
20 1F(M> S0.*0,*0 
30 lER-2 

RETURN 
^0 IFIH-NI 60*60.50 
50 lER-l 

RETURN 

COMPUTE AND PRESET CONSTANTS 

60 AN=N 

C0EF«2.0/(2.0*AN*1.01 

C0NST-3.141593*C0EF 

Sl^SINICDNSTI 

Cl^COSICQNSTl 

C = l.O 

S^O.O 

J*l 

FNTZ-FNT( II 
70 U2-0.0 
Ul'0.0 
I-2*N*-l 

FORM FOURIER COEFFICIENTS RECURSIVELY 

75 UO"FNT( I)*2.0*C*Ul-U2 

U2»Ul 

UL-UO 

1 = 1-1 

IF(l-l) 80,80,75 
80 A( Jl-C0EF*(FNTZ*C«Jl-U2l 

B(J)=CO£F*S*Ul 

IF< J-(N*H1 90,100, 100 

90 a-ci«c-si«s 

S-CI*S*S1*C 

C = Q 

J = J*l 

GO TO TO 
100 A( 1I«A( 1)*0.5 
RETURN 

END 



FRIT 
.FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
NGFRIT 
FRIT 
FRIT 
FRIT 
.FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 

FRIT 
FRIT 
FRIT 
FRIT 
FRIT 
FRIT 



LOO 
110 
120 
139 
1*0 
150 
160 
170 
1B3 
190 
200 
210 
229 
230 
240 
250 
260 
270 
2S0 
290 
303 
310 
320 
330 
340 
350 
360 
370 
3BD 
390 
400 

MO 
420 
430 
*40 
450 

460 

4T0 

480 
490 
500 
510 
520 
530 
540 
550 
560 
5T0 
580 
590 
600 
610 
620 
6 30 
640 
650 
660 
670 
680 
690 
TOO 
710 
720 
739 
740 
750 
750 
770 
780 
790 
600 
BIO 
820 
8 30 
849 
850 
860 
870 
889 
890 
900 
910 
920 
930 

940 



The values of C and S are updated to: 



Q = C^ C-S^ S 



S = C S + S C 



C = Q 
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Subroutines HARM and DHARM 



Then (3) can be written: 



Given three integers U^,v = 1, 2, 3 and a three- 
dimensional array of complex numbers A(ki,.k2, k3) 
where k^ = 0, 1. , , , , N^ -1 and N^ = 2M^ , this sub- 
routine computes the three-dimensional, complex 
Fourier series: 



X(j 



N^-1 N^-l N3-I 



•^(kj^ikgikg) 



where 



\^ Ni N2 ^3 I ^' 



j^ = 0,1 , Ny-landv = 1,2,3. 



The inverse series may also be computed: 



X(j 



M 



1' Ji'Jo^" ^ 2-j""2L/ 



'0=° h=' \i-i 



^(^M-i V^' 



.M-l 



\i-r\...v?-\-^ W 



Then w^ M-l =w^ M-l since e^'^'=l, 

and the innermost sum in (4) yields an array: 

1 

WV-2 V= ^ 



^(Vi-"V 



Jo-V-r2 



M-l 



A(k^.k2,k3) 



^ N^-1 N^-1 N3-I 

^f„*N„ Z-r 2-* 2-r 

Jl=0 3^=0 33=0 



^1*^2 ^-3 



^ (Jj^. Jgi J3) 



-2,ri 



V Ni^ N2 ^ N3 y 



(2) 



(5) 



Successive arrays A Ay. obtained by summing 

over kjyf_2, k^ respectively are computed. The 

general formula is: 

\{}q, . . . ,}^_y k^_L_i k^) 



/^ /l-1<V---'Jl-2'Vl V^ 



For one dimension, the algorithm for the complex 
Fourier transform of complex numbers A (k) is: 



N-1 

X(j) = 2-f A(k)w 
k= 



jk 



(3) 



2 7ri 

where w = e , N = 2^, j = 0, 1, 2, . . . , N-1 
expresses X(j) as a function of the M arguments 
Jm - 1 ' J M - 2 » Jl» Jq °^ ^^^ binary representa- 
tion of j : 



Ol-i-^'"— VVl^"-" 



(6) 



The final array will be the desired X. The storage 
indexing convention used is to let the M arguments 

of Al(jq, kg) be the binary representation of 

the index of the storage location for Al(jq, . . . , kg). 
In this way, each step of the algorithm involves 
fetching from two storage locations and returning 
results in the same two locations , thereby saving 
storage. However, the elements of the final array: 



X(j 



M-l" 



JrV = ^M<Vi'---'JM-i^ 



,M-1 



J"^M-1-^ ^ ••" ^h^^ ^0' K= '^o^l 



are in the wrong order. The program reverses the 
order of bits in bit representations to compensate. 
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A modification of the above algorithm is made for 
three dimensions, and another modification is made 
in the L-loop to save computations. 



FLVFCSE 

fttifCKPi ZliCfittt CCt-FLO 
1t-«E€ ClfElkClChn Kt»ty 



rCCRI£fl TOAKSfCkfS C^ A CCNPlCX 



(ill H»H li.^tlKVtS.IFSIIilf EDRl 

CESCFifllCK Qf f*(iiPftif< 

t - ti UPLl. A CChlilkS TfC CCI'PlfcK* B-C I^Ef S lONAL 

IliRll 1C eE rfl*h!FCitr£C. Tt-I: DEAL PtUT CF 
#(U*U.I3I 1£ SICOCU Ih WEC1CP FAShlCA IN A CELL 
hlTh IKCEX 2*(I3«M*»2 * 12*M * ID « 1 hH£fl€ 
M - 2«*f(ll» I>1«2»3 *hC II - Cfl....«r<|-| CTC. 
in IfAClAAItY Fiftt IS ]k It-C CELl lll#>ECIA1ELV 
FOLlChUC. tiCM Il-AT IF£ SC8SCBIPT U INCRtASES 
»'CSI DAPICLY AAC 13 INCREASES LEAST HAPIOIV. 
A< Ci.1PL1, A CCMAlhS !»•€ CCffLEU fOt«lf« 
TflAhSFCRf. ThE Kl.¥tfd CF CCRE LCCATKKS CF 
AfflAT A IS 2*U14»2*h3l 

» - $ M-ftft CELL VECTCR hHlCI- CEfEDFlhES I^C SUES 

CF Td 3 ClfEtSICHS CF ^t•t ARSAV A. Th€ SIZE* 
M. CF ThE I CI^EhSIC*. CF A IS Z****!!!* I - 1*2*3 

IltV - A VECUH hCKK ARCA FCR eil AhC INOEX CAMI^ULAI tON 
CF CIVEf^SICO. CM FCLRIH CF IhC CUAKTIlY 
r'Ali|rtJ.h2*K3l 
LCCAtlChS CF A. VII.. Il/Cl«2«fcl*fc2«fc3 

S - A %ECKD hCRK AREA FCtl SUE TASLES hUF PlfeNSION 

It-E SAfE A< IKH 

IFSET - Al^ CP1ICK PARAt>f1E« hllf l»-E FCLLChlkC SEIUKCS 
C SEI LP SIM ANC 1*>V TAeiES CKLY 

1 SET LP il*-t AUC UW TACLES CMY AKC 
CALCLLA1E FCURIEK TSAhSFORK 

-1 SET tP !fKE ANC |f«V FAHIES CMV AKG 

CALCULATE I^Vfe«St FCUOIEP TPAkSFCRf IFCR 
Tt-E MEAhlhG CF UUERSE SEE Tt-E EQUATlCkS 
UlkCEft fETFCC flELCkl 

2 CALCULATE FCURIER 1HAf,5FCRf CfcLY (ASSCHE 
SIfcE AAC lAV Ii£LES EXISTI 

-2 CAlCLLATC IKVERSE FCUBIER TRA*SFCRF C^LY 

(ASStfE S1)>E AkC I*iV TABLES CHIST) 
IhOKAICR. HHEfc IFSET IS C,*l.-1« 

1 fEAhS 1(-E PAXIfLf fCII IS GAEAICR Tt-Ah 
.2.3 bfEh IFSET IS 2.-2 . IFERR * 1 
PEIhS 1F«I TFE !1*>E «NC UV TMLES ARC *tC1 LARCE 
EfCUCf- CR »-AVE kCI BEEN CCPPbTiO . 
• - - •- E ABC¥6 



(iEfAAXS 

ins SLBRCtTlfcE IS TC EE ISEC FCR CCF'riEX. 3-CI«fcSI0fc*t 
ACRAYS I* liUCh CACh CiPtfcSICN IS A PChER Qf 2, TfiE 
^AJilCCM fill t-LST «T BE LESS tt-Afc 3 CB GREATER THAN 20. 
I ■ 1.2.3 

SLeRCtTlfctS AfcC FLfcCTICK SlSFACCRAt'S RECLJREC 
ACfE 

rETt-CC 

fCP IFStf « •!* OR *2w m FCCRIER TBAfcSFCR*' CF COI'Pl.EX 
ARRAY A I* CBTAINEC. 

M-1 Hi-I k3-l II t2 1-3 

XUI.J2.JJ)-SVjr< Sur SU*" A(Kl,K2.li3l»til •h2 ♦K3 

Ki-c it2-c fca-c 

ht-ERt hi IS T»-£ Kill ROCT CF tMTY ANC U-I(1*JI* 
l2-tC2«J2. L3*K3*J3 

FCR IFSET • -1. CR -2, TfE IKVERSE FCLRIER TRANSFDRH « OF 
CC^FLER AHFAY a IS CllTAl^EC. 



- ERRCR 

IFERR 

2C 



«IKI.K2.«3I- 






1 


kl-1 


H-l 




•SLf 


sun 


lhl*f2*A3 


Jl-C 


J2.C 



K3-1 -II -L2 -L3 

Slf XIJliJ2«J3l*bl •t>2 *U3 

J3-C 



«C€ J.k. CCCLEY A« J.h. ICKEV, 'AN ALGORlTt-f fCR THE 
*'ACFIAE CALCtLATICk Cf CC^-PLEX fCLRIER SERIES** 
fAlfEfATICS CF CCfPUIAtlC*.!. VCl. 1? lAPR, IStSI. R. 2^7. 



SLeFCLTII>E »-IFRU,*'.INV««.lf SEt. IFERf^l 

CIPECSIC*. Atll,l#.Vlll.S(ll*N(»l,»'(31,^PI3l.*.(2I.N2l2I.N3*21 
tLLIkilif>CE (lit.MIII*l*>!>(>l2ll*(*>3.^(3ll 
IC IFl J«£!UF£EI) - II SCC.SCC.12 

12 ni-»'AxciPiit.»'4i».f <;n -2 

PCC12 « «CRI42.) 

IF (^TI-P1 I H.i^.n 

12 IFESe-l 

FETLRf 
M IFERtl'C 

Pl>mi 

»2>^I2> 

»2-;«*pi 

It IFIIFSETI l«.ie.2C 
IF AX- AlA|>2«h3 



fh 



^n 



CC J^ I ■ l.hX 

il2«l-|l ' AU«I-11/FN 
iS A12«M ■ -AI2»I l/fh 
7C I>F(1I'K1*; 

»F(2I< ftFlll*h2 

f>PI!l-hFf;i*A3 

CC 2;C IC'*,3 

U ' fF(3l-hFllCI 

ILl ' IL*1 

Al ■ »t ICI 



20 
30 



•0 



HARf 
..HARM 
HARM 
HARf 
HARM 
HARM 
HAft*' 
HARM 
HARM SO 
HARM 100 
HARM 110 
HARM 120 
HAftH 130 
HARM 140 
HARti ISO 
HARrt l«0 
HAR** ITO 
HARN 180 
HARM L90 
HARM 200 
HARM 210 
HARM 220 
HARM 230 
hARF 240 
HARM 290 
HARM 2ft0 
HARM ZTO 
HARM 280 
HARM 240 
HARf 300 
HARM 300 
HARM 310 
HARM 'iZO 
HARM 330 
HARM 340 
HARM 350 
HARM 360 
HARM 370 
HARM 3S0 
HARM 390 
HA«M 400 
HARM 410 
HARM 420 
HARM 430 
HAIIH 440 
HARM 490 
HARM 460 
HARM 470 
HAKM 400 
HARM 490 
HARM 900 
HARM 510 
HARM 520 
HARM 530 
HARM 940 
HARM 590 
HARM 960 
HARM STO 
HAftH 580 
HARM 590 
HMM 600 
HARM 610 
HARM 620 
HARM 630 
HAKM 440 
HARM 650 
HARM 660 
HA«n 670 
HARM 680 
HAKM 690 
HAItH 700 
HARM 710 
HARM 720 
HARM 730 
HARM 740 
HARM 790 
HARM 760 
HARM 770 
HARM 780 
HARM 790 
HARM 800 
HARM ilO 
HARM 820 
HARM 830 
HARM 840 
HARM 850 
HARM 860 
.HARM 8 TO 
HARM 880 
HARM 890 
HARM 900 
HARM 910 
HARM 920 
HARM 930 
HARM 440 
HARM 990 
HARM <tt,0 
HARM 9T0 
HARM 900 
HARM 990 
HARMIOOO 
HARMIOIO 
HARNIO^O 
HAfiM103Q 
HARM 1040 
HARM to 90 
HARM 1060 
HARM 10 70 
HARM 10 80 
HARM 1090 
HARM 1100 
HARMlllO 
HARM 11 20 
HARM 11 30 
HARM 1140 
HARM 11 50 
HARM I 140 
HARMII70 



If iPiij*c.;;c.3c 

3C IClf-kfliCI 
At!IT-(kFII£t 
f€V • 24(RI/2I 
IF IPI - ^EV ltC.4C.40 

¥ IS etc. CC L*l CASE 

4C XI:II-rell/2 

Mi-xeii** 

CC :C IM.ILI.KIF 
KiA£l-Al*f 

CC 5C »>l.t>LAS1.2 
|(C-ll«Keil 

CC CA€ SUP hMF L-l.J- 
ilKlXIRKAlKCI 

«(ltC)-i IK)-A1KC) 

T-AIRC) 

KdCMA 1X1-1 

AIM-A(K|4T 

l-A(RC*U 

A(KC«Jl-i(K4l)-T 
5C A(|i«t)W(X«lM1 

IF (Ml - 1125C*i^C.;2 
5i IfIRS! -2 



CEF - JIASI 

JLA< !■! 
CC U 7C 



2«*(l-2l -I 



F 1£ E\>Eh 
to. LFIN£1 « 2 

JLA;I"C 
9C CC 24C L>LFItlS1.MI.2 

JJCIF>KeiT 

XEIT-Kejl/ 

■■i>Keii-2 

CC FCR J-C 

CC ec I«I,IL1,ICIF 

RLASI'IfRl 

CC eC X-I.KLAST,2 

Rl-K«Kei1 

A2-|(l«xeiT 

K3>K2«XCIT 

CC TkC SIEP2 hITt- J'C 

AUI*ACKI«AIK2J 

A(lt2l>A|K)-AlK2l 

A(Kl|>All(lMA(K3l 

A(K3l-A<Rl>-A(«31 

AtKI'AUMAlKll 
AUll-AIXl-AIKlt 
A«X2)«A<l(<MA(K3l*i 
AI«3}-A|H2I-A(K31*I 

T-A(R2) 

AlKJl-AtRI-l 

41)Cl>A(«|4T 
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HARMltSO 
HARM 1190 
HARM 1200 
HARM1210 
HARM 1220 
HARH1230 
HARM 1240 
HARM 1250 
HARNt260 
HAAM1270 

HARM1280 

HARM 1290 
HARM 1300 
HARMlllO 
HARM1370 
HAfl«1330 
HAOMI340 
HARH1150 
HARM 1)60 
HARW1370 
HARMt380 
HARM1]90 
HARM1400 
HARM1410 
HARM1420 
HARM 14 SO 
HARM 1440 
HARM 1450 
HARM1460 
HARM14rO 
HARM 1480 
HARM 1490 
HARM 1500 
HARMt510 
HARM1520 
HARM 1930 
H«ffM1540 
HARM 1550 
HARM 1560 
HARM 15 TO 
HARM1580 
HARM 1 590 
HARM 1600 
HARM 16 10 
HARM 1620 
HARH1A30 
HARM 1640 
HARM 14 90 
HARM 1660 
HAflN1670 
HARM1680 
HARM1690 
HARM! 700 
HARHiriO 
HARM1T20 
HARMIT30 
HARMir40 
HARM1750 
HARM 1760 
HARNITTO 
HARM 1780 
HARM1790 
HARH1800 
HARN18I0 
HARM 1820 
HARM1830 
HA«Ht840 
HARM 1890 
HARM 1860 
HARM1870 
HARMISSO 
HARM 1*90 
HARM 1900 
HARM 1910 
HARM 1920 
HARM 1930 
HARM 1440 
HARM 1950 
HARM 1960 
HARM 1970 
HARM 1980 
HARM 1990 
HARH2000 
HARM2010 
HARM2020 
HARfl203O 
HARM2040 
HARM2050 
HARH2060 
HARM2070 
HARM20eO 
HARM2090 
HARM2100 
HARH2110 
HARH2120 
HARM2130 
HARM2140 
HARH21S0 
HARM2160 
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HARM2180 
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HARM2200 
HARM22tO 
MARM2220 
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HARM2240 
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HAIIH2290 
HARM2300 
HARN2310 
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HARH2330 
HARtt2340 
HARI12390 
HARH2360 
HA«M2370 
HARM23aO 
HARM2390 
HARM2400 
HARM2410 
HARN24Z0 
HARM2430 
HARM2440 
HARM 24 90 
HARM2460 
HARM2470 
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i^Uji('<«*iL- 1 1, fee i- 
cc sec ^^l,^^ 

^7c I^v(JJ}-l^vtJl♦*'Tl.«»^ 
SC< If ( IFSEI lU.eSStU 



HARHS140 
HARH^DO 
H*flMS160 
HARflblTO 

HARMSLDO 

HMPbZOO 
MARW5210 

HARMS220 
HARWS290 



U iftlfStll |«.IC,7C 



ft^ 



1^ I 



!l.r«C(.IIkC Ct'/Rf 

fCR^CIi^! CUCREIC CCfPlEk FCUMlEi* TR*f>&f=CfiCS Cfc A COMPLEX 

CkSCBIFIICK CF F^RAfEIERS 

» - t CCLELE PR£C1SIC^ VEC1CR 

«S IhfiT, « CCMAlhS Tl-E Ct.f9i.ttit 3-C IfE^SIOHAL 
#RR4V 1C ec IRAkSfCRl'EC. Il-C REAL PART Cf 
A(llil2*13l IS STCREC I^ VECTCf F«SI-ICII IN A CELL 
htit- If>Ct» Z*ll:*^M^2 < t2*hl « lit * l kHERE 

1^1 . 2»*¥\li, 1-1.2.3 AIkO II • C.l *ll-l C1C. 

It-E IffCIKARY R«R1 JS ih T»-E C£LL IP'PCCIAICIY 
FCLLCkllkC. hCTE 1t-«1 1t-E iLBSCRlRI II INCREASES 
fCSI RAPICIV AfcC 13 IKCREAStS L€AS1 RAPIOLV. 
A< Cl.TP(.Tt A CChKIKS TfE CCfPlEX FClt^ItR 
TllA^SFCt^r•. ll-E t>L^eeh Cf CCHE LCCAIICfcS GF 
ARRAY A IS 2*(M*»i««>3) 

¥ - A It-Rft CELL V£CItR bMICH CtTeh»'iK£S lh£ SIZtS 

CF 1»-E 3 CI'^tl>£ICh£ CF THE ARPA* A. T>-E SWE. 

M. CF Tt-E I CIRc^SlCK CF A IS 2**f«(l)* I ■ It2«3 

lOV - A VtCICt hCKK AREA FCt^ BII AfC l*«Ct« PAMPIjlAIICK 
CF ClI'EKSlCfc CKt FCC>i1»- CF THE CUAKTIfV 
^AJr(M.K2.».3t 

LCCATlc^« Cf A, \\i,, ^l/eI•^•^l•^2•^? 

S - A CCUELE PRECISICf VtCICR VCfK AREA fCB SltiE TABLES 

bITt- CIREIkSICf T»^E SARE A< UV 
IfiET - A* CfTK^ PARAfilER Wllh Iht FCLLChUC SETTINGS 
C bEl CP !I»E A«>C ifkV TAELES C^LV 

1 SE1 LP 5I>E «^C IfV TAeiES CMV AltC 
CALCLLATf FLLRIEH TRAKSFCRf 

-1 SET LP SUE AhC UV TAfcLES CKLV AkC 

CAICLIAIE INVERSE FCURIER TRAhSfOili' (FCfl 
Tt-E r^EAMfC CF IMMERSE SEE IfE EGfaAtlChS 
LhCER RI1FCC eCLQbl 

2 CtLCLLATE FCUHIEH TRAKSFGR" CkLV MSStPE 
SIftE AKC IkV TABLES EVISH 

-2 CALClLATE UvCRSE FCURIER TRAhSFCRR O^IV 

lASSCPE !1I^E tkC Uh TABLES EIIS1I 
IFERR - ERRCK INCKATCfl. hHEf IFSET fS C.*l.-l. 

IFERR ■ 1 l^EAISS IfE Pt>*\1H,¥ ¥i\\ IS CREAIER ThAK 
IC, l«l,it3 hK* IFSET IS it-2 . IFERR » I 
ft**sl II-AI Il-E :iKE AhC I*>V TAtLES ARE MCT L*RCE 
EltCUCF CR t-AVE ^CT e££fc CCPUTED . 
If CI. FtlLRh IftPB • C iMtK fcCI^E CF »'E AECVfc 
CCf-ClllCKS A»>E FRESCKT 

hEPAFl-S 

TUS Sl.eRCLll^E IS IC dt CSEC FCR CCt-PLEx. RCLElE Pf(£LISIC^ 
a-ClfCkSlChAL JR»<A»S Ih hfiCh EACt- CIRthSICh IS A FC>EH CF 

i, ^^t ¥**\p\.r f"!!* t-LSi ^cl be less thak 3 cf greatcr T^■*^ 

2C. I « 1.2.>. 

SLERCLTUE: AKC ^L^CTIC^ SLCFUCeRAfS RECLIHEC 
^c^E 

PETKC 

FCR iFSET • «I. Cf *2, T^E FCURIER T«AfSFC«» CF CCfPLEU 
lH»tf A l£ CET(I^EC. 

M-i k;-1 Ik3-1 LI \.} L3 

]I(JI.J2.j3I-SLR SLR SCF AC K I .Ki .Ki I»hl »fc2 •hJ 

«I-C Ki-C H2«C 

K-tfi£ hi IS Tht Ml) WCCT Cf LMIV A^C Ll«Kl«Jlt 
1<-K2«J<. 13-R3-J3 



FtP IFiEI - -I. CB -2, in INVEHiC FCLRIfP TF^fcSfCRf A CF 
CCrfLEx t»itk\ > l< L^IAIftC. 
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SL'' SL" 

Jl-C J2=C 



XlJIr J2. J3l*kl 



<El J.k.. CLLLf* am; J.h. iLfCT. 'AK *lCCM|1l-f FCR THC 

KlUfE C«LCt.l<TICh CF (C^FIEK FCLRIEf SERIES'. 
^flFE''«UCS CF tL>fi„I»I IC^S. VCL. I'. (AfB. ISt-I, •» . 2S7. 



iLc»-CLI|l>t t^/t'K«.F.l^>l.£.IFJ(^.lft'^'^l 

cjr'E»SiCh A(ll,l^v^>•SlIl.^(?i.''(Jtt^p(il•b(^>*•>•;(2l*h3(?l 

CCLL'lt FftClilC^ A.K.kJ.Ahi.Tf EIA.MLTI^.5.T,)>,h;,FA,Akf< 
t<.LlV/LEr>it IKI.KUD.th^.M/II.UJ.M?)) 
Ill l/tiMl^lll - II SCC.K(.,I< 
F1T-f/'CI^U)iPI<>.F'|>|l -i 

(■cci2-tstt-i(;.ccci 
II IMI-f I t I't. 1^.12 

lFtt.P = i 

■■EIL^A 
IflPR-C 
H-M I I 



*i«;«»pi 



Dt4AR 

.OhAR 

OHAR 
OHAR 
OHAR 
OHAR 
OHAR 
DHAR 

OHAR 

OHAR 100 
DhAft 110 
OHAR 120 
OhAR 130 
OHAR 140 
OHAR ISO 
DHAR 160 
OHAR ITO 
OHAR lao 

OHAR 190 
OHAR 200 
OHAR 210 
Dt^AR 220 
OHAR 230 
OhAR 240 
DhAH 290 
OHAR 260 
OHAR 2 70 
OHAR 280 
OHAR '2*)0 
OhAR 300 
OHAR 310 
OHAR 310 
OHAR 320 
DHAR 330 
OHAR 340 
OhAR 390 
OHAR 360 
DHAR 3T0 
OHAR 380 
Ot-AR 390 
OHAR 400 
O^AR 410 
CHAR 420 
OHAR 430 
OHAR 440 
OHAR 450 
OHAR 460 
OHAR 470 
OHAR 480 
OHAR 490 
OHAR SOO 
OHAR 510 
OF-AR $20 
OHAR 930 
DbAR 540 
.DHAR S50 
OHAR 560 
Ot-A« S70 
OhAfl 580 
DHAR ^90 
CHAM 600 
DhAR 610 
DHAR 620 
OhAR 630 
OHAR 640 
OHAR 650 
OHAR A6C 
OHAR 6 70 
OHAR 680 
OKAR A9a 
OHAR 700 
OhAR Tin 
OHAR 720 
OHAR 730 
OHAR 740 
Ot-AR 750 
OI-AR 760 
OHAR 7 70 
L(-AR t<iO 
OHAR 790 
OHAR 900 

CHAP aio 

OrAR «20 

OHAt) ■i3(l 

DHAH 040 

OF-AR BiO 

Ut-AK Hbn 

CHAR ilO 

..OHAR ddO 

OHAR ai^ 

Ohah ■iO'> 

OHAR VIU 

l}l-«« 9/1 
OHAR S30 
OHAR <J4r) 
OhAP 950 
OhAP 16 T 
OHAfc 171 
OnAK IdO 
OHAP ■JIO 
fJHAPl )3Q 
0»-AP ni:) 
ChAS l'17« 
iIHAO I )iO 
OHAR 1040 
DHAR 1050 
OHAR 1060 



I.I>)C 

f(^«I-lJ - AU«I-1}/FN 
15 A(2«ll ■ -A4^«II/F^ 
It. »^F<|}*fkl43 

(iPUl* »fU14h2 

I^P(3l'lkFli)4fk> 

CC 25C iC«1.3 

U ■ kF(>|-hP(IC I 

U I - IL41 

M > P(l[) 

If ii'ij(:c.££c,3C 

3C ICIF-kFIICI 

nen-AFdC) 

^EV ■ 2*1^1/2 I 

IF (»I - ¥i\ l6C.£C.4t: 

> IS CCC. cc L-l CA5£ 
4C l>«lT-ltPlT/2 
Kl»Reil-2 

CC 5C l-i.lLl,ICIf 
FLASt-RL^I 
CC SC l<*I.KLASI,2 
«C>K*«(eiT 

CC E^E ilEP kllf 1*1. J-< 

A(KI>>/|I'I*A|(ICI 

A(RCt*<ll()-4IKCI 

T-AIKLI 

i(t<C)>ili<)*1 

AIRI-AfPMT 

T*A(kC4|I 

A(RC*1)>A(K«U-I 
5C AI*tl)«AI(<*ll«T 

IF l^t • lt2SC.2£C.!3 
5i LFIRST -i 



CEF - JLASI 
JLASI'l 
CC IC JC 



2*«IL- 



* IS EVE^ 
6C IF1«ST - 2 

JLAST-C 
7C CC 2SZ L"IF|PS1» 

JJCIF-KEII 

FElT-R6i1/4 

»l"t(Cll-2 



.Ul.ICiF 



CC FCF 

CC EC I 

tiLASI-I 

CC 8C I(*I<KLIS1*2 

|il*K«K61T 

K2*Kl4KC11 

«3>l<24l>£n 

CC TfcC STEPS hllf J- 

AI|[)«A(RI«A(K2I 

A(K2I-A1R|-A(K2) 

AIKll-AIKll«A<lOI 

JllOI>A(Kll-«<K3) 

AIRMAIRitAIKll 
A<Kll>AltCl-AUl) 
AfK2i>A(R2|4A1K>l«l 
AIK!)<A(K2J-AU3)«I 



T-AIK 



AIRil-AUI-l 

AIR»«A|KH1 

TaAlK24ll 

«(K24ll>«(K«ll-I 

A(R«1J-A<R-*1>4T 

I-AIK3I 

A(K3t-/IKI|-l 

i(Kl)*Allin*T 

I-AIK3'I1I 

A<I>3*1I-A1KI«1I-1 

AU1*11*A(I(141I*T 

1-AIKil 

AlRll-AIRI-T 

«<K)-A(|(|«1 

1-AIKMll 

AUl*ll«AU*li-T 

«(«*li-AIR41l4l 

P'-A(K3-*11 

AfK3)*AlK<l-R 
AI«(2i«Altc2MR 
AlK3*ll>A(Ki«ll-T 

eC AlK2«ll'A(K<*U*I 
IF IJIAST) 23«.ii5 

ti ,J-JJCIF '1 



ILAST. ICIF 



CC FCf J«I 

ILAJI- U *J 

CC E! I • JJ 
RLASI - Kl4l 
CC e; ii«i.KL#<i 
tcl > t(«liElI 

a2 • Bi*«eii 

r; • it2«Ktll 



l^TII^C h«(l*l l/RCCTi.hJ'l-l*! I/KCCT2. 

«tK|.«|K |4A(K2 (•I 

A(K£t-«(K )-A(K2 1*1 

A|K II'AIKI (•fc4A(tc3l«h3 

A|K|<A|K|*A|K1I 
A(|i|)-f IK)-A(KI) 
A1K2I-A(((<MA(K>)*1 
A(Kil«f (Kil-Alli^Ml 

F '-/(k;*)) 
1 > A(«i| 
/(nil - * (K l-P 
<(•<) - C(|i|*H 
/1R<«I1«<|K«1I-T 
* (•< ♦ II • / ( t< • 1 i « I 

/ki4>A(Kll-A(Kl«l) 



OHAR 10 70 
OHAR 1080 
OHAR 1090 
OHAR 1 100 
DHAR 1110 
OHAR 1120 
OhARUlO 
OHAR 1140 
OHAR 1 150 
OHAR 1 160 
OHAR 1170 
OHAR II 80 
OHAR 1190 
DHAR 1200 
OHAR 12 10 
OHAR 1220 
OHAR123Q 
DHAR124a 
OHAR 1 250 
OHAR 1260 
OHAR 1270 
OHAR 1260 
0HA8L29n 
OHAR 1300 
0HAR13tO 
DHAR 1120 
OHAR 13 30 
0HAR1340 
0HAR135Q 
0HARL360 
DHAR 1370 
OHAR 1360 
OHAR 1190 
0HAR1400 
0HARL410 
OHAR 1420 
OHAR 1430 
OhAR 1440 
OHAR 1450 
OhAR 1460 
OHARlf.70 
OHARUaO 
OHAR 1490 
DI-ARI500 
0HAR1510 
OHARISZO 
OHAR 15 30 
OHAR 1540 
OHAR 1 550 
OHAR 1560 
OHAR 15 70 
OHAR 1580 
OHAR 1590 
OHAR 1600 
OHARI610 
DHAR 1620 
OHAR 1630 
OHAR 1640 
OHAR 1650 
OHAR 1660 
OHAR 1670 
0HAR1680 
OHAR 1690 
OHAR 1700 
OHAR 1710 
OHAR 1720 
DHAR 1730 
0HAR1740 
OHAR 17 50 
DHAR 1760 
OHAR 1770 
OHAR 1780 
OHAR 1790 
OHARiaOO 
DHAR1910 
OHAR 1920 
OhAR 1830 
OHAR 1840 
OHAR18S0 
OHAR 1860 
OHAR 1870 
0HARL8e0 
0HARtS90 
OHAR 1900 
0HAR1910 
OHAR 1920 
0HAR1930 
DHAR 1940 
OHAR 1950 
OhAR 1960 
0HAR1970 
OHAR 1980 
OHAR 1990 
0HAR2OOO 
0HAR2010 
DHARZ020 
0HAR2O3O 
0HAR204O 
0HAR205O 
DHAR2060 
OF- AR 20 70 
DHAR20B0 
OHAR2090 
0HAR2100 
0HAR21I0 
QHAR2120 
0HAR2130 
0HAR2140 
0HAR2t50 
DHAR216Q 
DHAR2170 
0HAR2180 
0HAK219r) 
DHAi)2200 

mum 

0F-AR2220 
DHAH2230 
OHAA2240 
0HAR2250 
OHAR 2 260 
0HAR2270 
OhAR 2280 
OHAK2290 
0HAR210Q 
QHAP23tO 
0HAR2120 
DHAR2J30 
0HAR2340 
DHARZ150 
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«* 1 * M«14>)*i(«l 1 
/IKi !■ l*h^-t. I/PCCT2 

1 • * { K 1 I 

T-aic 1*1 I 

MK |4 1 t^J IkM 1-1 

((*i* I l»<Ui«l Ml 

U ( Jli5I-l 1 t it ,is->,'i 



ffc^c^ k'S 

IC-M-I 
kllKSlIC) 
hl2l>S< 1 t 



i; 



*i 



UC'k\-U 

If ( i2cnic, iic.icc 

i*l IS lt> f ID£I CLACPAKI 
CC h^dl'SlUC) 

CC re i;c 
ic fciiii'C. 

CC Tc i;c 

2*1 IS Ih StCCKC CL«CflAfT 
iC UCt « liC«M 
I2C--I2C 

13C«M-I J 

if (l:C}ltC,i;a,MC 

13 If. flUSI CLiCf>*M 

itHli'Si 12) 

CC i£ ;cc 

>.Hil' I. 

CC u <cc 

tc I?t.L-l 2C«fcT 

iFii3cc)isc.iec.nc 

ta U <ECCKL QllCatK} 
1C I3C — I3C 

fc311l — £1 I3C1 

k;(<)'<ii3cci 

CC It 2CC 

h3(21-C. 
CC IC <CC 

3»i U 11-ICC CLACO^hT 
9C 13CCC»H*I3CC 
I3CC - -I3CC 
*.3tll«-5(I3CCCI 
k>l2l--£(I3CCl 
:C UiSI-lL«JJ 

CC 22C I*JJ,JC«Sl.lCir 

KLASI*KL4 I 

CC i2C «-l.*CL4SI.; 

K2-Ki«tteii 

CC IhC 5TCf< kill- J fCT C 

«lf<ll>«ltil)aii*«tK>)4|ij 
<(K3l>^(KlMh-«(K3)ah? 

«(Kl)'i(KI-«(KU 
«IKi)*4IKcM«lK3l*I 

»<«^tK;Mli^(lt-4(lci«lt*ti?12) 
«(fC2l*<U|-f 

c 

^■>(Ki(«h3ll)-#lK3*ll«h3(2l 

«ht)>«(l<ll*h(ll-«IKI*ll*k(2l 

«hl>#ICll«k(;i44(Kl*ll«fc(ll 

(toS'il-**!-! 

«Ul*l)-«kI*l 

/Ul |>«(K|-1 

/ IK J -4(K |«I 

l-i(»f Mil 

f (K1«I1>«U*1)-I 

f ■-»*« 2»1J 

I«*H<31 

«(K3i||>J|K<41t-l 

2iC «1K^« I l-«tK2*l 1*1 

£^C Cf 1 thL K ICCPS 

i2C JJ-JJCI** JJ 

tfcC Cf J-UCF 



0H4B;3S0 
i;hAK2)T0 
0M«R2iS0 
Dh*«2190 
0hA(i2400 
UbA*(2^10 

DHaf) ?4eo 

0HA«2$00 
Dt-4«2510 
OHAR2'>20 
DHAR253') 

QhaR2J'iO 

GHAR2S60 
OHAKP^rO 
DHAi*2b9n 
OhAR2S9'3 
DHAR260D 
0»iARZ610 
0HAftZ620 
0HAR2630 
DHAK2Ci40 
0HAR2650 
OhA<t2660 
OHAft2&70 
0HAR268O 
OhAft2A90 
0HAA2700 
0HAR2710 
0HAR2T20 
OhAR2T30 
0HAR2r40 
OhARZTSO 
0HAR2T60 
OHAR2T70 
ONAR2T0O 
0HAR2790 
OHAR2800 
OHAR2aL0 
DHAR2a20 
OHAR2890 
DHAR2S40 
OHARZaSO 
0HAR2960 
0HAR2B70 
DHAR2S80 
0HAR2890 
0HAft2900 
{}hAft2910 
0HAf(2<)20 
0HAR2930 
DHAR2940 
DHAR2950 
DHAft2960 
DHAR2470 
OHAR29I0 
0hAR2940 
DHAR3000 

OHAfiaoio 

OH AR 3020 

0HAR3030 

DHAR3040 

DHARIQSO 

DHAR3060 

0HAR30 70 

DhARSOaO 

0HAR3090 

OHAR3tOO 

0HAR3U0 

OMAR 3 120 

OHAR3I30 

0HAR3U0 

0HAR3150 

O^AR3160 

Ot<AR3170 

OHARJtBO 

0HAR3I90 

0hAR3200 

0HAR32I0 

0HAR3220 

DHAR3230 

OHAR3240 

OHAR32fO 

OfiAR3260 

0HAR3270 

C»iAR32B0 

0MAR3290 

OtHAR]300 

OtHAR3310 

C)t-AR3320 

OhAH3330 

0HAR3340 

OhAB3350 

DHAR3 36a 

OHARJJ70 

CMAR3iaa 

0HAR))90 

l>HAR3400 

OHAR3<.ia 

0HAR3^20 

OtiAR3S30 

OMARS'^^O 

OhAH34%0 

Oh *R 3460 

DHAR34T0 

0HAR34a0 

OhAR3490 

DHARSSOO 

OhARlSIO 

OMAR 3520 

0HAR)5J0 

OhAR3S*0 

0MARJ590 

0HAR)560 

OHAft3S70 

DMAR35aO 

OHAR J$<)0 

OhAfl9600 
CHAR 3610 
OHAR 1620 
rtHABihtn 



^•Jl«ll«3 



(AC Ct I LCCR 

CC^tl^L€ 

ifcC Cf IC LCC(> 



3:c 



kt KCk l-Adk T 

eil-fEVERSEC. 
f>isc-Ai«r>i 

IFIf'JTI 37C,2*C,3tC 



CCffLEX FCU»<(EO SLFS EtI Tt-t IR ACDPESSES 
Iff FCClCklhC HCLTIKE PUIS ThFK IN CBCER 



^3 Ct-. Cl^ tc. f 1 
3(C UC3«1 

CC IC 2(C 

¥2 LESS Ifdk Rl 
37C ltC2-; 

MVh:i>f l/h3 

3tC JJC3 ■ MSt/».3 

^5C IF lf<l-Ui7C*«CCtSeC 





R2 Gf. Cf tC 


. M 


^<c 


iec<-i 

h2wM-f.2/M 

l■l^^i■M 

CC IC ■^tc 






^2 CESS f^i^ 


M 


*7C 


IGCi - 4 
A2hM>| 

MWf2«H/ft2 




4tt 


JJC2'hMi/Ki 




;;c 


innhj itic. 


<.(. 




M tt-. CR tC 


fl 


•t( 


IL-t I<1 
AUM>M/M 

CI IC sec 






►1 lE;i I^A^ 


^T 


!K 


lCCi>^ 

MWM'I 

ATVK.l-hl/1.1 

fI»>Al>hl 




9ac 


JJCl>fl5C/fcl 




«cc 


JJ3-1 





CC laO Jff>3-l.K3Vt.T 

ifr3-iA«ijj>) 

CC ETC JF3-l.»iINIi3 
CC TC UlC.C2C)*lfiC3 

«ic ipa>iit^ijr3i«hivkT 

CO IC «3C 
C2C IVS-IRVIJPII/hTVUS 

A3C 13-(IRF3«|P3|«M2 

ICC JJ2>1 

CC «7C JPr2*lflii2VNT 
IfR2-lftW(JJ2»*I3 
CC ttC 4H»l,tiltiH2 
CC TC CTtCt72GI.I€C2 

TIC I>2-lfkt|Jf2J**>2«lkI 
CC IC 13C 

T2C IP2-llk«lJP2J/liTVI>2 

TSC 12>(]Pr2«l»21*Al 

IOC JJ1>1 

CC a«C JfPl-I.KlVNT 
lfPf«lfcV(JJll«t2 
CC MC jri-ltMIMkl 

CC TC iato«*ioi*icci 

• Ifl IPl-II>h«jril«Nl%NT 

GC TC C30 
a20 IVl«lli%IJPlI/*ITVNI 

lac i-2*uaFi*iPii«i 

IF U-ll C^CtlSCtlSC 

t*C T-AUI 

ilJ)«T 
A(J«1)-T 

iac j-j*2 

i«c jji-jji«jjot 

•IC JJ2«JJ2«JJC2 

fftC CF JfF2 «NC JP3 iOOfS 



•ac JJ3 - jj3*jjca 
EkC CF JFF3 LGOF 

a9C iF(ifscn8«i.a«s.a«9 

191 CC li2 I - l.hH 
a92 AI2*1) - -A(2«ll 
a9S FETURft 

THE FClLCklKC RROCRAI> CCRPUTES 1HE SIh AKC INV lABlEE 

9CC RI-RAJiCIPUI.RUKMian -2 

H - PAIiC(2*RTt 
CC4 IF IKT-lEl fCt.«C«.13 
fCC IFERR-C 

ltT«2**»'l 

RIV2-ATy2 

SET UP !IA TiecE 

IK I»i£TJ-,TC53S«l«33ST4Af3 

JST£F«2«*(I>T-L*1I fCR l-l 
JSTCF-M 

JCIF>2««fl'T-i) fCR l-l 

JClF-l<Th2 

StJCIf l-CSllkllhfTAJ 

CC 990 l«2*liT 

ThETA-l»-ETA/2.CCC 

JSTEP2-JSTER 

JSTC»-JCIF 

JCIF-JSTEF/2 

SfJCIFJ-CSIItlTMCTAJ 



OHAR 3640 
OHAR 3650 
OHARS660 
CHAft36T0 
DHAfl36aO 
DHAR369Q 
DHAft)700 
OHAR3710 
i DHAR3720 

OHAR 3730 
OHARSr^O 
OnAR3 7SO 
ChARITbO 
OHAR 3770 
Q^AR3T80 
0tiAR3 790 

afiAAsaoo 
DHARSaiO 
ChARS020 
OhARSaSO 
0HAR3SA0 
0HAK)S50 
0HAR3B60 
OHAR 3a TO 

0HAR19B0 

OtiAR3a90 
OHAR3900 
OHAR 39 10 
OHAR 3920 
OHAR 3930 

OHAR 3940 

OHAR 3950 

OHAR 3960 

0HAR3970 

OHAR39aO 

DHAR3990 

OHAR^OOO 

OhAA^OlQ 

0HAR4020 

0HAR4030 

ONAR^OAO 

DHARAOSO 

0HAA4060 

OhAR^OTO 

DhAR40aO 

0HArt409ri 

OHAR* 100 

OHAR^llO 

0hAR«l20 

0»-AR4t30 

OHAR«t«0 

OHAR^ISO 

0HAR4U0 

0HAft4l70 

0HAft41«0 

DHAR4190 

0I1AR4200 

0HAA4210 

OHAR«220 

OHAR4230 

OHAR 4240 

0HAR425a 

0MAft42«0 

0KM42T0 

OHAR 42 CO 

0HAR4240 

DKAR4300 

0HAR4iI0 

0HAft4320 

0HAR4330 

0HAn4340 

0HAR43S0 

DMAR43«0 

0HAR4370 

0MAR41ia 

DHAR4390 

DHAR4440 

DHAR44I0 

OHAR 4420 

0HAR4430 

0HiM4440 

0HAR4490 

MAR44A0 

mAR44T0 

OHAR44aO 

0HAR4490 

DNAR4900 

DHAR4910 

0HAR4520 

0HAR49SO 

0HAR4SS0 

MAft«S60 

0HAR49R0 

DHAR4990 

0HAR4600 

DHAR4410 

OHAR 4420 

0HM4630 

OHAR 4440 

0HAR4690 

0HAR4M0 

OHAR 4470 

DHAR46aO 

0HAR4690 

OHAR4700 

0HAR4710 

0HAR4720 

OHAR4730 

DHAR4740 

DHAR4TT0 

OHAR47aO 

0HAR4 790 

0HAR4a00 

0HAR4810 

mnm 

OHAR4a30 
0HAR4840 
0«AR4a5a 
OHAR4S60 
DNAR4a70 
0HAR4ae0 
0HAR4a90 
DHAR4900 
OHAR 49 10 
0NAR4920 
0HAR4930 
0HAR4940 
0HAR4990 
0HAR496O 
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Ml-H-Mlf 

SIJCll-CCCSdHEKI 

JI.«!l>lll-JSTEP2 

IFIJKSI - JSie»l »5C.SJC.«2C 

JC'H-J 
JC-J*JCIF 
'««C SU0I-SIJ1*SIJC1I»SIJCIFI*SIJCI 

sft uf mtiji litiE 

14C HliEJIP-fclVZ 

HUHP-J"*!"'-!.!- f1' l-"' 

l.lllUf-2»«it.-ll. «• L-l 
■ •«UI-0 

ii«uiiic>r<ii ■ Htn' 

cc «1fl J*2.LtilC)IP 

jjodmop 
«]« iiiKjjfiii»<4i«iiTie«r 
KiLEjir-fittcvr/i 

MC IKUIf-LIIIEXf*: 
1U If IIFSEIII2>MS.I2 

Et^C 



0MAA4970 

0HMt4940 
OHAItSOOO 
IMM90I0 

OHUtSOlO 
OMAR 9040 
OMARfOSQ 
0H«l>50«a 
IM«I>90T0 

cwARSoao 

IMARS040 
WARSIOO 
OHARSllO 
OMRSIIO 
0HM913O 
DHAR9I40 
0H«II«1S0 
OHWSliO 
OHARS ITO 

DMRRSiaO 
0HAR919Q 
0HAR9200 
0MM9210 
041AR9220 
0HARS2S0 
ONARJZAO 



Subroutines RHARM and DRHARM 

Given 2N real numbers Xq,Xi, .X2N_i, the sub- 
routine computes Fourier coefficients ao,^i,bi,a2, 
b2, .^N-l. ^N-l. a^N ^^ ^^^ equation: 



N-1 



1 v^ , /fJ'k, 

^ k=l 



where 



j = 0. 1...... 2N-1 

The subroutine HARM is called to compute the com- 
plex coefficients: 



N-1 



2iTi 



j-k. 



J = 
k = 0,l,2,...,N-l 

N N 

Then for k = 1, 2, ...,—- 1, — (the bar is 

conjugation) : 

^'k = ^\"Vk> 



n=i(Vk-V 



and: 



C = — (A', + A", e 
k 2 ^ k k 



,77 IT 1 ,. 



N , N 



for k= 1,2,...,— - 1, 



C . = — (A', - A", e 
N-k 2 ^ k k 



, IT ff.. 
(N=k-2)\ 



N , 
for k = 1, 2, ... .^ - 1 



Let: 



C =— (ReA -Im A ) 
o 2 o o 



C„= — (Re A +Im A ) 
N 2 o o 
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Finally: 



a = 2 Re (C ) 
o ^ o' 



aj^ = 2 Re (C^^) 



\ = -2 Im (C^) 



a^ = 2 Re (C) 



N 



N' 



*P2IM = -A(K5I-SI ♦4(<6*U»C0 

C(aE = .5«U(2»i-ntAP2Re) 

CIIH=.5*(A<2*I)+AP2IM| 
CNI«E=.5-IA(2»|-li-AP2Re) 
CNIIH=.5*U(2*I)-AP2IHI 
*(2*I-l 1=CIRE 

Aiz*i )=cnM 

AIK61=CMftE 

*(«6*ll =-CNllH 

SIS=SI 

5I=SI*SC*C0*S5 

116 CO'tCO'SC-SIS+SS 

SHIFT C(J)S FOR J=N/2*l TO J=N UP ONE SLOT 

DO il7 I=l,Nror,2 

Ke=NTOT*«*l 

A<Ka-2I=A(Kai 

117 *(Ka-l l=A(K8*ll 

00 500 l=3,NT0r2,2 

41 n == 2. • All I 

500 Al 1 • 1 I = -2, • A( I ♦ 1, 
RETURN 
END 



RMAWIPOC 
RHARIOIO 
«HAR1320 
RHA«1030 
KHARIOVO 
RHAR1050 
RHARI060 
RMAR10 70 
HHAftlcao 
RHARioqo 
RMARUCC 
RHARLLto 
RHAR1120 

RHAR1130 
RHAftll^O 

RHARII50 
RHAR116C 
RHARII70 
RHAR1180 
RMARll-JO 
RHAHI200 
RHAR1210 
RHAR1220 
RHAR1230 



SUBROUTINe RHARM 



RHAR 
RHAR 
RHAR 

RHAR 



PURPOSE 

fINOS THE FOURIER COEFFICIENTS OF ONE OrMFNSIONAL REAL DATA RHAR 

RHAR 



USAGE 

CALL RNARW (A 



H,tNV,S,lF£RRl 



DESCRIPTION OF PARAMETERS 

4 - AS INPUT, CONTAINS ONE DIMENSIONAL REAL DATA, 
2*N»* CORF LOCAriQNS. WHERE N = 2«*M. Z*H REAL 
NUMBERS ARE PUT INTO THE FIRST 2*N CORE LOCATIONS 
OF A 



IS 



RHAR 90 

RHAR IDO 

RHAR lie 

RHAR 120 

RHAR 130 

RHAR UO 

RHAR 150 

RHAR 16C 

RHAR 1 70 



AS OJrPUT, A CONTAINS TH£ FOURIER COEFFICIENrS 
»0/2,8O=0,Al.ai,A2,B2,...,AN/2,BN=0 RESPECTIVELY IN RHAR leo 
THE FIRST 2N»2 CORE LOCATIONS OF A rhaR 190 

AN INTEGER WHICH 0ErER>1INES THE SIZE OF THE VECTOR RHAR 2C0 
A. THE SUE OF A IS 2»(2»*M) ♦ 4 rhAR 2l0 

A VECTOR WORK AREA FOR BIT AND INDEX MANIPULATION OFRHAR 22C 
DIMENSION ONE EIGHTH THE NJMBER OF R£AL INPUT. VIZ. .RHAR Z 30 
I1/8)*2M2«*HI H^^R P^p 

S - A VECTOR WORK AREA FOR SINE TABLES WITH UIMENSION RHAR 250 

THE SAME AS INV rhAR 260 

"'^'*'' ' f.?^iy?^^P.y*!:i^^ ?! i '*^*'^^ ^"*'" '* '^ l-ESi T^AN 3 ORRHAR 270 



INV 



GREATER THAN 2?. OTHERWISE IFERR IS SET = 
REMARKS 

THIS SUBROUTINE GIVES THE FOURIER COEFFICIENTS OF 2*12** 
REAL POINTS. SEE SUBROUTINE HARM FOR THREE DIMENSIONAL. 
COMPLEX FOURIER TRANSFORMS 



METHOD 

THE FOURIER CO£FFICIE.>JTS A0,B0=0,AI, 

OBTAINED FOR INPUT XJ. J=t0tl,2, ,2 

EQUATION IPI = 3.1*159...! 

N-l 
XJ=(1/2IA0*SUH (AK*C0SIPI*J*K/NI*BK*SIN(PI*J*K/Nn- 

SEE REFERENCE UNDER SUBROUTINE HARM 



SUBROUTINE RHARM(A. M. I NV . S, IFERR ) 
DIMENSION A<1I,L(3I .INvm.Sd) 

IFSET=1 
L( 1»=M 
L(21=0 
L(3I=0 
NrOT»2**M 
NTQT2 = 2*NT0T 
FN = NTQT 

00 3 1= 2,NTOT2.2 

AIM = -Adl 
DO 5 1= t,NT0r2 
All) = AE li/fN 
CALL HARM! A. L. INV, S . If SE T, IFERR J 

MOVE LAST HALF OF AIJIS DOWN ONE SLOT ANO ADO A 
GIVE ARRAY fOR AlPRIME AND A2PHIME CALCULATION 



lit .. . •AN,8N = ARE 
l-I FOR THE FOLLOWING 



( 1/2 1 AN(-1 ) 



AT BOTTOM TO 



21 00 52 r=l,NT0T,2 
JC=NrQr2+2-I 
AIJ0l=fl{j0-2I 
52 A( JO*ll=A(JO-I) 
A(NTOT2»3l = A( II 
A(NT0T2*4I=A(2t 
C 

C CALCULATE AlPRIHES ANO STORE IN FIRST H SLOTS 

C CALCULATE A2PRIME5 AND STORE IN SECOND N SLOTS IN Rf 

K0=NrOT+l 
DO ICi 1=1, KO, 2 
KI=NTDT2-I+« 
APlRE = .5*(Am*AUll) 
AP2RE=-.5»(A(I»ll ♦A(Kl*l( ) 
AP1IM-. 5*1-AI I*11*A<K1*1( ) 
AP31H=-.5*iAtll-A(Kin 
ATI J^APIRE 
A( I+1(hAPIIM 
A(K1I=AP2R£ 
1C4 A(Kltl)=AP21M 
NTO = NTOT/2 

lie Nr=Nro*i 

DEL = 3. l-itS^zr/FLOATINTOn 
SS=SIN(0ELI 

sc=cos(oeLi 

SI=0.0 
CQ=1.0 

COMPUTE C(JIS FOR j=0 THRU J=N 
II* DO 116 1=1, NT 
K6=NT0T2-2*i t5 



VERSE ORDER 



RHAR 28 
RHAH aqo 
RHAR 300 
RHAR 310 
RHAR 3iO 
RHAR 330 
RHAR 340 
RHAr 3 50 
RHAR 360 
RHAR 370 
RHAR 38C 
RHAR 390 

RHAR 4 00 
RHAR 4 10 
RHAR 420 
RHAR 430 
RHAR 440 
RHAR 450 
KHAR 46C 
RHAR 470 
RHAR 480 
...RHAR 490 
RHAR 500 
RHAR 510 
RHAR 520 
RHAR 5 30 
RHAR 540 
RHAR 550 
RHAR 560 
RHAR 5 TO 
RHAR 580 
RHAR 590 
RHAR 600 
RHAR 610 
RHAR 620 
RHAR 630 
RHAR 640 
RHAR 650 
RhAr 660 
RHAR 670 
RHAR 680 
RHAR 690 
RHAR 700 
RHAR 710 
RHAR 720 
RHAR 730 
RHAR 740 
RHAR 750 
RHAR 760 
RHAR 77D 
RHAR 78C 
RHAR 790 
RHAR 800 
RHAR 810 
RHAR 620 
RHAR a 30 
RHAH 340 
RHAR 850 
RHAR a60 
RHAR 670 
RHAR 380 
RHAR 890 
RHAR 900 
RHAR 910 
RHAR 920 
RHAR 9 30 
RHAR 940 
RHAR 950 
RHAR 960 
RHAH 970 
RHAR 960 
RHAR 990 



SUBROUTINE DRHARM 
PURPOSE 

USAGE 

CALL DRHARM(A,M,lNV,$,|FeRR) 

DESCRIPTION OF PARAMETERS 

4 - A DOUBLE PRECISION VECTOR 

AS INPUT, CONTAINS ONE DIMENSIONAL REAL UATA. A IS 
2*N*4 CORE LOCATIONS, WHERE N = 2**M. 2*N REAL 
NUMBERS ARE PUT INTO THE FIRST 2*N CORE LOCATIONS 



OAAR 10 



ORAR 
ORAR 30 
ORAR 40 
ORAR 50 
ORAR 60 
JRAR 70 
ORAR SO 
ORAR 90 
ORAR 100 
ORAR 110 
ORAR 120 
ORAR 130 
DRAR 140 
ORAR 15C 
ORAR 160 
ORAR 170 
ORAR IBO 
ORAR 190 



AS OUTPUT, A CONTAINS THE FOURIER COEFFICIENTS 

ru'/l^olr'^.l'V'''^'^^ AN/2,6N-0 RESPECTIVELY IN DRAR loO 

THE FIRST 2N.2 CORE LOCATIONS OF A qRAR 210 

AN INTEGER WHICH DETERMINES THE SIZE OF THE VECTOR DRAR 220 
A. THE SIZE OF A IS 2*I2«*MI * 4 qRAR 230 

A VECTOR WOR< AREA FOR BIT AND INDEX MANIPULATION OFORAR 240 
DIMENSION ONE EIGHTH THE NUMBER OF REAL INPUT. VIZ. .ORAR 250 
1 1/St •2»(2*«M| Qj^^jj , 

A DOUBLE PRECISION VECTOR WORK AREA FOR SINE TABLES DRAR 2 70 
WITH DIMENSION THE SAME AS INV Srar III 

rncw^^r" "''''''^ "'' ' """^ ^"*^ " '^ '""S THAN 3 ORORAR 290 
CREATCR THAN 20. OTHERWISE IFERR IS SET - 



REMARKS 

THIS SUBROUTINE GIVES THE FDuRlER COEFFICIENTS OF 2*(2**M 
REAL POINTS, see SUBROUTINE OHARM FOR THREE DIMENSIONAL, 
DOUBLE PRECISION. COMPLEX FOURIER TRANSFORMS. 



METHOD 

THE FOURIER COEFFICIENTS AO, 80=0, AI , B 1 , . , . , AN ,BN=0 ARE 

OBTAINED FOR INPUT XJ. J=0,i,2 2N-1 FOR THF FOLLOWING 

EQUATION (PI = 3.14159...) 



N-l 
1/2IA0*SUM (AK«C0S(P1*J*K/N) 



■BK«SIN(PI*J»K/Nn^(l/2>AN(-ll 



SEE REFERENCE UNDER SUBROUTINE OHARM 



SUBROUTINE ORHARMIA.M, INV,S,IFERR] 

DIMENSION A( 1I,L(3I ,INV(n,S(il 

OOllflLE PRECISION A, SI , API IM.FN.CD.CIRE , AP2 I M, S, SS.OEL ,CI I H, APlRfc 
I CNIftE.SC,SIS,AP2RE,CNIlM 

IFSET=1 

L( ll'M 

L(2I=0 

LI 31=0 

NT0T=2*«M 

NT0T2 = 2«NT0T 

FN - NTOT 

00 3 1= 2,NT0T2,2 

3 A( I 1 = -A(I) 

DO 6 1= i,NI0T2 
6 Adl = AI I 1/FN 

CALL OHARM ( A, L, INV, S, I FSET , IFcRR ] 
C 

C MOVE LAST HALF OF AIJlS DOWN ONE SLOT ANO ADO A(Nt AT BOTTOM TO 

C GIVE ARRAY FOR A1PR1M£ ANQ A2PRIME CALCULATION 

21 DO 52 I- 1,NT0T,2 

JO=NTOT2*2-I 

AI J01=A1 JO-2) 
52 AI JD+1)=A( JC-1) 

A(NTOT2+3)=A( 1) 

A(NTOT2*4l=A(21 

: CALCULATE AlPRIMES AND STORE IN FIRST N SLOTS 

: CALCULATE A2PRIMES ANO STORE In SECOND N SLOTS IN REVERSE ORDER 

'(C = NTQT + 1 

00 104 1=1, KO, 2 

Kl=NT0T2-lH 

APlRE = .5*(A{H*A(Kni 

APZHE=-.5»lA{Itl)*A(Klf 1)1 

AP1IM = .5*{-A(I»U^A(K1*1) ) 

AP2IM = -.5»(AU)-AIKIU 

A( I)=AP1RE 

A(I*11 = A!>IIM 

A(P(1)=AP2RE 
104 A(-11*1)=AP2IM 

NTO « NTOT/2 
lie NT=NTD*1 

OEL =3. 14159265 3589793 /OFLOATINTJT) 

SS=DSINID£LI 

SC=OC0S(OEL> 

SI=0,0 

C0=1.0 



DRAR 300 
DRAR 310 
ORAR 320 
DRAR 330 
ORAR 340 
DRAR 350 
ORAR 360 
ORAR 370 
ORAR 380 
ORAR 390 
ORAR 4CC 
DRAR 41C 
ORAR 420 
ORAR 430 
ORAR 440 
DRAR 45G- 
DRAR 460 
DRAR 4 70 
DRAR 480 
ORAR 490 
ORAR 500 
■ .ORAR 510 
ORAR 52C 
DRAR 530 
ORAR 540 
r DRAR 550 
ORAR 560 
ORAR 570 
DRAR 5B0 
DRAR 590 
ORAR 600 
ORAR 610 
DRAR 62C 
DRAR 6 30 
ORAR 640 
ORAR 65G 
ORAR 660 
ORAR 6 70 
ORAR 680 
ORAR 690 
DRAR TOO 
DRAR 710 
ORAR 720 
ORAR 730 
DRAR 740 
DRAR 750 
DRAR 760 
DRAR 7 70 
ORAR 780 
DRAR 79C 
DRAR 800 
ORAR 810 
ORAR 820 
Of\AR Q}0 

ORAf! 840 
DRAR B50 
ORAR 860 
ORAR 870 
ORAR 880 
D«AR B90 
DRAR 900 
DRAR 910 
DRAR 920 
ORAR 930 

ORAR 940 

ORAR 950 

DRAR 960 

ORAR 970 

ORAR 960 

ORAR 990 
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cQMPure ciJis for j-o thru j=n 

ll<r DO 116 I'liNT 

K6-NT0r2-2»I*5 

AP2RE=&(K6)»C0*A(K&*L)*St 

*P2IH«-A(K6l*SI+*(AMl I •CO 

CIRE-.5*fA<2*t-l)*APi«EI 

CIIM=.5*{*(2*I1+AP2IMI 

CHIRE«.5»(A(Z*C-l)-AP2REI 

CNI IH*.5«(A( 2*1 I-AP2IMI 

AI2«I-1»"CIRE 

AI2*l}*CI[n 

AIK6l-CNIftE 

AHC6*ll*-CNnH 

SIS=SI 

SI=SI*SC*CO«SS 
116 CQ«C0*SC-SIS»SS 

SHIFT C(J)S FOR J=N/2*l TO J=N JP ONE SLOT 
DO 117 I=l,NrOT,2 

Ka-NTort*»»i 

ACKa-2>=A(K8) 
LIT AIK6-1I»A(K8*^U 

DO 500 I-3.Nr0T2«2 

A| II = 2. * Alt I 
500 All ♦ IJ = -2. • AU ♦ II 

RETURN 

END 



ORARICOO 
ORARLOIO 
0(IAR1020 
DRARLOJO 
ORAR1040 
ORAR1050 
DRAR1060 
ORAR1070 
DRARI080 
ORARI090 
OkAHllOO 
ORARlllO 
0RAR1120 
MAR1130 
0RAR11'>0 
ORARllSO 
ORARllbO 
DRARi I ra 
ORARllBO 
0RAR1190 
DRARI200 
OftAR12lO 
DRAR122a 
DRAR12 JO 

DRARi^^O 
ORARlZfrO 
DRARU70 



Subroutines APMM and DAPMM 

These subroutines determine a linear combination 
of M linearly Independent given continuous real 
functions, which constitute the Chebyshev approxi- 
mation of a given real function over a discrete 
range- 

1. Mathematical background 

Let us consider a set of discrete data {xj^, fj^=f(X|^)}, 
k = 1, . . . , N, which defines a real valued function 
f(x) over a discrete range, and M real continuous 
given functions {<pi (x) }, i = 1, . . . , M, on an interval 
containing [xj^, Xj^ ]. 

The problem is to determine a set of M real co- 
efficients [ai] that minimizes 



M 

w = Max I <p (x^ ) - f^ I , where <p(x) = J] a.<p. (x) 
l^ksN 1=1 

This problem can be expressed in terms of linear 
programming. At first, let us shift the unknowns 
so that the resulting ones are nonnegative: 



where 



^1 = -''^'^'^*'' V 



^M^ 



At each point, the error of approximation is given 
by 



\ = *P<V-^ 



or 



M+1 

^k= 2 ^<Pi<\)-^ 
1 = 1 



where 



M 



1 = 1 

By definition 

w = Max I e I 
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If we put (pik = (Oi (jq^), the original problem can be 
expressed as: Minimize w, subject to: 

M+1 
w + S (fl., b. sf 

M+1 

E 

i = l 
b. SO for i = 1 M+1 

w s 

In practice, it is more convenient to solve the 
following dual problem in the nonnegative variables 
^V \J' k=l,-.-,N: 



"".^. •^ik^"^ 



N 



Maximize Y, ^ (s. - t^ ), subject to: 
k = l ^ 



N 



k = l ^ '^ 



N 



E <P., (s. -tj so, i = l,...,M+l 



k=l 



ik ' k k 



\ ^^' \ ^^' f'^^ k= 1, ...,N 



Using the variables of the dual problem as 
slacks, these n + 2 constraints can be written as 
equalities: 



N 



k=i ^ ^ 



N 

k=l 

The dual problem is solved by means of a revised 
simplex method (inverse matrix algorithm) using 
the following initial simplex tableau where w, bi , 
. . . »b^ J, are basic variables: 

Note that the entries in the transformed top row 
under w, bj, . . . .bj^+j will be the optimal solution 
to the primal, that is, w and the bj's. 

A condensed tableau is used for calculation. The 
correspondence between the subscripts of the full 
tableau and these of the condensed one is given by 
means of the index vector IHE. 

When the procedure has reached the optimum, 
the top row contains on return: 

w Maximum error of 

approximation 
, M+1 Coefficients from which we 
can get the unknowns by 
a^ = bi - b]vi+i for i = 1, 
...,M 
. , N The error at the given 

points, according to 



b., i = 1, 



s^, k=l, 



^k = % 



w 



Top Row 



Variables s . 


■ -^N 




• *N 


w 


^ 


\ ■ 


• • ^M+1 


Maximize f . 


••^N 


-^l-- 


■ -^N 








. 


. . 


1 = 1 . 


. . 1 


1 . . 


. 1 


1 





. 


. . 


= <P,,. 


• -^IN 


-^11- • 


• -^m 





1 


. 


. 


' = ^21- 


• •'P2N 


^21- • 


■ ^2N 








1 . 


. 



=(p, 



<p, 



-^, 



M+1,1 ^M+1,N ^M+1,1 ^M+1,N 



^^ 







. 1 
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2. Programming consideration s 

For economy of storage requirements, the full 
Simplex tableau is not stored, but only the top row 
at any iteration step. Therefore, we must update 
an inverse matrix T which allows us to generate the 
needed pivot column at any iteration step from the 
corresponding initial column. The procedure termi- 
nates for the following reasons: 

a. An optimal top row is reached, indicated by 
the resultant error parameter lEK, which is set to 
zero. All the relevant data are contained in this 
top row. The corresponding subscripts are stored 
in a part of the integer vector IHE. 

b. No suitable pivot can be found. The resultant 
error parameter lER is set to -1. 

c. The number of iterations ITER has reached 
the internal maximum N+M. The error parameter 
lER is set to 1 as a warning. 

The subroutines APMM and DAPMM contain two 
tests for loss of significance: 



and the magnitude of the roundoff errors may be 
significantly reduced. When using an ordinary poly- 
nomial approximating function it seems tljat the 
roundoff errors are due to the wide range of values 
of the elements (p i^k in the initial tableau. 

b. If approximation by normal Chebyshev poly- 
nomials, shifted Chebyshev polynomials, Legendre 
polynomials, Laguerre polynomials, or Hermlte 
polynomials is desired, the subroutines CNP, CSP, 
LEP, LAP, or HEP, respectively from the SSP 
(Scientific Subroutine Package) can be used as the 
external subroutine FCT. 

For reference see: 

1. I. Barrodale and A. Young, "Algorithms for 
Best Li and L«= , Linear Approximations on a Dis- 
crete Set", Numerische Mathematik, vol. 8, iss. 

3 (1966), pp. 295-306. 

2. S. Vajda, Mathematical Programming. 
Addison- Wesley Publishing Company, Inc. , 
London, 1961. 



a. The first test is made when an initial column 
is multiplied by the rows of matrix T. The corres- 
ponding result DSUM is set equal to zero if the follow- 
ing inequality is valid: 

JdSUm! < HELP * EPS 

where HELP is the absolutely greatest intermediate 
sum formed during calculation of the scalar product- 
sum DSUM, and EPS is an internal tolerance: 



EPS 



I -5 

^ 10 in APMM 

f 10 in DAPMM 



b. The second test is made when a new element 
ip th e top row TOP is generated. The new element 
TOPi is calculated from the previous value TOP- 
by the addition 



TOPj = TOP. +DSUMi 



The new value TOPj is replaced by zero if 



TOPi + DSUMi 



DSUMj 



EPS 



where EPS is the above-mentioned internal tolerance. 
Some remarks are in order: 

a. In cases where the given approximating func- 
tions are polynomials, APMM and DAPMM are more 
efficient when used with orthogonal polynomials than 
with ordinary polynomials. The number of iterations 
required usually decreases with orthogonal functions 



SUBHOUTINE APMM 

PURPOSE 

flPPHGXMATE A FUNCTION TASULATtS JN N POINTS GY ANT LINEAF 
CDM^INATION Of M GIVEN CONTINUOUS FUNCTIONS IN THE S£NSE 

Qf LneeysMEv._ 

USAGE 

CALL APim FCT.N.M.TOP, I HEi P 1 V , T, I lER. lEP. ) 

PA«4M£TEk HCT REOUlHES AK cXTEPNAL STATeMENT IM THE 

CALLING PROGRAM, 



DESCftlPTION OF PAPAMFIgtS 



- NAMt OF SUBROUTINE TO BE SUPPLIED BY THE USER, 
IT CDHPUTcS VALUES CF M GIVEN FUNCTICNS FOP 
ARGUMENT VALUt X. 

USAGE 

CA4.L FCT(V,X,K| 

DESCRIPTION OF PAKAKgTERS 

Y - RESULT ViCICR OF DlMtNSlClM *■ COMAINING 
THE VALUES OF GIVEN CDNTtNUC'l.'S FUNCTIONS 
EOt- GIVEN fPCUMENT X 
X - ARGUMENT VALUE 
K - AN [NTEGLP VALUE WHICH I^ EOUAL TC M- 1 

REMARKS 

IF APPBOXK^ATHW 8V NORMAL CHEBYSHEV, SHIFTED 
CHESYSHEV, lEGfcNCKE, CAGUEKIE, HhfMITE POlyNQ- 
hlALS IS OESmtO SUBROUTINES CNP, CSP, LEP, 
LAP, HEP, HESPLCTIVcLY fHCf SSP CTULD BE USE3. 

NlJrtPf« a^ DATA CUINTS DcFIMING THE F l.hC T [ ON WHICH 

IS TO PE ADpcnxiMJTO 

NUMBER OF GIVEN CONTINUOUS FUNCTIUNS FRO*! WHICH 

The APPkCX!.*iAT!NG FUNCTION IS CriNMRUC I £0. 

VECTOR OF OIMf^NSIC'N 3«N. 

CN FNTBY IT MUST rONl^IN FROM TOpIU UP TO TOPIN) 

Thf GIVEN N EUNCTIJN VALUES ANO FROM TOPlN+l) UP 

TO rOP|?*NI THE CORRESPONDING NODE 5 

riN RETURN THP CONTAINS FROM TOP ( 11 UP 10 TOP(NI 

THE FOOUPS AT THOSE V \Ot:eS. 

OTHER VALUES OF TOP ABE SCRATCH. 

INTEGER VECrO-l OF CIMCNSION 3*M*<.*N»t 

VFCTOR TF OlMENSILN i*M*b. 

n\ ^EIU'N PIV C^_;^lT^ _,jr AT MUMU U? to PIVIMI Tti£ 

PESULIING COFFFICfFNTS L^F LINEAR APPfiDX I MATI GN. 

AUXILIARY VFCTU" IIF PImENSIUN (M*^ } *( M* ^i 

f-'^SULTArsi INTLGtK XH,CH SPECIFIES TliE NUMBER OF 

lTtR*iinNs NEenr-o 



- ^5>ULT4NT 

FCilM 

IER=0 - 
1ER=1 - 

IER=-l - 



E-^RDF PAf/!NETEf CODED IW THE FOLLOWING 

NO FkROk 

THE- NUHSEK QE ITERAIIONS HAS I^EACHED 

THE INTrct,,'\i_ f-AXIMUM N*H 

NO ktSULT (teCAUSE OF WRONO INPUT PA«A- 

METtk M OR N CR SINCE AT SCM£ ITERATION 

^0 5UI FfiBif r^^rr mid /if mm 



..APMM 

APMM 
APMM 
APMM 
tPHM 
APMM 
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EMAfiKS 

NO ACTION BESIDES ERROR 

N LESS THAN 2. 



MESSAGE IN CASE M LESS ThAN 1 Oft 



5U9P.L-.I]TINES Af40 FUNCTION SUBPkOCRAM? REiUlREO 

THE EXTERNAL SUBRnuiINE FCT hu S T PE FURNISHFD ev IHE USER. 

MtiHor» 

Tht PROBLEM OF APPROXIhATIDN A TABULATED FUNCMON CY ANY 
LfNcAF rOKPINATION CjF GIVEN FUNCTIONS IN THE SENSE Cf 
^^"^llrl^^Ll*'^'/^ HINIMIZC THE MAXIMUM ERROR) IS TRANS- 
FOFKFC INTG ft tINEAR PkOCRAMC ! riC. PRPBIEM. APMM y^FS A 
REVISED SIMPLEX METHOD tO SOLVE A CORRFSTONniK-. m.AL 
PRG5LEH. FO*-. REFEfi£NCe. SEE 
I.eeKHQDALE/A.YGUNG, ALGGfttTHMS FOR PEST L-SUE-CNE ANO 



APMM 

APMM 90 

APMM 100 

APMK 110 

APMM 120 

APMM 130 

APMM 140 

APMM 150 

APMM 160 

APMM 170 

AP^K leo 

APMM 190 
APMM 200 
APMM ?10 
APMM 2?Q 
AP-^M 230 
APMM 2^0 
fiP'IM ?50 
APV* 260 
APM" 270 
APMM 230 
APMH 2 90 
APMM 300 
APMM 310 
APMM 3 20 

APMM 330 

APMM 340 
APPM 3 50 
APMM 3 60 
APMP 370 
APMK 3flO 
APMM 'K'iO 
APMM 400 
APMM 410 
^^•'H t,20 
APMM 430 
AP-'M *.40 
4PM« 450 
AOMf 460 
APMM ^,70 
APMM 1.80 
APMM 
APMfc; 

APMf 
APM," 520 

APMf- 5^0 

APHK ^40 
APWM 550 
APMM ^60 
APMM 5 73 



«0 
500 



APMf 590 

fiCMW AOO 
APMM fcIO 
AP-^v 620 
APMM 630 
ePMM 640 
APMM 650 
APMK 660 
APMM 6 70 
APMC 6!!0 
APKM 6<)0 
APHK TOO 
APWK 710 
APfH 720 
APMW 730 

APMM 740 
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L-^Oit-INMM 1 V. llNfAO /posiUI HAl 1 CNS CM ft LllSCFfTt SM. 



SOfiPCUTlKF AP-MIFCT.N.M.inP.fHE.flV. T.IT(ft,ItRI 



DIM( NSITN TCP( U , lHt< I I ,PIVl i I ,H I I 
DPURLE PPfcC ISli^N O'Uf 

IFST ON VRONu K'PUT PAHMrTF^? fl ft^.O 

IF (N- n HI , -^1 . 1 

I If (Ml fli ,si .; 



M Tl f-Ll Zt Ch 



PfitPAIvt TUP-cCiW TOP 

no i I = ! . N 



ver Tot. s 



PBEPAfcF l^^/FPSfc TSANSFORf aT!Uf. ^'A■P.1X 



DO -i I-I.LL 




*. IM MO. 




J = LM 




D" ^ 1 - 1 . L 




T(K) = 1 . 




S K=K*J 




pcFt>Akf INOFx 


-v=cro=. 


CO '; 1 M . l 




K=I+l 




J^K*l 




tHEJ n - > 




IHf (»CI = [ 




t 1HE( j!-l-i 




NftN^N'K 





J = J •- i 
!HF( J 1 = 1 



T r '^ & I 1 i! 



St r i. :.[j-n :^ 111^ 

ffSr I n^* WAXIMUV ITi t'/il (JN-STiP. 
If <->!f^-[T'-,R) 9.',-, IC 

r.U T'l 64 

n'-rF«MjN': iMi-- r.riL 
10 isr=fl 



t TM FME P'Jbl PnSITJVi tLlMrr'T I'! ^ VP 



SAVF=0. 

STflRt '"I'-P-LrOP 
rtn 1 -. [ : I . h fl rg 

MCLP-Tr^l '. 1 

[piHet.°-stvn i?.!.'! It 

I 1 -.fiVE^MtL" 
|P1V=I 

' ? IF( IHFI I I)P1 ) 1-1 P. l'- 
13 ISF=I 

1'. CT-iT IMue 

FND 0'- TCP-L :;C.^ 

IS '-PrlMAL Tfi'^lFAlJ REACHF.l 
IFl IPiV) .S-,f,';, 1"^ 



rHi^ PTVGI-tieMEM TGR THJ .-.iJLJ'^N CMOSF^- UP' 



[FIJI ^l■il. S". 

If) K^C.-l 1*L 
on 17 1=1,1 
J = L+! 

K^K* 1 
IT PIV(J)=T(K) 



Loeo Fo 



IS ftNJT-tfP COLU" 

n ISE=-1SE 
J = L*1 

ir)ri=L*-L 

DO 23 r= J. IOC 
K= I tL 

?0 P[V(<t=PIV( I 1 

21 J=|PTV 
GC? r- BA 

SEARCH PIVOT-ELEMEMT PIVIINJl 

22 5Ave = l.E 33 
iDr=0 

!N3=0 

START PIVCI-LOOP 
00 2"^ l=K.LL 
J=ltL 

HELP = P!VI I ) 
IFlHfLP) 2'».2'»,?i 
??i HELP=-HELP 

IFI I SE I ?/>, 2<i, 26 

2^ If ( IHEIJ 1 I J7.25.?7 

25 100=1 

GO TO 29 

26 HECP=-PI V(J)/HFLP 

?T IF(HELP-^avE) 7P,?S,29 
:?6 SAve^'^^LP 



I f GR PIVUr-£L tHENI 



APvy 


TSO 


APfr 


760 


AOWM 


770 


APKK 


7fl0 


ftPft^ 


790 


ftpMV 


BOO 


aPM" 


ein 


flPMK 


9?0 


APMM 


6 30 


AP"** 


P-iC 


APMK 


850 


f PM* 


6ftn 


ftPMM 


870 


ipvu 


880 


APC« 


eso 


c oy)- 


900 


APKM 


PIO 


APCK 


^20 


APMM 


-5 33 


AP*'*-' 


^40 


(P-'M 


9S0 


apf^c 


960 


ftp«w 


970 


4P^'K 


■SSG 


fiPMf 


oaO 


APM*' 


1000 


AP"" 


1010 


Apv|/ 


1020 


ftp MM 


lOJC 


flpv,« 


1Q<.0 


Af'V 


11'C 


flpy*^ 


106O 


fiPM" 


lOTO 


flpWK 


10<10 


flPMMiO90 


if MM 


lion 


fiPWHlllO 


BPHf-1120 


fli-M^ 


1 I iO 


A.-Mf 


1 t<.P 


fi5f V 


1150 



AP'-M1230 


APW-'l210 


Ar-MMI 7'0 


A^'^^'l2^o 


tt•>M^-l2'.0 


ftPMV|2',0 


ftDM*^12tiO 


APM") 270 


ftPM^lilO 


flP-'MU'iO 


fiPMM13^0 


APM»-U U'"^ 


fiPt'Fl i^O 


APfHl ISO 


flfMMl"l<.0 


APWM1350 



fP^y 


1^00 


4P*n« 


1*.10 


Apvr- 


l'.?0 


f. pwf'I^JO 


APMS 


f'.'.O 


(\PV« 


X'.'^.n 


ao,vi.' 


I'.^O 


APM" 


l',70 


flPW 


I ".80 



IND^i 

29 CCNTINUF 

ENO CF PIVOT-LOnp 

TEST FPR SUITABLE P t VPT -E LE ME NT 
IftlNOI 30,30.32 

30 IFUOrt 68.63,31 

'»IV:T-ELtMfNT IS STOPta IN PIVdOl 

COMPUTE THE teciPftOC^L Of THE p I V'U-FLEMFNT RE P I 
3? R£Pl = l./PUUNr)l 

UPRftTF THE TOP-ROH TCIP CF TF^F TS6L'^>U 
IL*B"0 

SAVE — TCPt IPIV)*REP! 
TPP( |PIVI=S4VE 

INITIALIZE J AS CDUNTtF fVV TOP-LOOP 
J = NAN 
33 IFtJ-IoiVl 3*. 53, 3* 
3* K=0 

SCAOCh rOtU'^N IK TR4NSF0'^MATI0^-MAI'^I)t T 

00 36 I=liL 

IFI IM€( I »-Jl 36, 35. 3t 
3 5 K=I 

IFtlLAHl 10. 50, IS 
36 CONT IN'JE 

GcN'E^ATr; CCLL'^'W USING SUPRCUTINE rCT AND TftAMSFOPM 
I=L*L*L»NAN»J 
I=IHE( I)-N 
IFll) 3T, 17,39 

3 7 l=I«-fJ 

K = l 
IB I=I*NAN 

FALL SUSfcflUTINE fCT 
CAIL FCT(PIV,TnP(I t ,fi-ll 

P?fP«RE IHE CALLEI VECrOI PIV 
DSUM=0.nO 
IDr = M 

DO *l i=^UK 
HELP=PIVf 1301 
IF(M 3'5,3<),4n 
30 HELP=-HtLP 

4 DS(Jf = DSU!^»OBLEI HELP) 

oiv( iDo»n=HeLP 
M 1 00= I on- 1 

PI tf<L)=-t)SJ'' 

piv< n=i. 

TRflNSfCtM VECTOR PIV WITH feCWS 'Jh MATRIX I 

!DC=IN3 

IFULftrJ) '.A,*.'., '.2 
*.2 K»l 
A3 IOO=K 
44 OSUM-C.nO 

HELP'O- 

STArl '^ULTIPLICATIGN-LOO.' 
DO 4f> 1=1, L 

OSU»'=OSUyi*D'*LE|PIVn)*TI iD^TU 
TOL-ASSt SH&H3SU«<» I 
IFITOL-HELOI «.6,i.6,<.5 
4^ HELP=TCL 

46 IDO=I0n*L 

END OF MULTIPLICATION-LOOP 

TOL-l.e-StMELP 
IFtAeS(SN5L(DS0Kll-T0Ll A7,47,4fl 

47 DSU«=0.00 

48 IF! ILAP) 51.51 .49 
40 l=K*L 



fiPff l'?2C 






piv(n=csuH 


Acy-'ISIO 


c 






AP"''1'^40 


c 




TESl FCfi LAST COLU-^J-TeU" 


APW^'lb^O 






((«K*1 


(PM«1560 






IFIK-LI 43,*3,19 


fiP-',Ml57'^ 




50 


1= IK-l »»L + 1N0 


ftP-'yi'^''0 






DSUHsTll » 


flOMi-l=;qi) 


c 






AP^f l&OO 


c 




CO-PUTE NEW TOP-eLPNENT 


APfMlblC 




51 


0SUM=D$U»1*DSLe(SAVf 1 


APM»-lfr?0 






TOL"l.E-5»A6S<SNW.(0SIJ'*lt 


AP''*'I6 30 






TnP(J(=Tr-P(Jl*SNGL(OSUM) 


APWPI640 






IF(AeS(TOPIJl)-^OLI 52,52.53 


APMMI650 




52 


TDP( Jl=0. 


APVflfcbO 


c 






flPf-Vlf;70 


c 




TEST F-^R LAST TtP-TEftH 


APMM16nO 




53 


J=J-1 


APHM1690 






IFU) 54.54,33 


AP*1WI 7 011 


c 




END OF TOP-LOOP 


APMPinn 


c 






Ai.-f 1770 


c 




T«ANSFlJ*H PiVGT-COtUMN 


AP-^~117 30 




54 


I-IND+L 


AOMM1740 






PlVd l=-l. 


APMW1T50 






00 55 I-1,L 


flfMMW^O 






J- I*-L 


APl^*1i7T0 




5-; 


PIVl 11 — '»[V(J)*?£PI 


tPMMl 7dO 


r 






APMf'1790 


c 




UPDATE TRANSFOBMATION-MATRI 


tPKfieop 






J = 


CPVt'1810 






oa 57 i = UL 


APMMlfi^n 






IDD-J+IKfl 


(^PMMIBIO 






$AVE=T(IOO) 


AP?1MlP4n 






Tt IDCI=0. 


APMHia-^o 






DO 56 K-l.L 


APHP'1860 






ISE=K*J 


A°MM1670 




^6 


r(rsEMr(ise)t5*i'f*fiviu 


APMMI 880 




57 


J = J*L 


APMMlfl90 


c 






flPMMiqOO 


c 




UPDATE IND^K-VECTQR IMF 


A^MMimO 


c 




INITIALIZE CMARACTERIiTICS 


APSMI920 






J=0 


APMMiq^O 






K^O 


aPliilMiqt.0 






ISE=0 


APMMiq'io 






IDO=0 


AP«''l960 


c 






4P«Siq7Q 


c 




START QUESTION-LOOP 


APf-^i^eo 






OG 61 I« l.L 


APMM1990 






LL-I+L 


ft?MM2C00 






ILAe=IHFILL) 


APfM2010 






IF(IM6(II-iPIVl 59,58,59 


APMM202O 




58 


ISt=l 


APM«2(I10 






j«ri AB 



APMH2U40 
ABM»(?0'^0 
APMf»?060 
APM-ZOTO 
APMM2080 
APMMjaqo 
APMM2100 
' AP'«M2110 

APMt'ZWO 
ft'>'*i?l30 
APHM2'.40 
«PfM2150 

»-'HK2160 

APHM2irO 

apM«2ieo 
a:'mm2190 
Ai»M "42200 
APMMZ210 
APMM2220 
APMH2230 
ik"nyi22t.o 
APMM2250 
APMM2260 
APMM?270 
APMK?2<I0 
ADMK2Z90 
4PMM2 300 
APHI1I23IO 
AP«K23?0 

AOMM23SO 

|0N-»1AT<(IX APMM2350 
aPMf2363 
APMM2)70 

AOMM23S0 

APf*f23'»0 
6P»'f2400 
Apw-Z-iJ 3 
APMM2t20 
APMH2430 
*P|y,<2i.40 
APf<1f>2 4Sa 
APWH2460 
4pMV2*,70 

COMK2490 
tP^vptflO 
AP-f^eiO 
APMM?=?0 

/>?•" "12530 
APJ1M2540 
iP«».255C 
AP*!f*25t0 
Bf-f'2570 
APMH2 5P0 
APKH^B^O 
APMf<2600 
AP"1M2610 
APMH2620 
APiM2630 
AP^«2t<.0 
APMM2650 
AP1M2650 

ao»'M2670 

APM'^?6»0 
AP*'M2690 
flPMM27O0 

APMM27I0 
AP«W27'0 
AP«''2 730 

4PMMZ740 

AOMM27'iO 

APMH2740 
AP-M2770 
AP'4'^2780 
APHM2770 

4PMM2 6O0 
APW^eiO 
APM*!28?0 
flP-HW^e^O 
APM'*2e*-0 
APMHjn'iO 
APMM2e^0 
ftpwn2e70 

AP^^M?fl30 
AP''«28'J0 
APM«2qiO 
APM»«2'3lt) 
APMM2'320 
fiPMH2930 
APf*»2940 
AP'"^2950 
APMM2460 
APW»2<)70 
APKM29 80 
APM«2'3'»0 
AP«'H3000 
AP1M3010 
APH»*3020 
APNM3030 
AP1M30A0 
APMMjnSO 
APM*']060 
APMM30T0 
AP"W3080 
APHMIO-^O 

5DKWJ100 

APMM3110 
ftPMi"3iaO 
aPMfi3130 
AP«iM3l40 
AP*1«1150 
APMM3160 

APMM3lf() 
AP«»'3190 

4PMM?190 

AP'*M320O 
AP«t'<32lO 
APNM3220 
APHM3230 
AP«*"3?40 
APHM32 50 
APMM3260 
APMB3270 
APMM32aO 
APMf32*»0 
APHM330O 
APMM3310 
««fM3320 
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5<) IF(lL«B-|Nn) 61,fc0.61 

60 100- I 
K-iH6( 11 

61 COMTINUC 

EhO OF QUESTION-LOOP 

START ^OOIFICitlUf* 
IF(RJ S2,6i,63 

IFIISEl ^T,ft7,t5 
A3 IP(INO-J) b'i.fto.fc* 
6* CC-L*L*L*N*N 

K«K*LL 

I«lP|VtLl 

IL4B=IHE(KI 

IHE(tC|xHE( II 

iHft n-ILAfl 

IFCI'iFt 67,67,65 
65 100=100*1 

l=I5F+L 

1H6( IOOI=J 

IM€I II^IH:) 
6ft IHEI ISEI=0 
67 Lt=L*L 
J*(.L*IN0 

ILifi=lHE(II 
IMei f)-lH£(JJ 
IHEIJ1-ILA6 

END Tf MOOIF ICATIOM 

GO rn 9 



68 ten 



SET ERSrfi PARAHETEfi IER = -l SINCE NC SUITABLE PIVT IS fPUNO 



; EVAlUiTE flNAl rABLcau 

: cw>jTg SAVE ^s nAxinw- e-^-inft gf AP;>ftr'KH-Ar ign and 

HELP AS AODITIUE CO-^STANCf FOR HCSULTlNci CO€FFJCIENrS 

HELP=0, 

tt«L*L*L 

0-^ 73 1 = 1, NAN 

IOO=K*I 

J=IHEt 1001 

IFUl 71,70,73 

70 S«VE=-rnP(ij 

71 IF(H*Jtn 73,72,73 

72 HFLP-rooiU 

73 ca^^INtJ^ 

PREPARE T,TCP.PIV 
Tt M = SAVE 

IOO=NaN*t 

JiNAN»N 

0" 7« i-ua.j 

r* TCP(I1=SAVE 
DO 75 l=l,H 

75 PIVI I l=HeLP 

COHPUIt COEFFICIENrS OF HESULIING PQLYNOHIAL IN PiVfll UP TO 
AND CALCULATE ERRORS AT Glvgh MOOES IN TOP(l) UP TO TDPIN) 

on 79 1=1, NAN 

1D0*K*I 

j=iHF( roci 

IFIJI 74,79,77 

76 J=-J 
PIVlJ)=HeLP-TOP( ( ) 
GO TC T9 

77 IFIJ-NI 78,73,79 
7a J=J+hAN 

TOP(JI=SAVE»TaP( I> 

79 CONTINUE 

00 80 1=1, N 
ID0=N1N*I 

80 TOPI 1 J=iTOP( lODJ 
SI RETUKN 

EnJO 



APM-H JO 
APMt-SS^O 
iOMK3350 

ipfxi j7a 

APMH33a3 
APMH3390 
APMM3A00 
A»«Mi4lO 
APMM3*20 

*PMM3ii*0 
APMMjt^O 
AOMM3*60 

APfMl^SO 

*PH^'3«qo 
APMM3*500 
APMM3510 
APMM3SeO 

APMM3SS0 
APMM3560 

APHM3370 

APMM>S30 
APMMJ^TO 
4PM.13600 
APMH3610 
AP«'*36?0 
AOMM3630 
A»M»136'.0 
AP—43650 
APM'»3<,60 
A3HM3670 
A.'MfilftflO 
APM(«3640 
APM-iJTOO 
A'»»l«3 7IO 
AOMM372D 
A''M,'(3 710 
APMM3 740 
APH'H3 7SO 

A=MM3770 

APMM3790 

APMW3H10 

APH*13S'0 

APH«)840 
APHMifi-iO 
AFWr'SiO 
4PMf3e70 

APMVSpgg 

APMf.390P 
APMM3S10 
APMM39?fl 
PIAPMM3<J30 
AP>iM3^<>0 
APMK3950 
APNM3<}60 
APKM3970 
APMf3950 
APMK3990 
APHK«000 
APMfAOlO 
APHf*«0?0 

APHH4030 

APHM4C^0 
*PfiH't050 
APHMV060 
APMf44O70 
APMH4080 
APMM'iO^O 
APMM4100 



- 0(*JBLE PfiEClSICN VECTOR Of OIMEMSIIn 3*m»6 

CN PETUflN »lv CONTAINS AT P|VUI U"* TO PIV(«I THE 
BESULTlNf, COEFFIClENrS 0«^ LINEAR *<> PRQK IHAT I ON. 

- DOUBLE 'PECISION AUXILIARY VECTOR Of OIHENSION 



SuewOUTINE OAPMM 

PURPOSE 

APPROXIMATE A FUNCTION TABULATED IN N POINTS BY ANY LINEAR 
CDMBINATIGN OF M GIVEN CONTINUOUS FUNCTIONS IN INE SENSE 
OF CHEBVSHEV. 

USAGE 

CALL OAPMmfCT,N,M,TOP,lHE,PIV.T,irER,IEPI 
PARAMETER FCT REQUIRES AN EXTERNAL STATCMENT IN THE 
CALL ING PROGRAM. 



OAPM 10 
.OAPH ZQ 
DAPM 30 
OAPM 40 
DAPf %0 
OAPM 60 
OaPH TO 
OAPM 80 
OAPH 90 
OAPM 100 
DAPM no 
OAPM 120 
OAPM 130 



DAP 



1*0 



DESCRIPTiriN tlF PAOANETFRS 



- NAME OF SUBROUTINE TO BE SUPPLIED BY THE USER, 
ir CO«<PUT£S VALUES CF « GIVfcN FUNCTIONS FDR 
ARGUMENT VALUE >1, 
USAGE 

CALL FCTIV.X.KI 
OCSCRIPriON OF PARAMETERS 

V - OnUfllE PRECISION RESULT VECTOR ?f DIMEN- 
SION M COKTAINING THE VALUES OF GIVEN 
CONTIKOOUS ^UNCTIONS FO" GIVEN APGUMENT 
K - DOUBLE PRECISON ARGUMENT VALUE 
« - AN INTEGER VALUE KHICM IS EQUAL TO M- 1 
Rf"!A«KS 

If APPkOftHiTIOK hi WOPMAL CHffiYSHfV. SHIFTED 

CHEBYSHEV, tEG£ND-*E, LA&JERRE, HERMITE P0LYN3- 

flALS IS DESIRED SUBROUTINES OCNi". OCSP, DlEP, 

u,m^A^\^^i'X RESPECTUELy FROM SSP CCULO 8£ USED 

" ?r?n «?'* = r* '^""'^ DEFINING THE FUNCTION «H1CH 

IS TO fit APPROXIMATEQ 

" r«-*'*L?! *^'*'^"' 'CONTINUOUS FUNCTIONS f-QM WHICH 
rnn/r """^^"'^ FUNCTION IS CONSTRUCTED, 

- DOUBLE PRECISION VECTOR GF OIMENSIQN 3*N. 

ON ENTRY IT MUST CONTAIN FROM lOPfll Uo TO TOPtNl 

THE C^VtN N FUNCTItN VALUES ANO FrJm THP SmH? 

TO T0P<2»N| THE COR*<c SPOVOINC NODES 

iy« = n^^?^ CONTAINS F*OM TDPUl UP TO TOPINJ 

JHE E1R0CS AT THC/5F N NODFS. 

OTHER VALUES OF TOP ARE SCRATCH. 

- INIEGER VECTCR CF DIMENSION 3*M*4*N»6 



OAPH 150 

OAPH 160 

DAPM ITO 
DAPM tflO 
CAPH 190 
OAPM 200 
DAPy 210 
CADM 220 
OAPM 230 
DAPM ?40 
X OAPM 250 
DAPM 260 
OAPM ?70 
OAPM 280 

OAPM 300 
OAPM 310 
■ DAPM 320 
OAPM 3 30 
OAPM 3^0 
OAPH 350 
OAPM 360 
DAPM 370 
DAPM 3R0 
OAPM 390 
DAPM *00 
OAPM 410 
OAPH A2l) 
OAPM 430 
CAPM A<.0 



NUMBER CF 



(1*2I*(1+2I 

RESULTANT INTEGER -H | CH St>eCIFIES 

ITEPATIONS NEEDED 

RESULTANT ERROR PARAMETER COOED IN THE FOLLOWING 

ieR=0 - NO ERROR 

IEf,= l - THE NUMBEP OF ITEilATIQNS HAS REACHED 
THE INTERNAL MAXIMUM N*M 

IER=-! . NO RESULT BECAUSE OF MRCNG INPUT PARA- 
METER M CR N OR SINCE AT SPMt ITERATION 
NO SUITABLE PIVOT CQULO BE FOUNO 



NO ACTION BESIDES ERROR MfSSAGc 
N LESS THAN 2. 



IN CASE M LESS THAN 1 OH 



SUflOCUTINES AND FUNCTION SUIPROGQAMS REAllREO 

THE EXTERNAL SUBROUTINE FCT MUST BE FURNIS^EO 9Y THE USER. 

McThOD 

The oqpaLE" OF AOPPDXIMATION A TAHULATEO FUNCTION BY ANY 
LlNcAX COMBINATION OF GIVEN FUNCTIONS IN THE ScNSE OF 
CHEBYSHCtf (I.E. TO MINIMIZE IHt MAXIMUM ERROR! tS TRANS- 
FCR-^EO INTn A LINCA'I PRDCHAMMING PR09tEM. DAPMM USES A 
REVI5ED SIMPLEX ^EThOO TO SOL V^ A COOR ESPONDI ^G DUAL 
PR03LEM. FOR REFERENCE, SEE 

I.eA«4004i.E/A.Y0UNG, ALGDRIIH-1S FGR 3£ S I L-SUB-CNE AND 
L-SUS-INFINITY, LINEAR APPROXIMATIONS ON A OiSCRETE SET, 
NUMtllSCHt MATHE>HTU. VOL.d, I5S.3 ( |S66) . ^P. 295-306, 



SUBRQUTINF DAPMM) FCT ,N, M. TOP, lH£,PlV,T,|TeR,leR) 
C 

DIMfNSICN TOPI 1) ,IHEII),PIV1 1»,T(1( 

Onj&Lt PRECISinM OSUM, TOP, PIV.T. SAVE, HELP, REPUTOL 

C TEST ON WRDN'^ INPJI PARAMETERS N iHO H 

1ER=-1 
IF (N-l) 31.81,1 

1 1F(M J ai . H ,2 
C 

C INITIALIZE CHARACTERISTIC VECTORS FOR THE TABLEAU 

2 tER^O 
C 

C PPEPAPE THP-cow TGO 

00 3 I - 1 . N 
K^I + N 

J=K*N 

TOPIJlsTOPIKI 

3 TOP(K»^-TOP) ] ) 
C 

C PREPARE INVERSE TRANSFORMATION MATRIX T 
L = M*2 
LL»L«L 
DO 4 1 = 1, LL 

4 T(I)=u.DO 

K-l 

J = L*1 

00 5 I=1,L 

T(KJ=i,00 

5 K=K»J 
C 

C POE»aPE INDEX-VECTOB IHE 

DO 6 f = I , L 
K=I»L 
J = R*L 
IHEI 11^0 

iHe(Ki=[ 

6 1H£(J|=1-| 

^AN=N»N 
K-L'L+L 
J = ((*N.*rJ 
DO 7 1 = 1, NAN 

IHE((0=I 
J=J*l 

7 IH51JI=I 
C 

C SET COUNTER ITER FOR I TERAT IPN-SIEPS 

ITER=-1 

8 ITEBsITEC*! 
C 

C TEST FOR MAXIMU>4 ITEHATlnw-SIEPS 

IF(N*H-ITER) 9.9,10 

9 IEB=1 

CO TO 69 
C 
C DETERMINE THE COLUMN WITH THE HOST POSITIVE ELEMENT IN TOP 

10 ISE=0 
IPIV=0 
K=L»L»L 
5AVE = 0.C10 

STAkT TDd-LOGP 
DO 14 1=1. NAN 

IOr7=R»I 
HELP = Tnpr I I 

IFIHELP-SAVEl 12,12.11 

1 1 SAVE=H£LP 

IPIu=r 

12 IF(lHElIOni) 14,13,14 

13 JSE=I 

14 rONTINUE 

END OF TOP-LOCP 

IS OPTIMAL TA&LEAU REACHED 

15 ILAb"""'"*^ ^''^ PIVOT-ELEMENT FOR THE COLUMN CHOSEN UPOVE 
INO=0 
J=ISE 
IFIJ) 21,21,34 

TRANSFER K-TH COLUMN FROM T TO PIV 
16 K»IIC-n«L 

DO 17 1=1, L 

J*L*I 

X-K*I 
I T PIV(JI=T(K) 



OAPM 450 
OAPM 460 
DAPM 470 
DAPM 430 
OAPM 490 

OApy ^00 

OAPM 510 
OAPH 5?0 
OAPM 530 
OAPM 540 
DAPM 550 
DAPM 560 
DAPM 5 70 
OAPM 560 
DAPM 590 
OAPH 600 
DAPM blO 
OAPM 620 
DAPM 630 
OAOM 640 
OAPM 650 
OAPM 660 
DAPM 670 
OAPM 660 
DAPM 690 
OAPM 700 
OAPM 710 
04PK 720 
OAPM 730 
OAPM 740 
OAPM 750 
DAPM 760 
DAPM 770 
OAPM 730 



. . ... OAPM 790 

OAPM eon 
DAPM eio 

DAPM 820 
OAPK 930 
OAPM 840 
OAPH B50 
OAPH 860 
DAPM iJTO 
DAPM 9B0 
OAPM 8 90 
DAPM 900 
OAPM 910 

OAPH 920 
OAPM 930 
DAPM 940 
OAPM 950 

DAPM 960 

OAPM 970 

DAPM 9B0 

OAP" 990 

OAPMICOO 

OAPMIOIO 

DAPH1020 

0APH1030 

DAPM1040 

0APM1050 

0APH1060 

OAPH1070 

OAPM 1 080 

0APHIO9O 

OAPMllOO 

DAPMl IIP 

0APH1120 

0APM1130 

0APM1I4Q 

OAPH 1 150 

DAPMI 16C 

DAPMl 170 

0APMU80 

DAPMl 190 

DAPHI200 

0APH1210 

DAPM1220 

DAPM1230 

OAPM 1240 

0APMI250 

0ftPM|260 

DAPM1270 

OAPM 1280 

0APM1290 

OflPMlJOO 

0APM1310 

DAPMn20 

OAPM1330 

0APM134O 

OiPHUSO 

DAPM I 360 

DAPM13T0 

DAPMI 390 

DAPMl 390 

OAPM! 400 

0APM1410 

DAPMl «20 

OAPM1430 

DAPM1440 

0APM1450 

DAPMl 460 

DAPM1470 
DAPM14B0 
DAPH1490 
DAPMl 500 
DAPM1510 
0APM1520 
OAPMI530 
DAPMl 540 
0APM1550 

OAPM1570 

OAPMlsaO 

D4PH1590 

DAPM1600 

0APM1610 

DAPM1620 

0APM1630 

0APM1640 

0APMU50 

DAPM1660 

DAPM1670 

0APH1680 

DAPM1690 

DAPMl 700 

OAPHiriO 

DAPMl 720 

DAPMl 7 30 
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19 ISC=-ISE 

TRiNSFEH COLUMNS IN PIV 
J=L* 1 
IOD=L+L 
. DO 20 I'J. 100 
Ml + L 

20 PIV(t'.l=PIV( I I 

21 J-IPIV 
GO TO 34 

SE»«CH PIVOr-ELEHENT PIVdNDl 

22 SAVE=1.038 
100-0 

IND-0 

ST4PT PIVOT-LOnP 
DO 29 l=K,LL 

HELP = P1V( I I 

IFIHELPl 29,29,23 
2i HELP=-HELP 

IFUSEl 26124,26 
2*. IF(IHE(J)) 27,25,27 

25 IDO=l 

GO TO 29 

26 MELP'-PIVU I/HELP 

27 IFIHELP-SAVt ) 2S,2'i,29 

28 SAVE=HELP 
1ND=1 

29 CONTINUE 

END OF PI VDT-LOQP 

TEST FOR SUITABLE P 1 VOT-ELE MENT 
If^( INOI :iO,'iO, 32 

30 1F< lOOl 66,68, 31 

31 IND=1DC^ 

PIVOT-ELEHENT IS STOPEO IN PIVdNDl 

COMPUTE THE tlEClPftOCAL ^F THE P I VOT-ELE Ht NT «fPI 

32 fiEt*I=l.DO/PIV( rNt.;i 
INO=rN0-L 

UPDATE THE TOP-ROiV TO? Of THE TftBLEAU 
ILA8=0 

SAVE = -I'^P( JP|V)»REP 1 
TOP( IPI V ) =5AVE 

INITIALIZE J AS CQU'tTER FCK IC°-LOaP 
J = MN 

33 IF(J-IPIVl 34,53,3'. 

34 K=0 

SEARCH COLUMN \H TH ANSFOft MAT I DM-M4I « I X T 
DO 3 6 I=i,L 
IF 1 IHE{ I 1-J 1 16, 36. 36 

35 K=l 

If 1 UAB) 50,50, 16 
3o COhTINUE 

OeNECATE COLL'HN USING SDSfiOJTlNE FCT AND TnftNSFCC 
l=L»L*L+NAN+J 
I=1HE(I(-N 
If ( I ) 37. il, 36 

37 l=l+N 

38 I=I*NAN 

r.ALL SLJBROJTINE FCT 

CALL FCT IPlV,TnPl I 1 . M- 1 I 

PREPARE THE CALLED VECTOR PIV 
DSUM*0.nn 

ion=H 

DO * I 1=1,'' 
hELP=PIVI 1001 
|F(K1 3'»,3S.40 

3") HELP^-hELP 
40 DSUh=OSUM*HELP 
PIV( tOOtl)=HELP 

VI lon-iDO-i 

PIV(L)--DSUM 
PIVU) = UOO 

; FRANSFURM VECTOR PIV WH^^ SOhS CF •lATRIX T 

lDn=INO 

IFI ILAB) ■£.<.. V*,*.? 
',2 K=l 
43 IDQ=K 
4A OSUM=0.00 

HELP=O.DO 

: START MULTiPLICATICN-LOOP 

OO 46 I^ 1,1- 

DSJ«=DSUM*P1V( I )"T I IDOI 
TOL=DAaS(DSUM) 
IF(TOL-HtLP) 46,46,45 
^iS HELP = rOL 
^.b 100^lDn*L 
: END OF MULT|OLlCATION-tOCP 

TDL = 1.D- l'-*MELr 

IF(DA8S(DSUM|-T[1L) 47,47,48 
*,7 DSUM=0.DO 
V0 IF<IL«Bl 51.51.49 

49 l=KfL 

PIV( I l=DSJH 
C 
C TEST FDR LAST COLUMN- TEP"! 

K = H.* 1 

1F(K-LI 43,'.}. 18 

50 I=(K-ll*L»IND 
DSUM=T) I 1 

: COMPUTE NEW TOP-ELEMENT 

51 OSUM=DSLJM*iAVE 
T0L=l.D-l4«DA3S( DSUMI 
TOPI JI = TOP< J UOSUM 

IF (0A6S1TJP( Jl (-TOLI 52,52,53 

52 TOP(J)=0.00 

: TEST FQ« LAST TOP-TERM 

53 J=J-1 

IFtJI 5'., ^4, 33 

: END OF TOP-LOOP 

; THANSFOFM P I VGT -COLUMN 



OAPMl 740 
DAP"! 750 
DAPM1760 
0APM17TO 
DAPM1780 
OAPM1T90 
OAPMieOO 
0APH1810 
DAPM1820 
OAPMieJO 
DAPM1840 
0APH1S50 
DAPM1960 
OAPM1370 
DAPM1880 

DAOM1890 
OAPHHOO 
DAPMISIO 
0APHl<J20 
DAPM1930 
OAPM1940 
DAPM1950 
DAPM19(S0 
0APM197O 
DAPHl9aO 
0APM1990 
DAPM2000 
D*PM2010 
OiPM,2020 
0APM2030 
0AP^2C*0 
0flPM205O 
OAPM2060 
DftPf2070 
0flPH20B0 
DaPM2090 
0APH2 100 
OflPM21lO 
DAPM21^0 
D4PMPI 30 
0APM2I40 
0APM2 150 
OAPM2160 
DAPM2170 
0APH2 180 
0APM2I90 
0AP-2Z00 
0'VPM22 10 
DAPH2221) 
OAPM2230 
DAPM3?'.0 
04P''2 2 5^ 
DAPMr260 
OAPf-J^TO 
DiPM?2B0 
CAPM^2=>0 
OAPM2300 
OaPM2310 
DflPM2320 
DAPM3330 
OAPM?340 
DAPM2 350 
X DAPK2360 
DAP'-aSTO 
0AP''?3^0 
DAPf2390 
OAPM240O 
DAPM2<.10 
(jAPf'2450 
OAPM2430 
DaPM2'.'.0 
0APH2450 
DAPM2«.60 



DA 



Ha/. 70 



DAPK24aO 
DAPt»2'.90 
DAPM2 500 
DAPf?5lO 
DAPH2520 
CAPM2530 
DAPM2540 
DAPM25';0 
DAPM25fcO 
DAPM2570 
OAPM25aO 
06PM2590 
OAPF'2600 
DAPf26lO 
OAPM262C 
CAPM2630 
DAPM26<-0 
OAPM2650 
DAPM2660 
DAPM2670 
DAPM2630 
DAPM?A90 
DAPM27O0 
DAPM27in 
0AP«2720 
DAPM2 7 30 
OAPM2740 
OaPM2750 
DaPM2760 
DIP^-Z? TO 
0APM273n 
OAPM2790 
DAPM2 80r' 
DAPM2SI0 
DAi»"12^?0 
OAPf2e30 
DftPM28'-0 
0APM2a50 

D&PM286n 

DAPM2870 
OAPM^Bei 
0APM2P9f> 
DAPM290n 
DAPH2910 
0APM2920 
DAPH2930 
0APM294b 
DAPM2950 
DAPH2'^60 
DAPM2970 
0APM2910 
DAPM2990 
04PM1000 
DAPM3010 
DAPM30?0 



54 


I-IND'L 




PIV< I l=-l-0" 




on ^5 I«1,L 




J-I*L 


•iS 


kUM rj=-piv< ji*'^FPi 




Jt>0'»TE TCa'-ISF'-'O'^ATl.''*- 




J-0 




00 57 IM.l 




ion=j*iNO 




SAVE-^TMOQl 




TMD'ijxO.OO 




00 56 K-l.L 




1SE=K*J 


56 


TnSE)=TI !SEI'iAVE«PIVI»" 


■.7 


J- J'L 




upQiie i^pnt-ver 109 n 




1N1TI41 I7F r_^\ni.CTH: 




J-0 




K = 




I<;^ = n 




[DC=0 



ST*^r OU!.STiriS-LOT= 
DO ol I=1.L 
LL=J»L 

UA(3 = |Ht(LL) 

IF(IK{n-l'>lVI 59,58, 5« 
5.) 1S£=I 
J=1LA" 

50 IF) ILA6-I\C) 61. 60.61 
f-.-:) ir"-=i 

K= IMEI I ) 

51 CONl IMtt 

f.ny Ci= cuF sri r:!N-LOii^ 

STARl """ ilF ic ^T|nN 

IFtKI ^..'•'.'•i 

,2 IHC( ID^^MI^'IV 

IF( ISrl 'j7,bl,f:-> 

'.3 tF<lSD-JI (-.'■1^.''^ 
64 lL-L*L*L*'J'l'y 
K=«»LL 

1=IDIV*LL 

ILflS^lHECI 
Iht (M = 1--; I I 1 
IH£( 1 1 ^ uas 

ir ( I SEI '-7, '.■',6s 

\^ I >F.| 

iHEi i ) = I^^. 



0AP»"iOi/' 

DAPwiOi-O 
0APM305n 
DaPM306Ci 
DAPK307O 
DAP'*30S0 
DAPM30113 
ARM i 100 
0A'>M3110 
CAPWsl20 
OAP-3130 
DAPf.31^0 
DAPMil'll 
DApt»3l60 
DAO«-3l TO 

DA°K.3lflO 
DAOfc 3200 
OaPM3210 
DAOM32^0 

Di°'*32'-'> 
CAP*'32''0 

OAPF3'70 
n«p»'3? JO 
C»P'^3?90 
DA? ^3 100 
DAPf3310 
rit>w33?0 
DAPf33?n 
0APM3 ^'.O 



I=LL*L*IP|V 
|Lftc=|Hf:l II 

1HE( H = ItnE< Jl 

iHtl JUII A>< 

'. ND GF "f-r. 
GO TC « 



j.r 1 c^^jr-p piih JMET^^ I^~ 



-1 SINCE NJ SUITABLF MVC' 15 flu'Nn 



1?=; 



fvALliATE flVAl TA^L^AU 
C-VPUTt ifiV^ AS ''AKIMUN r'^^.CP r.l 
HEL-* «3 6^01T1VE cj'jst*\:l FO- - i." 
ti-^ SAVEsO.no 

K=L*L«l 

DC 7 3 1 s i , M 1 \ 

IDL;-.t- ! 

J= i>-GI ;dci 

IFIJI 71,70-73 
70 SAVE^-TCI I t 
r\ [F (M + J*I 1 7 i, 7-', 73 
JP KElP-TOPtlt 
7"' CUNTINuE 

FtfPAftF T.TfP.oiV 
II K^Sf.VF 

irn=NAN*i 

J=Htt:*U 
OC 74 i = I'jn,j 
T. TceiMs^flVf 
Cr 75 1-1, M 

7-^ PTVt 1 l=HtLP 

CCMPUT-^ CC^FFKIENTS OF uSUL'-lNi 
END ri«L'-i.'LftTI fcpQfS AT r.fVEM N " 
on 7 9 1=1, MAN 



PIVlJI-HcLP-fiP' 

GO ir 79 
77 If IJ-Nt 7-1, fd. 79 
'h J=J*N«N 

TCP(JMSAVe*T"''( 
79 f.PM INDF 

311 eO 1= l,N 

lOO'^NlN*! 
r-o io=( T i = Tn»*( inn 
PI FETUPN 

FNO 



i^JJCiJtl»lATIfA ir.j 



DAPyi3 



'y337r' 



c(;p«3''io 

Dip»')<.-'0 
CAP"-". -(O 
LMP»'344C1 



oflpF-r) = 



QtPWJ'j'^O 



C*-0Mi7:M 
DAPMiT'iO 

P4JWH T;.0 
nA?'^?TSO 
CiP*"7' 
0APV3T70 
0AFK3T-n 
0APH?7-*0 

C'PM HI J 
Dapp'3?''i 



PCU'.'NO*llAl, 1>. 





0A?•'.3a^^ 




cap w-*-^ 71 




OAP'^3330 




CiDviyc;.) 




OapM3'!00 




RAPM3P10 




DAp-n9?n 




C:AP''-3<i'0 


(11 JP 'U "ID.*PM*''4,T 


TCP(M 


01PH^';5P 




OAP«!--^;..i 




DAP*^: 970 




DA,»M39«.l 




OA*"?-*-*.) 




DAPWiOOO 




0At"'4(j!r} 




DApy-.o^c 




r:flP«40,'.'i 




0AO'<4')4n 



OfiPMA0.1C 

DAPVVC)9T 
CAP**! IOC 
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Numerical Quadrature 

Subroutines QTFG and DQTFG 

These subroutines perform the integration of a 
monotonically tabulated function by trapezoidal rule. 
To compute the vector of integral values: 



X. 



y (x)dx (i = 1,2, ...,n) 



for a given table (x-, y*; i = 1,2, ,.. ,11) of mono- 
tonic arguments and their function values, the 
trapezoidal rule is used. It Is assumed that the 
function to be integrated is continuous and can be 
differentiated at least twice. Starting with integral 
value Z]^ = 0, successive integral values zi 
(i = 2,3, . .,n) are computed, using the trapezoidal 
rule in the following form: 



SUSftOUTINE QTfO 
PyRPOSE 

ro COMPUTE rue vector of inteaaal vaiues for a given 

CENeRAI. table OF ARGUMENT AND FUNCTION VALUES. 

USAG€ 

CALL QTFG IK.YfZ.NOlNI 

DESCRIPTION OF PARAHETEftS 

K - THE INPUT VECTOR OF ARGUMENT VALUES. 

Y - THE INPUT VECTOR Of PUMCTIOtl VALUES. 

I - THE RESULTING VECTOR OF INTtCRAL VALUES. I HAY BE 

lOENFICAL MITH K Oft Y. 
NDIH - THE OIHENSION OF VECTORS X.V.Z. 

REMARKS 

NO ACTION In case NDtH LESS THAN 1. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

HETHGO 

BEGINNING HUH /(ll-O. EVALUATION OF VECTOR Z IS DONE 8V 

MEANS DF TRAPEZOIDAL RULE I SECOND OROER FQRNULAl. 

FOR REFERENCE* SEE 

F.B.HILOESRA^O, [NFftOOUCTION TO NUMERICAL ANALYSIS. 

MCGRAN-HILL, NEW YORK/TORONTO/LONOON* 1956, PP. 75. 



SUCROUriNE QTFG(X,r,2,N0IM} 



DIMENSION XI I), Y( 1) ,2(1) 

sun^-o. 

IF(NDIM-1)4. 3. 1 

INTEGRATION LOOP 

1 00 2 I -2. NO IN 
SUMl=SU«Z 
SIJN2>&UH2».9«(xiI)-X(l-lt ■•( Yt II 4^YI 1-1)1 

2 Z(I-1)*SUM1 

3 2(N0IM)'SUM2 

4 RETURN 
END 



OTFG 10 
..OTFC 20 
OTFG 30 
QTFG t,0 
OTFG SO 
QTFG 60 
QTFG 70 
QTFG ao 
QTFG 90 
OTFG 100 
QTFG 110 
OTFC 120 
QTFG 130 
QTFG UO 
QTFG 150 
QTFG 160 
OTFG 170 
OTFG leo 
QTFG 190 
QTFG 200 
QTFG 210 
OTFG 220 
QTFG 2 30 
QTFG 2*0 
QTFG 250 
QIFG 260 
OTFC 2 70 
QTFG 280 
QTFG 290 
OTFG 300 
OTFG 310 
QTFG 320 
.OTFG 330 
OTFG 340 
OTFC 350 
QTFG i60 
QTFG 370 
OTFC 380 
OTFG 390 
QTFG *00 
QTFG *10 
QTFG 420 
OTFG *30 
QTFG 440 
QTFG 450 
QTFG 460 
QTFG 4T0 
QTFG 4B0 
QTFG 490 
OTFG 500 



X. - X. 
1 1-1 



^ = Vi^ 



(yj+yj_;^) (i = 2.3 n) 



Local truncation error at each step is: 

^ = -ir<^-v/-y"(V <«i iVi^'ii) 

However, these truncation errors may accumulate. 
For reference see F.B. HUdebrand, Introduction 
to Numerical Analysis. McGraw-Hill, New York/ 
Toronto/London, 1956, pp. 75. 



SUBROUTINE OQTFG 

PURPOSE 

TO COMPUTE THE VECTOR OF INTEGRAL VALUES FOR A GIVEN 
GENERAL TABLE OF ARGUMENT AND FUNCTION VALUES. 

USAGE 

CALL OQTFG IX.Y^Z.NOIMI 

DESCRIPTION OF PARAMETERS 

X - 90UBLE PRECISION INPUT VECTOR OF ARGUMENT VALUES. 

Y - OOUSLE PRECISION INPUT VECTOR Of FUNCTION VALUES. 

I - RESULTING DOUBLE PRECISION VECTOR Of INTEGRAL 

VALUES. / MAY BE IDENTICAL NITH X OR Y. 

NOIN - THE DIMENSION OF VECTORS X,Y,Z. 

REMARKS 

NO ACTION IN CASE NOIH LESS THAN 1. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIREO 
NONE 

METHOD 

BEGINNING WITH Z(LI«0* EVALUATION OF VCCTOR I IS DONE BY 

MEANS OF TRAPEZOIDAL RULE I SECOND OROEII FORMULA). 

FOR REFERENCE. SEE 

F.e.HILOeBRAND. INTRODUCTION TO NUMERICAL ANALYSIS. 

MCCRAM-HILL, NEU YORK/TaRONTO/LONDON. 1956. PP.75. 



SUBROUTINE DQTFGl K, Y.Z.NOIMI 



DIMENSION XII), V( 1) vZU) 

DOUBLE PRECISION X. Y.Z.SUHl .SUM2 

SUM2-0.00 
IF(N0IM-It4,3,l 

INTEGRATION LOOP 

1 DO 2 I-2.N0IN 
SUM1-SUM2 

SUN2>SUM2».500*(XII )-X( I- 1 ) )•! V( ||*VII-ll| 

2 Z(|-1I>SUM1 

3 2(N0IMI*SUMZ 

4 RETURN 
END 



30 



60 



OTFG 
..OTFG 
OTFG 
OTFG 
OTFG 
OTFG 
OTFG 
OTFG BO 
OTFG 90 
OTFC 100 
DTFG 110 
OTFG 120 
OTFG 130 
OTFG 140 
DTFG 150 
OTFG 160 
OTFG 170 
OTFG 180 
OTFG 190 
DTFG 200 
QTFG 210 
OTFG 220 
OTFG 230 
DTFG 240 
OTFG 250 
OTFG 260 
OTFG 270 
OTFG 280 
OTFG 290 
OTFG 300 
OTFG 310 
OTFG 320 
..DTFG 330 
OTFG 340 
DTFG 350 
OTFG 360 
OTFG 370 
OTFG 380 
OTFG 390 
OTFG 400 
OTFG 410 
OTFG 420 
OTFG 430 
DTFG 440 
OTFC 450 
OTFG 460 
OTFC 470 
OTFC 430 
OTFG 490 
DTFG 500 
DTFG 510 
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Subroutines QTFE and DQTFE 

These subroutines perform the integration of an 
equidistantly tabulated function by trapezoidal rule, 
To compute the vector of integral values: 



z. = z (x 
1 



r i 

:.) = J ^ y (X) dx 
a 



(i= 1,2,3, ...,n) 



with X. = a + (i- 1) h 



for a table of function values y^ (i = 1, 2 n), 

given at equidistant points xi = a + (i-l)-h 
(i = 1,2, .. . ,n), the trapezoidal rule is used. It is 
assumed that the function to be integrated is con- 
tinuous and can be differentiated at least twice. 
Starting with the integral value zj = 0, successive 
integral values Zj^ (i = 2,3, . . . ,n) are computed, using 
the trapezoidal rule in the following form: 



z. = z 

1 



. +1 (y. +y. ,) (i=2,3,...,n) 
1-1 z 1 1-i 



SUBftOUriNE OTFE 

PURPOSE 

TO COMPUTE THE VECTOR OF INTEGRAL VALUES FOR A GIVEN 
EOUtOISTANT TABLE OF FUNCTION VALUES. 



OESCftlPTION OF PARAMETERS 

H - THE INCREHENT OF ARGUMENT VALUES. 

Y - THE INPUT VECTOR OF FUNCTION VALUES. 

I - THE RESULTING VECTOR OF INTEGRAL VALUES. I MAY B 

IDENTICAL WITH Y. 
NOIM - THE DIMENSION OF VECTORS V ANO Z. 

REHARKS 

NO ACTION IN CASE NOIM LESS TMAN 1. 

SUanOUriNES and function SU8PR0CRAHS REQUIRED 

NONE 

METHOD 

SEGINNING KITH Z(lI-0, EVALUATION OF VECTOR I IS OONE BT 

MEANS OF TRAPEZOIDAL RULE I SECOND ORDER FORMULA t. 

FOR REFERENCE, SEE 

E.B.HILOEBRAND, INTHOOUCTION TO NUHERICAt ANALYSIS. 

ttCGRAH-HILL» NEW VORK/TORONTO/LONDON, I9»*. PP.75. 



SUBROUTINE QTFE IN, Y ,2 •NOIM) 



DIMENSION VI D.il I) 

SUM2«C. 

IFtN0IM-tU.3*l 
I HH».5*H 

INTEGRATION LOOP 

00 2 1-2, NOIM 

SUM1-SUM2 

SUM2«SUMZ*MM*IVIII*Tn-ll 1 
Z £(I-il=SUMl 
3 Z(N0IM)<^$UH2 
A RETURN 

END 
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QTFE 

.QTFE 
OTFE 
QTFE 
QTFE 
QTFE 
QTFE 
QTFE 
QTFE 
OTFE 100 
QTFE 110 
QTFE 120 
OTFE 130 
OTFE 140 
QTFE 150 
QTFE 160 
QTFE ITO 
QTFE 180 
QTFE 190 
OTFE 200 
OTFE 210 
OTFE 220 
OTFE 230 
QTFE 240 
OTFE 250 
OTFE 260 
QTFE 270 
QTFE Zao 
QTFE 290 
QTFE 300 
OTFE 310 
QTFE 320 

,.QTFE 330 
OTFE 340 
QTFE 350 
QTFE 360 
OTFE 370 
QTFE 380 
QTFE 390 
QTFE 400 
QTFE 410 
QTFE 420 
QTFE 430 
QTFE 440 
QTFE 450 
QTFE 460 
QTFE 4T0 
OTFE 480 
QTFE 490 
QTFE 500 
QTFE 510 



with a given increment h of argument values . 
As local truncation error at each step is; 

R. = - ,^ h\ y" ({.) «i*lVl'''il) 

the global truncation error R in Zn appears as 
follows: 

R = - ^ (n-1) h^ y" (0 ({'(x^, xj) 



R 



/' 2 " 

^ . h . y m 



where i is the length of the whole integration in- 
terval. 

For reference see F,B. Hildebrand, Introduction 
to Numerical Analysis . McGraw-Hill, New York/ 
Toronto/ London, 1956, pp. 75. 



SUBROUTINE DQTFE 

PURPOSE 

TO COMPUTE THE VECTOR OF INTEGRAL VALUES FOR A GIVEN 
EOUIDISTANT TABLE OF FUNCriON VALUES. 



USAGE 

CALL OOTFE (H, 



Y.Z*NOIMI 



DESCRIPTION OF PARAMETERS 

H - DOUBLE PRECISION INCREMENT Of ARGUMENT VALUES. 
Y - OOUSLE PRECISION INPUT VECTOR OF FUNCTION VALUES. 
I - RESULTING DOUBLE PRECISION VECTOR OF INTEGRAL 

VALUES. I HAY BE IDENTICAL WITH Y. 
NOIM - THE DIMENSION OF VECTORS Y ANO I. 

REMARKS 

NO ACTION IN CASE NOIM LESS THAN U 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

NONE 

BEGINNING WITH ZIH-O, EVALUATION OF VECTOR t IS OONE BY 

MEANS OF TRAPEZOIDAL RULE (SECOND ORDER FORMULAI. 

FOR REFERENCE, SEE 

F.B. HILDEBRAND, INTRODUCTION TO NUMERICAL ANALYSIS, 

MCGRAW-HILL, NEW YOHK/TORONTO/LONDON, 1956, PP.75. 



SUBROUTINE OQTFEIH, T,2,N0IMI 



DIMENSION r( II.Z(l) 
DOUBLE PRECISION Y,Z.I 

SUM2-0.00 
|F<N0IN-1)4.3*1 
I HM-,500«H 



INTEGRATION LOOP 
DO 2 1*2, NOIM 
SUM1-SUM2 
SUM2-SOM2»m*(Y(I l*Y(I-in 

2 2(l-ll»SUMl 

3 I(NDIM1-SUM2 

4 RETURN 
END 



.HH.SUMl.SUM2 
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OTFE 

-OTFE 
OTFE 
OTFE 
OTFE 
OTFE 
DTF£ 
OTFE 
OTFE 
DTFE 100 
OTFE 1 10 
DTFE 120 
DTFE 130 
DTFE 140 
OTFE ISO 
OTFE 160 
OTFE 170 
OTFE IBO 
DTFE 190 
OTFE 200 
OTFE 210 
OTFE 220 
OTFE 230 
OTFE 240 
OTFE 250 
OTFE 260 
DTFE 270 
OTFE 2 SO 
OTFE 290 
DTFE 300 
OTFE 310 
DTFE 320 

,.D»FE 330 
OTFE 340 
OTFE 350 
OTFE 360 
DTFE 370 
OTFE 3«0 
OTFE 390 
OTFE 400 
OTFE 410 
OTFE 420 
OTFE 430 
OTFE 440 
DTFE 450 
DTFE 460 
DTFE 470 
OTFE 480 
OTFE 490 
OTFE 500 
OTFE 510 
DTFE 520 
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Subroutines QSF and DQSF 

These subroutines perform the integration of an 
equidistantly tabulated function by Simpsdh's rule. 
To compute the vector of integral values: 



R2=-9^h%M„ (^^) (42cCx._2, X.]) 
^3 = -8-0^'^"" (^3) («3^tx._3, X.]) 



Xi 



Zi = z( 



■"'"/ 



y(x) dx 



(1 = 1,2,..., n) 



with Xj = a + (i-1) h 



for a table of function values yj^ (i =1,2, . . ,,n), given 
at equidistant points x^ = a + (i- 1) h (i = 1 , 2 , . . . , n) , 
Simpson's rule together with Newton's 3/8 rule or a 
combination of these two rules is used. Local trunca- 
tion error is of the order h^ in all cases with more 
than three points in the given table. Only Z2 has a 
truncation error of the order h if there are only 
three points in the given table. No action takes 
place if the table consists of less than three sample 
points. 

The function to be integrated is assumed to be 
continuous and differentiable (three or four times, 
depending on the rule used) . 

Formulas used in this subroutine (zj are integral 
values, y^ function values) are: 



^■=Vl''3(l-25yj-1^2y.-0.25y.^^) (1) 



^i "^i-2 "^¥^^1-2 ■*■ ^^i-l * y? (Simpson's (2) 

^ ' •' J J j-ule) 

'j^'i-3"f^<V3"^yj-2"^yj-l^V (^) 

(Newton's 3/8 rule) 

z.=z. ^+-(y. ^ + 3.875 y. + 2.625 y. ^ 
J j-5 3 "j-5 ■'j-4 ^]-3 

+ 2.625 y. „ + 3.875 y. , + y.) (4) 

[combination of (2) and (3)] 

Sometimes formula (2) is used in the following form: 



R. =-.-^hS"" (Q (^4^ [x._5, X.] ) 
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However, these truncation errors may accumulate. 
For reference see: 

(1) F. B. Hildebrand, Introduction to Numerical 
Analysis . McGraw-Hill, New York/ 
Toronto/London, 1956, pp. 71-76. 

(2) R. Zurmuhl, Praktische Mathematik Cilr 
Ingenieure und Physiker. Springer, Berlin/ 
Gottingen/Heidelberg, 1963, pp. 214-221. 



z. =z. „ fy+4v +v ) 

J j+2 3 ^-^j -^j+l •^j+2^ 



(5) 



Local truncation errors of formulas (1) . . . (4) are, 
respectively: 



^=2-^^^^"" (^1) (^i^CVr Vi^^ 



IC CC^fClt r^E WtLIC« tF i\TEC«*L ViLlES hCrt 



LS'Ct 

C«LL C! 



f tfiYW.KCI^l 



LEECtlfTILh CF P^I-JCETexS 

^ - in UCfltCtM Cf aBCC'-EM VAlLtS. 

1 - l^t IKFLI VFCfCfl LF fL^^,IIC^ VflLLES. 

/ - ^^t tiE!LLIlNt ItCtCB CF jKI|:Cl<«L V*LLtS. 

ICtNTIC«l kllh V. 
t-CiP - If£ Cl^t^ilC^ Cf ((£C1C»<E V *M. I. 

^C 'CTICK Ih Qtli 



cif LEis T^-*^ :. 



n.em.iihti ttc FL^CllC^ uef^ccip-i (=tcciHec 

^ElhCC 

fCClKMkC HlTt- ^in^C, E^;tlL«IICK CF VCCIC^ I IS CCKf tt 
HthS CF SirfSCKS CLLE ICCtlt-tK • I Ih Mf>UhS J/S KtLl ffl 
CC^I:I^«IIC^ Cf iHtSt 1»C t^CLtS. It'ljhCAIICN tft-C^* IS Cf 
C»iC£R ♦■••; (I.E. fCcHlt- LfCt« KETfCCI. CM* U t*S£ ^CI• = 
1t)LhC«IlCh EHRCK Cf ilkt IS Cf CrtCtK hm*t,. 
fCP PtfESthCt. SEE 

<ii f .e.^u^;teH^»^c, iM>rcLCTitK ic KC*tficAt. d^ALvsiSt 

*'(,GH*i.-Hlt. hE« VCfR/ICfttMC/tCNCCK. 197C, PF. 71-76. 

lit *-.li.KfLlt-t w P-^KllIChf f-AIhEfatiK HEH I^CE^iEt.^•E lm; 

t't-YSUEH. IfHiKCtP. i:efLlS/tl.tflIhGE\/hEICfcLHf_HG. 196 

fF.il1-i;i. 



iLtSCLT Iht 



St tt,^ ,1 .^ct^^ I 



LI^EfflCd V(l). j tl I 



► CIP II CcefUK T^(l^ 5. FRtPflKel^C^S Cf IMEtKailtN LCC? 
I £Lr'l-VUMY(< 1 
SLU-St^MSL*! 
StM-f M(Y< n<5(.f 1«YI?»> 
«L«1<V 14 MY(<> I 

/LJ<(-ff«(Y(l)*3.t«^*n(2MY«;it*:.62?*IV(*t4Y('.tUV{6ll 
!Lfi-Y(t MYltl 

£L»'2«/L>2-fM(T('i}*5L"'.^*Y(tl» 
;i t)*C. 

/U)«SL»'i-H'lY(iMaL''»Y(<.n 

IKHCi^niCfi LCCF 
i (.c *> I-7.f'Cl^.i 

JOl'Yl l-lliV(I-l] 
4L^l-$L*'l«l-f«IV<|-2)<>L)il*y(l)l 

If U-fCir'ij.t.t 
3 iL)>2>y(l t*YI I 1 

»L)>i-£Cf2«t-I«(V(I-n««l.)(2«Y(I*|}| 

< /II-II-SCKi 

^(hCIM>«LX^ 

< ;UCU-JI-SCf2 
^(fCIf i-^LXl 
l>EILt:K 

e*C Cf lMtC»'<TIth LCCP 



CSf 
.OSf 

USF 
CSf 

tisr 

tiSf 
OSF 
CSF 
CSF 
CSf 
CSF 
CSF 
CSF 
CSf 
tSF 
OSF 
CSF 
tSF 
CSF 

;sF 

CSF 
ClSF 
■JSF 
CSF 
CSF 
CSF 
CSF 
CiSf 
OSf 
CSf 
CSF 
OSF 
CSF 
G5f 
CSf 
3, CSf 
CSF 
0S(- 
..OSF 
CSf 

CSF 

CSf 
'JSf 

CSF 

CSF 
CSF 

asf 

OSF 
'JSf 

CSF 

CSF 

OSf 
QSF 
OSf 
CSf 
QSF 
QSF 
QSF 
OSF 
OSf 
QSf 
QSF 
CSF 
QSF 
OSF 
OSF 
QSF 
OSF 
QSf 
QSf 



SO 
90 
100 
LIO 
120 
131 
140 
150 
UO 
t70 

mo 

190 

?on 
22n 

230 
240 

250 
240 
270 
2tlO 
290 
300 
MO 
12') 
131 
140 
J50 

JoO 

170 
JWI 
190 
tO-) 
410 
420 
4 3.-) 
440 
*50 
461 
470 
4^0 

4 SO 
500 
510 
520 
S90 
540 
550 
560 

5 70 
560 
590 
600 
610 
620 
630 
640 
650 
660 

6 70 
690 
690 
700 



CSf 110 

gsf 120 



QSF 
QSF 
OSF 
USF 
OSF 
OSf 
OSF 
QSF 
CSf 
OSf 
OSF 
OSF 
OSF 



MO 
740 
750 
760 
770 
780 
7^0 
HOO 

eio 

S20 
dlO 
840 
550 



OSf 6«0 
OSF 870 
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I l¥ ^^C lf-2 Hi 



1 l.E 



IC ^ (** 



t 12 l*V(2 1*YI2 1 



Mi^' IS ttcn 

Sl,M-St.H*Sl.ri 
J( I I'C. 

IC I(3I-5LH 
*E1U«« 

ftClM IS ECUn TC 3 
II Jlj»(l-».T«<I-2S**I1I*»<2I*"*'»--2S«V(3II 
SUM2*Vi2MVl31 

|l3l«t<l«<Ttll*St«'2«V(3») 

aiti«o. 

II2I>SL»1 
13 HETURI* 
IliC 



*VI 3l*t(«l.} 



USF 
fiSf 
QSF 
USF 
OSf 
C5F 
CSf 
GSF 
QSF 
QSF 
QSF 



sao 

900 
^10 
920 
9^0 
9*0 

qso 

960 
970 

980 
990 



aSF 1000 

QSF LOlO 

QSF 1020 

QSF 1030 

QSF 1040 

QSF L050 

CSF 1060 

QSf lOTO 

QSF 1080 

QSF 1040 

QSF 1100 

QSF ILIO 

QSF 1120 

QSF 1130 

QSr 1140 

QSF 11 SO 

QSF 1160 



6 2INOIM-II-SUM2 
ZINOin}«AUXl 
RtTURN 

eNO OF INTEGRATION LOOP 

7 IFCNDIN-JI12,11.« 

NDI« IS EQUAL TO * OR 5 
S SUH2-l.lZ500*HT*(V( l|»V ( 2 I ♦« 2 1 * Y<2 l*V< 3 I* VI3I ♦¥!3 ) *VI*1 I 

SUHl*VI2l»V(2l 
$Uiil>SUMl*SUHl 
SU«l-HT*(Vl ll#SU«l*VI3>l 
ZU)>O.DO 
*UX1-V( J)*YI 31 
AUXL-AUKl+AUKl 

Z(2l«SUH2-HT*(y(21*AUXl*Y(4H 
IF(NDIH-5I10.9,9 
9 AUXt-Y)4l*V(4) 
AUX1=AUX1*AUXI 
Z(5)-SUMI+HT*IY(3I*AUK1*V<5I I 

10 II 3)*SUHt 
ZI4I-SUH2 

RETURN 



NOIN IS EQUAL TO 3 
SUMl-HT*! l.25DO*Y(l )*Y(Z1*YI 2^- 
SUH2«Y< 2I*Y( 2) 
SUM2*SUH2*SU«2 
Z(3I-HT*(Y( l»*Sm2*V(3n 
2(L)'0.00 
ZI2)*SUHl 
I RtrURN 

ENO 



2500*V(3H 



OQSF 850 
DQSF 860 
OQSF 870 
DQSF 880 
OQSF S90 
OOSF 900 
DQSF 910 
DQSF 920 
DQSF 930 
OQSF 940 
OQSF 950 
OOSF 960 
OQSF 970 
DQSF 980 
OQSF 990 
OQSFLOOO 
DQSFIOIO 
OQSF 1020 

ogsFioso 

00$Ft040 
0QSF1050 
OQSF 1060 
OQSF1070 
0QSF1080 
OQSF 1090 
OQSFUOO 
OQSFILIO 
0QSFL120 
OQSF 11 30 
DQSF 1140 
DQSFllSO 
OQSF1160 
DflSFllTO 



SJOROUIINE DQSF 

PURPOSE 

TO COMPUTE THE VECTOR OF INTEGRAL VALUES FDR A GIVEN 
EQUIDISTANT TABLE OF FUNCTION VALUES. 

USAGE 

CALL OQSF IH,Y,Z,N0IM> 

DESCRIPTION OF PARAMETERS .„,.,,-ci«r >/*..■«:« 

H - D0U9LE PRECISION INCREMENT OF ARGUMENT VALUES. 

Y - DOUeLE PRECISION INPUT VECTOR Of FUNCTION VALUES. 

I - RESULTING DOUBLE PRECISION VECTOR OF INTE&RAL 

VALUES. Z MAY 8E IDENTICAL WITH Y. 

NOIM - THC DIMENSION OF VECTORS Y AND Z. 



SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
NONE 

BEGINNING WITH Z<ll=0. EVALUATION OF VECTOR I IS DONE BY 
MEANS OF SIMPSONS RULE TOGETHER WITH NEMTONS 3/8 RULE OR A 
C0M3INATI0N 3F THESE T«l RULES. TRUNCATION CBROR IS OF 
OHOER M**5 I I.E. FOURTH ORDER METHOOl . ONLY IN CASE NOIM-3 
TRUNCATION ERROR OF ZI2» IS OF ORDER H««4. 
FOR REFERENCE. SEE ^ ..,.,„„* 

(1) F.e-HILOEBRANO, INTftOOUCTIQN TO NUHEftlCAL ANALYSIS, 

MCGRAW-HILL. NEW YORK/ TORONTO/LONDON, 1956, PP. 71-76. 
121 R.ZURNUEHL. PRAKTISCHE MATHEHATI K f UER INGENlEURE UNO 

PMVSIKER. SPRINGER, aeRLlN/CQETTINGEN/HEIOELftERG. 1963 

PP. 214- 221. 



SUaROUFINE OQSFIH.Y.Z.NOINI 



DIMENSION Yl tl.ZO) 

DOUBLE PRECISION Y, Z,H,HT. SUMl . SUMZ ,AUX,AUXl . AUX2 

HT-. 333333333333333 33D0*H 

IFINOlH-5)7,8, L 

NOIM IS GREATER THAN 5. PREPARATIONS OF INTEGRATION LOOP 

1 SUM1=Y(21*Y<21 

SUMl>SUMli-SUMl 

SUM1-HT*( Y( 1I*SUMI»Y( 3t I 

A0X1=¥I4)*YUI 

AUXl-AUXl^AUXl 

AUX1=SUM1*HT*(Y(3I + AUX1«VC5)I „„.,.,>. ,v.ii . »vi/. t i 

AUX2-HT«IY(l>*3.875D0*IY(2»*Y(5n»2.6250C»(Y(3I.YC4ll*Y16tl 

SUM2-VI 5t*YI5> 

SUH2=SUM2»SUM2 

SUMZ"AUW-HT*(Y(4l*SUM2*Yl6n 

H D-O.OO 

AUX=Y(3UYI 31 

AUX*AUX+AUX 

ZI21"SUM2-Mr*( YI2I*AUX*YI4» I 

Z(3)=SUM1 

ZI4)=SUMZ 

|F(N0IN-615,5.2 

INTEGRATION LOOP 

2 DO 4 f-7,NOIH,2 
SUMI = AUXl 
SUM2»AUX2 

AUXl = VII-ll»¥n-ll 

AUXI=AUK1*AUX1 

AUX1 = SUM1»HT»I YH-2l*AUKl*YII» I 

Z{l-2)=SUMi 

IFt I-N0IM)3«6i6 

3 AUX2>V( ll+YII ) 
AUX2=AUX2«AUX2 
AUX2"SUM2»HT*(V(I-1 )*AUX2*r ( 1*1 » I 

4 Z( I-11-SUN2 

5 Z(NOIM-U-AUXI 
Z(N0IHI>AUX2 
RETURN 



DQSF 10 

.DQSF 20 

OgSF 30 

OQSF 40 

OQSF 50 

OQSF 60 

OQSF 70 

DQSF 80 

OQSF 90 

DOSF 100 

DQSF 110 

DQSF 120 

DQSF UO 

OQSF L40 

DQSF 150 

DQSF 160 

OQSF 170 

OQSF ISO 

OQSF 190 

OQSF 200 

OQSF 210 

OQSF 220 

OQSF 230 

DQSF 240 

DQSF Z50 

OQSF 260 

OQSF 2 TO 

OQSF 280 

OQSF 290 

OQSF 300 

DQSF 310 

OQSF 320 

DQSF 330 

OQSF 340 

OQSF 350 

DQSF 360 

OQSF 370 

DQSF 380 

.DQSF 390 

OQSF 400 

OOSF 410 

OQSF 420 

OQSF 430 

OQSF 440 

DQSF 450 

OQSF 460 

OQSF 470 

DQSF 480 

DQSF 490 

DQSF 500 

OQSF 510 

OQSF 520 

OQSF 530 

OQSF 540 

OQSF 550 

DQSF 560 

OQSF 570 

DQSF 580 

OQSF 590 

OQSF &00 

DQSF 610 

OQSF 620 

DQSF 630 

OQSF 640 

DOSF 650 

DQSF 660 

OQSF 670 

DQSF 680 

DQSF 690 

DQSF 700 

OQSF 710 

DQSF 720 

DQSF 730 

DQSF 740 

OOSF 750 

095 F 760 

OQSF T70 

OQSF 780 

DQSF 790 

OQSF 800 

OQSF 810 

OQSF 820 

DQSF S3C 

DQSF 840 
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Subroutines QHFG and DQHFG 

These subroutines perform the integration of a 
monotonlcally tabulated function with first derivative 
by a Hermitian formula of first order. To compute 
the vector of integral values: 



X. 

MX,) -J' 



y(x) dx (i= 1,2 n) 



sudBauriwe qhf&i k. v .OERf. 2,no( hi 



DI-^ENSION X( 11 . V( U .DEBY( 1 1 ,?l II 



|F(N0IM-1 14, 3. I 

INTEGRATION LOJC 

DO 2 I=?,MDIM 

SU«l=SJM2 

iUM2=.5*( X( I )-K( I-l ) ) 

SUM2 = SJNL*SUM2*Hyt D + Vd-l) I*. 3333n3*SU«2*<OERrn-n -OERVI I H ) 

H |-U = SUMl 

2 I MOCMI =<,K1H2 

RETURN 

END 



UMFG 380 

QHFG 190 

OHFG 400 

OMfG 4 10 

OHfG 420 

OMfC *30 

QHFG 4'.0 

OHFG 450 

QHFG 460 

QHFG 4?0 

OHFG 4«0 

QHfG 490 

QHFG 500 

QHFG 510 

QHFG 520 

QHFG 550 

OHFC 540 

QHFG 550 



for a given table xj, y^, y. (i= 1,2, , . , , n) of mono- 
tonic arguments and their function and derivative 
values, a first-order Hermitian formula is used. It 
is assumed that the function to be integrated is con- 
tinuous and can be differentiated at least four times. 
Starting with the integral value z^ = 0, successive 
integral values z^ (i = 2,3, . . . , n) are computed by 
means of the following formula: 



1 1-1 I 1 1-1 ,1 L 

z. = z . , + 1 v . + v + ~~ (y - y ) I 

1 i-1 2 L i-1 i 6 ^*^i-l **^i'J 

(i=2.3. ...,n) 
Local truncation error at each step is: 
(X -X )^ 



However, these truncation errors may accumulate. 
For reference see: 

(1) F. B. Hildebrand, Introduction to Numerical 
Analysis . McGraw-Hill, New York/Toronto/ 
London, 1956, pp. 314-319. 

(2) R. Zurmiihl, Praktische Mat he mat ik fUr 
Ingenieure und Physiker . Springer, Berlin/ 
Gottii^en/Heidelberg, 1963, pp. 227-230. 



suBHQUTiNe oqhf; 

PURPOSE 

TO COMPUTE TH£ VECTOR Of I NTEGftAL VALUES FOR A GIVEN 
GENERAL TABLE OF ARGUMENT. FUMCTION. AND OERIVATIV£ VALUES. 



OeSCRIPTION OF PARAMETERS 

X - DOUBLE PRECISION INPUT VECTOR OF ARGUHENT VALUES, 

r - 00U9LE PRECISION INPUT VECTQR OF FUNCTION VALUES. 

DEftr - DOUBLE PAEC I SI3N I NPUT VECTOR OF OERI VAT I VE VALUES 

I - RESULTING DOUdLE PRECISION VECTOR Of INTEGRAL 

VALUES. I 1AY BE IOENTICAl HUH x, r Oft OERV. 

NOIM - THE DIMENSION OF VECTORS K,T,DERY,Z. 

REMARKS 

NO ACTION IN CASE N3IM LESS THAN 1. 

SUBROUTINES AND FUNCTION SU8RR0CRAMS REQUIRED 

NONE 

METHOD 

BEGINNING yITH 1(1) -0, EVALUATION OF VECTOR I IS DONE BY 
MEANS OF HERMITEAN FOURTH OROEH INTEGRATION FORMULA. 
FOR REFERENCE , SEE 
(I) F.e.HILOEBRANO. INTRODUCTION TO NUMERICAL ANALVSIS. 

MCGRAW-HILL, NEW YORK/ rORONTO/LOWlON, (956, PP.3l<.-3I9. 
I2\ R.ZURMUEHL. PRAKTISCHE MATHEMATIH FU6R INGENIEURE UNO 

PHVSIKER, SPRINGER, 8ERL IN/GOETTINGEN/HEIOELBERG, 1963. 

PP. 227-230. 



60 



SUBROUTINE OQHFGt X. V.DERV.Z.NDIMt 



DIMENSION X( U. Y( II .OEftYl 1 I ,Z< II 

DOUBLE PRECISION X, Y,OERY. Z , SUMl , SUM2 

SUM2«0.OO 
IF(N0IM-1)«,3. I 

INTEGRATION LOOP 

1 00 2 l=2.N0IH 
SUMl-SUM? 

SUM2 = . 500*1X11 )-X(I-l ) I 

SUM2 = SUMl*SUM2*t( Y( n*YI I-l M». 3 333 333 3 333 333 133DC*5UH2* 
IIOERYI l-11-DERVI I ) t) 

2 Z1I-II=SUM| 

3 ZINOIMI -SUM2 
*. RETURN 

ENO 



DOHC 
OOHG 
DQHG 
OQHC 
DQHG 
DQHG 
OQHC 
OOHG 
DQHG 
DgHG 100 

OOHG no 

OOHG 120 
OOHG 130 
OOHG 140 
OOHG 150 
.DQHG 160 
OOHG 170 
OQHC 1B9 
OOHG 190 
DQHG 200 
OOHG 210 
OOHG 220 
DQHG 230 
DQHG 2'tO 
DQHG 250 
DQHG 260 
OQHC 270 
DQHG 230 
DQHG 2<)C 
DQHG 300 
DQHG 310 
DQHG 320 
DOHC 3 3C 
DQHG 340 
DOHG 350 
OOHG 3b0 
,OOHG 3 70 
DQHG 3 80 
DOHG 390 
DQHG 400 
DQHG 4 10 
OQHC 420 
DQHG 4 30 
OQHC 440 
OQHG 4 SO 
DQHG 460 
OQHG 4 70 
OQHG 480 
OQHG 490 
OQHG 500 
OQHG 510 
DQHG 5 20 
OOHG 5 30 
OQHG 540 
OQHC 550 
OQHG 560 
DQHG 570 



SUHRDUTINE QHFG 

PURPOSE 

TO COMPUTE THE VECTOR OF INTEGRAL VALUES FOR A GIVEN 
GENERAL T48LE OF ARGUMENT, FUNCTION. AND 0ERIV4T I VE VALUES 



.Z.NOIMl 

DESCRIPTION OF PARAMETERS 

« - THE IMPUT VECTOR OF ARGUMENT VALUES- 

Y - THE INPUT VECTOR OF FUNCTION VALUES. 

OERY - THE INPUT VECTOR OF DERIVATIVE VALUES. 
I - THE RESULTING VECTOR OF INTEGRAL VALUES. 

IDENTICAL WITH K.Y OR OERY. 
NOIM - THE OtMENSiON OF VECTORS X,Y,DeRY,Z. 



REMflflnS 

NO ACTION (N CASE NOI 



LESS THAN I. 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

BEGINNING WITH Z11J=0. EVALUATION OF VECTOR I IS DONE BY 
MEANS OF HERMITEAN FOURTH ORDER INTEGRATION FORMULA. 
FOR REFERENCE, SEE 
in F.6.HILDE6RAN0, INTROOUCTION TO NUMERICAL ANALYSIS, 

MCGRAW-HILL, NEW YQRi(/ rORONTO/LONOON, 1956, PP. 314-319. 
(2t R.ZURMUEHL, PRAKTISCHE MATHEMATIK FUER INGENIEURE UNO 

PHYSIKER, SPRINGER, 8ERL I N/GO£ T T I NGEN/HE I DEL BERG , 1963. 

PP. 227-230. 



OHFG 10 
.QHFG 20 
OHFG 30 
OHFG 40 
QHFG 50 
QHFG 60 
QHFG 70 
OHFG 80 
QHFG 90 
QHFG 100 
QHFG I 10 
QHFG 120 
QHFG 130 
QHFG 140 
QHFG ISO 
QHFG 160 
QHFG 170 
QHfG 160 
QHFG 190 
QHFG 200 
OHFG ^10 
QHFG 220 
QHFC 230 
QHFG 240 
QHFG 250 
QHFG 260 
QHFG 270 
QHFG 260 
QHFG 290 
QHFG JOO 
QHFG 310 
OHFC 320 
OHFG 3 30 
QHFG 340 
QHFG 350 
OHFG 360 
QHFG 3 70 
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Subroutines QHFE and DQHFE 

These subroutines perform the integration of an 
equidistantly tabulated function with first derivative 
by a Hermitian formula of first order. To compute 
the vector of integral values: 



X. 

.. = z (X.) = J 



y(x)dx 



»(i= 1,2, .... n) 



with X. = a + (i-1) h 



for a table of function and first derivative values 

y., y^' (i = 1,2 n), given at equidistant points 

Xi = a + (i - 1) h, a first -order Hermitian formula 
is used. It is assumed that the function to be inte- 
grated is continuous and can be differentiated at 
least four times. Starting with the integral value 
z. = 0, successive integral values zj (i= 2,3, . . . , n) 
are computed by means of the following formula: 

^=Vi-*-l{vi^yi"^ (yi-i-yrf 

(i= 1,2, ... , n) 

with a given increment h of argument values. 
As the local truncation error at each step is: 



h" (4) 
i 720 



R. = ;^ -y^'cu (^i^v,. ^ 



[x-.-,. xJ) 



the global tnmcation error R in z^^ appears as 
follows: 



R=^(n-l)h%^^N0 («*lx-^. \1) 



where / is the length of the whole integration in- 
terval. 



For reference see: 

(1) F.B. Hildebrand, Introduction to Numerical 
Analysis . McGraw-Hill, New York/ 
Toronto/London, 1956, pp. 314-319. 

(2) R. Zirrmlihl, Praktische Mathematik fur 
Ingenieure and Physiker. Springer, Berlin/ 
Gottingen/Heidelberg, 1963, pp. 227-230. 



SUBROurlME QHFE 

PURPOSE 

TO COMPUTE THE VECTOO OF INTCGRAL VALUES POfi A GIVEN 
EQUIDISTANT TABLE OF FUNCTION AND DERIVATIVE VALUES. 



CALL QHFE ( H, Y,OERV ,Z,NOI Ml 

DESCRIPTION OF PARAMETERS 

H - THE INCREMENT OF ARGUMENT VALUES. 

Y - THE INPUT VFCTDR Of FUMCTlON VALUES. 

OERV - THE INPUT VECTOR Of OERIVATIVE VALUES. 

I - THE RESULTING VECTOR OF INTEGRAL VALUES. I MAY 86 

IDENTICAL WITH Y Oft OERY. 

NDIH - THE DIMENSION OF VECTORS Y.OERY.i. 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

NONE 

M6TH00 

BEGINNING WITH Zdl^Oi EVALUATION Of VECTOR I IS OONE 6T 
MEANS Of HEftMITEAN FOURTH ORDER INTEGRATION FORMULA. 
FOR REFERENCE. SEE 
(II f .B.HILDEflRANO. INTRODUCTION TO NUMERICAL ANALYSIS, 

NCGRJ^H-HTLL, NEW VQRK/ TORONTO/LONOON, 1956, PP.31*-3iq. 
<2) R.ZUBMUEHL, PRAKTISCHE MATHEMATIK FUER INGENIEURE UNO 

PHYSIKER. SPRINGER, BERLIN/GOETT INGEN/HE 1 OELBERC, 1^63, 

PP. 227-230. 
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SUBROUTINE QHFE IH,Y , OERY , Z , NDI Ml 



DIMENSION Ym.DERYtll.ZUl 

iUM2=0. 
IF(NDH-n4,3,l 

1 HH=.5*H 

HS=. 1666667*H 

INTEGRATION LOOP 

00 2 1=2,N0IM 

SUMl=SUM2 

SUM2='SUM2»HH*(( Y{ I)»Y( I-l) I*HS«(DERY(I-lI-0£RYni 1 t 

2 Z(I-n = SUMl 

3 I INDIM) =SUM2 
A RETURN 

END 



QHFE 

.QHFE 

QHFE 30 

QHFE *,Q 

QHFE 50 

QHFE 60 

QHFE 70 

QHFE 80 

QHFE 90 

QHFE 100 

QHFE 110 

QHFE 120 

QHFE 130 

QHFE 110 

OHFE L50 

QHFE 160 

QHFE 170 

QHFE IBO 

QHFE 190 

QHFE 200 

QHFE 210 

QHFE 220 

QHFE 230 

QHFE 240 

QHFE 250 

QHFE 260 

QHFE 270 

QHfE 290 

OHFE 290 

QHFE 300 

QHFE 310 

QHFE 320 

QHFE 330 

QHFE 3*0 

OHFE 350 

QHFE 360 

.QHFE 3 70 

QHFE 380 

QHFE 390 

OHFE -iOO 

QHFE 4 10 

QHFE 'iZO 

QHFE 430 

QHFE 440 

OHFE ^SO 

QHFE 460 

QHFE 470 

QHFE 480 

OHFE 49C 

OHFE 500 

QriFE 510 

OHFE 520 

QHFE 530 

QHFE 540 

QHFE 550 

QHFE 560 



OQHE 
.OQHE 
OQHt 



SUBROUTINE OQHFE 

p UR P S € 

TO COMPUTE THE VECTOR OF INTEGRAL VALUES FOR A GIVEN 
EQUIDISTANT TA6LE OF FUNCTION AND DERIVATIVE VALUES. 

USAGE 
CALL 



OQHFE (H,Y.DERY,Z,NOIMI 

TIOM OF PARAMETERS 

DOUBLE PRECISION INCREMENT OF ARGUMENT VALUES- 

DOUBLE PRECISION INPUT VECTOR OF FUNCTION VALUES. 

DOUBLE PRECISION INPUT VECTOR OF OC^IVAnVE VALUES 

RESULTING 00U8LE PRECISION VECTOH OF INTEGRAL 

VALUES. I MAY BE IDENTICAL HlTH V OR OERY. 

THE DIMENSION OF VECTORS Y.O£RY,i. 



OESCRIP 

Y 
OEflY 

I 

NOIM 

ft fhark s 

MO ACTION IN CASE NDIM LESS THAN 1. 

SUBROUTINES AND FUNCTION SUftPROGRAMS REQUIREO 
NONE 

"^^^SEGINNING WITH ZI11=0. EVALUATION OF VECTOR I IS OONE BY 
MEANS OF HERMITEAN FOURTH ORDER INTEGRATION FORMULA. 
FOR REFERENCE. SEE ,,^ 

(I) F.B. HILDEBRAND. INIKODUCTION TO NUMERICAL ANALYSIS, 

MCGRAW-HILL. NEW YORK/TORONTO/LONOON, 1956, PP. 314-31-). 
(21 R.ZURMUEHL, PRAKTISCHE MATHEMATIK FUER INGENIEURE UNO 

PHYSIKER. SPRINGER, BERLI N/GOE TTI NGEN/HE I OELSERG, 1963. 

PP. 227-230. 



SUBROUTINE DQHFE I H, Y.OERY , Z,NO I Ml 



DIMENSION Yt II .OEftYdt ,ZI I) 

DOUBLE PRECISION V, OER Y tZ ,H ,HH , H S, S JMl , SUM2 

SUH2^C .DC 
|F(N0I'1-1)4.3. 1 
I HH=.5D0*H 

H5=. lfa666666666666667D0*H 



INTEGRATION LDOP 

DO 2 1=2. NOIM 

SUM1=SUM2 

SUM2 = SUH2*HH»( ( Y( I I* 

2 zri-n = suMi 

3 Z(NOrHI=4U«2 

4 RETURN 

END 



(I-lt |.HS»(OERY(l-l)-OERY(I 11 1 



DQHE 4C 
OQHE 50 
OQHE 60 
DQHE 70 
DQHE 80 
OOHE 90 
OQHE 100 
OQHE 110 
DQHE 120 
DQHE 130 
DQHE 14D 
OOHE 150 
.OQHE 160 
DQHE 170 
DQHE ISO 
DQHE 190 
OQHE 200 
DQHE 2 10 
OQHE 220 
OQHE 2 30 
DQHE 240 
DQHE 250 
OQHE 260 
DQHE 270 
OQHE 280 
OQHE 290 
DQHE 300 
OQHE 310 
OQHE 3 20 
OQHE 330 
OQHE 340 
OQHE 350 
OQHF 360 
.OQHE 3 70 
OQHE lao 
DQHE 390 
OQHE 400 
OQHE ".lO 
OQHE 420 
OQHE 430 
DQHE <i40 
DQHE 450 
OQHE 460 
DQHE 4 70 
OQHE 480 
DQHE 4 90 
DQHE 500 
OQHE 5 10 
DQHE 520 
OQME 5 30 
OQHE 540 

mi 555 

OQHE 560 
DQHE 5 70 
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Subroutines QHSG and DQHSG 

These subroutines perform the integration of a 
raonotonically tabulated function with first and 
second derivatives by a Hermitian formula of 
second order. To compute the vector of integral 
values : 



Z'j = z(x.)= /^ y(x)dx (i= l,2,...,n) 



for a given table xi, yi, y^, yj (i=l,2, . . . ,n) of 
monotonic arguments and their function and first 
and second derivative values, a second-order 
Hermitian formula is used. It is assumed that the 
function to be integrated is continuous and can be 
differentiated at least six times. Starting with the 
integral value z. = 0, successive integral values 
zj (i = 2 , 3 , . . . , n) are computed by means of the 
following formula: 



"i~Vi ( 
^ = Vi^-l— {^ 



i-1 



•^y.^- 



x.-x. . 

1 1-1 



l-'i-r^; 



,J^ (y;'_i-y:')l>(i=2.3.. 



12 



,])< 



.n) 



Local truncation error at each step is: 



(x.-x. J' 
R = ^ ^~^ 
i 100 800 



y^^^V (fi«(Vl ^i') 



However, these truncation errors may accumulate. 

For reference see R. Zurmlihl, Praktische 
Mathematik ftir Ingenieure und Physiker . Springer, 
Berlin/GSttingen/Heidelberg, 1963, pp. 227-230. 



SUBROUTINE QHSG 

PURPOSE 

TO COHPUTe THE VECTOR OF INTEGRAL VALUES FOR A GIVEN 
GENERAL TABLE OF ARGUHENT, FUNCTION, FIRST DERIVATIVE, 
AND SECOND DERIVATIvC VALUES. 



USAGE 

CALL QHSG (X,' 



,FOV 



SOY,£,NOIl 



DESCRIPTION OF PARAMETERS 

- THE INPUT VECTOR OF ARGUMENT VALUES. 

- THE INPUT VECTOR OF FUNCTION VALUES. 

- THE INPUT VECTOR OF FIRST DERIVATIVE. 

- THE INPUT VECTOR OF SECOND OeRIVATIVE. 

- THE RESULTING VECTOR Of INTEGRAL VALUES. I MAY BE 

IDENTICAL WITH X,Y,F3Y OK SOY. 

- THE OIHENSION Of VECTORS X, V.FOY .SOY.Z . 



FDy 
SOY 



NDIH 



REMARKS 

NO ACTION IN CASE NOIM LESS THAN I. 



• EVALUATION OF VECTOR I IS OONE BY 
XTH ORDER INTEGRATION FORMULA. 



METHOD 

a EG INNING WITH 211) 

MEANS OF MERMITEAN 

FOR REFERENCE, SEE 

fl.ZURMUEHL, PRAKTISCHE MATHEMATIK FUCR INGENIEURE UNO 

PHYSIKER, SPRINGER, 8ERL I N/COETT I NGEN/HEIOELBERG, 1963 

PP. 227-230. 



SUBROUT INE aHSG( X, V ,F0 Y, SO Y,Z,NOI HI 



DIMENSION Kill, Y<n ,F0 Y( 1 1 , SOY ( 1 ) ,Z( 1 ) 

SUM2=0. 
IF(NDiM-l !<., 3, I 

INTEGRATION LOOP 
t 00 2 l-2,NDlti 
SUMI=SUH2 

SUM2*.5*I K( I 1-XI I-l n 
0SUH2 = SUM1»SUM2* ny(I-l)*VUI I».^*SUM2*( IFDV (I-H-FOYt IH ♦ 
1 .166666 7*SUM2« (SOVd-KtSOYHlHI 

2 Z( I-1I"SUM1 

3 ZINOIM t = SUM2 
1. RETURN 

END 



SUBROUTINE DQHSG 

PURPOSE 

TO COMPUTE THE VECTOR OF I NTECAAI. VALUES FOR A GIVEN 
GENERAL TABLE OF ARGUMENT, FUNCTION, FIRST OERIVATIVE. 
AND SECOND OERIVATIVE VALUES. 



QHSG 
.QHSG 
QHSG 


10 
20 
30 


QHSG 


•*0 


QHSG 


50 


QHSG 


AO 


QHSG 


70 


QHSG 


ao 


OHSG 


90 


QHSG 


100 


QHSG 


no 


QHSG 


120 


QHSG 


no 


QHSG 


KO 


QHSG 


ISO 


QHSG 


160 


QHSG 


170 


QHSG 


lao 


QHSG 


190 


OMSG 


200 


QHSG 


?in 


QHSG 


??o 


QHSG 


2 50 


QHSG 


?*0 


OHSG 


^•>o 


OHSG 


260 


QHSG 


?T0 


QHSG 


280 


QHSG 


290 


QHSG 


100 


QHSG 


310 


QHSG 


320 


QHSG 


MO 


QHSG 


340 


OHSG 


350 


QHSG 


360 


,QHSG 


ifO 


QHSG 


■*ftn 


OHSG 


390 


OHSG 


*00 


OHSG 


410 


QHSG 


420 


QHSG 


4 3C 


OHSG 


440 


QHSG 


450 


QHSG 


460 


QHSG 


4 70 


QHSG 


460 


QHSG 


490 


QHSG 


SOO 


QHSG 


510 


QHSG 


520 


QHSG 


630 


QHSG 


5^0 


OHSG 


550 


QHSG 


i60 



USAGE 

CALL DQHSG 



,Y,FDY,SOY,i,ND(Mt 



DESCRIPTION OF PARAMETERS 

K - DOUBLE PRECISION INPUT VECTOR OF ARGUMENT VALUES. 

Y - DOUBLE PRECISION INPUT VECTOR OF FUNCTION VALUES. 

FOV - 00U3LE PRECISION INPUT VECTOR OF FIRST DERIVATIVE. 

SOY - DOUBLE PRECISION INPUT VECTOR OF SECOND DERIVATIVE 

I - RESULTING DOUBLE PRECISION IffCTOR OF INTEGRAL 

VALUES. I MAY 8E IDENTICAL WITH K, Y, FDY OR SOY. 

NOIM - THE DIMENSION OF VECTORS X, V,FOY,S0Y ,Z . 

REMARKS 

NO ACTION IN CASE NOIM LESS THAN I. 



METHOD 

BEGINNING WITH 2(11=0, EVALUATION OF VECTOR 2 IS DONE BY 
MEANS OF HERMITEAN SUTH ORDER INTEGRATION FORMULA. 
FOR REFERENCE, SEE 

A.ZURMUEHL. PRAXTISCHE MATHEMATIK FUER INGENIEURE UNO 
PHYSIKER, SPRINGER. BERLI N/GOETT INGEN/HE I DEL8ERG, 1963, 
PP. 227-230. 



SUBROUTINE DQHSGI X, Y, FDY. SOY, Z , NO I Ml 



SUM2-0.00 

If(N0IH-lt^,3,l 

INTEGRATION LOOP 

00 2 I"Z,NDIM 

SUMI-SUM2 

SUM2 = .500»IXIII-X(I-IH 
0SUM2>SUMl*SUH2*l( Y( I-ll*V( I ll*.400*SUH2*( IFOY ( I - 1 1 -FDY( III* 
I , 1666666666666666 J00*SU»2*t SOrtl-l )*iOH U})t 

Z(NDIM1=SUMZ 

RETURN 

END 



DHSG 10 
.OHSG 20 
OHSG 30 
OHSG 40 
OHSG 50 
OHSG 60 
OHSG 70 
OHSG 80 
DHSG 90 
DHSG 100 
OHSG HC 
OHSG 120 
DHSG 130 
OHSG 140 
OHSG 150 
OHSG 160 
OHSG 170 
-DHSG ISO 
OHSG 190 
OHSG 200 
OHSG 210 
OHSG 220 
OHSG 2 30 
DHSG 240 
OHSG 250 
OHSG 260 
DHSG 270 
OHSG 280 
OHSG 290 
OHSG 300 
OHSG 310 
OHSG 320 
OHSG 3 30 
OHSG 340 
OHSG 350 
OHSG 360 
.OHSG 370 
OHSG 380 
DHSG 390 
OHSG 400 
OHSG 410 
DHSG 420 
OHSG 4 30 
OHSG 440 
DHSG 450 
OHSG *60 
OHSG 4T0 
OHSG 480 
OHSG 490 
OHSG 500 
OHSG StO 
OHSG 520 

OHSC 530 

OHSG 540 
OHSG 550 
OHSG 560 
OHSG 570 
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Subroutines QHSE and DQHSE 

These subroutines perform the integration of an 
equidistantly tabulated function with first and 
second derivatives by a Hermitian formula of 
second order. 

To compute the vector of integral values: 

X. 



z. = z (x 
1 



.-r 



y (x) dx 
a ^(i= l,2,...,n) 



with X. = a + (i-1) h 



for a table of function and first and second derivative 
values Vi, y\, y|' (i,= 1,2, .. . ,n). given at equi- 
distant points xi = a + (i-1) h, a second-order 
Hermitian formula is used. It is assumed that the 
function to be integrated is continuous and can be 
differentiated at least six times. Starting with the 
integral value zj^ = 0, successive integral values 

zi (i = 2,3 n) are computed by means of the 

following formula: 

hi h r I I h 

^ = Vi^yfi-i^^iMvi"'^i i^ 

(y|^^ + y!' )][ (i=2.3,....n) 

with a given increment h of argument values . 
As the local truncation error at each step is: 



R. =- 

1 



i^y^'Nf,) U-lVi'-il)' 



the global tnmcation error R in z^ appears as fol- 
lows: 



or 



R = 



R 



j^(n-l)h%<^Nf)(6*(Vxn]) 



100 800 



h%(^>m 



where i is the length of the whole integration in- 
terval . 

For reference see R. ZurmiM, Praktische 
Mathematik fur Ingenieure und Physiker . Springer, 
Berlin/Gottingen/Heidelberg, 1963, pp. 227-230. 



SueROUTINE QHSE 

PURPOSE 

ro C0HPUT6 THE VECTOR OF INTEGRAL VALUES FOR A GIVEN 
EQUIOISTANT T HQlt OF FUNCTION. FIRST OERIVATIVE. 
AND SECOND DERIVATIVE VALUES. 



L QHSE <H, Y.FDY.SOV.i ,NDI Ml 

PIION OF PARAMETERS 

- THE INCREMENT 3F ARGUMENT VALUES. 

- THE INPUT VECTOR Of FUNCTION VALUES. 

- THE INPUT VECTOR OF FIRST DERIVATIVE. 

- THE INPUT VECTOR OF SECOND DERIVATIVE. 

- THE RESULTING VECTDR OF INTEGRAl VALUES. 
IOE«*TICAL WITH y,FDr OB SOY. 

M - THE DIMENSION OF VECTORS V.FOY.SDV.Z. 



SUBROUTINES AND FUNCTION SU8PROGRAMS REQUIRED 
NONE 

METHOD 

BEGINNING WITH Zm=0, EVALUATION OF VECTOR I IS DONE 8¥ 
MEANS OF HERMITEAN SIRTH ORDER INTEGRATION FORMULA. 
FOR REFERENCE. SEE 

R.ZURHUEHL, PRAKTISCME NAIHEMATIlt FUER INGENteURE UNO 
PHYSIKER, SPRINGER, BERL I N/GOCTT I N&EN/HtlDELaeRGT 1963, 
PP. 227-230. 



SUBROUTINE QHSE I H, Y »FOY ,S0 YiZ ,N0 I Ml 



DIMENSION Ydt.FOTl 1 » , SOY( I ) ,i ( I I 

SUM2=0. 
JFlNDlM-l 1^,3, I 

1 HH=.5«H 

HF = . 2*H 
HT^.Oa J33333»H 

INTEGRATION LOOP 

DO 2 1=2,NDIM 

SUMl=SUM2 
CSUM2 = SUH^*HH*H Y{ I - 11 ♦¥ U 1 ) ♦HF" [ ( FOT U - H -FO Y ( 11 ) 
1 HT"(SDy( I-I I tSDYl lint 

2 ZI l-ll =SUMl 

3 ZtNDIMI =SUM2 

*. RE r URN 
END 



QHSE to 

•QHSe 20 

QHSE 10 

QHSE *0 

QMSE 50 

OHSE 60 

QHSE TO 

gHSE ao 

QHSE to 

QHSE LOO 

8HSE no 

QHSE 120 

QHSE UO 

QHSE l-tO 

QHSE ISO 

QHSE 150 

QHSE ITO 

QHSE leo 

SHSE L90 

QHSE 200 

QHSE 210 

QHSe 220 

QHSE 230 

QHSE 240 

QHSE 250 

QHSt 260 

QHSE 270 

QHSE 280 

QHSE 290 

QHSE 3 00 

QHSE 310 

QHSE 320 

QHSE 330 

QHSE 340 

QHSE 350 

QHSE 360 

.QHSE 370 

QHSE 3B0 

QHSE 390 

QHSE 'rOO 

QHSE 4 10 

QHSE 420 



QHSE 



.30 



QHSE 440 
QHSE 450 
QHSE 460 
QHSE 4 70 
QHSE -ieo 
QHSE 490 
JHSE 500 
QHSE 5 10 
QHSE 520 
QHSE 5 30 
QHSe S'.O 
QHSE 550 
QHSE 560 
QHSE 5 70 
QHSE 580 



DOHS 



10 



SjeROUriNE DQHSE 

PURPOSE 

TO COMPUTE THE VECTOR OF INTEGRAL VALUES FOR A GIVEN 
EQUIDISTANT TABLE OF FJNCTION, FIRST DERIVATIVE, 
AND SECONO DERIVATIVE VALUES. 



L DQHSE M,V,FDY,SOY,Z.NDIHI 

ptIQN of PARAMETERS 

- 00U3LE PRECISION INCREMENT OF ARGUMENT VALUtS. 

- 0OU8LE PRECISION INPUT VECTOR OF FUNCTION VALUES. 

- DQU3LE PRECISION INPUT VECTOR OF FIRST DERIVATIVE. 

- OOUdLE PRECISION INPUT VECTOR OF SECOND DERIVATIVE 

- RESUt-IING D0U6LE PRECISION VECTOR Of INTEGRAL 
VALJ6S. I MAY Be IDENTICAL WITH Y, FOY OR SOY. 

M - THE DIMENSION QF VECTORS Y, FOY, SOY, 2. 



SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

NONE 

METHOD 

aEGINNING WITH 2(l»=0, EVALUATION OF VECTOR I IS DONE 6 
MEANS OF HERHITEAN SIXTH ORDER INTEGRATION FORMULA, 
FOR REFERENCE, SEE 

R.2URMUEHL. PRAKTISCHE MATHEMATIK FUtft INGENIEURE UND 
PHYSIKER, SPRINGER, BERLl N/GQE TT I NGEN/HEIDELBERG, l')63, 
PP. 227-230, 



30 



60 



SUBROUT INE DQHSEI 



.F0Y.SDY,2,NDIMJ 



.DQHS 
DOHS 

DQHS 
DQHS 
OQmS 
UQhS 
DQHS 
DQHS 

DQHS LOO 

DQHS 110 

DQHS 120 

DQHS I JO 

DQHS 140 

OQHS 150 

DQHS L60 

DQHS no 

.DQHS ISO 

DQHS 190 

DQHS 200 

DQHS 210 

DQHS 220 

DQHS 230 

DQHS Z'tO 

OQHS 250 

DQHS 260 

DQHS 270 

OQHS 280 

DQHS 290 

DQHS 300 

DOHS 310 

DQHS 320 

OQHS 3 30 

DQHS 340 

DQHS 350 

DQHS 360 

,00HS 370 

OQHS 380 

DOHS 390 

DQHS 'iOO 



DQHS 



10 



DIMENSION Yin ,FDY( II .SOY{ II ,Z( II 

DOUBLE PRECISION Y. FD Y» SO Y, ZtH ,HH,Hf ,HT , SUMl , 5UH2 

SUM 2=0. DO 

IFINOIM-1 14,3, 1 

1 HH=.5D0*H 
HF=.2O0*H 

Hr = .C8 33 3333333 33 33 33DO*H 

INTEGRATION LOOP 
DO 2 I=2.N0IM 

sun I = sum 

0SUM2=SUM2*HH»( (YlI-l)*Y(Ill'HF*((FDY(r-ll-FDY{ltl+ 
1 HT*(SDYII-1)»-SDY(I I )} I 

2 21 I- t) = SUMl 

3 2(NDIM) =SUM2 

4 RETURN 
END 



OQHS 420 

DQHS 4 30 

OQHS <i40 

OQHS 450 

OQHS 460 

OQHS *70 

DQHS 450 

OQHS 490 

DQHS 500 

DQHS 510 

OQHS 5 20 

DflHS >30 

DQHS 540 

OQHS 550 

OQHS 560 

OQHS 5 70 

OQHS 5 80 

DQHS 590 
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Subroutines QATR and DQATR 

These subroutines perform the integration of a given 
function by the trapezoidal rule together with 
Romberg's extrapolation method in order to compute 
an approximation for: 

b 



J 



y = J f (x) dx 

a 



(1) 



Successively dividing the interval [ a,b | into 2 

equidistant sub intervals (i = 0, 1, 2, ) and using 

the following notations: 



Knowing Tq, i+2 also, Ti^ i+i can be generated 
(formula 3), and: 



T = T + 

2,1 1, i+1 



T - T > 

1,1+1 l,i 



2^-1 



Thus: 



00 
'■' r=3 ^■ 



j^2r 
2r' i+2 



With C 



= -i_ .2^ - 2^^1 C 
2,2r 24_/^ ^^1.2r 



(4) 



^=^-'''i.k = ^"^- V^i.k = ^^.k) 



(k=0,1.2 2) 

the trapezoidal rule gives approximations Tq^i to the 
integral value y: 
„i 



T^ ,. =h.jZ/ f. . -^(f (a) + f (b) ) 
0.1 i\ i.k 2 



Then the following can be written: 

00 



(2) 



o,i 



, == y + 2-/ 



2r 



r = 1 



"'o , 2r i 



with unknown coefficients Cq 2r which do not 
depend on i. Thus there is a truncation error of 
the order h2 . 

Knowing two successive approximations, To,i 
and Tq i+i, an extrapolated value can be generated: 



T = T + 

l,i o, i+1 



T . , - T . 

o , 1+1 0,1 

2^-1 



(3) 



This is a better approximation to y because: 

00 

1 V^ 2 2r 2r 

2 2 2 

Noting that 2 h.^ - h. =0 and setting: 



C = „2 2r 

1.2r ^2_^ (2-2 ) . C^^2r 



T . becomes: 
1,1 



00 



V=^^§^1.2r<fl 



with a truncation error of the order hj+2. Observe 
that the order of truncation error increases by 2 at 
each new extrapolation step. 

The subroutine uses the scheme shown in Figure 
25 for computation of T-values and generates the 
upward diagonal in the one-dimensional storage 
array AUX, using the general formula: 



T -T 

^ rx, k-l,i+l k-l,i „ . . 

T, . =T, , . , + '-^ — (k+j=i, 

k,j k-l,j+l ^2k_^ ^ ^ 

j= i-l.i-2,...,2,l,0) 

and storing: 



T . into AUX (i+1) 
o.i 

T, . , into AUX (i) 
1,1-1 



T|^^ pinto AUX (1) 



(5) 



Truncation error 


O(h^) 


O(h^) 


o(hf) 


0(hf)... 


step length 

h. 
1 


\ J 
i \ 





1 


2 


3 ... 


b-o 





^0,0] 


;m| 


M 


>■■■ 


b-Q 

2 


1 


^o,lJ] 


M 


>J 




b-a 

4 


2 


'oA 


;,,J 




b-a 

8 


3 


Va. 


• 




'• 


I 


'• 





This gives a truncation error of the order h 

1+1 



Figure 25. Computation of T-vaiues (QATR) 
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The procedure stops if the difference between two 
successive values of AUX (1) is less than a given 
tolerance, or if the values of AUX (1) start oscillat- 
ing, thus showing the influence of rounding errors. 

For reference see S. Filippi, "Das Verfahren von 
Romberg-Stiefel-Bauer als Spezialfall des 
allgemeinen Prinzips von Richardson", Mathematik- 
Technik-Wirtschaft, vol. 11, Iss. 2 (1964), pp. 49-54, 



PURPOSE 

rO COMPUTE A\ APPROXIMATION FOR INTE GR AL ( FCT ( X) , SUMMED 
OVEH X FROM KL TO XUI . 

USAGE 

CALL QATR (KL ,KU,EPS,ND1M,FCI.Y,1 Eft.AUKl 
PARAMETER FCI REQUIRES AN EKTERNAL STATEMENr. 

DeSCR[PTIDN Of PARAMETERS 

KL - THE LOWER 80UND OF THE INTERVAL. 

XU - THE UPPER aOUNt) OF THi INTERVAL. 

EPS - THE UPPER fiQJNO OF THE AH^OLUre ERROR. 

NOIM - THE DIMENSION OF THE AUXILIARY STORAGE ARRAY AUX. 
NO IM-I IS THE MAKIMAL NUMBER OF BISECT IONS OF 
THE INTERVAL ( XL. XUI . 
FCT - THE NAME OF THE EXTERNAL FUNCTION SUBPROGRAM USED 

f - THE RESULTING APPROXIMATION FOR THE INTEGRAL VALU 

I ER - A RESULTING ERROR PARAMETER. 

AUX - AN auXILIARr STOi*AGE ARRflV WITH DIMENSION NDlM. 

REMARKS 

ERROR PARAMETER I£R IS COOfcO IN THE FOLLOWING FORM 

ieR=0 - ir MAS POSSlflLE TO REACH IHE fi £ JU I R E D ACCURACT. 

NO ERROR. 
lER-l - IT IS IMPOSSIBLE TO REACH IHE REOUIHEO ACCURACY 

atCAUSE OF ROUNJING ERRORS. 
iER = ^ - ir «(AS !MP0SSI3Le TO CHECK ACCURACY BECAUSE NOIM 

IS LESS THAN ^, OR THE REJUIREO ACCURACY COULD NO 

BE REACHED wr Th I M ND I M- ! STEPS . NOIM SHOULD 

INCREASED. 



QATR 



^0 
30 



SUB>*OUTINES AND f UNCTI GN 
THE EXTERNAL FUNCTION 
IHE USER . ITS ARGUMEN 



;uaPROGRAMS REQUIRED 

.USPROiftAH FCTIXJ MUST 6t COJED 6Y 
X SHOULO NOT 6E OESTRQyED. 



MEIHOO 

EVALUATION OF Y IS DONE BY MEANS OF TRAPEiOIUAL RULE IN 
CONNECTION WITH R0M9ERGS PRINCIPLE. ON RETURN Y CONIAINS 
THE BEST POSSIBLE APPROXIMATION OF THE INTEGRAL VALUE AND 
VECTJR AUX TH£ UPWARD DIAGONAL OF RCJMBtRG SCHEME. 

COMPONENTS AUXIH (1 = 1.2, .I£NO. WITH I END LESS THAN OR 

EQUAL TO NDIHl BECOME APPROXIMATIONS TO INTEGRAL VALUE WIT 
DECREASING ACCURACY BY M UL 1 1 PL I C A T I ON WITH (XU-XL). 
FOR REFERENCE. SEE 

111 FILIPPI, OAS VERFaHKEjM vUN R0M8E RG" 5 T I E F E L -8 AUER ALS 
SPEZIALFALL DES ALLGEMEIN=N PRINZIPS VON RICHARDSON, 
MATHEMATIK-TECHNIK-WIRTSCHAFT, VOL.11. ISS.Z (196'.), 
PP.'iS-^'.. 
(2) BAUER. ALGDRirMM 60, CACM, VDL.'.. ISS. 6 ( 1 96 U , PP.255 



SUBROUTINE JATRIXL.XU,EPS,NDIH,fCT,Y,iER,AUXI 



DIMENSION AUX( 1) 



NOIM IS GREATER THAN J 


, ANI) H 


[S NOT EQUAL 


TO 0. 


2 HH=H 








E=ePS/ABS( HI 








0ELr2-0. 
p = l. 
JJ = 1 














DO 7 I -2, NOIM 








Y-AJXI 11 








DELTI=DELT2 








HO = HH 








HH=.5*HH 








P=.5*P 








X = XL*HH 








SM = 0. 








DO 3 J-l.JJ 








SM=SMtFCT( XI 









AUXI 1 1= .5*AJK( I-I)»P»SM 

A NEW APPROXIMATION OF INTEGRAL VALUE IS COMPUIcD 6Y MEANS OF 

TRAPEZOIDAL RULE. 

START OF RDMBERGS EXTRAPOLATION METHOD. 

0=1. 

JI-I-1 



DO 



J= I. 



! 1 = l-J 

-v Auxi in -AUK( 1 1* i)*i Aux( ir«-ii-Aux(ini 

END OF ROMBERG-STEP 

DELT2^AflS( Y-AUXim 
IFl 1-517,5,5 

5 IF(DeLT?-E) 10, 10,6 

6 IF(D£Lr2-OELIl)7,Il ,11 
1 JJ=JJ*JJ 

8 IER-2 

9 Y=H*AUXI I ) 
RETURN 

IC IER=0 
GO TO 9 



OAtR 
OAIR 
QATR 
QATR 

QAIR 

OATR 90 

OAFR 100 
QATft no 

OATR 120 
JATR 130 

OATR l^-O 

OATR 150 

OATR 160 

aAIR 1 TO 

OATR L8C 

OATR 19C 
QATR 200 

QATR ?10 
OATR 220 
QATR 230 
JATR ^ftO 
UAIR 2S0 
OATR 260 
OATR 270 
OATR 29C 
OATR 290 
OATR 3CC 
OATR 310 
QATR )20 
r OATR iJC 

UATB S-tO 

OATR 35C 
OATR 360 
QAIR 370 
OATH 360 
OATR 39C 
QATR t,00 
OATR <.10 
OATR <.20 
UAIR 4r30 
QATR <.'tO 
QATR <.50 
OATR UhO 

H OATR "t/O 
OATR '.ao 
OATR i;90 
UAIR ^00 
OATR 510 
OATR 520 
QATR 530 

. OATS 5'.0 
QATR 550 

,.OATR 560 
OATR 570 
OAIR 580 
OATR 590 
OATR 600 
OATR 610 
OATR &2C 
OAIR 630 
OATR 6<V0 
OATR 650 
QATH 660 
OATR 670 
QaTR 680 
QATR 690 

QATR 700 
OATH 710 

OAFR 720 

OATR 730 

OATR 740 

OATR 750 

QATR 760 
QATR 770 
OATR 780 
QAIR 7 90 
OATR BOO 
OAIR 810 
QAIR 320 
QATR B30 
QATR 8^0 
yAlH 850 
QATR 860 
OATR 870 
QATR 880 
OATR 990 
QAIR 900 
OATR 910 
QAIR 920 
QATR 930 
OATR 940 
QATR 950 
OAIR 960 
OATR 970 
OATH 980 
QATR 990 
OATRIOOO 
OATRIOIO 
QAIRlOiO 
QATRIOJO 
QAIR1040 

gATH1050 

QArRIC60 
QATRI070 
OATRICSO 
0ArHIO90 



SUBROUTINE OQATR 



PURPOSE 

TO COMPUTE AN APPROXIMATION FOR I NTEGRALiFCT ( X J , SUMMED 
Over X FROM XL TO XU) . 

USAGE 

CALL DQAIR I XL,XU,EPS,NOIM,FCT,Y, lER.AUX) 
PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT. 

DESCRIPTION OF PARAMETERS 

XL - DOUBLE PRECISION LOWER BOUND OF THE INTERVAL. 

XU - DOUBLE PRECISION UPPER BOUND OF THE INTERVAL. 

EPS - SINGLE PRECISION UPPER BOUND OF THE ABSOLUTE ERROR 

NOIM - THE DIMENSION 3F THE AUXILIARY STORAGE ARRAY AUX. 

NOIM-I IS The MAXIMAL NUMBER OF SISECTIDNS OF 

THE INTERVAL (XL.XUl. 
FCT - THE NAME OF THE EXTERNAL DOUBLE PRECISION fUNCTION 

SUBPROGRAM USED. 
Y - RESULTING DOUBLE PRECISION APPROXIMATION FOR THE 

INTEGRAL VALUE. 
lER - A RESULTING ERROR PAHAHErER. 

AUX - AUXILIARY DOUBLE PRECISION STORAGE ARRAY WITH 

DIMENSION NOIM. 



REMARKS 
ERROR 

IER=0 



A«A*<EieR lER IS CDOED IN THE FOLLOWING FORM 
- IT WAS POSSIBLE TO REACH THE REQUIRED ACCURACY. 
NO ERROR. 
IER=1 - IT IS IMPOSSIBLE TO REACH THE REQUIRED ACCURACY 

BECAUSE OF ROUNDING ERRORS. 
I£R=2 - IT WAS IMPOSSIBLE TO CHECK ACCURACY BECAUSE NOIM 

IS LESS THAN 5, OR THE REQUIRED ACCURACY COULD NOT 
BE REACHED HITHl^ NDIM-l STEPS. NOIM SHOULD BE 
INCREASED. 

SjSaOUriNES and FJNCTION subprograms REQUIRED 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCIIX) 
MUSI BE C0DE3 BY THE USER. IIS DOUBLE PRECISION ARGUMENT X 
SHOULO NOT 66 OESTROYEJ. 

McTHOO 

EVALUATION OF Y IS DONE Af MEANS OF TRAPEZOIDAL RULE IN 
CONNECTION WITH ROMBERvS PRINCIPLE. ON RETURN Y CDNIAINS 
THE BEST POSSIBLE APPROXIMATION OF THE INTEGRAL VALUE AND 
VECTOR AUX HE UPWARD DIAGONAL OF ROMBERG SCHEME. 
CnMPGNfNTS AUX(H I 1 = 1.2,, . . ,IENO, WITH I END LESi THAN OR 
EQUAL TO NOIMl BECOME APPROXIMATIONS TO INTEGRAL VALUE WITH 
OfcCRhASING ACCURACY BY MULTIPLICATION WITH IXU-XLI. 
FOR REFERCNCE, SEE 

(1) FILIPPI, DAS VERFAHREN VON ROMBERG-STIEFEL-BAUER ALS 
SPEZIALFALL DES ALLJEMEINEN PRINZIPS VON RICHARDSON, 
MATHEMAIIK-IECHNIK-WIRTSCHAFT. VOL. 11. ISS. 2 ( 19641 , 
PP. 49-54. 
)2» BAUER, Algorithm 60, CACM, vac. 4, ISS.6 tl96U, pp.255. 



SUBRQUI INE OQATRI 



XU.£PS,NOIM,fCT, 



OArRIlOO 
QATRlllD 
QATRltZO 
0ATR1130 



OQAT LO 

OQAT 20 

OQAT 30 

OQAT 40 

OQAT 50 

OQAT 60 

OQAT 70 

DQAI BO 

OQAT 90 

DQAT 100 

DQAT 110 

OQAT 120 

DQAT 130 

OQAT 140 

DQAT L50 

OQAT I60 

DQAI 1 TO 

DQAT lao 

OQAT 190 

OQAT ZOO 

OQAT 210 

DQAT 220 

DQAI 230 

DQAT 240 

OQAT 250 

OQAT 260 

DQAT 270 

DQAI 280 

OQAT 290 

DQAT 300 

OQAT 310 

DQAT 320 

OOAT 330 

OQAT 340 

DQAT 350 

DQAT 360 

OQAT 3 70 

OQAT 380 
OQAT 390 
DQAT 4C0 
OOAT 410 
OQAT 420 
OQAT 430 
OQAT 440 
DQAI 450 
DQAI 460 
DQAT 470 
DQAI 4 80 
OQAT 490 
OQAT SOD 
DQAT 510 

I DQAT 520 
DQAT 530 
DQAT 540 
OQAT 550 
OQAT 560 
DQAT 57C 
OQAT 580 
OQAT 590 
DOAI 600 

.OQAT 610 
OQAT 620 
DQAT 6)0 
OQAT 640 
.50 



PREPARATIONS OF ROM8ERG-L0QP 
AUX( ll = .50C*IFCT(XLI»FCT(XUI) 



NOIH IS GREATER THAN I AND H IS NOT EQUAL TO 0. 

I HM-H 

t=£PS/OABS{Hl 
D£LT2=0. 
P=l .DO 
JJ = 1 

00 7 MZ.NDIM 
Y=AUX( I 1 
OELI l=OEL T2 
HD = HH 

HH=.500-HM 

P:.5D0*P 

X^XL <-HH 
SM=C.OO 

00 i j=i.jj 

SM=SM»FCTI XI 

i X=X*H0 

AUX I I l = .500*AUX(I-l ) + P«5M 

a NEW APPROXIMATION OF INTEGI 
IRAPEZJIOAt RULE. 

SI ART OF RUM9ERGS EXTRAPOLATIUN ME THOD. 

0= I -OC 

JI=1-I 

DO 4 J=i. Jl 

1 l = I-J 
0-0*0 

i Aux( 1 1 J =Auxi 1 1* n*t Auxm*n-Aux( I n i/io-i.opi 

£^D OF ROMBERG-SIEP 

OELT2=D4BS( Y-AUX) 1) ) 

IF[ 1-5) 7.5,5 
■ 1FI0ELT2-EI 10, 10,0 
. IFtO£LI2-DELI 117,11,11 

JJ=JJ»JJ 

l£R = 2 
' Y=H«AUX( II 

RETURN 

1ER=0 

GO TO 9 

lER'^l 



OQAT 
OQAT 660 
DQAT 670 
DQAT 680 
DQAT 690 
DQAT 700 
DQAI 710 
OQAT 720 
OQAT 730 
OQAT 740 
OQAT 750 
DQAT 760 
DQAT 770 
DQAf 7B0 
OQAT 790 
OQAT BOO 
DQAT 810 
OQAT B20 
DQAI 830 
OQAT 84C 
DQAI 850 
OQAT 660 
DQAT 870 
DQAT 880 
OOAT 890 
DQAI 900 
DQAI 910 
OQAT 920 



LJE IS COMPUTED 



DQAT 



tJO 



OQAT 940 
OQAI 950 
DQAT 960 
OOAT 970 
DQAI 980 
OQAT 990 
OOATIOOO 
DQATIOIO 
OQAT1020 
DQAT1030 
aQAT1040 

oQijmo 

DOATt060 
O0AT107O 
DQATIOSO 
DQAri090 
OOATtlOO 
DQAIUIO 
OQATI120 
OQAT1130 
0QAT114C 
DQAT I 150 
OQATIUO 
OQATll 70 
DQATllBO 
O0AT119O 
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Subroutines QG2, QG3 QGIO, DQG4. DQG8, 

DQG12, DQG16, DQG24, DQG32 

These subroutines perform the integratioij of a given 
function by Gaussian quadrature formulas. 
To compute: 



/ 



y = j f (X) dx 

a 

Gaussian quadrature formulas with n = 2,3, . . . , 10 
(or n = 4,8,12,16,24,32) points are used. Trans- 
forming the range x = a. . . b into t = -1. . . 1 by: 

2x - (a+b) b-a ^ b+a 

J. — 1 L Y = t + 

* b-a ' 2 ^ 2 



the result is: 



b-a 



/,/b-a b-taN 
f (t) dt with ^(t) = f \^ •+X/ 









aG2 


iO 








, .QG2 


20 








aG2 


30 


SUeROUTINE qG2 






QG2 
QG2 


40 

50 


PIM^OSE 






QG2 


60 


TO COHPUTE mrEMALIFCTllCI, SIWMCO OTCR X FROM KL fO 


XUI 


QG2 


70 








0G2 


80 


USAGE 


\ 




QG2 


90 


CALL 0C2 (XL<XUtFCT,TI 






QG2 


LOO 


PARANEfER fCT REQUIRES AN ElTEHNAL STATEMENT 






QG2 

QC2 


110 
120 


DESCRIPTION OF PARAMETERS 






QG2 


130 


XL - THE LOUER BOUNO OF THE INTEKVAL. 






QG2 


lAO 


XU - THE UPPER BQUHO Of THE IHTE«VAL. 






QG2 


150 


FCT - THE NAME OF AH EXTERNAL FUNCTION SUBPROGRAM 


USEO. 


QG2 


160 


Y - THE RESULTING INTEGRAL VALUl. 






0C2 
QG2 


170 
180 


REMARKS 






QG2 


190 


NONE 






0G2 
QG2 


200 
2 to 


SUBROUTINES AND FUNCTION SUBPROGAAMS REOUIftEO 






QG2 


220 


THE EXTERNAL FUNCTION SUBPROGRAH FCTIXt MUST 


BE FURNISHED 


QG2 


230 


BV THE USER. 






QG2 
QC2 


240 
250 


M€ THOO ' 






QG2 


260 


EVALUATION IS DONE ST MEANS OF Z-POINT GAUSS 


QUADRATURE 


QG2 


270 


FORMULA, UHICH INTEGRATES POLYNOMIALS UP TO DEGREE 3 




QG2 


280 


EXACTLY. 






QG2 


290 


FOR REFERENCE. SEE 






0G2 


300 


V.I.KRVLOV. APPROXIMATE CALCULATION OF INTEGRALS, 




QG2 


310 


MACMILLAN, NEW YORK/LONOON* 1462* PP,100-11L 


AND 3 37- 


-338. 


QG2 

QG2 

. .dG2 


320 
330 
340 








QG2 


350 


SUBROUTINE QG2< XL.XU.FCT. V) 






QG2 
QG2 
QG2 


360 
370 
39C 


A-.S^tXU+XLt 






QG2 


390 


8-XU-XL 






QG2 


400 


y-. 288* 751*8 






(JG2 


4 10 


V".5»B*tFCT(A*Y»*FCT(A-Y> 1 






0G2 


420 


RETURN 






QG2 


430 


ENO 






QG2 


440 



Using: 



/^(t)dt= i:[Aj"V(tk^"S](n = 2.3,...) 



with coefficients A^ and nodes t^ (note that 
tj^^"^ are the roots of Legendre polynomials of 
degree n), the result is the approximations: 



^n = (^-^) • £ 



*" 



-4^" L 



<n| 



(1) 



+ ^IX"-2.3.---l 



which are exact whenever f(x) is a polynomial up to 
the degree 2n-l. 

The A^^") and tk(n) are symmetric with respect 
to t = 0: 



^k n-k+r k n-k+1 



For reference see: V.J. Krylov, Approximate 
Calculation of hitegrals . Macmillan, New York/ 
London, 1962, pp. 100-111 and 337-340. 



suatouriNE 0C3 



PURPOSE 

TO COMPUTE INrEGRAL(FCT(XI , 



SUMMED OVER X FROM XL TO KUI 



CALL 0G3 (XL,XU,FCT,Y) 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

XL - THE LOWER BOUND OF THE INTERVAL. 

XU - THE UPPER BOUND OF THE INTERVAL. 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 

Y - THE RESULTING INTEGRAL VALUE. 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUbPROGRAM FCTCRI MUST BE FURNISHED 
BV THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF S-POINT GAUSS QUADRATURE 

FORMULA, WHICH INTEGRATES POLYNOMIALS UP TO DEGREE 5 

EXACTLY. 

FOR REFERENCE. SEE 

V.I. KRYLOV, APPROXIMATE CALCULATION Of INTEGRALS, 

MACMILLAN, NEM YORIC/LONOON, 1962, PP.lOO-lll AND 337-338. 



SUBftOUTINE QG3<XL.XU.FCT,Y) 



A=.5*(XU*XL» 

8-XU-XL 

Y-. 3872983*8 

¥».2777778*1FCTU*YI»FCTIA-Y)) 

Y>B*(r».4444444*FCT(AI I 

RETURN 

ENO 



or.i 


10 


,0G3 


^o 


0G3 


30 


or.i 


40 


QG3 


50 


0G3 


60 


0G3 


70 


QG) 


SO 


QG3 


90 


QG3 


100 


QGJ 


liO 
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SUeROUTIME QG-V 



SUMMED OVER 



FROM XL TO XUi 



US4&E - 

CALL QG'> (RL. XU.FCT.T) 
(>ARAHEr£A FCr REOUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAHETERS 

XL - THE LOWER aOUNO OF THE INTERVAL. 

XU - TNE UPPER BOUND OF THE INTERVAL. 

FCT - THE NAME Of" AN EXTERNAL FUNCTION SU8PROGRAH USED. 

V - THE RESULTINC INTEGRAL VALUE. 

REMARKS 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCT(X> MUST BE FURNISHED 
9Y THE USER. 

METHOD 

EVALUATION IS DONE BT MEANS OF 4-POINT GAUSS QUADRATURE 
FORMULA, WHICH INTEGRATES POLVNOMIALS UP TO DEGREE 7 
EXACTLY. 

for reference. see 

v.i.kRvlov, Approximate calculation of integrals, 

MACMILLAN, NEW VaBK/lONOQN, 1962, PP.lOO-lll AND 337-338. 



SUBROUTINE QG<.( XL.XU,FCT,ri 



A=.5*( XU»XL) 

6=XU-XL 

C'^.^30568Z«9 

V = .tT3'*2 7*.*(FCT(A»C KFCTIA-CII 

C-. I&99905*B 

T = 6•ly♦.3^60 7^6•tFCT[A^CI♦FCT^A-CMI 

RETURN 

END 
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SUBROUTINE 0&5 



PURPOSE 

TO COMPUTE 



NTEG«AL(FCr[ X» , SUMMED OVER X FROM XL TO XU) 



USAGE 

CALL QCS (XL, XU.FCT.YI 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

XL - THE LOWER 80UN0 OF THE INTERVAL. 

XU - rue UPPER dOUNO OF THE INTERVAL. 

FCT - The name of an external FUNCTION SUBPROGRAM USED. 

V - THE RESULTING INTEGRAL VALUE. 



SUBROUTINES AND FUNCTION SUBPROGRAMS REOUIREO 

The external function subprogram FCT(XJ MUST BE FURNISHED 
av IHE USER. 

MeTHOO 

EVALUATION IS DONE BY MEANS OF 5-POINT GAUSS QUADRATURE 

FORMULA, WHICH INTEGRATES POLYNOMIALS UP TO DECREE 9 

EXACTLY. 

FOR REFeRENCEt SEE 

V.I.KRYLOV, APPROXIMATE CALCULATION OF INTEGRALS. 

MACMILIAN, NEW YORK/LONDON, 1962, PP.IOO-IU AND 337-338. 



SUBRQumE QG5(XL,XU,FCT, 



4= .5«{ XU'XLl 

B=XU-XL 

C=.*530B99«6 

>--.lie*63*»(FCT(AtC)+FCr(A-CIl 

C-.J6923'.7*a 

Y = Y*.2393U3*(FCr(ft»C 1*FCT(A-C) ) 

r=fl« ( Yt .23'i*4*'.*FCT I A) ) 

RETURN 

END 
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SUBROUTINE OQG* 

PURPOSE 

TO COMPUTE INTEGRALIFCTIX) , 

USAGE 

CALL DQG* (XL .XU.FCT.Yl 
PARAMETER FCT REQUIRES AN 



SUMMED OVER X FROM XL TO XUI 



EXTERNAL STATEMENT 



DESCRIPTION OF PARAMETERS 

XL - DOUBLE PRECISION LOWER 80UN0 OF THE INTERVAL. 
XU - DOUBLE PRECISION UPPER BOUND OF THE INTERVAL. 
FCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUBPROGRAM USED. 
Y - THE RESULTING DOUBLE PRECISION INTEGRAL VALUE. 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCTtX) 

MUST BE FURNISHED BY THE USER. 

METHOO 

EVALUATION IS DONE BY NEANS OF 4-POINT GAUSS QUADRATURE 
FORMULA. WHICH INTEGRATES POLYNOMIALS UP TO DEGREE 7 
EXACTLY. FOR ReFERENCE, SEE 

V.I.KRYLOV, APPROXIMATE CALCULATION OF INTEGRALS. 
MACMILLAN. NEW YOR«/LO«DON. 1962, PP.lOO-llI AND 337-3*0. 



SUBROUTINE OaG*(XL. XU.FCr. 



DOUBLE PRECISION XL . XU . 



A=.500»IXU»XLI 



T A.B.C.FC T 



6=RU-XL 

C = .A30')681b'>7970^62 900«B 

r.,lJ'39Z?*J^56a7^69 30 0»(FCT(A*C)»FCT(A-Cll 

C = . 16 99 905? l/qPAZ 81 30 0*8 

Y«a»tT» .3260 72^7 7*JU7i0 7OO»|FCT( A»CI*FCT(A-C 1 J > 

RETURN 

END 
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OOG* 260 
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OQG* 2 80 
OQG* 290 
DQG* 300 
DQG* 310 
DOG* 320 
DQG* 3 30 
.OQG* 3*0 
DOG* 350 
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OOG* *30 

DQG* **0 
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SUBi^OUriNE QG6 

PURPOSE 

TO COMPUTE INTEGRALIFCTI XI 

USAGE 

CALL QG6 (XL, XU.FCT.Y] 
PARAMETER fCI REQUIRES , 



SUMMED OVER X FROM XL TO XU t 



EXTERNAL STArEMENT 



DESCRIPTION OF PARAMETERS 

XL - THE LOWER BOUND OF THE INTERVAL- 

XU - THE UPPER BOUND OF THE INTERVAL. 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUflPROGRAH ■■ 

Y - THE RESULTING INTEGRAL VALUE. 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCT(X) MUST BE FURNISHED 
BY THE USER. 

METHOD 

£VALUAri3N IS DONE BY MEANS OF b-PQINT GAUSS QUADRATURE 

FORMULA, WHICH INTEGRATES POLYNOMIALS UP TO DEGREE 11 

EXACTLY. 

FOR REFERENCE. SEE 

V.I.KRYLOV, APPROXIMATE CALCULATION OF INTEGRALS. 

MACMlLLAN, NEW YORK/LONDON, 1962, PP.lOO-lll AND 337-338. 



SUBROUTINE aG6( XL , XU.FC T. Y ) 



a=XU-XL 

C= .*6623*9»e 

Y=.036662^5»(FCT(A*C1*FCT(A-C1I 

C^. 33060*7*8 

Y^Y».16OJ9 08*(FCT(A»CHFCr(A-CII 

C = . ll93C96«a 

Y = U*( Y*,2»395 70*(FC H A»C) ♦FCT ( A-C I 1 1 

R e r u» N 

END 
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SUSROUnNE a&7 

PURPOSE 

TO COMPUTE lMTeGR4L(FCr(X| , SUMMED OVER X FROM XL TO KUI 

USAGE '' 

CALL aCT (XL, XUiFCT.ri 
PARAHEfER fCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

XL - THE LOWER BOUND OF THE INTERVAL. 

XU - THE UPPER BOUND OF THE INTERVAL. 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 

'r' - THE RESULTING INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUSPROGRAM FCTIXI MUST BE FURNISHED 
av THE USER. 

METHOD 

EVALUATION IS DONE 8Y MEANS OF T-POlNT GAUSS QUADRATURE 

FORMULA, WHICH INTEGRATES PDLrNQMIALS UP TO DEGREE 13 

EXACTLY. 

FOR REFERENCE, SEE 

V.I.KRVLOV, APPROXIMATE CALCULATION QF INTEGRALS, 

MACHILLAN, NEW yORX/LONOON, IttZ, PP.lOO-lll AND 137-338. 



SUBROUTINE 0G7 ( XL . XU.FC I, Y) 



A^.5*( XU+XL) 

B-XU-KL 

C = .*7'i5540*6 

Y=,064 7«24a*(FCr(A*C)tFCI(A-CI 1 

C= .3707656*8 

r = Y + .13<)8527*(FCT{AtC)*FCTU-CJJ 

C=.20^9226«a 

V = Y*.190S150*(FCT(AH;I*FCTIA-CI J 

Y=B»IY*.2089796«FCr(AI J 

RETURN 

END 
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SUfiRGUTINE OQCS 

PURPOSE 

TO COMPUTE INTEGAALCFCTIXI, SUMMED OVER X FROM XL fQ XUI 

USAGE 

CALL OQGB UL.XU.FCr,Y) 

PARAMETER FCT REQUIRES AN EXTERNAL SrATEMENT 

DESCRIPTION OF PARAMETERS 

XL - DOUBLE PRECISION LOMER BOUND OF THE INTERVAL. 

XU - 00U8LE PRECISION UPPER BOUND OF THE INTERVAL. 

FCT - THE NAME OF AN EXTERNAL OOUBtE PRECISION FUNCTION 

SUBPROGRAM USED. 
Y - THE RESULTING DOUBLE PRECISION INTEGRAL VALUE. 

REMAtlKS 

NONE 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCTIXI 
MUST BE FURNISHEO BT THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF B-POINT GAUSS OUAORATURE 
FORMULA, MHICH INTEGRATES fOLVNOMIALS UP TO DEGREE 15 
EXACTLY. FOR REFERENCE, SEE 

V.I.KRYL3V, APPROXIMATE CALCULATION OF INTEGRALS, 
MACMILLAN, NEW YORK/LONOON. 1962, PP. 100-111 ANO 337-340. 



SUBROUTINE OOGB 1 XL, XU,FCT , VI 



DOUBLE PRECISION XL .XU, Y, A ,B,C .FCT 

A-.SDO'tXU-^Xt. I 

e-XU-XL 

C-. 430 144928248 7681 200*8 

V-. 50614268 1451 881300-1 •(FCI(A*C1 •FCT (A-CH 

C-. 398 3332387068133 700*8 

Y»Y*.ll 11905172266BT2400*IFCTI A»C»*FCT(A-C» I 

C«. 262 766204958 1644 900*8 

Y"Y». 15685 33 229 3894 36400* (FCT(A*Ct*FCT<A-Cl I 

C>.9171T32124782490D-1*B 

Y=B*(Y*. 16134189168 91 a09900*(FCT(A*CI*fCT(A-Cin 
RETURN 
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0QG8 80 
DQG8 90 
OgCB LOO 
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0QG8 240 
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00C8 410 
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OgGS 450 
OQGS 460 
DOGS 4 70 
O0G8 480 
DQGS 490 
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00G8 510 
DQG8 5 20 



SUBROUTINE QGS 

PURPOSE 

TO COMPUTE IHTEGRALIFCdX), SUMMED OVER X FROM XL TO XU I 

USAGE 

CALL QG8 (XL, KU,FCT,YI 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

XL - THE LOWER BOUND Of THE INTERVAL. 

XU - THE UPPER 80UN0 OF THE INTERVAL. 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM lJSED. 

Y - THE RESULTING INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM fCTIXJ MUST BE FURNISHED 
BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF B-PQINT GAUSS QUADRATURE 

FORMULA, HHICM INTEGRATES POLYNOMIALS UP TO DEGREE 15 

EXACTLY. 

FOR REFERENCE, SEE 

V.I.KRYLOV, APPROXIMATE CALCULATION OF INTEGRALS, 

MACMILLAN, NEW YORK/LONDON. 1962, PP. lOO-lll ANO 337-338. 



SUBROUTINE 0GB ( XL ,XU,FC T , YI 



A=.5*( XU*XLI 

6=XU-XL 

C=-4a01449*B 

y = .C506l42T*(FCT(A*C)+FCTIA-CH 

C=. 3983332*8 

Yir*.l 1 11905»<FCT (A*C I*FCT1 A-C 1 I 

C=. 262766 2*6 

Y=Y».1568533*(FCT(4*CJtFCTIA-C) ) 

C=.091T17 32*B 

Y = B*(Y*.18U419*{FCr{A»CI*FCnA-Cin 

RETURN 

END 
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SUBROUTINE 0G9 

PURPOSE 

TO COMPUTE INTEGRALIFCTIKI , SUHMEO OVER X FROM XL TO XUI 

USAGE 

CALL QG9 (XLtXU.FCT.YI 

PARAMETER FCT REQUIRES AN EXTERNAL STArCMENT 

DESCRIPTION OF PARAMETERS 

XL - THE LOWER BOUND OF THE INTERV'al. 

XU - THE UPPER BOUND OF THE INTERVAL. 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 

V - THE RESULTING INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTIXI MUST BE FURNISHED 
BY THE USER. 

NET HOD 

EVALUATION IS DONE BY MEANS OF 9-POINT GAUSS QUADRATURE 

FORMULA, WHICH INTEGRATES POLYNOMIALS UP TO DEGREE 17 

EXACTLY. 

FOR REFERENCE, SEE 

V.I.KRVLOV, APPROXIMATE CALCULATION OF INTEGRALS, 

MACMILLAN, NEW YORK/LONOON. 1962. PP.lOO-lll ANO 337-338. 



SUBROUTINE QG9IXL,XUtFCT, YI 



A=.5*(XU*XL> 

8"XU-XL 

C-. 4840801*6 

Y = .04063719*(FCT(A»CI*FCr(A-CH 

C-. 4180156*6 

V»y*.0'5032408* 1 FCn A»C I»FCT1 A-C> I 

C=. 3066857*6 

V=Yt.l303053*<FCT(A+CI»FCT(A-C)) 

C-.162t267*B 

V-Y*.l56l73S*(FCriA*CUFCTIA-Cll 

Y>-6*t¥*.165ll97*FCT(AII 

RETURN 

End 
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SUBROUTINE OGLO 

PiMPOSe 

TO COHPUTE INTEGftAUFCTtJtl. SU«»EO OVER K FROM XL TO XU» 

USAGC 

CALL QGlOfXL.XU.FCTtYl 

PAftAHtTER FCr REQUIRES AH EXrERNAL STATEHtNT 

DESCRIPTION OF PARAMETERS 

XI - THE LOWER 60UNO OF THE INTERVAL. 

KU - THE UPPER fiOUNO OF THE INTERVAL. 

FCT - THE NAME OF AN EXTERNAL FUNCTION SU6PR0GRAH USED. 

Y - THE RESULTING INTEGRAL VALUE. 

REHARKS 
NONE 

SUBROUTINES AND FUNCTION SUBPROGRAHS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTIXI NUST BE FURNISHEO 
BY THE USER. 

HETHOO 

EVALUATION IS DONE 8Y NEANS OF 10-POINT GAUSS QUADRATURE 

FORHULA, iMICH INTEGRATES POLTNONIALS UP TO DECREE 19 

enACTLV. 

FOR REFERENCE, SEE 

V.I.KRYLQV* APPROXIHATE CALCULATION OF INTEGRALS* 

NACNILLAN, NEW YORK/LONDON, 1962, PP.lOO-Ul AND 3J7-338. 



SUBROUTINE OGlOtXL.XUfFCT.Yl 



A".5«(XUtXLI 

ft«XU-XL 

C = .*a6<»533*B 

r*.03 333567»(FCTlA*Ct*FCriA-Cl) 

C-. 4325317*8 

¥«r+.0T^72567*IFCT(A*Cl*FCTIA-Cll 

C=. 339704 fl»B 

¥-Y*.10q5*3?*(FCr(A*CI+FCTI A-Cl I 

C=. 2166977*8 

Y-Y».l3*6334*(FCr<A*CI+FCT( A-Ct I 

C*.07*43717*B 

Y-B*IY*.U7762l*(FCT(A+C»*FCT(A-CIII 

RETURN 

END 



SUBROUTINE 00G12( XL .XU.FC T. Yl 



OOUBLE PRECISION XL .XU, Y, A,8.C , FCT 

A-.500*(XU*KL I 

B*XU-XL 

C=. 49078031712 33995 30 0*6 

Y=.2 35a7668l9 12 559140-1*1 FCT(A*C)*FCT I A-C II 

C-.*5205a62ai 85237^300*8 

Y-Y*.5 3469662997659 2l5D-l*(FCT( A*CI*FCHA-C1 I 

C-. 384951 337097 1523 400*6 

Y«Y + . 8003916*271673 IID-I*(FCT(A*CI ♦FCT (A-CU 

C«.29365a9T7I4330«7200*e 

V-Y*. 10 158371 3361 5329600* IFCTC A»C1 *FCT I A-C ) > 

C-. 183915 7494990901 000*8 

Y- Y*. 1 167+62682691 7 74 00 0*(FCr(A#C)*FCr I *-Cn 

C-. 626 1670 4255 7 3445 80-1*8 

YxB*(r*. 124573 5229067013900*1 FCT (A*C I *FCT(A-CI}) 

RETURN 

END 
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SUBROUTINE 0QG12 

PURPOSE ^ . 

TO CONPUTE INTEGRAL IFCTI Xt , SUNNEO OVER X FRON XL TO XU) 

USACF 

CALL 0QC12 (XL,XU,FCr,Y) 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

XL - DOUBLE PRECISION LOWER BOUND OF THE INTERVAL. 
XU - DOUBLE PRECISION UPPER BOUND OF THE INTERVAL. 
FCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUBPROGRAM USED. 
Y - THE RESULTING DOUBLE PRECISION INTEGRAL VALUE. 

REMARKS 

NONE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCTIXI 
MUST BE FlMNlSHEO 6r THE USER. 

HETHOO 

EVALUATION IS DONE BY MEANS OF 12-POINT GAUSS QUADRATURE 
FORMULA, WHICH INTEGRATES POLYNOMIALS UP TO DEGREE 23 
EXACTLY. FOR REFERENCE. SEE 

V.I.KRYLOV, APPROXIMATE CALCULATION OF INTE&RALSi 
MACMILLANi NEW YORK/LONDON, 1962, PP. 100-111 ANO 337-340. 
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SUBROUTINE OQCLt) 



SUflMED OVCR X FROM XL TO XUl 

USAGE 

CALL 0QG16 ( XL . XU ,f C T , f » 

PARAMETER FCT REQUIRES AN EKTERNAL STATEMENr 

DESCRIPTION OF PARAHETEHS 

XL - OOUBLE PRECISION LOWER BOUND OF THC INTERVAL. 
XU - DOUBLE PRECISION UPPER 60UN0 OF THE INTERVAL. 
FCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUBPROGRAM USED. 
y - THE RESULTING DOUBLE PRECISION INTEGRAL VALUE. 



SUBROUTINES ANO FUNCTION SU8PH0&RAMS REQUIRED 

THE EXTERNAL DOUBLE PRECISION FUMCTION SUBPHaCRAM FCTIXI 
MUST BE FJRNISHED by THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 16-PDINT GAUSS QUADRATURE 
FORMULA, WHICH INTEGRAIES POLYNOMIALS UP TO DEGREE 31 
EXACTLY. FOR REFERENCE, SEE 

V.I.KRYLOV, APPROXIMATE CALCULAT I ON OF INTEGRALS, 
MACMILLAN, NEW YORK/LONDON. 1962, PP.lOO-lll ANO 33T-340. 



su8«ouriNe dqgi6I xl .xu.fct. 



REC [SION 



,xu. Y. A ,6,c ,fcr 



=.5D0"(XU*XL) 

=XU-XL 

= .494T0046 749'>824')7DO*B 

= .IJ5T62 2'1TC5BT704 7D- I • I FC T i A »C ) »FC T t A-C) ) 

=.47 2287 51 15366162 900*8 

= Y*, 3112676 1969}239'.6D-1*[ FCT (A*C I 'FCT (A-Cn 

':.4JZ8 15601I9J9156 7D0«B 

= Y*.47579255841246392Q-1«1FCTU*C)*FCT(A-C1 1 

=.3777C22C4l 775015200*8 

=y ♦.62 31448562 7766 93 60-1* I FCT(A*CI tFCTeA-CI ) 

=.3069331222013218 700*6 

=Y*. 7479 799 44082883 7D-l*(FCnA»Cl*FCT( AC I ) 

=.229006388828 6136 900*0 

= Y + . 8457825969 7501 270-1* 1FCTM*C I ♦FCT(A-C 11 

=. 1408017753896294600*8 

= Y*. 9 I 30 1 70752 2461 790-1* IFCT( A*C I ♦■FCT(A-C1 1 

= . 4 7 50 62 549 1 68 1 a 72 00- 1 *B 

=B*1 Y+. 94725305227 53425Q'l*(FCT(AtCl+FCT(A-C HI 

ETURN 
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0G16 590 
0GL6 600 



SUBRGUriNE 0QG24 



USAGE 

CALL DQG24 I XL,XU,FCT, Y) 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

XL - OOUBLE PRECISION LOWER 80UN0 OF^THE INTERVAL. 
XU - DOUBLE PRECISION UPPER BOUND OF THE INTERVAL. 
FCT - THE NAME OF AN EXTERNAL 00J6LE PRECISION FUNCTION 

SUBPROGRAM USED. 
Y - THE RESULTING DOUBLE PRECISION INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCTtXI 
MUST BE FURNISHED BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 24-POlNT C4USS QUADRATURE 
FORMULA, WHICH INTEGRATES POLYNOMIALS UP TO DEGREE 47 
EXACTLY. FOR REFERENCE, SEE 

V.I.tCRYLOV, APPROXIMATE CALCULATION OF INTEGRALS. 
MACMILLAN, NEW YO8K/L0NO0H, 1962, PP.IOO-IU AND 337-340. 
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SUBROUTINE 0QG24(XL .XU.FCT, Y| 



00U6LE PRECISION XL ,XU , V, A , B,C ,FC T 

A=.500*IXU*XLI 

B=XU-XL 

C=. 49 7 59 36099985106 800*6 

Y = .6l706146999935998D-2*(FCrU*C)tFCT(A-Cl I 
C=. 48 7 3642 7 79 85 654 7500*8 

Y = Y».142656943I4466832D-l*(FCT(AtCI*FCHA-CI I 
C = . 469 I 372 76001 3663 800*8 

Y = Y».22l3S7I94087099C3D-l*(FCTtA»-Cl*FCI{A-CI 1 
C =.44320 7 76 35 022005200*8 

Y=Yt. 2964929245771 8 390D-1*(FCT(A»C I *FCT1A-CI 1 
£=.4100009929869514600*6 

r=Yt.366nMO?055401530-MfFCr(4fCMfCr(4-CI) 

C=. 3 70062095 7892 771 800*8 

Y = V».4309 5080 7659766380-1 *1FCI(A*C P ♦FCT (A-CI I 
C=. 32404682596848 77 800*8 

Y=Yt.498093260520569440-l*(FCTl A*C)+FCT(A-C1 ) 
C=.2727 107356944197700*8 

Y=Yt.5 3722l3505T962 8l70-l*(FCT(4*ClfFCT(A-Cll 
C=.216B967 53813022 5 7DO*B 

Y =Y *■. 5 7 7528 34026862 801 0-1 *( FC T(A*C I *FCT{ A-CI I 
C=. 1575213 398480816900*8 

Y3Yt.608 3523646 39016960-l*(FCT( A*Cl»FCrU-C) I 

C =.9 55594 33 7368 08150- I *B 

Y=Y*.629l8728l7J4I4 1480-l*(FCr( A*C)+FCr lA-CI I 

C = . 320284464 3 1 302 8130-1*6 

Y=B*I Y*.63969097673 3760780- L*(FCT(A*C I *FCr(A-CI ) 

RETURN 

END 
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SUBROUTlNt DOG32 

PURPOSE 

rO COMPUTE INTEGRAL IFCT( Kl , 

USAGE 

CALL DQG3? (XL,KU,FCI.yj 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCftlPTIOi^ OF PARAMETERS 

XL - DOUBLE PRECISION 10ME« BOUND OF THE INTERVAL, 

KU - DOUBLE PRECISION UPPER BOUND OF THE INTERVAL. 

FCT - THE NAME OF AN EXTERNAL DOUBLE PRECTSION FUNCTION 

SUBPROGRAM USCO. 
V - THE RESULTING OOjeLE PRECISION INTEGRAL VALUE. 



50 



SUaROUTINES AND FUNCTION SUBPROGRAMS RtQUIREO 

THE External double precision function subprogram fctixj 

MUST BE fURNISHEO BV THE USER, 

METHOD 

EVALUATION IS DONE BY MEANS Of J2-P0INT GAUSS QUADRATURE 
FORMULA, MHICH INTEGRATES POLTNOMIALS UP TO OEGRSE 63 
EXACTLY. FOR REFERENCE. SEE 

V.I.KRYLOVt APPROXIMATE CALCULATION OF INTEGRALS. 
MACMILLANt new YORK/LONOON, 1962, PP. 100-111 AND 137-340. 



SUBROUTINE 0QG32( XL ,XU ,FC T, v I 



OOUBLE PRECISION XL . XU . Y . A ,8,C . FC T 

A= . 500* (XU*XL 1 

B=XU-XL 

C-.'*'984 319 3092'.M0 7 8DO»B 

Y = . 350')30500*TJ50'i8 3D-?*(Fcr(A»Cl *FCT (A-Cll 
C=. 4^28057557/26341 700"6 

Y = V*.ei37iq7365452 6 35D-2*(FCTIA*C)*FCT(A-cn 
C = .482 iai 127 793 7532 200*6 

r =Y *. 126<) 60 326546 51 0300-1 •1FCT(4*C1*FCT(A-CI I 
C =.46 74 5303 796866 9840 0*3 

Y=Yt. 171^69314565 1071 7D-i*(FCr(4*C)»FCT I A-Cn 
C = .4<iei6057 7a8302606DO*S 

Y = Y*, 2i417'?49i:illl33400-l*(FCT( A*Cl*FCf (A-Cl ) 
C=-42468 33068662 849900*6 

r = Yt-, 2549902*365 II 88 0880-1 ♦(FCr(A*C J tFC I IA-C> ) 
C=.)9724l89 79 839712 0D0*e 

Y =Yt. 29 342046739267 7740-1*1 FCT (AtC I *FCT lA-CJI 
C=. 36609 1059 3 TO 1448 400*6 

Y = Yt.32 9lllU38 8180 92 3D-l*(FCr(A»Cl*FCT(A-C»l 
C=. 33152213 34651076000*8 

Y = Y*. 36 1728970544242530-1*1 FCT (A*CI*FCT(A-C I ) 
C=. 2938 5787662038 11600*6 

Y = Y*. 39096947893535 1530-1«I FCT( A tC H-FCT(A-C 1 t 
C». 253449954466 11 47000*6 

y = Y*.4I6 559621 1 34 73 3780- I • I FC T ( A +C ) +f C T ( A-C I ) 
C-. 2 10675638065 3176 700*6 

T = Y*.43826C465022019C60-1*(FCT1 A*C1 *FCT ( A-C I I 
C=. 1659343011410638200*8 

Y = Y*. 45586939347891 9420-1*1 FCT U*C)*FCT(A-C I) 
C=. 1196 436811260685400*8 

Y=Y*.46922l99540402283D-l*(FCriA»C)tFCTIA-Cl I 
C = . 7 22 35^)80 791398250-1*6 

Y=Y*. 47819360 03 96 37 4300-1*1 FCTl A*C)*FCT (A-C) t 

C = .241 5 38 3284386915 60-1*6 

y=8*( Yt.46270044Z575639000-l*{FCTIA»CItFCI (A-C) I ) 

RETURN 

END 
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Subroutines QL2, QL3, . . . , QLIO; DQL4, DQL8, 
DQL12, DQL16, DQL24, DQL32 

These subix>utmes perform the integration of a given 
function by G^ussian-Laguerre quadrature formulas; 
To compute: 

00 



Je '"" f (X) 





dx 



Gaussian-Laguerre quadrature formulas with 

n = 2,3,..., 10 (orn = 4,8,12,16,24,32) points are 

used to get the approximations: 



eR'-m.-,] 



(n = 2,3,..,) (1) 



which are exact whenever f(x) is a polsmomial up to 
the degree 2n- 1 . Note that nodes x^^^' are the 
roots of the Laguerre polynomials Ln (x) of degree n. 
For reference see: 

(1) H.E. Salzer/R. Zucker, "Table of Zeros 
and Weight Factors of the First Fifteen 
Laguerre Polynomials". Bui. Amer. Math. 
Soc, vol 55 (1949), pp 1004-1012. 

(2) V.I. Krylov, Approximate Calculation of 
Integrals . Macmillan, New York/London, 
1962, pp. 130-132 and 347-352. 

(3) Shao/Chen/Frank, "Tables of Zeros and 
Gaussian Weights of Certain Associated 
Laguerre Polynomials and the Related 
Generalized Hermite Polynomials", IBM 
Technical Report TR 00.1100 (March, 1964) 
pp. 24-25. 



SUBROUTINE 0L2 

PURPOSE 

TO COMPUTE INTeGRALieXP(-XI*FCT(XI, SUMMED OVER X FROM 
TO INFINITY!. 

USAGE 

CALL QL2 (FCT,YJ 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

OESCRlPIiON OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 

V - THE RESULTING INTEGRAL VALUE, 



SUBROUTINES AND FUNCTIUN SUBPROGRAMS REQUIRED 

THe EXTERNAL FUNCTION SUaPROGRAM FCT(XI MUST BE FURNISHEO 
BV THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 2-POINT GAUS S I AN-L A&UEflHE 
QUADRATURE fOflMULA, WHICH INTEGRATES EXACTLY WHENEVER 
FCHX) IS * POLYNOMIAL UP TO DEGREE 3. 

FOR HeFeRENCEf see 

V.I. KRYLOV, APPROXIMATE CALCULATION OF INTEGRALS, 
MACMILLAN. NEW YORtC/LONOON, 1962, PP. 130-132 AND 347-352, 



SUBROUTINE 0L2(FCT,Y) 



K=3. 414214 

Y = . 1464466*FCT( X) 

X = , 5357864 

Y=Y*.8535534*FCTI XI 

RETURN 

ENO 



0L2 


10 
20 
30 


QL2 


QL2 


40 


UL2 


50 


QL2 


60 


01 ? 


70 


QL2 


80 


QL2 


9C 


QL2 


100 


QL2 


no 


QL2 


120 


0L2 


130 


QL2 


140 


Ql2 


150 


0L2 


160 


0L2 


170 


0L2 


180 


0L2 


190 


0L2 


2 00 


OL? 


210 


0L2 


220 


QL2 


230 


QL2 


240 


QL2 


2 50 


aL2 


260 


0L2 


2 70 


aL2 


280 


ill 


m 


0L2 


50O 


QL2 


3in 


0L2 


320 


.QL2 


3 30 


QL2 


3 40 


0L2 


350 


QL2 


360 


QL2 


3 70 


0L2 


380 


0L2 


390 


QL2 


400 


QL2 


410 


QL2 


420 


QL2 


4 30 



Mathematics — Numerical Quadrature 303 



SUHH£0 OVER X FROH 



SUBROUTINE QL ) 

PURPOSE 

fO COMPUTE IHreCRAHeiCPI-XMFCTtK 
rO INFINITYI, 

USAGE 

CALL QLJ (FCT.Yl 

PARAMETER FCT REQUIReS AN EKTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME Of AN EXTERNAL FUNCTION SUBPROGRAM USED- 

V - THE fteSULTING INTEGRAL VALUE. 

REMARKS 
NOME 

SUaROUTINES AND FUNCTION SUaPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTIXl MUST BE fURKISHEO 
BY THE USER. 

METHOD 

EVALUATION IS 00N£ BY MEANS OF J-POINT GAUSSI AN-LAGUERRE 

QUADRATURE FORMULA, MHICH INTEGRATES EXACTLY WHENEVER 

FCTIXl IS A POLYNOMIAL UP TO DECREE 5. 

FOR REFERENCE, SEE 

V.I.KRYLOV. APPROXIMATE CALCULATION OF INTEGRALS, 

MACMlLLAN, NEW YORK/LONOaN, 1962, PP. 130-132 AND 347-352. 



SUBROUTINE QL3(FCT,yi 



X=6. 2899*5 

V=.0lOia9?6*FCT(XI 

K=2. 294280 

V=V*.2785I77»FCT(Xt 

X=.4l5rT'i^6 

r=Y*.7110930*FCTIX» 

RETURN 

END 
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SUBROUriNE O0L4 

PURPOSE 

TO COMPUTE lNTEGRAHEXP(-XI«FCTm, SUMMED OVER X 
FROM TO INFINITYI. 

USAGE 

CALL DQL4 IfCT.Yl 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUBPROGRAM USED. 
Y - THE RESULTING DOUBLE PRECISION INTEGRAL VALUE, 

REMARKS 
NONE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REOUIAEO 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCT(X) 
MUST BE FURNISHED BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 4-POINT GAUSS I AN-L AGUERRE 
aUAORATURE FORMULA, WHICH INTEGRATES EXACTLY, 
WHENEVER FCT(X) IS A POLYNOMIAL UP TO DEGREE 7. 
FOR REFERENCE, SEE 

SHAO/CHEN/FRANK, TASLES OF ZEROS AND GAUSSIAN WEIGHTS Of 
CERTAIN ASSOCIATED LAGUERftE POLYNOMIALS AND THE RELATED 
GENERALIZED HERMITE POLYNOMIALS. IBM TECHNICAL REPORT 
TROO.IIOO (MARCH 19641, PP-24-25. 



SUBROUTINE DQL4(FCr.VI 



DOUBLE PRECISION X.Y.FCT 

X-, 93950709 12 30 U3301 

Y=.5 392')470 556132T4 5O-3*FCT( XI 

X=. 4 53662029692 1128001 

Y»Y+ . 39 88 790851 5005 3840-l*FC T( X» 

X=. 17 45 761101158346601 

Y = Y*. 3574 1 869243 77996 9D0*FCT(X J 

K=. 322 54 7689619392 3100 

Y-V».603l541C434l63 360D0*fCTIXl 

RETURN 

End 



0QL4 10 
.D0L4 20 
DQL4 30 
DQL4 40 
DQL4 50 
DQL4 60 
DQL4 70 
DQL4 80 
DQL4 90 
D0L4 100 
DQL4 110 
DaL4 120 
0QL4 130 
DaL4 140 
DQL4 150 
OaL4 160 
DQL4 170 
DQL4 180 
OQH 190 
DQL4 200 
0QL4 210 
DgL4 220 
DQL4 23C 
0aL4 24C 
D0L4 250 
DgL4 260 
0QL4 2 70 
0QL4 280 
DQL4 290 
00L4 300 
D0L4 310 
OQL* 320 
D0L4 330 
0QL4 340 
0QL4 350 
. DQL4 360 
DQL4 370 
O0L4 3 80 
00L4 390 
0QL4 400 
O0L4 410 
00L4 420 
0QL4 430 
O0L4 440 
O0L4 450 
00L4 460 
0QL4 4 70 
0QL4 4 80 
00L4 490 
0QL4 500 
0aL4 510 
DaL4 5 20 



SUBROUTINE QL4 

PURPOSE 

TO COMPUTE INTEGRAL(EXP(-X)*FCT(XI, SUMMED OVER X FROM 
TO INFINITYI. 

USAGE 

CALL QL4 (FCT.YI 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION Of PARAMETERS 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 
Y - THE RESULTING INTEGRAL VALUE. 

REMARKS 

NONE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTIXl MUST BE FURNISHED 
8Y THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 4-POINT GAUSS UN-LAGUERRE 

QUADRATURE FORMULA, WHICH INTEGRATES EXACTLY WHENEVER 

FCTIXl IS A POLYNOMIAL UP TO DEGREE 7. 

FOR REFERENCE. SEE 

V.I.KRYLOV, APPROXIMATE CALCULATION OF INTEGRALS. 

MACMlLLAN, NEW VORK/LONOON, 1962, PP. 130-13? AND 347-352. 



SUBROUriNE QL4(FCT,Y» 



X=9. 395071 

Y-.539294TE-3*FCIIX I 

x='..53&620 

V=Y*. 03888791 'FCTIXl 

X=l. 745761 

Y»V».3574187*FCT( xi 

X=. 32Z547T 

Y=Y*.603154l*FCT( <) 

RETURN 

END 
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QL4 


60 


QL4 


70 


014 


80 
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014 
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OL-t. 


130 
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140 


QL4 


150 


0L4 


160 


014 


170 


QL4 


180 


014 


190 


014 


200 


QL*. 


210 


0L4 


220 


0L4 


2 30 


QL4 


240 


014 


250 


QL4 


260 


QL4 


2 70 


0L4 


280 


0L4 


290 


QL4 


300 


0L4 


110 


0L4 


320 


QL4 


3 30 


01 4 


340 


0L4 


350 


QL4 


360 


0(4 


3 70 


0L4 


380 


0L4 


390 


0L4 


400 


QL-i 


410 


QL4 


420 


QL4 


430 


QL4 


440 


QL4 


450 


QL4 


460 


QL4 


470 



SUBROUTINE QL5 

PURPOSE 

TO COMPUTE INTECRALIEXP(-X)*FCT(X1, SUMMED OVER X FROM 
TO INFINITYI. 

USAGE 

CALL 0L5 (FCT.Y) 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUSPROGRAM USED. 

y - THE RESULTING INTEGRAL VALUE. 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCT(XJ MUST BE FURNISHED 
BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 5-POINT GAUSSI AN-LAGUERRE 

QUAORATURE FORMULA, WHICH INTEGRATES EXACTLY WHENEVER 

FCTIXl IS A POLYNOMIAL UP TO OEGREe 9. 

FOR REFERENCE, SEE 

V.I.KRYLOV, APPROXIMATE CALCULATION OF iNfEGRALS, 

MACMlLLAN. NEW YORK/LONOQN, 1962, PP. 130-132 AND 347-352. 



SUBROUTINE QL51FCT,Y» 



2.64080 
2336997E-4*FCT(X) 

.085810 

♦.3bll759E-2*FCT{X 

.596426 

*.0T594245«FCr(XI 

.413403 

.398666e»FCT( XI 
2633603 
♦ . 5217556* FCKXI 

URN 



X = I 

Y=Y 
X = . 

Y=Y 
RET^ 

END 



QL5 
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,015 


20 


QL5 


30 


0) 5 


40 


01 5 


50 


QL5 


60 


01 5 


70 


QL5 


80 


QL5 


90 


Q15 


100 


QI5 


110 


QLi 


IZO 


Ul 5 


130 


0L5 


140 


Q15 


ISO 


QI5 


160 


0L5 


170 


QL5 


180 


01 5 


190 


QL5 


200 


Ql 5 


210 


QL5 


220 


QL5 


2 30 


01 5 


240 


0L5 


250 


QL5 


260 


Q15 


270 


015 


280 


QLS 


290 


01 5 


300 


015 


310 


0L5 


320 


01 5 


3 30 


QL5 


340 


QL5 


350 


01 5 


360 


015 


3/0 


QL5 


380 


015 


390 


QLS 


400 


Ql 5 


4 10 


01 5 


420 


Ql 5 


430 


01 5 


440 


Ql 5 


450 


QLS 


460 


QL5 


4 70 


Ql 5 


480 


QLS 


490 
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SUfiSOuriNE 0L6 

PURPOSE 

TO COMPUTE l\rESHAL(EXP(-X)»FCIlXI, SUMMED OVEW X fRQM C 
TO IMF INI rvi . 

uSAoe 

CALL OLfe (FCr,V) 

PARAMETER FCr REQUIRES AN EXFEKNAL STATEHENf 

OtSCRIPriON Of PAHAMETEBS 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUBP'^QGRAM USED, 

y - THE RESULTING INTEGRAL VALUE. 

REMARKS 
\ONE 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REOUIREO 

THE EXIERNAt FUNCTION SUBPROGRAM FCT(X) MUST BE FJRNISHED 

ftV THE USEft. 

METHOD 

EVALUATION IS DUNE BY MEANS OF 6-POINT GAUSS I AN-L AGUERRE 

JUADHAIURE F3HMULA, HM t C H INTEGRATES EXACTLY WHENEVEr* 

FCT(X) IS A POLVNOMtAL UP TO DECREE II. 

FOR REFERENCE, SEE 

V.I.KRrLOV, APPROXIMATE CALCULATION OF INTEGRALS. 

'^ACMlLLAN, NEW Y[3RK/ LONDON, 196 2. PP.130-132 ANO 3».7-)52. 



SUBROUTINE 0L6<FCr,r) 



X= 15.93237 

r = .8 9SS';?'*e-6»FCT[X) 

X=9. 637^6 7 

Y=r*.26tQ17?t-i»FCT )X) 
x = 5. Tt'ili,'. 

Y = y+.{)iC3q<i20*Fcr (x i 

X^2.992 736 

y =v* . 1 I 33 734»FCT 1 Ki 

xn. 133932 

f ^1* .',1 7CQ08-FC n XI 

X = . 222S*,(,^ 

¥-Yt.',S8'36'.7*FCT( K( 

Hfc TOON 
END 



01.6 

.0L6 

0L6 

QL6 



01 f, 


90 


Qlb 


IOC 


QL& 


no 


QL6 
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QL6 


130 


0L6 


140 


UL6 
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QL6 
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016 
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0L6 
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QL6 
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0L6 


20C 


0L6 


210 


QL6 


^^o 


QL6 
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0L6 


2<.C 


QL6 


2 50 


016 


260 


0L6 
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0L6 
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Ulft 


/•iO 


QL6 


300 


QLb 


310 


QL6 


J20 


.Qlt 


330 


QL6 


3^0 


QL6 


350 


QL6 


360 


QLfc 
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iHh 


JdO 


QLb 


390 


01 h 


AOO 


0L6 


•.IC 


OLb 


<.2C 


QL6 
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0L6 


','iC 
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f-SO 


0L6 
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gL6 


-.70 


aL6 
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0L6 


■1.9:- 
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500 


0L6 


SLO 



SUBROUTINE QL9 

PURPOSE 

rO COMPUTE INTEGRAL(EXPI-Xl«FCnXI, SUMMED OVER X FlioH 
TO INFTNITYI. 

USAGE 

CALL QL8 IFCT.Y) 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

OesCRIPTION OF PARAMETERS 

FCT - THE NAME OF AM cXrEflNAL FUNCTION SUBPROGRAM USED. 

Y - THE RESULTING INTEGRAL VALUE- 



SUBROUTINES AND FUNCTION SUSPftOGRAHS REOUIREO 

THE EXTERNAL FUNCTION SUBPROGRAM FC Tl X ) MUSI BE FURNISHED 
8Y THE USER. 

riElHOD 

EVALUATEON IS DONE flV MEANS OF 8-POINT GAUSSI AN-L AGUERRE 

QUADRATURE FORMULA, WHICH INTEGRATES CXACTLY MHCNEVER 

FCTIXI IS A POLYNOMIAL UP TO LfEGREE 15. 

FOR REFERENCE. SEE 

V.I.KRVLOV, APPROXIMATE CALCULATION OF INTEGRALS. 

MACMILLAN, NEW YORK/LONDON. t<*62, PP . X 30- i 32 AND 347-352. 



SUBROUTINE QL8(FCT, 



X=22. 86313 

Y = . 10<.900lE-a»FCTIX 1 
X=15. 74068 

Y = r».8'i857<i7E-6»FCr(Xl 
X=tn. 75852 

Y=Y».90T6509E-A*FCT(Xl 
K-T.0<i59Q5 

Y=V*. Z794536£-2*fCr(XI 
X=4.2667C0 

Y=Y».C33J*349*FCI (X} 
X = 2 .251037 

Y = Yt. 1T5T950*FC T( XI 
X=. 9057018 

y =Y» .41 eTa6e*FCT ( xj 

X^. 1702 796 

Y=Y».369l8e6»FCT(X] 

RETURN 

END 
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.0L8 
OLe 
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5 20 
5 30 
540 
550 



SUe«nuTINE OLr 

PURPOSE 

TO COMPUTE nTEGRAL<EXPt-X(«FCTlX) . SUMMED OVER X FROM 
TO INF INITYI . 

USAGE 

CALL QL7 (FCT.Yl 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME Of AN EXTERNAL FUNCTION SUBPRO^^RAM USED. 

Y ~ THE RESULTING INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTl ON SU9 PROGRAM FCT (X) MUST BE FURNl SHED 

9Y THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 7-POINT GAUSS I AN-L AGUERRE 

QUADRATURE FORMULA, WHICH INTEGRA TE S EXACTLY WHENEVER 

FCTIXI IS A POLYNOMIAL UP TO DEGREE 13- 

FOR REFERENCE. SEE 

V.I.KRYLOV. approximate CALCULATION OF INTEGRALS. 

MACMILLAN. NEW YORK/LONOON. 1962. PP. 130-132 AND 347-352. 



SUBROUTINE aL7(FCT,YI 



X = 19. 395 7 3 

Y = , 31T03I5£-7«FCT(X 3 
X=12. 73418 

Y=y». i5a6 546E-4«Fcrtx) 
X = a. 192153 

Y=Y*.l074C10E-2*FCr(XI 
X = 4. 900353 

Y = Y* .0206335i«FCT(x ) 
X=2. 567877 

y=Y*. 14 7I263"FCri XI 
X= I .026665 
Y=Y+.42163l3»fCr(X» 
x = . 1930437 
Y=Y*.4093190«FC T< X) 
RETURN 

ENO 
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.QL7 
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SUBROUTINE 0QL8 

PURPOSE 

TO COMPUTE INTEGRAL(£XP(-Xl«FCr(XJ, SUHHcO OVER X 
FROM TO INFINI TYl . 

USAGE 

CALL 0QL9 IFCT.Yl 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUBPROGRAM USED, 
V - THE RESULTING OOUdLE PRECISION INTEGRAL VALUE. 



SUBROUTINES ANO FUNCTION SUBPROGRAMS REOUIREO 

THE EXTERNAL OOUaLE PRECISIUN FUNCTION SUBPROGRAM FCKXJ 
MUST BE FURNISHED BY THE USER. 

METHCO 

EVALUATION IS DONE 6Y MEANS OF B-POINT GAUSS I AN-LAGUERflE 
QUADRATURE FORMULA, WHICH INTEGRATES EXACTLY, 
WHEN^ER fCTIX) IS A POLYNOMIAL UP TO DEGREE 15. 
FOR REFERENCE, SEE 

SmAO/CHEN/FRANK, tables of ZEROS ANO GAUSSIAN WEIGHTS OF 
CERTAIN ASSOCIATED LAGUERRE POLYNOMIALS ANO THE RELATED 
GENERALUEO HERMITE POLYNOMIALS, IBM TECHNICAL REPORT 
THOO.llOO IMABCH 1964), PP, 24-25. 



SU8R0UT INE O0L8(FCI ,YI 



DOUBLE PRECISION XiY.FCT 

X=. 2286313173688926402 

V-. I0480C11 74B7l510 40-a*FCT(X» 

X = . 15 7406 786412 7800 502 

V^r ♦.94857467162725 32 0-6*FCrt XI 

X=. 10 75851601018099 502 

y = Yt.90 76508 7733582 130-4*FCT(K) 

X ^.7 045905402 393465 701 

Y=Y». 27945362352256 72 50-2»FCT( Xl 

K- .4 266 7001702 8 7658 301 

Y=Y *. 3 J34 34922612 156520- I *FCT IX) 

X-.225iO866^9fl66l30 7Di 

Y=Yt. 1 75 794986637 1 7 181 OO'FCTI Xl 

X = . 90 3 70 1 7 76 799 3 799D0 

Y=Y*.418T8678C814 34296D0*FCT( XI 

XI. I 70 2 79632 305 101 0000 

Y'^Y4. 369188 58934163 753 00»FCT( XI 

RETURN 



D0L8 10 
..0QL8 20 
OQLB 33 
0QL8 4C 
DQL8 50 
OQLB 60 
DQL8 70 
OQLe 80 
OQLB 90 
0QL8 ICO 
OQLa 110 
OULa 120 
0QL8 130 
O0L9 140 
DOLfi 150 
DQL8 160 
OQLB 170 
DQL8 ISO 
0QL8 190 
OQLB 200 
D0L8 210 
DQL9 2 20 
DQL8 2 30 
0QL8 24C 
O0L8 250 
OQLB 260 
1)QC8 270 
D0L8 260 
00L8 290 
OOLe 300 
D0L8 310 
DQL8 32 
DQL8 3 30 
J0L8 340 
D0L8 350 
. JQL8 360 
OQLa 3 70 
OQLB 380 
0QL3 3 90 
00L8 400 
D0L8 410 
00L6 <.20 
OQLB 430 
0QL6 440 
0QL8 450 
DOLfl 460 
DQLB 470 
0018 4 80 
DQL8 490 
DQL8 500 
0QL8 510 
DOC 8 5 20 



no 



OOLB 540 

DQL8 550 

OQLa 560 

OQLB 5 7C 

OQLB 5 80 

DQLB 5 90 

0QL8 600 
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TO COHPUre INTEGR*LIEXP(-m*FCr<XU 
TO INFINirVl. 



SUHNEO OVER X FROM Q 



QL9 
QL'9 

0L9 



USAGE 

CALL QL9 IFCr.YI 

PARAHETER FCT REOUIRES AN EITERHAL STATEHENT 

OESCRtPTION OF PARANErERS 

FCT - THE MHE OF AH EXTERNAL FUHCTION SUBPROGRAM USED. 

Y - THE RESULTING INTEGRAL VALUE. 



REMARKS 
NONE 

SU9R0UriN£S ANO FUNCTION SU8PR0GRAHS REQUIRED 
THE EXTERNAL FUNCTION SUBPROGRAH FCT<Xl MUST 
6Y r^ USER. 



QL9 too 
QL9 110 



QL9 

QL9 
QL? 

QL« 



120 

130 
140 
150 
160 

170 

180 



B£ FURNISHED 



QL9 190 

QL9 200 

QL9 210 

QL9 220 



0L9 

m.9 



230 
240 



EVALUATION IS OOW BY HEANS OF 9-POINT GAUSSI AN-LACUERRE 

QUAORATURE FORMULA, WHICH INTEGRATES EXACTLY WHENEVER 

FCKKI IS A POLVNONIAL UP TO OEGREE 17. 

FOR REFERENCE* SEE 

V.I.KRYLOV, APPROXIMATE CALCULATION OF INTEGRALSt 

HACMILLAN. nE M YORK/LONOON* 1942. PP. 130-112 ANO 3*7-352. 



SUBROUTINE QL4(FCT.YI 



QL9 250 

(M.9 260 

0L9 2T0 

OL 9 2 SO 

OLS 290 

0L9 300 

0L9 310 

W.9 320 

, .QL9 330 



K=2A.37*0T 

Y«.}Z90B7*E-10*FCT(XI 

K^l8.a33«0 

VV*.*H0 769E-7»FCT(X1 

X= 13.46624 

¥-V».6592l23£-5*FCT(Xl 

X«9. 372985 

Y»Y*.J05249e£-3*FCT(XI 

X -6. 20*95 T 

Y-V*.Q0 559962 T*FCT( XI 

X"3-7a3474 

Y='Y+.0*7*6056*FCrU » 

X=2. 005135 

Y=V*.19928T5»FCT(XI 

X«. 8072200 

¥"Y*.*ll2l*0*FCT(XI 

X-. 1523222 

Y=Y*.336126**FCI(X( 

RETURN 

ENO 



0L9 

QL9 
QL9 
0L9 
0L9 
QL9 



340 
350 
360 
170 
380 
390 



QL9 400 
QL9 410 



QL9 
QL9 
QL9 
0L9 



4 30 
440 
► 50 



QL9 460 



QL9 
QL9 



*70 

*ao 



(M.9 490 

GL9 500 

(1L9 510 

QL9 520 

QL9 5 30 

QL9 540 

QL9 550 

aL9 560 

0L9 570 



SUBROUTINE OLIO 

PURPOSE 

TO COMPUTE INTEGRAH6XP<-X1«FCT(X1. SUMMEO OVER X FROM 
TO INFINITY). 

USAGE 

CALL QLIO(FCT,Y» 

PARAMETER FCT REOUlRCS AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS „-..„ ,,ccn 

FCT - THE NAME OF AN EXTERNAL FUNCTION SU8PR0CRAM USED. 

Y - THE RESULTING INTEGRAL VALUE. 

REMARKS 

NmE 

SUaROUTlMES AND FUNCTION SUBPROGRAMS REQUIREO ^„„^,cutn 

THE EXTERNAL FUNCTION SUBPROGRAM FCT(XI MUST B£ FURNISHED 
BY THE USER. 

"^"vALtMTlON IS DONE BY MEANS OF lO-POINT GAUSSI AN-LAGUERRE 
QUADRATURE FORMULA, WHICH INTEGRATES EXACTLY HHENEVER 
FCTIXI IS A POLYNOMIAL UP TO DEGREE 19. 
FOR REFERENCE, SEC „..,, 

V.I.KRYLOV. APPROXIMATE CALCULATION OF INTEGRALS. 
MACHILLAN, NEW YORK/LONOON, 1962, PP. 130-132 ANO 5*7-352. 



70 



SUBROUTINE 0L10(FCT 



X-29. 92070 

Y».99UB27E-12*FCT(X» 

X- 2 1.99659 

Y-Y».1B39S65E-8*FCT(XI 

X«16. 27926 

Y»Y+.42*93l*e-**FCr(XI 

X-11. 8*379 

Y=Y*.2B25923E-4»FCIIX| 

K<=e. 330153 

Y-Y*.753O084E-3*FCr(XI 

X -5, 552496 

Y =Y*. 0095015 1 T*FCT( XI 

X=3. 401*3* 

V»V*.C6208746«FCT(X1 

X-=l,B083*3 

V-Y*.2ie0683»FCTIXI 

X-. 72945*5 

Y-Y*.*01H99*FCT(X> 

X". 1377935 

Y-Y*.30844H»FCTIXI 

RETURN 

END 



QLIO 10 
..QLIO ZO 
QLlO 30 
QL 10 40 
QtlO 50 
OLIO 
OLIO 
Qt 10 80 
QLlO 90 
QLIO 100 
QLIO 110 
QLIO 120 
QLIO 130 
QLIO 1*0 
QLIO 150 
QLIO 160 
QLIO 170 
OLIO 180 
QLIO 190 
QLIO 200 
OLIO 210 
OLIO 22C 
QLlO 2 30 
OLIO 240 
OLIO 250 
OLIO 260 
OLIO 270 
QLIO 280 
QLIO 290 
OLIO 300 
OLIO 31C 
QLIC 320 
..QLLO 3 30 
QLIO 3*0 
QLIO 350 
QLIO 360 
QLIO 3 70 
QLIO 380 
QLIO 390 
QLlO 400 
QLIO 410 
QLIO 420 
QLIO *30 
QLIO 440 
QLIO 450 
QLIO *60 
QLIO 470 
OLIO 480 
QLLO *90 
QLIO 500 
QLIO 510 
QLIO 520 
QLIO 530 
QLLO 540 
QLIO 550 
QLlO 560 
OLIO 570 
QLIO 560 
OLIO 590 



SUBROUTINE 00LI2 

PURPOSE 

TO CQKPUTE INIEG«ALlEXP(-Kl*FCTIX), SUMMED 0*/ER X ^ 

FROM TO INFINITY!. 

USAGE 

CALL D0L12 (FCT,Y1 

PARAMCrCR FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION Of PARAMETERS 

FCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUBPROGRAM USED. 
r - THE RESULTING DOUBLE PRECISION IMTC&RAL VALUE. 

REMARKS 
NONE 

SUBROUTINES AND FUNCTION SUdPROGRAMS REQUIRED 

THE cXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCTtXl 
JiUSr 6E FURNISHED BY THE USER- 
HE I NOD 

EVALUATION IS DONE 8V MEANS OF 12-POINI GAUSS I AN-LAGUERRE 
QUADRATURE FORMULA, WHICH INTEGRATES EKACILV, 
•JHENEVER FCI(X) IS A POLYNOMIAL UP TO DEGREE 23. 
FOR REFERENCE . SEE 

SHAO/CHEN/FRANK, TABLES OF ZEROS ANO GAUSSIAN WEIGHTS Of 
CERTAIN ASSOCIATED LACUERRE POLYNOMIALS ANO THE RELATED 
GENERALI2E0 HERMETE POLYNOMIALS, IBM TECHNICAL REPORT 
TROO.IIOO (MARCH 1964), PP. 24-25. 



SUBROUTINE 0QL12(FCT, 



DOUBLE PRECISION X,Y,FCT 

X = . 3709912104*466 92 002 
y=. 81*307 7*67*262420-1 5*fCT( XI 
X=. 2848 796725098400002 
Y=Y*.30bl60l6 3 50J50208D-ll»FCT( X) 
K^. 2215 lO-^O 379*9700 602 

Y = Y*.l i*2 39lC305l5Q04lO-8*FCT( Kl 
X=. 1711685518 7*62 25 602 

Y=V*. 1668*938 765*09 1030-6*FCr( XI 

)( = . 1300 60 5499 3 306 34 802 

r=Y*. 8 36 5055856 8197 990-5* FCT) X» 

X=. 96 21 3168^2*5686701 

Y-Y+.20 3Z31b9266ZS9939O-3»FCT( XI 

X = .68i.'^ 52 5*53115177 30 I 

Y=¥*.266J9 7 3 5*l8653159D-2*FCr( K! 

X=. 4599 22 763941 83*8501 

Y = Y ♦-20 10^331 l5*6i*097D-l*FCT( X) 
X-. 2833 75 I 3377^3507201 

Y = Y».90**9^2 221 1 660930- [•FCTtXl 
X = . 1512 610269 7/6*16 801 
Y=¥*.2**0a20I13l9a7756D0«FCriX) 
X=.6 11 757*8*5151 306 700 

r=Y*. 3777592758 7313 79aD0*FC 11 X) 

X = . 115 7221 1 73580206 800 

Y=Y*. 26*73 137 1055** 319DO»FCH XI 

RETURN 

END 
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SJ8R0UTINE 0QL16 

PURPOSE 

TO COMPUTE INTEGRAL<EKP(-K)*FCT{X1, SUMMED OVER X 
FROM TO INFINITY) . 

USAGE 

CALL 00L16 IFCT.YI 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUBPROGRAM US£D. 
Y - THE RESULTING DOUBLE PRECISION INTEGRAL VALUE. 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCTIXI 
MUST BE FURNISHED BY THE USER. 

METHOD 

EVALUATION IS DONE BY MtANS OF 16-POINT GAUSS T AN-LAGUERRE 
OUAORAIURE FORMULA. WHICH INTEGRATES EXACTLY, 
,JHENEVER FCT(X) IS A POLYNOMIAL UP TO DECREE 31. 
FOR REFERENCE , SEE 

SHAO/CHeN/FRANK,. TABLES OF ZEROS ANO GAUSSIAN HEIGHTS OF 
CERTAIN ASSOCIATED LAGOERRE POLVNOMIALS ANO THE RELATED 
GENERALIZED HERMITE POL YNO'^I ALS. IBM TECHNICAL REPORT 
IRCO.IIOO (MARCH 196*1. PP.24-25. 



LO 
20 

30 



SUBHOUTINE DQL16(FCT,Yl 



DOUBLE PfiECISIOf* X.y,FCT 

X=, 5 170 1 160 3395*3 31802 

Y = .*161*6 2 3TC372a552D-21*FCI(X) 

X =.4194045264 7688 33 302 

Y=Y». 50 50*73 7000 355 12 80-1 7»FCT( X) 

X=.3*5 3 339 8 7C22 8662 602 

Y=Y». 6 29 796 7002 51 786780-1 *«FC T ( XI 

X=. 2 85 7 8 7297*2 a 82 1*002 

Y=Yt.212T079C3322*1030D-il»FCr(X) 

K=.2?5159056939919C902 

Y=Y*.28623502*297 3a8160-9*FCII XI 

(=.19 180156856 75313 502 

Y=Y*. 1881 02*8* IC 796 7320- 7*FCT( X) 
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(^ . 1^4 'tis? rj6H I'd 161 102 

'=Y*.6a?8 319}30 871l Sq60-6«FCr( X) 

; = . U^l'i22 3 3fe83 66i5'*0^ 

■ = V*. l'.a'.-t.586erj9P1299D-*.*fC t( Kl 

= .9*39 31<.3i63Siq3'i01 

= r*.20'.?7l9 15 308^7 8'it.O-3*FCTl <l 

= . 7O7033a536O'.82i',lOl 

= r*. 19 A9C 709^.35^6 J 1090-2 •FCT| XI 

= .5O7a0186i<i5'.4 7fer9Ol 

^V*, 1 1 29990 CC 80 3 39 45 3D- I *FCT I XI 

=. 3^3 7C 8663 38932 06 601 

= V*.4 7 3?aq2 869'fl25il9D-t*FCT( XI 

- -212928 36AS'5983a06Dl 

= r*.l 362969342963 f75'.00*FCT(X) 

= -Il<.10S777483l226qOl 

^y*,265 795 7776442lA15DC*FCr(X) 

-. '.626 963^ 891508 08 300 

= V». 3 3105785495083 41 7JC*FCr( XI 

=.8764^410479927840-1 

= Y+.206l517l495 7e00990C»FC l( X) 

ETUHN 
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SURROuTlNE DQL24 

PURPOSE 

rO COHPUTE INTEGRAL 1EXP[-X(*FCT( XJ , SUMMEO OVER X 
FROM C rO INf INITr). 

USAGE 

CALL D0L24 (FCT.Y) 

PARAMETER FCI REQUIRES AN EXTcRNAL SIATEMENT 

DESCRIPTION OF PARAMETEftS 

FCT - THE MAME OF AN EXTERNAL DOUBLE PRECISION FjNCrlON 

SUBPROGRAM USED, 
r - THE RESULTING OOUBLE PReCISION INTEGRAL VALUE. 

REMARKS 
NONE 

SUBRnuriNES AND FUNCTION SUBPROGRAMS REQUIREO 

THE EXTERNAL DOUBLE PRECISIUN FUNCTION SUBPROGRAM FCTIXl 
MUST BE FURNISHED BY THE USER. 

METnOO 

EVALUATION IS DONE ttY MEANS OF 24-POINT C AUS S I flN-L AGUE RRE 
JUAOftATURE FORMULA, WHICH INTEGRArES eXACTLY, 
WHCNEVtR ECriXI IS A POLYNOMIAL UP TO OEGREE 47. 
FOR REFERENCE, SEE 

SHAQ/CHEN/FRAMK, lAdLES Of ZEROS AND GAUSSIAN WEIGHTS OF 
CERTAIN ASSOCIATED LAGUERRE POLYNOMIALS AND THE RELATED 
GENERALIZED HEHMITE POLVNOMIALS. IBM TECHNICAL REPORT 
TROO.llOO (MARCH 1964J, PP. 24-25. 



SUflROUTlNE 0QL2'.IFCr,Yt 



OOUeLE PRECISION 



Y,FCT 



X = . a 14962 792 3 3943 8902 

Y = .5 5 75 345 78B32 3 356 8D-34«FCI< XI 
X=.69962240O 3^10503002 

Y = Y«-.406a 301 593 6606 57flD-2 9*FCT( XI 
X-:. 6 105 653 1 44 72 1 6 76202 
V=Y*.2451Bia8458764027D-25*fCT(X) 
X=. 536085745446950TOD2 
Y=Y+.360576586455295q00-22*FCT( XI 
X=.4 715310644S 156 32 302 

Y=Y*. 20 10 51 7464 55 55 0350-1 9* FCTl XI 
Xi.4145 17204948 70 76 702 

Y = r*,53 50 188813 0100 3760-1 7*FCTU> 
X=. 36 3584058016 5162 202 

¥*Y». 78 198003824594480-1 5*fCH XI 
X=. 31 7 760413 52 3 74 72 302 
V=r*.6894lei0S295808570-l3*FCTIXl 
X=. 2 763593 71 743 32 71 702 
Y=Y+.3917T36515C584 514D-11*FCT(X) 
X=. 2 388 732 964 816973 302 

Y = Y+. 1507008226292584 90-9*FCTI XI 
X = . £049 14600826 1642 502 

Y = Y»-.40 72a5898T54 99 99 7D-8»FCrl XI 
X=. 1741 79926465089 7 TO2 

Y = Y*-. 7960812959 1 336 300- 7*FCT( XI 
K=. 14642 7322 69 5966 7402 

Y = Y*.ll5l3l5ei2 73 72 799D-5*FCr( XI 
X-. 12146102 711 7 29 76 602 

r = Y». 12544721 97 7993 3330-4*PCT( XI 
X=.991Z09 30150r7 70601 

Y = Y». 1044612146592 75iaD-3*FCr( XI 
X=. 792753924717215201 

Y=Yt. 6 7 2162 564093 54 7690- 3 "FCT* XI 
X = . 6181535118736 76540 1 

Y = Y*. 3369 34905 847 83 0360-2* FCT I X) 
X=.4665 083 7C3 46 71708Ol 

Y=V*- . 1322601940512015 70- 1*FCT( X> 
X=. 5 370 7742642 0899 7 701 
Y =Y».40 7324781 5140 96460-1 'FCTI XI 
X=. 2292 5620 5 86 3 21 90 3D I 

Y = Y«-.9a!662 72629918890-l*FCT| Kt 
X^. 1425597590803613101 

r=Y». 18 332268897777 e02D0«FCT( X) 

X=. 766096905545936600 

Y=Y*. 258806 70 72 7^ 86 98 000*FCT( XI 

X=. 311239146198 483 7 300 

r = Y» . 25 8 7 7410 75 1 742 390DC*I=C T( XI 

X-. 590 198521 81 50797 70-1 

Y = Y*. !428ll9 7 33 34Tai85D0»FCT(XI 

RETURN 

END 
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SUaRQUTINE DOL32 

PURPOSE 

TO COMPUTE INrEGRAL(EXP(-Xl"FCTIXI, SUMMED OVER X 
FROM TO INFINITY) . 

USAGE 

CALL OQL32 (FCT.tl 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

OESCHIPTIUN OF PiRAMETERS 

FCT - THE NAME OF AN EXTERNAL UOUBIE PRECISION fUNCTIO 

SUBPROGRAM USED. 
V - THE RESULTING OOUBLE PRECISION INTEGRAL VALUE. 



SUBROUTINES AND FUNC TION SU6 PROGRAMS REOUI REO 

THE EXTERNAL DOUaiE PRECISION FUNCTION SUBPROGRAM FCTIXI 
MUST BE FURNISHEO BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 52-POINT GAUSS I AN-L AGUERRE 
QUADRATURE FORMULA, WHICH INTEGRATES EXACTLY, 
WHENEVER FCTI XI IS A POLYNOMIAL UP TO DEGREE 63, 
FOR REFERENCE, SEE 

SHAO/CHEN/FRANK. TABLES JF iEROS AND GAUSSIAN WEIGHTS OF 
CERTAIN ASSOCIATED LACUERRE POLYNDMIALS AND THE RELATED 
GENERALIZED HERMITE POLYNOMIALS. IBM TtCNNICAL REPORT 
TROO.UCO (MARCH 19641, PP. 24-25. 



SUBROUTINE DQL32(FCT, 



OQUBLE PRECISION X,Y,FCT 

X=. 111751 3980979377003 

Y-. 45 10 5361 9 3 698^7420-4 7* FCTI XI 

X=. 98 8 29542 868 2 839 702 

Y^Y*. 13 386 16942 1062 563D-4l»FCT{ XI 

X=. 68 7 35 3 4041 78 924002 

Y=Yt.267151121924013700-3 7.FCrixl 

X=. 801974459779135202 

V=Y* . I 1922487600982 2240-3 3' FCTI X) 

X=. 726 8 763 9090662 7102 

Y = Y», 19 133 754944542 2430-30*FCT( XI 
X=. 6 59 753 7 728 79350 5 302 

Y = Y*. 14 18 560 5454630 3690-2 7*FCT( XI 
X =.5989250916213401802 

Y = V*.566l^'i4 1 3 0i'9735")4D-25*FCTI XI 

X-. 5433372133339690 7D2 

Y = Y + . I 3469825 3663 73 952D-22*FC TIKI 
X = .49 2Z4i'»498 7 3 0863'J02 

Y=Y*. 20544296 73 7a804540-20*FCT( XI 
X=.445092C7995 7 5493 802 
Y=Y+. 2 119 792290 1636 1B60-1 3*FCT( XI 
X = . 40 I 457 1977 15 3944202 

Y = Y+. 1542 1338 33 3938 2340- 16*FCT( XI 
X=. 361 0C4948O5 75 197402 

Y = Y*. 9 1718234434207 190-1 5*FCr( X) 
X^. 32 34662915 3964 7 3 70 2 

Y=Y». 32 37801657 7292 6650-1 3«FCr( XI 
X=. 28862101816 3234 7502 
V=Y*. 9 799 3 792 88 72 70940-1 2 "FCTI XI 
X=. 2 562 86360224 5924 802 
Y=Y*,23058994919913 3610-10»FCTUI 
X=. 2263088901 3 19677402 

Y = Y+.42ei38297104092e90-9*FCT( X» 
X=. 1985586094033605 502 

Y = Y*. 6350 602226625806 7D-B*FCT{ XI 
X^. 172924543 3671531 502 

Y = Y». 76045678 7912 07 810- 7* FCTI X) 
X = . 149 3 1139 75 5522 55 702 

Y=y*, 74164045 7866 75 520-6*FCT( XI 

X-, 12 76 3697986 742 72 502 

Y=Y.. 59 34541 612 6686 i290-5»FCT( X) 

X=. 10783018632 53997202 

Y=Y*.39 20 34l96 79a794720-4*FCT(Xl 

X = .39629409242 1 259601 

Y=Yt.2l48649ie80l364190-3*FCT(XI 

X=. 7358 126 7 33 186241 01 

r = Y+, 98080 3 3C66 1495 51 0-3*FCT( XI 

X=. 59039585041 742 43 901 

Y = Yt. 37 3881 629461 152480-2*FCT( X) 
X=. 461 6456 769 74976 7401 

Y = Y*. 119182 148 348 38557D- 1 •FCKX) 
X = . 349 22132 7302 I 994 501 

Y = Y + . 3 1760912 5091 75 0700-1 *FCT( XI 
X=. 25 28 336 70642 5 794 901 

Y=Y+. 705 7862 3 665 71 74420- l«FCr( XI 

X = . I 7224087764446454DI 

Y=Y*. 129983 7862 86071 76D0*FCT I XI 

X=. I07 244B 75381 781 76DI 

r=Y*.19590333597288l0400*FCr( X) 

X=. 576 98462930 18864 300 

Y=V».2 352l32296699480lDO*FCri XI 

X=. 2 34526 10951961 85400 

Y=Y*. 2 104431079 3881 32 3D0*FCT1 KJ 

K = , -1^48 9365 83 326701 80- I 

Y = Y*. 10921 8341952 38497D0»FCT( XI 
RETURN 

ENO 
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DL32 440 
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DL32 460 
DL32 470 
0L32 480 
0L32 490 
0L32 500 
DL32 510 
DL32 520 
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0L3 3 540 
OL32 550 
DL32 560 
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0132 580 
OL32 590 
OL32 600 
0L32 610 
0L32 620 
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0L32 980 
OL32 990 
OL32iC00 
DL321010 
DL321020 
a. 321030 
DL321040 
DL321050 
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Subroutines QH2, QH3, .... QHIO; DQH8, DQH16, 
PQH24, DQH32, DQH48, DQH64 

These subroutines perform the integration of a given 
function by Gaussian-Hermite quadrature formulas. 
To compute: 



+ 00 

i 



■X f (x) dx 



Gaussian-Hermite quadrature formulas with n = 2,3, 
. , . , 10 (or n = 8, 16, 24, 32, 48, 64) points are used 
to get the approximations: 



x=l 



.r«x,<"', 



(n = 2,3, .-.) (1) 



which are exact whenever f(x) is a polynomial up to 
the degree 2n-l. Note that the nodes xyfi^) are the 
roots of the Hermite polynomials Hn(x) of degree n. 
As AyiP) and xyi^) are symmetric with respect to 
x=0, therefore: 



SUSROUKNe JM2 

PURPOSE 

TO COHPUTE INrt&«4L(EXP(-X«X»«fCr (Kl » SUHMtO OVER K FROM 
-INFINI Tt TO 'INf INIIVI . 

USAGE 

CALL 0H2 (FCT tYl 

PARAMETtl FCT R£QU[RES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THt htAME OF AM EXTERNAL FUNCTION SUHPRQGRAM USEO. 

Y - TH£ RESULTING INTEGRAL VALUE. 

RtHA««S 

NONE 

SUftROUTlNES AND FUNCTION SUBPROGRAMS fttOUIH£D 

THE EXTERNAL fUNCTlDN SUBPROGRAM FCr(XI HUST 66 FJRNISHEO 
BY THE USER. 

METHOD 

EVALUATION IS DONE 8V MEANS OF 2-PQlNT GAUSS I AN-HERMIIE 

QUADRATURE FORMULA. WHICH INTEGRATES EXACTLY WHENEVER 

FCTIKt IS A POLYNOMIAL UP TO OEGREE 3, 

FOR REFERENCE. SEE 

V.l.KRVLOV, APPROXIMATE CALCULATION OF INTEGRALS. 

MACMILLAN, NEW YORK/LONOON, l<ib2 , PP. 129-130 AND i^i-i^t,. 



SUBROUTINE aH2(FCT,Y» 



X=. 7071068 

Z = -X 

Y-.8862269»(FCT(Xt*FCrtZl I 

RETURN 

END 
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Note: In case of an even function f(x) =<^(x ), 
the transformation t=x2 transforms the given 
integral into: 

00 



^ / £jp(t) 
J V t 



dt 



which is a form suitable to subroutines QA2, QA3, 

.... QAIO and DQA4 DQA32. Using these 

subroutines saves approximately half of the compu- 
tation time. 

For reference see: 

(1) H.E. Salzer/R. Zucker/R. Capuano, "Table 
of the Zeros and Weight Factors of the First Twenty 
Hermite Polynomials", J. Res. Nat. Bur. 
Standards , vol. 48 (1952), pp. 111-116. 

(2) V. I. Krylov, Approximate Calculation of 
Integrals . Macmillan, New York/London, 1962, 
pp. 129-130 and 343-346. 



SUBROUTINE QH3 

TO COMPUTE I1*TeCll*HEXPI-K*KI*FCTIXI, SMWEO OVER X fROM 
-INFINITV TO •INflNITTI. 

USAGE 

CM.L OH) ifcr.vi 

PM«I«TC* fCI KCOOUeS «H EXTERNAL STRIEHEBT 

DESCRlPnON OF PMAMCTEtS 

FCI - THE WRE Of M EXTERN*. fUNCTIOH SUSPROGRRR USEO. 

T -THE RESULTING INTEGRAL VALUE. 



SUMOUTINES AM) FUNCTION SUaFROGRARS RESUIRfO 

TM EIIERNAt. FUKIKW SUMRMRAR FCTIil mil W FURHISMEO 
• r THC USER. 

""eVRLIMHON is OONE •» «ANS OF J-ROINT «tUSSIA«-HfR«|r( 
OUUMUIURE FORRULA, NNICH INTEGRATES EIACTLT KMEWVCR 
FCTIII IS A FtLVtRWIAl. U* TO KSRCC f. 
FOR REFERfNCC. SCC 

V.|.<Rn.OV. AFFRORIRATE CALfULATION OF M(TEC«A«.$, 
RACRIU4N. «fll VORR/LOWOII. lUt. F».II»-IM ft t*t-t**. 



..(W3 
0M3 
0H3 
OHJ 

a«3 

OH] 

ma 

«n 

OH) 
9Mi 
OMJ 
gH3 
0M3 



10 
20 



100 
110 
120 
lU 
l« 
OIO LM 
aM3 IM 
OH) 110 
QM3 IRO 
QHI IM 
OH) 200 
ONI 110 
AMI 220 
««1 IM 
OKI »« 
«M> ZM 
«H> IRC 

at* ITf 

mn tm 

tun 2«« 



•Ml 



»»o 



SUMOVTINE OHXFCT.VI 

I.|.22«T4S 
I — X 

T-.2«5*OfOR|FCrlII>FCri2ll 
x-0. 

r.v>l.l4l«M*FCTIXI 

RETURU 
ENO 



0«» »« 

,.«WI >>0 

tut >« 

4M9 »4« 

aN) IA4 

8N) I TO 

«M> »R0 

«N1 >M 

QM) 400 

ON) «10 

ON) «20 

BH> hV> 

OMi «40 
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SUSKOUTINE QH4 

PURPOSE 

rO COMPUre IMTefitAL<El(PI-X«XI«FCT(Xl« SUHNEO over X FROM 
-IMFINIIY TO ♦IHflNirVI. v 

USAGE 

CALL Om CFCT.Tt 

PARAHETCR FCF REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - TH€ NAME OF AN EXTERNAL FUNCTION SUePROCRAM USED. 

Y - THE RESULTING INTEGRAL VALUE. 

REMARKS 

NONE 

SUBROUTINES AND FUNCTION SUBPftOCRAMS REOUIREO 

THE EXTERNAL FUNCTION StHPROGRAM FCT(XI MUST BE FURNISHED 
SV THE USER. 

METHOD 

EMLtMTION 1$ OONE BY MEANS OF 4-POINT CAUSSl AH-HERMITE 

OUAORATUftE fORWiLA, WHICH INTEGRATES EXACTLY UHENEVEft 

FCTfXI IS A POLTNONIAL UP TO DEGREE T. 

FOR REFERENCE, SEE 

V.I.KRVLOV. A^ROXINATE CALCULATION OF INTEGRALS. 

NACniLLANi NEW TORK/LONOON* 1962. PP. 129-130 AND 343-346. 



SUBROUTINE QH^(FCT.VI 



S-1. 650600 
Z—X 

X-. 5246476 

Z»-X 

V-V»,B049I4l«<FCriK l*fCT(ZI I 

RETURN 

END 



am 


10 c 


.QtH 


20 c 


am 


90 C 


am 


M C 


QH4 


50 C 


am 


60 C 


am 


70 C 


am 


90 C 


am 


40 C 


am 


LOO C 


am 


110 t 


ow 


120 t 


0M4 


130 C 


QM4 


IW C 


ai» 


1» C 


am 


160 C 


an* 


ITO C 


am 


1«0 C 


am 


110 C 


o«« 


200 C 


am 


210 C 


am 


220 C 


o«* 


230 C 


am 


2t0 C 


am 


2>0 C 


OM* 


260 C 


sm 


2ro c 


am 


2<0 C 


am 


ZV3 C 


am 


300 C 


am 


310 C 


am 


320 C 


am 


330 C 


am 


360 C 


om 


350 


am 


360 C 


QH* 


3T0 C 


OH* 


3S0 


am 


390 


am 


♦00 


am 


610 


am 


620 


am 


6 30 


0M4 


660 


om 


650 



SUHOiTIME OH* 

Fwtrose 

TO C<WVfC IMCCIULif Jm-M*Jtl«fCT4XI» SUtWCO OVER X FROM 
-INFIMIIV TO *IMf IN.ITri. 

USAGC 

CAli 9H* (FCf«V» 

riWAHCfCR FCT MCOWIRES All EX1ERKM. SfATEfKNT 

OCSCNIFTION OF PRKAHCTERS 

FCT - THC MBME OF AH ERTCRMAL FU)iCTia>l &U«P«aC«A» USED. 

T - THl KSULTINC INfCGllM. VAtUf. 



SUWIOUTIMS AttO FUNCTION SUBMUKAAMS REQUIRCO 

THC CXTfllfML FUNCTION StMrNOCNAA FCTIXI MUSI BE FURNISHCO 
BT THE USER. 

NETNOD 

CyalUATION is OONE BT NEANS OF 6-P(llMT CAUSSI AM-HCKMIIe 

9UUMATUBE FOMUIA, WHICH INTEGAATES CXACTLV HHCNCVCIt 

FCTIXI IS A PQLTNONlAi UP TO OCGNEC 11- 

FOR R£FCRE*ICC* SEE 

V.I.RRnOY* A#fROXlHATE CALCULATION Wf INTCCRALS. 

NACniLLAN, NEW TORR/LONOON* l«B2« ^.12*-1M AND 94>->4«. 



SUBROurtNE aH6(FCT.V| 



X-2. 190649 
l»~K 

r-,004$J00l0«(FCTIXI*FCT(£H 

X*1.339B49 

2— X 

V-Y+.IfT06T3*<FCr IXI*FCT(Ztl 

X*,4360T74 

2— X 

Y"'r*.T246296«<FCr(KI*FCri2M 

RETURN 

END 
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aM6 


260 
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IW 
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am 


360 
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0M6 
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om 
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•m 


610 


OH* 
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«m 


630 


om 
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aH6 


650 


om 


660 


0H« 
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aH6 
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SUBROUTINE QMS 



PURPOSE 

TO COMPUTE 



[NTeGRAL<EXPf-X*XI*FCT(Xt , SUMMED OVER X FROM 
-INFINITY TO ^INFINITYI. 



USAGE 

CALL 0M5 (FCT.T) 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

OESCRtPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 

1 - THE RESULTING INTEGRAL VALUE- 

REMARKS 

NONE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTIXI MUST 8E FURNISHED 
BY THE USER- 

METHOO 

EVALUATION IS OONE BY MEANS OF S-POINT GAUSS lAN-HERNITE 

QUADRATURE FORMULA, WHICH INTEGRATES EIACTLV WHENEVER 

FCTIX) IS A POLYNOMIAL UP TO DEGREE 9. 

FOR REFERENCE, SEE 

V.I.KRYLOV. APPROXIMATE CALCULATION OF INTEGRALS. 

MACMILLAN, NEW VORK/LONOONt 1962t PP. 129-130 ANO 343-346. 



SUBROUTINE QHSiFCT.YI 



X-2.020IB3 

2 — X 

Y-.01995324»(FCT<XI*FCT(2II 

X*. 9*85725 

Z — X 

Y"Y». 39 36 193* (FCT IX >*FCT(2H 

I-O. 

Y"Y».94930aT»FCTIXI 

RETURN 

END 
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OHO 


300 


OMS 


390 


OHS 


600 


OHS 


610 


OMS 


620 


OHS 


630 


OMfi 


660 


OHS 


650 


QMS 


660 



SUfiROUrlNF QH7 

PURPOSE 

rO COMPUTE tNrECRAL(EXPI-X«X)*FCT(XI. SUMMED OVER X FROM 
-INFINITY TO +INFINITY1. 

USAGE 

CALL QH7 (FCTtYl 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCI - THE NAME OF AN EKTERNAL FUNCTION SUBPROGRAM USED. 
Y - THE RESULTING INTEGRAL VALUE. 



SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRfO 

THE EXTERNAL FUNCTION SUBPROGRAM FCTIXl MUST SE FURNISHED 
8T THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 7-POINT GAUSSI AN-HERMITE 

QUADRATURE FORMULA. WHICH INTEGRATES EXACTLY WHENEVER 

FCT(K} IS A POLYNOMIAL UP TO DEGREE L3. 

FOR REFERENCE, SEE 

V.t.KRVLQV. APPROXIMATE CALCULATION OF INTEGRALS, 

HACHILLAN, NEW YORK/LONDON, 1^62, PP. 129-130 ANO 343-346. 



SUBROUTINE QHTtFCT.Yt 



X=2, 651961 

2»-X 

¥». 000 9717812* (FCT I XUFCT(2) I 

X=l. 673552 

2=-X 

r=Y».0 545155 8*lFCT( Xl*fCTUH 

X = . 8162879 

Z=-X 

V = Y*,<,25607 3»(FCT(X»*FCT<Z1J 

X=0. 

y = y* .8 102646*FCI( XI 

RtlURN 

END 
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0M7 


230 


QHT 


24C 


OH 7 


25C 


QH7 


260 


QH7 
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360 


QH7 
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OH 7 
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QH7 


390 


QH7 


400 


QH7 


410 


0H7 


420 


OH 7 
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0H7 


*«0 


QHT 


450 


OH 7 


460 


QHT 


4 70 


QH7 


(760 


0H7 


^90 


QHT 


3 00 
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SUBROUTINE QH6 

»»U«<»OSE 

ro COHPUTe lNr£GRAL(EXP(-X*X|*FCr(K), SUHH€0 OVER X FROM 
-INFINITY TO ♦INFINITY!, ^ 

USAGE 

CALL 0H8 <FCT,Y} 

PARANErER FCT REQUIRES AN EXTERNAL SIATEHENT 

OESCRIPTION OF PAAAHETER& 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUePROCRAH USEO. 
r - THE RESULTING INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTIXI MUST BE FURNISKEO 
BY THE USER. 

HCTHOO 

EVALUATION IS DONE BY MEANS OF 6-POINT GAUSSI AN-HERM | TE 

QUADRATURE FQRHUL*. WHICH INTEGRATES EXACTLY WHENEVER 

FCriXI tS A POLVHOHIAL UP TO OEGREE IS. 

FOR REFERENCE, SEE 

V.I.KRYLOV, APPROXIMATE CALCULATION OF INTEGRALS. 

HACNILLAN, NEW YORK/LONOON, 1962, PP.LZ9-130 AND 3«3-34«. 



SUBROUTINE OHBIFCT.Y) 



X=2. 930637 
l=- *. 

Y = .000 199604 I* <FCT( XI^FCTtZ) 1 
K=l. 981657 

Z — X 

Y >Y*. 01 707799* (FCri XUFCr(2ll 

K«l. 157194 

Z— X 

V = V#.207a02J*(FCT(XUFCT(2H 
X-.3BU870 

l = -x 

Y''r*.66ll470*IFCT(X|.FCT(2ll 

RETURN 

ENO 
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500 


QH8 


510 



SUBROUTINE QH9 

PURPOSE 

TO COMPUTE INTEGRAL(EXP(-X«XI*FCTIXI, SUMMED OVER X FROM 
-INFINITY TO *INFINITVI. \ 

USAGE 

CALL QH9 (FCT, VI 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE MAW OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 
Y - THE RESULTING INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SU8PROCRAH FCTIXI MUST BE FURNISHED 
8V THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 9-POINT GAUSSI AN-H£RM|T£ 

eUAORATURE FORMULA, WHICH INTEGRATES EXACTLY WHENEVER 

FCT(X) IS A POLYNOMIAL UP TO DEGREE IT. 

FOR REFERENCE. SEE 

V.I.KRYLOV. APPROXIMATE CALCULATION OF INTECRALS, 

HACMILLAN. NE U YORK/LONDON, 1962, PP.12<^-I30 AND 343-346. 



SUBROUTINE QH9(FCT.YI 



X- 3. 190993 

Z — K 

Y-. 396069aE-4*tFCT( X)*FCr(Z) I 

X-2.266 5B1 

Z«-X 

V«V«.004943624*(FCr (X)4-FCT(Z>I 

X-1. 468553 

Z— X 

Y-¥ + .08fl4T45J»(FCnxl*FCTUll 

X-. 7235510 

z — X 

Y»Y*.4 326516»IFCTIXl«FCT(Zn 

X-0. 

V-Y*,7 202 35Z*FCT«X1 

RETURN 

ENO 
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SUBROUTINE OQHB 

PURPOSE 

TO COMPUTE l1TECRAL(EXP(-X*KI«FCnxi« SUMEO OVER I FROM 
-INFINITY TO ♦INFINITTl. 

USAGE 

CALL OQHS (FCT. VI 

PARAHETER FCT REOUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCtlON 

SUSPNOGRAH USEO. 
T - THE RESULTINC DOUBLE PRECISION INTEGRAL VALUE* 

REMARKS 
NONE 

SUBROUTINES AND FUNCtlON SUSPROGRAMJ REWlRED 

THE EXTERNAL (NlUfllE rRCCltlON FUNCTION SUIMOCRAN FCflXl 
MUST BE FURNISHCO BY ftC USER, 

MCtHOO 

EVALUATION IS OQm ir NE4NS OF B-POINT OAUSSUN-HCHHltE 
QUACmAriME FONHULA* WHICH INTCeRATfS EXAClLV MHCNCVCN 
FCTIXI IS A POLTNOHUL M* TO HONEC 1«« 
FOR REFERENCE. SEE 

SHAO/CWN/FRADM, TABLES OF ZEROS ANO GAUSSIAN WEIAHTS OF 
CERTAIN ASSOCIATED LACUCRRE POLTNOHI ALS ANO THE HELAtEO 
GENERALIZED HERMtTE POLTNONIALSt IM TECHNICAL REPORT 
TROO.ltOO INARCH 1964). PP. 213-214. 



TO 



SUBROUTINE DQHeiFCT.Vl 



DOUBLE PRECISION K.Y.Z.FCT 

K -.29 3063742025 7244 ODl 

2«-X 

Y». 1996040722113676Z0-3*(FCT(XI*FCI(ZII 

X-. 198 1656756695842 901 

Z—X 

Y-Y*. 1707 798 300 7413 4750-1 •<FCT( XI*FCT(ZII 

K-. 1157193712446780201 

Z — X 

V-Y*. 207802 325B14a91SSOO«(FCT( XI ♦FCTIZI I 

X-. 38 II 86 990207 3221 2D0 

Z— X 

Y-Y*.661l4701255824l2900*(FCr(XI»FCr(ZI} 

RETURN 

END 
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OQHB 550 
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SUBROUTINE OHIO 

PURPOSE 

TO CONFUTE INTEGRALlEXP*-X»X)*FCT(Xl . SUNNED OVER X FROM 
-INFINITY TO ♦INFINITYI, 

USAGE 

CALL QHIOIFCr.VI 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 

y - THE RESULTING INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTIXI MUST BE FURNISHED 
BY THE USER. 

HEIHOO 

EVALUATION IS DONC BV MEANS OF lO-POINT GAUSS lAN-HERNITE 

QUADRATURE FORMULA, WHICH INTEGRATES EXACTLY WHENEVER 

FCriXt IS A POLYNOMIAL UP TO DEGREE 19. 

FOR REFERENCE. SEE 

V.I.KRYLOV* APPROXINATE CALCULATION Of INTEfiRALS. 

MACMILLAN, N£M YORK/LONDON. 1962* PP. 129-1)0 *N0 343-346. 



SUBROUTINE QHIOIFCT.YI 



X>3. 436159 

Z — X 

¥-.764043 3€-5*lFCT)X)*FCT(Z)l 

X«2. 532732 

Z — X 

Y«Y*.001343646»{FCTUI*FCTIZII 

X- 1.756684 

Z — K 

Y"Y».0338 7439«IFCT(XUFCTUH 

X'l. 036611 

Z — X 

Y-V«.24013B6*(FCT(XI*FCT(ZII 

X>. 3429013 

Z — X 

Y-Y*.610B626*(FCT(XI»FCT(Z1I 

RETURN 
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530 
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SUBROUTINE OQHI& 

PURPOSE 

TO COMPUTE tNTEGRALlEXPI -X*X»*FCT( X) , SUMMED OVER X FROM 
-iNflNiry TO ♦INFINIlrl. ,, 

USAGE 

CALL 0QH16 (FCT, VI 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENI 

DESCRIPftON OF PARAMETERS 

fCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUBPROGRAM USEO. 
y - THF RESULTING OOUdLE PRECISION INTEGRAL VALUE. 

REMARKS 



SUBROUTINES AND FUNCTION SUBPROGRAMS REOUIREO 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCTfX) 
MUST BE FURNISHED BY THE USER. 

METHOD 

EVALUATION IS DONE 6Y MEANS OF 16-POlNT GAUSS I AN-HERMI TE 
dUADRATURF FORMULA. WHICH INTEGRATES EXACTLV WHENEVER 
FCTUl IS A POLVhIOHIAL UP TO DEGREE 31. 
FOR REFERENCE 1 SEE 

SHAO/CHEN/FRANK. TABLES OF ZEROS AND GAUSSIAN WEIGHTS OF 
CERTAIN ASSOCIATED LAGUERRE POLYNOMIALS ANO THE RELATED 
GENERALIZED HERMITE POLYNOMIALS, IBM TECHNICAL REPORT 
THOO.llOO (MARCH l<}&<^}, PP.2l3-2i<.- 



SUBROUTINE 0QH16{FCT,Yt 



DOUBLE PRECISION X.Y.Z.FCT 

^=-x 

r = . 25 5^80 I'tTtOt II 82 2D-9«(FCT( XI *FCHZI I 

X=. 3 8b'34*TqO<. 8601 22 701 

l=-K 

V = y*. 23209806"»48&52 1070-6* (FCT( X» *FC T (Z I 1 

X=- 3176999161979956001 

Z=-X 

y = y*.27U860092537e8L5D-^»(FCnxl*FCr(Z) I 

X=.25'!.6202 157847481 401 

Z = -X 

y =y». 9 3228400 86241 8 05D- J* (FCr( KI tFCTIZI ) 

X=. 195178 7990916254001 

Z=-X 

y=y. . I28fl0 311 535509q7'.0-l* (FCT) XI »FCT (Zn 

K=. 1380 258 539198880801 

Z=-K 

y=Y*.838l0041398985 830-l*(FCT( X) tfCTl Z) I 

X =.8 229 51449144655900 

Z=-K 

y=Y*. 2806474585285336 800«(FCT(Xt*FCT(ZH 

X=. 2 7 3461046 138 1524 500 

Z=-K 

Y=Y«-.S079294790 1661 3740 0*1 FCT tX)#FCT(Z)» 

RETURN 

END 
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0H16 
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0HI6 
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SUSROUTINC 00H24 
fWOSE 

ro ccwpure iNrECKALfCNfi-x*xi*fcT(xi* sumEo over x fnoit 

-INFINITV TO «'INFlNlTYl. \ 

USAGE 

CALL 0QH2A (FCT,Vt 

fMAMETEft FCT KEQUIKES AN EXTEftNU STATEMENT 

OESCftlATION 01= »ARAMETE«S 

FCT - THE NANE OF *N EXT£«M*L OOUBU WECISION FUICTKW 

SUSPROGRAH USEO. 
Y - THE RESULTING OOUSLE PRECISION INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTINES ANO FUNCTION SUSPROGRAHS RC4UIREO 

THE EXTERNAL 0OU«LE PRECISION FUNCTION SU8P*0GRAN FCTfXI 
MUST BE FURNISHED 8Y THE USEft. 

HETrtOO 

EVALUATION IS DONE ev MEANS OF 24-POINT GAUSSIAN-HERRITE 
aUAORATlME FORNULA, HHlCH INTECRATES EXACTLY UHENEVCR 
FCTIXI IS A POLYNOMIAL UP TO OEGRCE AT. 
FOR REFERENCE « SEE 

SHAO/C MEN /FRANK* FABLES OF ZEROS ANO GAUSSIAN HCICHTS OF 
CEATAIM ASSOCIATED LACUEME fOLVNONIALS AND THE RELATED 
GENERALIZED H6RNITE POLVNONIALSt IBM TECHNICAL REPORT 
TROO.IIOO INARCH 1«A«I, PP. 211-214. 



SUBROUTINE 0QH24IFCT(V| 

DOUBLE PRECISION X,Y,Z,FCr 

X-.60l$42S5«1425T34rot 
i — X 

Y-.1664M«A464S9t0C9O-l9W(FCr(Xl*fCT(2l I 

X-. 52593*292 r6»«044«01 

Z — X 

Y-Y*. 65444202430 781 70I0-12*(FCTI KI»FCTI2I1 

X-.442SU2TSA42378T»1 

i— X 

Y-Y*.304425*249*«T543«O-9*IFCII XI •FCT (211 

X-. 405 34644024481 49 sot 

2— X 

Y-Y».40ia9TllT49414297I>-r*IFCriXI*FCT(ZII 

X-. 3520004813034524 TO L 

z—x 

Y-Y«.2l582*5704»0Z3»340-9*»FCTIX>*FCT<Ztl 

X-.30 1254*1 375655*4 801 

Z — X 

V-V*.56B8691A344043T4«0-4«IFCT(X)*FCT(ZM 

X-.252SB8IOir011*2T001 

Z — X 

r*Y«.823*92482688417S0-3*IFCTIXI»FCTl2ll 

X-.204900>5r9461&9B80l 

2— X 

V-V«',70489$S8lO0T2*nOO-2*fFCTlXI*FCT(ZII 

X-. 15842500I094U941DI 

Z--X 

T■V♦.^T445♦T050^2J0744O-l•(FCT(XI♦FCT(Z^ 

X«, 1124 740617611249101 

Z — X 

r«r*. 1277)8621 78499 91 AOO«(fCr( XI tFCTIZn 

K-. 674 171 107072122 400 

Z--X 

T-Y*.2a6l78535l444430200*(FCT(XI*FCT(2ll 

X-. 22441454 T4 7251 55 TOO 

Z—X 

V-V«.42693116}86869925O0*IFCnK)*FCT(ZII 

RETURN 

ENO 



DH24 10 
..0H24 20 
DH24 30 
0H24 40 
0H24 50 
DH24 40 
0HZ4 TO 
OH24 40 
DH24 90 
DH24 100 
OH24 tlO 
0H24 120 
0H24 IM 
DH24 140 
0K24 190 
0H24 140 
0H2A 170 
DH24 180 
0H24 190 
0H24 200 
0H24 210 
0H24 220 
0H24 230 
0H24 240 
0H24 250 
DM24 260 
0H24 270 
OH24 2*0 
DH24 290 
0H24 300 
DH24 310 
0H24 320 
DH24 330 
0H24 340 
0H24 ISO 
.0H24 360 
0H24 3 TO 
DH24 380 
OH24 390 
0H24 400 
0H24 410 
0H24 420 
0HZ4 430 
0H24 440 
0H24 450 
0H24 460 
0H24 470 
0M24 480 
DH24 490 
0H24 500 
0H24 510 
0N24 920 
DH24 5 30 
0H24 540 
0H24 990 
0H24 540 
DH24 570 
DH24 9 BO 
0H24 590 
0H24 400 
0H24 610 
0HZ4 420 
DH24 630 
0H24 640 
0H24 690 
DH24 660 
0H24 6 70 
0H24 6«0 
0H24 690 
0H24 TOO 

0H24 no 

DH24 720 
0H24 730 
0H24 t«0 
0H24 790 
OH24 740 
0M24 770 
DH24 780 
DH24 790 
0H24 800 
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SIWKOUTINC DQH}2 
PUMQSE 

ro compuit iir£MM.iexrf-i*xi«Fcr«xi. suhheo owe* i fROM 

-IHFINtTr TO «^INFtNirvi. 

USAGf 

CALL 0OH)2 IFCT,rt 

PMAMCTEK fCr KEQUIRES M CKTMNAL SrATEMENT 

OESCRI^TION OF ^MAMCTEItS 

FCr - THE MNE Of AN EXTEftNAL OOUflLE DECISION FUMCTIW 

SUBPMICftAH USeo. 
V - TM£ WSULTIHG OOUBLC MECISfON IMTECRAL VALUE. 

KEMAAKS 
NONE 

SUBAOUTtNES ANO FUNCTION StMfftOCAAHS REaulAED 

THE EXTERNAL OOUftLE MECISION FUNCTION SUSMOGAAN FCTtXI 
MUST SE FUHNISNEO BY TK USEA. 

HIJHOO 

eVALIMTlON ti OtWE BV NEANS OF 32-WOlti1 CAUSS lAN-NEANITE 
QlMOAArUAE FOANUIA, UHICH JNTEGAATES EXACTLY UHENEVEA 

FCTfxi IS A rarNOHiu UP ro ocgkee b). 

FOA AEFEAENCE. SEE 

SHAO/CHEN/FAAW. TABLES OF 2£A0S ANO GAUSSIAN WEIGHTS OF 
CEftrxiN ASSOCIATED LAGUERAE POlTNONULS AND THE RELATED 
GENERALIZED HERNITE FOLTNONIALS. IBM TECHNICAL REFOAT 
rROO.UOO INAACH 19641. FF. 219-214. 



SUBAOUTINE OQH32(FCT«T) 



to 

20 
)0 



70 



OOUBLE FRECISION X*r,£,FCT 

K-.Tizsanqo^ssor^TADi 

Z — K 

T-.7}106T642T9a4162O-22*(FCT{XI«FCT(Zl) 

X -.6409498 1 492B9660 401 

Z— X 

T-V+.92 31 73653651 aZ 920-1 a* I Fcr( XI *FCr(ZM 

X-. SSI 2225949915913801 

Z — K 

V«Y«.ll97 344C17092848 70-l4«<FCr(XI*FCr<Zlt 

X-. 52755509 8651 5880101 

Z"-X 

V-V*.42t5ai02U32644T60-12*(FCT<XI*FCriZM 

X-. 4777 164503502596401 

Z — X 

V«Y*.59 3329l46339663d6t>-10«(FCrt X|4^FCri2)) 

X -.4 30554795 3351198401 

Z — X 

Y-Y*.409«8321647708 9660-8«<FCT(XI»FCTI21I 

X>. 3853755485471444601 

Z — X 

V-Y«.1574l67792S4SS«40O-6*(FCTIII>FCr(2ll 

X-. 3417 16749281 89 70701 

2 — X 

T>Y*.365058Sl295623 7610-5«(fCfUUFCrU)> 

X-. 2992 490825002374201 

Z — X 

V*V*.$4165840618t9982&0-4«(FCT(XI*FCT(Z)l 

X-. 2 577 24953773 231 7501 

2— X 

r-Y«.$3626836552T97205D-3«<FCT(XI*KT(Zl) 

X-.21694991S3606112 2D1 

2 — X 

V-Y«.3654B903264544241(>-2*<FCr(Xl*FCTU)l 

X-. 176765410946 3201601 

1 — X 

V-Y4^. 1755342 883 15734300-1*(F<:T| XI tFCTfZI I 
X>.t370 3764l0952t7iaoi 

2 — X 

V-Y«.604581309559126l4O-l*fFCTIX|i'FCT(Z)| 
X- . 976500463589682800 

2— X 

Y«Y».15 12697340766424800* (FCT( XI t-FCri 2) I 

X - . 5844787654399324 500 

Z'-X 

Y -Y*. 27 7458 142302 52 99000* (FCT{X(*fCT« 211 

X-. 194840 7415693993 300 

2 — X 

V-Y*^.375238352992B0239OO*(FCT(XI«FCTIZII 

RETURN 

ENO 



0M32 
..0H32 

DH32 
0H32 
DH32 
0H32 
0H32 
DH32 
0H32 
OH32 100 
OH32 110 
0H32 120 
OH32 130 
0H32 140 
OH32 150 
OH32 160 
0H32 170 
OH32 180 
OH32 190 
DH32 200 
0H32 210 
0H12 220 
0H32 230 
0H32 240 
0M32 250 
0H32 260 
0H32 2 TO 
OH32 280 
0H32 290 
0H32 300 
0H32 910 
DH32 320 
DH32 3 30 
OH32 340 
DH32 390 
.OH32 360 
0H32 370 
0H32 380 
OH32 390 
0H32 400 
0H32 410 
0H32 420 
aH32 430 
DH32 440 
0H32 «50 
0H32 460 
DH32 470 
OH32 480 
OH32 490 
0H32 500 
OH32 510 
0H32 920 
0H32 530 
0H32 940 
0H32 550 
OH 3 2 560 
OH32 570 
OH32 580 
0H32 590 
OH32 600 
0H32 610 
0H32 620 
DH32 630 
DH32 640 
DH3Z 690 
OH32 660 
OH32 670 
0H32 680 
DH32 690 
0H32 700 
0M32 710 
0H32 720 
0H32 7 30 
0H32 740 
DH32 750 
OH 32 760 
OH32 770 
0H32 780 
OH32 790 
0H32 800 
OH32 810 
0H32 820 
OH32 830 
OH32 8*0 
aH32 850 
QH32 860 
0H32 870 
0H32 880 
DH32 890 
OH32 900 
0H32 910 
OH32 920 



10 



SU8A0UTINE 0QH4a 

PORPOSe 

TO COHPUIE INrES<tALIEXI>t-X*X|*FCr{X). SUMMED OVER X FROH 
-INFINITY TO ^INFINITYI. , 

USAGE 

CALL OOHAB (FCT.Vt 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL DOUeLE PRECISION FUNCTION 

SUSPROGRAH USED. 
Y - THE RESULTING DOUBLE PRECISION INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTIMES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBWOGRAM FCT(XJ 
MUSr 66 FURNISHED BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 48-POINT CAUSS 1 AN-MERMITE 
QUADRATURE F3RMULA. tmiCM INTEGRATES EXACTLY WHENEVER 
FCTIXl IS A POLVNOMIAL I}? TO DEGREE 95. 
FOK REFERENCE , SEE 

SHAO/CHEN/FRANK, TABLES OF ZEROS ANO GAUSSIAN UEICHTS OF 
CERTAIN ASSOCIATED LACUERRE PCLYNONIALS ANO THE RELATED 
GENERALIZED HERMITE POLYNOMIALS, IBM TECHNICAL REPORT 
TftOO.llOO (MARCH 19641, PP. 213-214. 



SUeRDUriNE OQH'iStFCT.Yl 

DOUBLE PRECISION X.Y,2,FCT 

X=. 897531508193168701 

Z = -X 

Y=.793555l460TT399TO-35*lFCT(X)*fCT(Z»l 

X=.8310752190704784D1 

Z=-X 

V = V+. 598461 269331 38 7840-30* If CT( X>*fCriZ» I 

X=.77592955I9T65T75D1 



Y=Y + . 55645 774689022 84 90- 2 3* <FCT( XI+FCr(2M 

X=. 68 10064578074141401 

Z=-X 

Y = Y».3 1883873235051 3840-20* (FCTI XWFCTIZM 
X=. 6 3B0 5640961 S6410601 

Z'-x 

Y = Y#.8T3015960U 866770-18* (FCTIX I *FCr (2)) 
X= -597 107 222501 3545401 

Z=-X 

Y = Y + . 1315 15962265840850-1 5* (fCT(X)*FCT(2H 
X=. 557 73 1698122 3728601 

Z=-X 

Y=Y+. 11975898654791 7940-1 3*1 FCT(X)*FCT(ZI I 

X=. 5 196287 7 1 8792364 50 1 

Z = -X 

Y=Y*.704693258l5458891D-12*(FCr(X(»FCT(2Il 

X =.4825 7572281 3 32 09 501 

2=-X 

Y=Y*. 28 1529653 783816910-1 P*( FCT I XI ♦FCT( 2 II 

X = . 44640 1454693445890 1 

I'-K 

Y*Y*. 79304674951653 820-9* (FCT( XI vfCri 21 I 

X = . 4 109 704603560590 2D I 

2=-X 

Y= Y*. 16 22 51 413589576980- 7* (FCTIX I ♦FCTIi II 

X =. 3 76 1726490 ^2 835 7 801 

Z--X 

Y=Y + .24696589936697505D-6*(FCT(XI*FCrtZ I I 

X =.3419 16 5969563884 601 

Z=-X 

Y=Y».Za472586917348481D-5*(FCT(X>*FCTIZ) I 

X ' . 3 08 1 24S99 864 51 05 flOl 

z=-x 

Y =Y*. 2528 59902 77484 8890-4 •{FCT( Xl+FCIIZ) » 

X = .2 74 7 3086248223 83 2D 1 

Z=-X 

Y-Y*. I 75150431601 172830-3*(FCT{Xl*FCI(ZI I 

X=. 24 1 6 760 9048732 16 501 

Z=-X 

Y = V*. 95639231981 941 530-3* (FCr I X)«-FCT(ZI I 
X=. 2089086660944276401 

z=-x 

Y -Y». 4 1530049 1 197 75 5250-2* (FCTI X»*FCT(Zt I 

X=. 176 3 817579895300 001 

Z=-K 

Y = Y». 14444961574981 0990-1* (FCTI «l*FCr IZU 
X=. 144052522013 7565201 

Z=-X 

V= v.. 40479676984603 849D-1*{FCT( XI+FCT (Zl ) 

X=.11188121524021566D1 

Z=-X 

Y = Y*-9 182229 7C7 92 85 I80-1*(FCTI XI »FCr(ZH 
X = . 79 8304627 7785622 DO 

Z = -X 

Y = Yt. 1692044719456411 100* <FCT< XI «FCTIZ1 I 
X = . 47864633 75944961 ODD 

Z=-X 

Y^Y*. 25 396 1 542664 75 91 000* (FCTI XI *fCr(ZI I 

X=. 1594929358488624 700 

Z = -X 

RETURN 
END 



DH4e 
0H4B 

0H4 8 30 

0H48 40 

0H48 50 

DH4 8 60 

0H48 70 

DH46 80 

0H4S 90 

0H48 100 

0H48 110 

0H48 120 

0H48 130 

DH48 140 

0H48 ISO 

0H4e 160 

DH48 170 

0H48 180 

DH4 8 190 

DH48 200 

DH4e 210 

0H48 220 

0H48 2 30 

DH46 240 

DH48 2 50 

0H48 260 

0H48 270 

DH4S 280 

DH48 290 

DH4e 300 

0H48 310 

0H48 320 

DH48 3 30 

DH4e J40 

0H48 350 
. ..DH4e 360 
0H4S 370 
DH48 380 
DH48 390 
0H48 400 
0H48 410 
0H4a 420 
0H4a 430 
0H48 440 
0H48 450 
0H48 460 
0H48 470 
0H4 8 480 
DH48 490 
0H48 500 
DH48 510 
0H48 520 
0H4B 5 30 
0H4 8 54C 
DH48 550 
0H48 560 
0H4a 5 70 
0H48 580 
0H4a 590 
DH48 600 
DH48 610 
DH4a 620 
DH48 630 
0H48 640 
0H4e 650 
DH48 660 
0H4B 6 70 
DH4B 680 
0H48 690 
0H4B 700 
DH48 710 
DH48 720 
0H4 8 730 
0H48 740 
0H48 750 
0H4B 760 
DH4a 770 
0H4a 780 
0H48 790 
DH4S 800 
0H48 810 
0H4e 820 
DH4S 830 
DH48 840 
DH48 850 
DH48 B6Q 
0H4a 870 
0H4a 880 
0H4a 890 
0H48 900 
DH48 910 
DH48 920 
0H48 9 30 
0H48 940 
0H4B 950 
0H48 960 
DH48 970 
DH4e 980 
DH4 8 990 
OH481000 
OH481010 
DH481020 
DH481030 
DH4ai040 
DN481050 
0H481060 
0H4810 70 
0H481080 
0H481090 
DH4ail00 
0H481110 
0H4 81120 
DH4ail30 

omiM 

OH481150 
DH48U60 
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Subroutine oqh6<> 

PURPOSE 

rO COMPUTE INTE&RAL(exP(-X*Jtl*FCT(XI , SU1HE0 OVER X FROM 
-INFINITY TO ♦INFINITY). > 

US4GE 

CALt. DQM6* (FCT.YI 

PARAMCTES fCT PEQUIRES AN EXTERNAL STATE'lENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUSPROGRAH USED. 
f - THE RESULTING DOUBLE PRECISION INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTINES AKO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCT(X) 
MUST BE FtlRNlSHED BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 6*-P0INT GAUSS I AN-HERMi TE 
QUADRATURE FORMULA, WHICH INTEGRATES eXACTLT WHENEVER 
ECTfXI IS A POLYNOMIAL UP TO DECREE 127. 
FOR REFERENCE , SEE 

SHAO/CHEN/FRANK, TAflLES OF JIEROS AND GAUSSIAN WEIGHTS OF 
CERTAIN ASSOCIATED LAGUERRE POLYNOMIALS AND THE RELATED 
GENERALIZED HERMITE POLYNOMIALS, IBM TECHNICAL REPORT 
TROO.llOO (MARCH l<)6'ilt PP. 213-214. 



SUBROUTINE 0QH6<t(FCT,Y) 

DOUBLE PRECISION X,Y.£,FCr 

X=. 105 2612J16 7960546D2 
2=-X 

Y = . 553 5 706535 856942 80-4 8* [FCT(XJ+FCT1ZI I 
X=.9 89 528 75B6B2 9 5 39D1 

z=-x 

Y = r*. 16797479901061. 5920-42»(FCT( XltFCT( ZU 
X = .S37 3 15'»5496'.6T2l0l 

Z = -X 

Y-Yt. 34211 J80li25574050-38»IFCr( XI tFCTlZl J 

X=. 990 72490999647 7001 

Y = Y*. 1 5 57 39062 462 9763 60- 34* I FL K XUFCK ZM 
X=. 9^ 7 752906 3 3 79 86301 

Y = Y«-.2549660899I129993D-31*IFCTI X»*FCT( 11 1 
X = . aO 7 16a72 850 1022501 

Y = Y*. 19291035954649669D-Z8*(FCTI X) +FC T I I) I 
K=. 7689 54016404049701 

z = -x 

V=Y».Te61 7977889259 100-26* If CT( XI +FCT (ZI I 

X=.7 321013032 7B0949DI 

Z=-X 

Y=Y*. 1911 70683330064^30-2 3« (Ft T( X»*FCTI Z) 1 

X=.6965 24112055 1107501 

Z=-X 

Y=Y+.296286Z7a42793 512D-2l*1FCT( XI+FCT(ZI ) 

X = . 6620 1 122626 36027401 

Z = -X 

Y=Y+. 3 1522545665037 a I 40- I 9* (FCT I XI *FCTIZ I I 

X=. 6 2840 II 22 8 7 7482 8 201 

z=-x 

Y = Y*.235ia347106758191D-lT*lFCTl Xt^FCKZH 
K=. 5955666 3267994 86 001 

z=-x 

Y = Y«-. 12 8009 3 39 1 32 24 3800- 1 5« ( FC T I X) »FCT( Z » I 
X = , 563 4052164 349972 10 1 

Z = -K 

Y=Y + .52I862 37265908475D-l4»lfCT{ Xl+FCTIZH 

X = . 5 31 a 325 22^6 332 7090 1 

Z=-X 

Y=Y+. l62flJ40730 70972040- 12»1FCT( X)+FCTIZI I 

X = .500 7 779602 198 769 2D 1 

z=-x 

Y = Y*. 39 59 1 77766 9477 2 390-11* I FCr( X)*FCT(Z) ( 
X-. 4 70 IB 1 5 64740 7499 80 1 

z=-x 

Y=¥*.76l52172 501454510-10*(FCT{KltFCnZI 1 
X-. 43 9991 7 168 2281 37601 

z=-x 

Y=Y*.1I7361674232154930-8«(FCT(XI*FCT(ZJ) 

X=. 4 10 16344 74566656 70 1 

Z=-X 

V^Y+.14651253164761094D-7*(FCT(X)+FCT1Z)) 

X =.380657151 3945360 5D1 

Z=-x 

Y = Y*.14955 32936 72 72 471D-6*(FCT( X) fFCTUI I 
X=. 35 14375935 740906 2D I 

Z = -X 

Y=Y + . 1258 340251031 1 8460-5* (FCT( XI *FCT(Z) ) 

X = -322473 1291992035 7D1 

Z=-X 

Y-Y*. 87884992 30850359D-5*(FCH X)*FCT( Z) I 

X=, 29 3 7 35092 3004621801 

Z = -X 

Y = Yt. 5 125929 135 7862 74 7D-4*(FCr( XI *FCT(Z) ) 
X=. 265 19724354 3063500 1 

Z = -X 

Y = Y*. 25098369851 3062490-3* ( FCT ( XI '■FCKZI ) 
X=. 2 368 3545 8863 240140 1 

Z=-X 

Y = Y». 10363290995075 7770-2" (FCT( XJ'FCKZU 
X=. 2086272879881762 001 

Z=-X 

Y=Y«-. 36 22 5869785344 5680-2" IFCTl X)«FCT1Z) I 

X = . I 8055171 71465544'KIl 



DH64 10 
.0H64 20 
0H64 30 
DH64 40 
0H64 50 
DH64 60 
0H64 70 
0H64 80 
0Hfe<i 90 
0H64 100 
0H64 liO 
0H64 120 
0H64 130 
0M64 140 
0H64 150 
0H64 160 
0H64 170 
0H64 180 
0H64 190 
DH64 200 
DH64 210 
0H64 220 
0H64 2 30 
0H64 240 
0H64 250 
0H64 260 
0H64 2 70 
0H64 280 
DH64 290 
DH64 300 
0H64 310 
DH64 320 
0H64 3 30 
DH64 340 
DH64 350 
.DH64 360 
0H64 3 70 
0H64 380 
DH64 390 
DH64 400 
DH64 410 
DH64 4 20 
DH64 *.30 



440 
450 



Y=Y». 2720312895 36889180-1* (FCT) XI 'FCT (Z) 1 
X=. 1247 20015694311 7901 



Y" Y*. 5 8 7399819640994350-1 •(FCT( XI t-FCT(Z) I 
X =.96926942 30 71 178000 



DH64 
DM64 
0H64 460 
0H64 470 
0H64 480 

0H64 '»90 

DH64 500 
DH64 5 10 
0H64 5 20 
0H64 5 30 
DH64 540 
DH64 5 50 
0H64 560 
DH64 5 70 
DH64 5 80 
DH64 590 

OH64 6 00 

0H64 610 

DH64 620 

0H64 630 

DH64 640 

DH64 650 

0H64 660 

0H64 6 70 

DH64 680 

DH64 690 

0H64 700 

0H64 7 10 

0H64 720 

DH64 7 30 

0H64 7.*0 

DH64 750 

DH64 760 

DH54 770 

0H64 780 

0H64 790 

0H64 800 

DH64 810 

0H64 820 

0H64 830 

0H64 840 

0H6 4 8 50 

0H64 860 

0H64 870 

DH64 880 

0H64 890 

0H64 900 

0H64 910 

DH64 920 

DH64 930 

DH64 940 

0H64 950 

0H64 960 

DH64 9 70 

0H64 980 

0H64 990 
OH6 4100a 
DH641010 
DH641020 
DH641030 
DH641040 

0H6^L050 
OH641060 
OH641070 
DH6410ao 
DH641090 
0H641 100 
DH641 110 
0H64I120 
0H641130 
0H641140 
DH641150 
DH64U60 
0H641170 
OH641180 
0H641190 
0H64I20D 
DH641210 
DH641220 
DH641230 
DH641240 
0H641250 
0H641260 
OH641270 
OH641280 



Y^Y*. 108498 349 3061 866400* (PC T< XI*FCT<ZI 1 

X=. 69 19 22 5058 100445 800 

Z=-X 

Y=Y». 1 7 1685842 34908 37000* (FCT( XI tFC T ( Z I ) 

X=. 4 14988824121 0786 800 

Z=-X 

Y=V*.2 32994 786062 6 7 80500* (FCT (XI ♦FCTIZI I 

X=. 138 3022 449870097 200 

l=-x 

y^Y + .27 13 77424 941 3039800* IFCTI KWFCTIZJ I 

RETURN 

END 



0H641290 
0H641300 
DH641310 
DH641320 
0H6413)0 
0H641340 
DH641150 
DH641360 
DH641370 
OH64L3a0 
DH64n90 
OH641400 
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Subroutines QA2, QA3,..., QAIO, DQA4, DQA8, 
DQA12, DQA16, DQA24, DQA32 

These subroutines perform the integration of a given 
function by associated Gaussian-Laguerre quadra- 
ture formulas: 



To compute; 



_ f£2m. 

J x/x 





dx 



generalized Gaussian-Laguerre quadrature formulas 
withn = 2,3,..., 10 (or n =4,8,12,16,24,32) points 
are used to get approximations; 



n 

k=i 



(n)f /„(") 



K 



) (n=2.3....) (1) 



which are exact whenever f(x) is a polynomial up to 

the degree 2n-l. Note that the nodes xj^^*^' are the 

roots of the associated Laguerre polynomials 

(-^) 
Ljj 2 (x) of degree n. 



For reference see: 

(1) Concus/Cassatt/Jaehnig/Melby, "Tables for 



f(x) . dx by Gauss- 



the Evaluation oi J x . e 


Laguerre Quadrature", MTAC, vol. 17, No. 83 
(1963), pp. 245-256. 

(2) Shao/Chen/Frank, "Tables of Zeros and 
Gaussian Weights of Certain Associated Laguerre 
Polynomials and the Related Generalized Hermite 
Polynomials", IBM Technical Report TR 00. 1100 
(March 1964), pp. 15-16. 



SUBftOUriNE QA2 

fURCOSe 

rO COHPUre INTEG«AL(EXPI-XI*fCT(XJ/SQ«TUl. SUMMED OVER X 
FROM TO INFlNItYl . 

USAGE 

CALL OAZ (FCIiYI 

PAftAMCTER FCr REQUIRES AN EXTERNAL STATEMENT 

OeSCRIPIlON OF PARAMETERS 

FCT - THE NAHE OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 

Y - THE ftESULTING INTEGRAL VALUE. 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SU9PR0GRAM FCT(X1 MUST BE FURNISHED 
BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 2-PaiNr &ENERALUED GAUSSIAN 
LAGUERRE QUADRATURE FORMULA. WHICH INTEGRATES EXACTLY. 
WHENEifER FCT(X) IS A POLYNOMIAL UP TO DEGREE 3. 
FOR REFERENCE, SEE 

CQNCUS/CASSATr/JAEHNIG/MeLBY, TABLES FOR THE EVALUATION Of 
lNrEGRAH)("*6eTA»EXP<-XI*FlX), SUMMED OVER X FROM TO 
INFINITY! BY GAUSS-LAGUERRE QUADRATURE, MTAC, VOL.17, 
ISS.83 (1963), PP. 245-256. 



SUBROUTINE 0A2(FCT.Y1 



)l = 2. 7247*5 

Y=. l626 25 7«Fcr(xi 

X = . 2752551 

Y = *'»l,60982a«Fcr( X( 

RETURN 

END 



QA2 
0A2 
QA2 
QA; 
0A2 
QA2 
QA2 
QA2 
0A2 
QA2 
QA2 
0A2 
QA2 
QA2 
0A2 
0A2 
0A2 
QA2 
QA2 
QA2 
0A2 
0A2 
QA2 
QA2 
0A2 
-gA2 
aA2 
QA2 
QA2 
QA2 
0A2 
QA2 
0A2 
QA2 
>QA2 
0A2 
QA2 
0A2 
QA2 
0&2 
0A2 
QA2 
QA2 
QA2 
QA2 



ao 

90 
100 
110 
120 
1)0 
140 
150 
160 
WO 
L80 
190 
200 
210 
220 
230 
240 
250 
260 
270 
290 
290 
300 
310 
320 
330 
340 
350 
360 

3 70 
380 
390 
400 
4L0 
420 

4 30 
440 



SueROuriNE 0A3 



TO COMPUTE INTESRALIEXPI-Kl*FCri Xl/SQRTIX) . SUMMED OVER X 
FROM TO INFINITY! . 

USAGE 

CALL QA3 (FCT,YI 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 

Y - THE RESULTING INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTINES AND FUNCTION SUfiPRQCRAHS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTUI MUST 86 FURNISHED 
BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 3-POINT GENERALIZED CAUSSIAN- 
LAGU€RRE QUADRATURE FORMULA. WHICH INTEGRATES EXACTLY, 
fiHENEVER FCT( X) IS A POLYNOMIAL UP TO DEGREE 5. 

FOR REFERENCE, SEE 

CONCUS/CASSATT/JAEHNIG/HELBY, TA8LES FOft THE EVALUATION OF 
INTEGRAL(X*«9ETA»EXR<-X1*F(X>, SUMMED 0<^R X FROM TO 
INFINITY) BY GAUSS- LAGUERRE QUADRATURE , MTAC* VOL. 17, 
ISS.83 (1963), PP. 2*5-256. 



SueRQUTINE 0A3(FCT,Y! 



X = 5. 52534-* 

V = .009060020*FCT(X) 
X=l. 784493 

Y=Y*.314134 6*FCT(X) 

X=. 1901635 

Y = Y*U449259*FCT(Xt 
RETURN 

END 



QAJ 


10 
20 
30 


QA3 


0A3 


40 


QA3 


50 


gAi 


60 


QA3 


70 


QA3 


80 


QA3 


90 


QA3 


100 


UA3 


lie 


QA3 


120 


QA3 


130 


gA3 


KO 


QA3 


150 


QA3 


160 


QA3 


I TO 


QA3 


180 


QA3 


190 


QA3 


200 


QA3 


210 


aA3 


220 


QA3 


230 


QA3 


240 


QA3 


?50 


-QA3 


260 


QA3 


270 


OAl 


?ao 


QA3 


290 


0A3 


300 


«A3 


310 


0A3 


320 


0A3 


330 


gA3 


340 


.QA3 


350 


QA3 


360 


QA3 


370 


QA3 


3 80 


0A3 


390 


QA3 


400 


QA3 


410 


QA3 


420 


0A3 


4 30 


QA) 


440 


QA3 


450 


QA3 


460 


gA3 


470 



C 








QA4 


10 


c 








.QAA 
QA4 


20 


c 








30 


C 


SUBROUTINE QA4 






QA4 


40 


c 








QA4 


50 


c 


PURPOSE 






QA4 


60 


c 


TO COMPUTE INT£GRALIEXP(-XJ*FCTIXJ/SORTlK» , ' 


SUMMED OVER 


X 


QA* 


70 


c 


FROM TO INFINITY). 






0A4 


80 


c 








QA4 


90 


c 


USAGE 






QA4 


100 


c 


CALL QA4 (FCT.Y) 






(1A4 


110 


c 


PARAMETER f^CI REQUIRES AN EXTERNAL STATEHCNT 






QA4 


120 


c 








QA4 


130 


c 


DESCRIPTION OF PARAMETERS 






0A4 


140 


c 


FCT - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 


0A4 


150 


c 


Y - THE RESULTING INTEGRAL VALUE. 






QA4 


160 


c 








0A4 


170 


c 


REMARKS 






QA4 


180 


c 


NONE 






QA4 


190 


c 








0A4 


200 


c 


SUflftaUTINES AND FUNCTION SUBPROGRAMS REQUIRED 






0A4 


210 


c 


THE EXTERNAL FUNCTION SUBPROGRAM FCKXI HUST 


SE FURNISHED 


QA4 


220 


c 


BY THE USER. 






QA4 


2 30 


c 








QA4 


240 


c 


METHOD 






0A4 


250 


c 


EVALUATION IS DONE BY MEANS Of 4-POtNT GENERALIZED GAUSSIAN 


-QA4 


2 60 


c 


LAGUERRE QUADRATURE FORMULA. MHlCH INTEGRATES EXACTLY, 




QA4 


270 


c 


WHENEVER FCTI XI IS A POLYNOMIAL UP TO OEGHEE 


7. 




0A4 


280 


c 


FOR REFERENCE. SEE 






QA4 


290 


c 


CONCUS/CASSATT/JAEHNIG/MELBV, TABLES FOR THE 


EVALUATION 


OF 


0A4 


300 


c 


INTEGRAL(X**BETA*EXP(-X1*F(X) t SUMMED OVER K 


FROM TO 




QA4 


310 


c 


INFINITYI BY GAUSS-LAGUERRE QUADRATURE. MTAC, 


• VOL. 17, 




QA4 


320 


c 


ISS.B3 (19631, PP. 245-256. 






QA4 


3 30 


c 








0A4 


340 


c 
c 








.QA4 

QA4 


350 








360 




SUBROUTINE QA4{FCr,Yl 






QA4 


370 


c 








QA4 


380 


c 








QA4 


390 




X=a. 568636 






QA4 


400 




Y':.00039920eL»FCr{XI 






QA4 


410 




X=3. 926964 






QA4 


420 




Y-Y*.034l5597*FCr(Xl 






QA4 


4 30 




X=l. 339097 






0A4 


440 




r=Y*.4156047»FCr(X) 






QA4 


450 




X=, 1453035 






Q&4 


460 




V-y*l.322294*fCT(Xl 






QA4 


470 




RETURN 






QA4 


480 




END 






QA4 


4 90 
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SUHMED OVER X 



SUBROUTINE O0A<. 

PURPOSE 

ro COMPUIE INIEGRAHEKP(-X1*FCF(XI/SQRT(X1 . 

FROM ro [Nf INdYl . * 

USAGE 

CALL DQA4 {FCT.VI 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUBPROGRAM USED, 
y - THE RESULTING DQJflLE PRECISION INTEGRAL VALUE- 



SUBROUTINES ANO FUNCTION SUBPROGRAMS RtOUIREO 

THE EXTERNAL DOUBLE PRECISION FUNCTION SU8PR0GRAM FCffXI 
MUST BE FURNISMEO BY THE USER. 

METHOO 

EVALUATION IS DONE BY MEANS OF ^-POINT G£N£RALIZeO tiAUSS- 
LAGUERRE QUADRATURE FORMULA, WHICH INTEGRATES EXACTLY 
rfHENEvEft FCr(Xl IS A POLYNOMIAL UP TO DEGREE 7. 
FOR REFERENCE, SEE 

SmO/CHEN/FRANK, TABLES OF ZEROS AND GAUSSIAN HEIGHTS OF 
CERTAIN ASSOCIATED LAGUERRE P0LYNO1IALS ANO THE REtATED 
GENgRALUEO HERMITE POLYNOMIALS, I8M TECHNICAL REPORT 
TROO.llOO IMARCH 19641, PP. 15-16. 



SUBROUTINE DQA4{FCT,Y) 



DOUBLE PRECISION X.V.FCT 

«=. 8 58 86556890 I 20340 I 

Y=. 399 ?08 144422 7}52 4D-3*FCT( XI 

X=. 392696 3501 35 82 8 ?2D I 

Y = yt. 34 155966014826951 0-l»FC T( X) 
X=. 1339097298126361401 

Y = Y»-. 4 1^6046^ 1629T837600-FC Tl X) 
X^. 145 30352150 3 Jl 70 9DO 

Y=Y*. 1322294025 1 164 82601 •fCTIX) 
RETURN 



00A4 10 
.0QA4 20 
0QA4 30 
00A4 40 
0QA4 50 
0C)A4 60 
D0A4 TO 
0QA4 80 
00A4 90 
0C1A4 100 
0QA4 110 
00A4 120 
0QA4 130 
00A4 140 
0QA4 1^0 
0QA4 160 
0QA4 I TO 
DQA4 180 
0QA4 190 
O0A4 200 
O0A4 210 
0QA4 220 
00A4 230 
0QA4 240 
0QA4 250 
0QA4 260 
08A4 2 70 
0QA4 280 
0QA4 290 
0QA4 300 
00A4 3t0 
00A4 320 
D0A4 330 
0QA4 340 
00A4 350 
. 0QA4 360 
DQA4 3 70 
O0A4 380 
0QA4 390 



DOA. 



400 



0QA4 4 10 
DQA4 420 
00A4 430 
00A4 440 
DQA4 450 
O0A4 460 
OaA4 470 
00A4 480 
0QA4 490 
DQA4 500 
00A4 510 
DQA4 520 



SUHHEO OVER X 



SUeftOUTINE QA6 

PURPOSE 

TO COMPUTE tNTeCRALlEKP(-X)*FCnxi/SQ*TI XI , 
FROM TO INFINITY) . 

USAGE 

CALL QA6 IFCT.VI 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 



DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 

V - THE RESULTING INTEGRAL VALUE. 



SUBROUTINES AMO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTIXl MUST BE FURNISHED 
BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS Of 6-POINT GENERALIZED GAUSSIAN- 
LAGUERRE QUADRATURE FORMULA, WHICH INTEGRATES EXACTLY, 
WHENEVER FCTIXI IS A POLYNOMIAL UP ID DEGREE 11. 
FOR REFERENCE. SEE 

CONCUS/CASSATT/JAEHNIG/HELBY, TABLES FOR THE EVALUATION OF 
INT£GRAL(X*»6EtA*exP(-Xl*FlXI , SUMMED OVER X FROM TO 
INFINITYI SY GAUSS-LAGUEftAE QUAORATUft€, MTAC. VOL.17, 
ISS.a3 (1963), PP. 245-256. 



SUBROUTINE 0A6(FCT.Y) 



0A6 
.QA6 
QA6 
QA6 
QA6 
QA6 
aA6 
0A6 
0A6 
gA6 
0A6 
QA6 
QA6 

aA6 

QA6 
gA6 
QA6 
aA6 
QA6 
QA6 
QA6 



X=15. 12996 

Y=.5317103E-6*FCT1X) 

X=9. 124248 

Y=Y*.C001714737*FCT(X) 

X=5. 196153 

Y = Y + . 007810 79 l«FCr( XI 

X=2. 552590 

Y=Y*.1032160*FCT(XI 

X=. 8983023 

Y=Y*.5209846»FCT{X) 

X = . 09874701 

Y^r*! .1402T0*FCT(XJ 

RETURN 

END 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 



SUBROUTINE QA5 

PURPOSE 

TO COMPUTE |NTEGRAL(EXPI-«I»FCTI X)/SORT(XI , SUMMED OVER X 
FROM TO INFINI TYI . 

USAGE 

CALL 0A5 IFCT.Yl 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM USED, 

y - THE RESULTING INTEGRAL VALUE. 



SUeROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCT(K1 MUST 9E FURNISHED 
BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF 5-POINT GENERALIZED GAU5SIAN- 
L AGUE « RE QUADRAT URE FORMULA, WHICH INTEGRATES EXACTLY, 
WHENEVER FCT(XI IS A POLYNOMIAL UP TO DEGREE 9. 
FOR REFERENCE, SEE 

CDNCUS/CASSATT/JAEHNIC/MELBY, TABLES FOR THE EVALUATION OF 
INTEGRAL! X**9£TA*EXP{-X)»F(X), SUMMED OVER X FROM C TO 
INFINITY) BY GAUSS-LAGL«BRE QUADRATURE, MTAC. VOL. 17, 
ISS.83 (19631. PP. 245-256. 



SUBROUT !NE QA5(FCT, Yl 



X=ll. 90719 

Y=. 152808 7E-4«FCTIXI 

X=6.4147J0 

Y=Y*.00268729l»fCIlX) 

X:3-085937 

Y3Yt.D6774879«FCT(K ) 

X=l. 074^62 

Y=Y* .4802772«FCT{ XI 

X = . 1175813 

Y=Y*I.221725«FCTf XI 

RETURN 

ENO 



0A5 


10 


.0A5 


20 


0A5 


30 


QA5 


40 


QA5 


50 


QA5 


60 


QA5 


70 


0A5 


30 


QA5 


90 


QA5 


100 


QA5 


110 


QA5 


120 


0A% 


130 


QAS 


140 


QA5 


150 


QA5 


160 


QA5 


170 


QA5 


180 


OAf 


190 


QA5 


200 


0A5 


210 


QA-. 


220 


QA5 


2 30 


0A5 


240 


QA5 


250 


-OAb 


260 


QA5 


270 


0A5 


280 


QA5 


290 


QA5 


300 


0A5 


310 


0A5 


320 


0A5 


3 30 


QAS 


340 


, 0A5 


350 


aA5 


360 


QA5 


3 70 


QA5 


380 


0A5 


390 


QA5 


400 


0A5 


410 


QA5 


4^0 


Q45 


4 30 


QA5 


440 


0A5 


450 


0A5 


460 


QA5 


470 


0A5 


490 


QA5 


490 


0A5 


500 


QA5 


510 



SUBROUTINE OAT 

PURPOSE 

TO COMPUTE INTEGRAL (EXPl-KI *FCr(XI/SO«T(Xl . SUMMED OVER X 
FROM TO INFINITY) . 

USAGE 

CALL QA7 IFCT.Y) 

fARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME Of AN EXTERNAL FUNCTION SUBPROGRAM USED- 

y - THE RESULTING INTEGRAL VALUE- 



SUBROuriNES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUapflOGBAH FCTUI MUST BE FURNISHED 
BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF T-POINT GENERALIZED GAUSSIAn- 
LAGUERRE QUAOHATURE FORMULA, WHICH INTEGRATES EXACTLY, 
WHENEVER FCTIXI IS A POLYNOMIAL UP TO DEGREE 13. 
FOR REFERENCE , SEE 

CONCUS/CASSAT T/JAEHNIG/MELSY, TABLES FOR THE EVALUATION OF 
INrEGRALEX*»9eTA*EXPI-X»*F(Xlt SUMMED OVER X FROM TO 
INFINITYI BY CAUSS-LAGUERRE OUAORATURE, MTAC. VOL.17, 
ESS. 83 (19631, PP. 245-256. 



SUBROUTINE QA7(FCT,Yl 



X= 13.52826 

y- . 1725718E-7*FCT( 

X^l I .93999 

Y=r*.9432 969E-^»FC 

X = 7.554091 

Y=Y*.0007I01852*FC 

X=4. 389793 

Y=Yt.0l57O0Ll»FCT( 

X^2. 180592 

Y = Y*.1370Ui»FCT(X 

X=. 7 721379 

y = Y*.5462U2»FCT(X 

X=.085il54« 

v=Y+ i.0728i2*Fcr( x: 

RETURN 
ENO 



T(X) 
TiXI 



QA7 


10 


QAJ 


20 


QA7 


30 


0A7 


40 


QA7 


50 


QA7 


60 


QA7 


70 


QA7 


80 


QA7 


90 


QA7 


100 


0A7 


no 


qA7 


120 


QA7 


130 


QAI 


140 


QA7 


150 


QA7 


160 


QA? 


170 


0A7 


180 


QA7 


190 


aA7 


200 


QA7 


210 


0A7 


ZZO 


0A7 


230 


QA7 


240 


0A7 


250 


-QA7 


260 


QA7 


2 70 


OAf 


260 


QA7 


290 


0A7 


300 


QA7 


310 


QA7 


320 


0A7 


330 


QA7 


340 


,0A7 


350 


QA7 


360 


QA7 


3 70 


QA7 


380 


QA7 


390 


QA7 


400 


QA7 


410 


0A7 


420 


QA7 


430 


OAT 


440 


QA7 


45U 


QA7 


460 


QA7 


4 70 


QAI 


480 


QA7 


490 


QA7 


500 


QA7 


510 


9AI 


>iQ 


QA7 


5 30 


QA7 


540 


OAT 


550 
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sueaouriNE qas 

PURPOSE 

TO COMPUTE INrEGRALIEKP(-XI*FCT(XI/SQftT(XI, SUMHEO OVER X 
FROM TO INFINirn , , 

USAGE 

CALL OAS IFCr.Y) 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

fCT - THE NAME OF AN EXTERNAL FUNCTTON SUBPROGRAM USED. 

V - THE RESULTING INTEGRAL VALUE. 

REMARKS 
NONE 

SUSftOUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTIX} MUST 8E FURNISHED 
BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF S-POINT GENtRALIZtO GAUSSIAN 
LACJ£«RE QUADRATURE FORMULA, MHICH INTEGRATES EXACTLY, 
WHENEVER FCT(X) IS A PIXYNOMIAL UP TO DEGREE 15. 
FOR REFERENCE, SEE 

CONCUS/CASSATT/JAEHNIG/MELflV, TABLES FOR THE EVALUATION OF 
INTEGRAL(X*«BeTA«£XP(-XI*FtXl, SUMMED OVER X FROM TO 
INFINITY) BY CAU5S-LAGUERRE QUftDRATURE , MTAC , VOL.17, 
ISS.93 119631 , PP. 245-256. 



SUBROUr INt QA8(FCT, 



X-21 .99*?T 

Y = .53C96l5E-q»FCnx 
X = l<r. 97262 

Y = Y*.464l962E-6«Fr:i 

X = lO.O<i3i2 
Y^Y*.5423720£-'i"fCr 

Y-Y + .0Ol86<i568*FCTl 

X=3. 809476 

Y=Y» .02^76062*FCT(X 

X=1.90511't 

Y = V*. 1676ZC1*FCT(X1 

X=. 6772491 
Y=Y».56l2')49*FCr( Kl 

X=.07<.79139 

Y^Y* t.O l5959«FCr(XI 

RETURN 
tND 



QA8 
.QA8 
QA8 
QAS 
QA6 
OAB 
QAS 
OAd 
QAS 
OAS 
QAS 
OAe 
QAB 
QA6 
QAB 
QA8 
OAS 
OAB 
QAS 
QAB 
OAS 
QAS 
QAS 
QAB 
OAS 
OAS 
OAS 
QAS 

QAS 

QAS 
QAS 

QAB 

QAS 
QAS 

, . 0A8 

QAB 
QAB 

0A6 
QAS 
QAB 
QAS 
QAB 
QA8 
QAS 
DAB 
QAB 
QAS 
QAS 
0A8 
QAB 
QAB 
OAB 
QAB 



100 
110 
120 

130 
140 
150 
160 
ITC 
ISO 
190 

2 00 
210 
220 
230 
240 
250 
260 
2T0 
2B0 
290 
300 
310 
no 
330 
340 
3S0 
360 
370 

3 BO 
390 

400 
410 



QAB 
QAB 



4 90 

500 
510 
520 

5 30 
540 
550 
560 
570 



SUBROUTINE QA9 

PURPOSE 

TO COMPUTE lNrEGRAL(EXPI-xi*fCT)XI/SORT(Xl , SUMMED OVER X 
FROM TO INFINITY). 

USAGE 

CALL QA9 (FCT.Y) 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

OeSCRIPTIGN OF PARAMETERS 

FCT - THE NAHt OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 

Y - THE RESULTING INTEGRAL VALUE. 

REMARKS 

Ncwe 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTIXI HUST BE FURNISHED 
6Y THE USER. 

HETHaO 

EVALUATION IS DONE BY MEANS OF 9-POINT G€NERALIZ£0 GAUSSIAN 
LAGUERRE QUADRATURE FORMULA, MHICH INTEGRATES EXACTLY, 
MHENEVER fCT( XI IS A POLYNOMIAL UP TO DECREE 17. 
FOR REFERENCE, SEE 

CONCUS/CASSATT/JAEHNIG/MELBY, TABLES FOR THE EVALUATION OF 
INTEGRAL(X**aETA*EXP(-X)*F{XI, SUMMED OVER X FROM TO 
INFINITY) BY GAUSS-LAGUERRE QUADRATURE, HTAC, VOL , 1 7 , 
ISS.83 119631, PP. 245-256- 



SUSROUTINE 0A9<FCT,VI 



X=25. 48598 

Y=. 1565640E-10*FCT( Xt 

X=18,C4651 

Y=Y*.2093441E-7»FCT(XI 

X=12. 77183 

Y = Y«-. 362130 9E-5*FCT(X1 
X=8. 76975T 

Y = Y*.00C1836225»FCTUI 
X=5,6944Z3 

Y=Yt.00 37 7T045*FCT( x) 
X= 3. 369176 
Y=Y*.O37280OB*FCTIXl 
X= 1.692 395 
Y=Y+.1946035*fCT)X) 
X=. 6032364 

Y = Y*.5696146«FCT( X} 
X=. 06670223 

y = Y*.96699l4*FCT( X) 

RETURN 

END 



QA9 
.QA9 
QA9 
QA9 
QA9 
QA9 
QAS 
0A9 
0A9 
QA9 
QA9 
QA9 
QA9 
0A9 
QA9 
QA9 
0A9 

aA9 

0A9 
QA9 
QA9 
QA9 
QA9 
QA9 
QA9 
I-QA9 
0A9 
0A9 
QA9 
QA9 
0A9 
QA9 

QA9 

QA9 
. .QA9 

QA9 
QA9 
QA9 
QA9 
QA9 
QA9 
QA9 
QA9' 
QA9 
QA9 
QA9 
QA9 
QA9 

QA9 

OAq 
QAS 

0A9 
QA9 
0A9 
QA9 
QA9 
QA9 
QA9 
QA9 



100 
110 

120 
130 
140 
ISO 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 

2ac 

290 

300 
310 
320 
3 30 
340 
350 
360 
3 70 
380 
390 
400 
410 
420 
430 

440 

450 
460 



500 
510 
520 
5 30 
540 
550 
560 
570 

5 80 

590 



SUBROUTINE DQA8 

PURPOSE 

TO COMPUTE INTEGRAL(EXP(-XMFCTIX1/S0RT(X), SUMMED OVER X 
FROM TO INFINITY) . 

USAGE 

CALL 0QA8 (FCT.YI 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUBPROGRAM USED. 
Y - THE RESULTING OOUBLC PRECISION INTEGRAL VALUE. 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCTIXI 
MUST BE FURNISHED BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF B-POINT GENERALUEO GAUSS- 
LAGUERRE QUADRATURE FORMULA, MHICM INTEGRATES EXACTLY 
WHENEVER FCT(X» IS A POLYNOMIAL UP TO DEGREE 15. 
FOR REFERENCE. SEE 

SHAD/CHEN/FRANK. TABLES OF ZEROS ANO GAUSSIAN WEIGHTS OF 
CERTAIN ASSOCIATED LAGUERRE POLYNOMIALS AND THE RELATED 
GENERALIZED HERMITE POLYNOMIALS, IBM TECHNICAL REPORT 
TROO-UOO IMARCH 19641, PP. 15-16. 



20 



SUBROUTINE OQABIFCT.YI 



DOUBLE PRECISION X.Y.FCT 

X= . 2 198 42 T2B4096265 1D2 

Y^.53O96I494802236450-9*FCTIXl 

X', 1497262 708842639302 

y=y*,464196l6«9 7 3042l3D-6*FCT(Xl 

X=. 1009 332 3 6752 2134 302 

Y-Y*.54 2 3 72018 50 75 7630D-4*FCTt K) 

X=. 648 314542862 71 70401 

r = Y». I 96456801 7248361 1D-2«FCT( XI 

X=. 3 809476361484907 101 

Y=Y+.25 76062307101994 7D-I«FCr( XI 

X = . 1905 1 13635031428 401 

Y = Yt-. 16 7620062 79797166DO*FCT 1X1 

X=. 6772490876492891 500 

Y=Y».56 129491 705706 735DO*FCTt XI 

X=. 74791882596618270-1 

Y=¥t,lOl585S958033227501*FCTIXJ 

RETURN 

END 



OQAB 
..DQA8 
OQAB 
OQAB 
DQAS 
OQAa 60 
DQAB 70 
0QA8 80 
00 AB 90 
DQAS 100 
DQA8 110 
OQAB 120 
DQAB 130 
O0A8 140 
OQAfl ISO 
OQAB I6G 
OQAB 170 
0QA8 180 
OQAB 190 
DQAS 200 
OQAB 2 10 
O0A6 220 
0QA3 230 
OQAB 240 
DQA8 250 
D0A8 260 
OQAB 270 
DQA8 2 BO 
0QA8 290 
0QA6 300 
OQAB 310 
OQAB 320 
DQAS 330 
OQAB 340 
00 A8 350 
.00 AS 360 
OOAS 370 
OQAB 360 
OQAB 390 
0QA6 400 
DQAS 410 
DQAS 420 
D0A8 4 30 
DQA8 440 

ooaa 450 

DQia 460 
DQAS 470 
DOAB 480 
OQAS 490 
0QA8 500 
DQA8 510 
OQAS 520 
OQAB 5 30 
OQAB 540 
OQAB 550 
OQAS 560 
DQA8 5 70 
DQAS 580 
DQAS 590 
DQAB 600 



SUBROUTINE QAIO 

PURPOSE 

TO COMPUTE INTEGRAL(EXP(-Xt*FCT(X)/SQRTIXI, SUMMED OVER X 
FROM rO INFINITY). 

USAGE 

CALL QAIO IFCT.Y) 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM USED. 
Y - THE RESULTING INTEGRAL VALUE. 



SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTIX) MUST BE FURNISHED 
BY THE USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF ID-POINT GENERALIZED GAUSS- 
LAGUERRE QUAORATURE FORMULA, WHICH INTEGRATES EXACTLY, 
WHENEVER FCTIXI IS A POLYNOMIAL UP TO OEGRfE 19, 
FOR REFERENCE. SEE - 

CONCUS/CASSATT/JAFHNIG/HELBV, TABLES FOR THE EVALUATION OF 
INTEGRAL! X'"»6ErA*EKP(-XI*F(X) , SUMMED OVER X FROM TO 
INFIMTY) 6Y GAUSS-LAGUERRE QUADRATURE, MTAC. VOL.17. 
ISS.83 (1963), PP. 245-256. 



SUBROUTINE QAIOIFCT.YI 



X=29. 02495 

Y=.4458 787E-t2«FCT( X) 

X = 21. 19389 

Y=Y*. B79 8682E-9«FCT ( X» 
X = 15. 56116 

Y-Y*.2172139E-6*FCT(XI 
X=ll. 20813 

Y=Y*.15605llE-4*FCT(Xl 
Xx7. 777439 

Y=yt.0004566773»FCr(X» 

X=5.0S4908 

Y=Y+.006487547»FCT(X) 

X=3. 022513 

if=Y*.04962104*fCriX t 

«=l. 522944 

r=Y*.2180344*FCT(XI 

(=.5438675 

'=Yt.5733510*FCT{XJ 

;=. 06019206 

' = Yt.9244a73»FCriX) 

;eTURN 



90 



QAIO 

..QAIO 

QAIO 

QAIO 

QAIO 

QAIO 

QAIO 

OALO 

QAIO 

QAIO 100 

QAIO 110 

QAIO 120 

OAIO 130 

QAIO 140 

QAIO 150 

QAIO 160 

QAIO 170 

QAIO ISO 

OAlO 190 

QAIO 200 

QAIO 210 

QAIO 220 

QAIO 230 

QAIO 240 

QAIO 250 

QAIO 260 

OAIO 270 

QAIO 280 

QAIO 290 

QAIO 300 

QAIO 310 

OAIO 320 

QAIO 330 

QAIO 340 

..QAIO 350 

QAIO 360 

QAIO 370 

QAIO 380 

QAIO 390 

QAIO 400 

QAIO 410 

QAIC 420 

OAIO 430 

QAIO 440 

QAIO 450 

OAIO 460 

QAIO 470 

BAltJ 4flO 

OAIO 490 
QAIO 500 
QAIO 510 
QAIO 520 
QAIO 530 
QAIO 540 
QAIO 550 
QAIO 560 
OAIO 570 
QAIO 5B0 
QAIO 590 
QAIO 600 
QAIO 610 
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SUBROUTINC 00AI2 

PURPOSE 

TO COMPUTE INTEC*«tieXP<-XI*FCTtXI/SWrUI, SUHMED OVER I 
F«OH TO INFINITYI. 

USAGE 

CALL 0QA12 (fCT.VI 

PABAHETER FCT REQUIHES AN EXTERNAL STATENENT 

DESCRtPTION OF PARAMETERS 

fCT - THE NAME OF AN EXTERNAL OOUSLE PRECISION FUNCTION 

SuePROGRAH USED. 
t - THE RESULTING DOUBLE PRECISION INTCSRAL VALUE. 

REMARKS 
NONE 

SUeROuriNES and FUMCTION SUBPROGRAMS RCOUIREO 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCTIX) 
MUST BE FURNISHED BV TH6 USER. 

METHOD 

EVALUATION IS OONE BY MEANS OF 12-POINT GENERALIZED GAUSS- 
LAGUCRRE QUADRATURE FORMULA. WHICH INTEGRATES EXACTLY 
WHENEVER FCT(X) IS A POLYNOMIAL UP TO OeGR£6 23, 
FOR REFERENCE f SEE 

SMO/CHEN/FRAIW, TABLES OF ZEROS AND GAUSSIAN WEIGHTS OF 
CERTAIN ASSOC lATEO LAGUERRE POLYNOMIALS AND THE RELATED 
GENERALIZED MERMITe POLYNOMIALS, IBM TECHNICAL REPORT 
TROO.IIOO (MARCH 1964». PP. 19-16. 



SUBROUTINE OOA12(FCT.YI 



TO 
80 

90 



OOuatE PRECISION X.Y.FCT 

X-. 36 19 136036061 $60202 

Y«. 332873699297 8217 7D-l5*FCr( XI 

X'. 2 766 110877984609002 

V-Y*. 13169240486156)400-1 1 *FCT( XI 

X = .213967559361 66 10 902 

Y- V*. 6092508 5399 751 2780-9*FCH X) 

X«. 1643219508767531 302 

Y-Y*. 80379423*98828590- T*FCT( XI 

X". 1239044796380947102 

Y-Y ♦■.43 16491 40980466T30-5*FCT(KI 

X-, 9075 43423096 120301 

V-Y*. I 1377383272808 7600-3*FCT1 X) 

X>. 63699753880306 34 90 1 

Y=Vt . 16473849653768 3490-2»FCT( X) 

X-. 419841 56448784 13201 

faY*. 1409671 162ai4S3420-l*FCT( XI' 

X^. 25098480972 3 21 26001 

Y"Y*. 74890941006461 490-l*FCT( XI 

X>.12699B99401039615D1 

Y-Y». 2554 792435691 183200*FCTIKt 

X -.454506681 563 7802 800 

V>V+. 5723590 70692 88 60400*FCTI XI 

X-.5036 18891 1729395 10- I 

Y-Y*^.8$3862 32 7 737398SD0*FCT(XI 

RETURN 

END 



DA 12 
..DA 12 
0A12 
0A12 
0A12 
0A12 
DAW 
0A12 
0A12 
0AI2 100 
0A12 110 
0A12 120 
0A12 1)0 
0A12 140 
0A12 150 
0A12 160 
0A12 170 
0A12 ISO 
0A12 190 
0A12 200 
0A12 210 
0A12 220 
0A12 230 
DA 12 240 
0A12 250 
0A12 260 
0A12 270 
0A12 280 
0A12 290 
0A12 300 
0AL2 310 
0A12 320 
0A12 330 
0A12 340 
0A12 350 
.0A12 360 
0A12 370 
DA12 3S0 
0At2 390 
0A12 400 
0A12 410 
0A12 420 
DAI 2 430 
0A12 440 
0A12 4 SO 
DA12 460 
DA12 470 
DA12 480 
OA12 490 
0A12 500 
0A12 510 
DA 12 520 
0A12 530 
DA 12 540 
0A12 550 
DA12 560 
0At2 570 
OA12 580 
DA 12 990 
DA 12 600 
DA12 610 
0A12 620 
0A12 630 
0A12 640 
0A12 650 
DAI 2 660 
0A12 670 
DA 12 680 



SUBROUTINE 00At6 

PURPOSE 

TO COMPUTE lNTEGRAL(€XP|-XI*FCr(X)/SORr(XI, SUMMED flVER X 
FROM TO INFINITYI. ■ 

USAGE 

CALL DQA16 4FCT»YJ 

PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT 

OESCRIPriON OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUBPROGRAM USEO. 
Y - THE RESULTING DOUBLE PRECISION INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCTIXI 
MUST 8E FURNISHED BY THE USER. 

METHOD 

EVALUATION IS OONE BY MEANS OF 16-POINT GENERALIZED GAUSS- 
LAGUERRE QUADRATURE FORMULA, WHICH INTEGRATES EXACTLY 
WHENEVER FCTCXI IS A POLYNOMIAL UP TO DEGREE 31. 
FOR REFERENCE, SEE 

SHAO/CHEN/FRANX, TA6LES OF ZEROS ANO 6AUSSIAN HEIGHTS OF 
CERTAIN ASSOCIATED LAGUERRE POLYNOMIALS ANO THE RELATED 
GENERALIZED HERMITE POLVNOHIALS, IBM TECHNICAL REPORT 
TROO.IIOO (MARCH 19641, PP. 15-16. 



SUSROUTINE O0A16tFCT.Yt 



20 



80 



DOUBLE PRECISION X,Y,FCT 

X>. 507 7 722387753708002 

Y=. 1462 135285476832 50- 2 l*FCT(X» 

K=. 4108 166652549120202 

Y=Y+.l 846 34730 730 36 S840-17*FCr(X) 

X=, 3378197048822616602 

Y=Yt-.239468e0341B569730-|4*FCriXl 

X".2 78 314 3821I32 86T6D2 

Y = Y».B4»020422652a950-I2*FCT( XI 

X =.2 28213006935252 802 

Y-Y*. I ia66582926T932770-9*FCT( XI 

X«. 185377431 7860669402 

Y"Y». 8 19766432 9541 7930-8*FCr( XI 

X=. 148 5143134180125002 

Y=Y*. 3148 33558509U 881 0-6*FCTIX» 

X = , 11577033673975 95 7DZ 

Y=Y+. 7 30 1170259124 752 0-5«FCI(XP 

X«. 895500133772339001 

Y»Y*.10e33168l2 3639 9650-3«FCT(XI 

X=. 664221 5 179 741444 OOl 

Y=Y*,l07253673l0559441O-2*FCTIXI 

X». 470672670766 7587201 

Y=Y*.7 3097a06533088560-2*FCT(XI 

X=, 312460105070214*301 

Y = Y*. 35 10685 76631 46 861 D-1 •FCT ( XI 

X=. 18 77931 50 7696074 301 

V=Y*,12091626I911B2 52300*FCT(X1 

X-. 95 35531 55390865500 

Y«Y». 30 25394681 532849 7D04FCT I XI 

X = .34220Ol 560 1094 76 800 

Y»Vt. 5549 162 84605 05 9B0DO*FCT(X) 

X=. 379629 145753 134550-1 

¥"Y*- 7504767051 85604800«FCT< X) 

RETURN 

ENO 



0AI6 
.0A16 
0A16 
0A16 
DA16 
0A16 
DA 16 
0A16 
DA16 
0A16 100 
0A16 110 
0A16 120 
DA16 130 
0A16 140 
OA16 150 
0A16 160 
0A16 170 
0A16 180 
0A16 190 
0A16 200 
0AI6 210 
DA16 220 
0A16 2 30 
DA16 240 
DA16 290 
DA16 260 
0A16 270 
0A16 280 
0A16 290 
0AI6 30C 
0AI6 310 
0A16 320 
DAI6 330 
0A16 340 
0A16 350 
.0A16 360 
0A16 370 
0A16 380 
0At6 390 
DAL6 400 
0A16 410 
0A16 420 
0A16 430 
0A16 440 
0A16 450 
0A16 460 
0A16 470 
0A16 480 
0AI6 490 
DA16 500 
DAI6 510 
0A16 520 
0A16 530 
0A16 540 
0AI6 550 
0AI6 560 
0A16 570 
0A16 580 
0A16 590 
0A16 600 
0A16 610 
0A16 620 
0A16 630 
DA 16 640 
0A16 650 
DA 16 660 
DA16 670 
OAU 680 
0A16 690 
0AI6 700 
0AI6 710 
DA 16 720 
0At6 730 
DA 16 740 
DA16 750 
0A16 760 
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SUBROUTINE 00*24 

TO COHPurE INrEGR*L(EXP<-x)*FCT{x)/$Qt)r(JCl , SUMMED OVER X 
FROM TO iNFINtrrt. v 

USAGE 

CALL DQAZ'> tFCT.V) 

PARAMETER FCT REQUIRES AN EXTERNAL STATENeNt 

DESCRIPTION OF PARAMETERS 

FCT - THE MANE OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUBPftOGRAN USED. 
<r - THE RESULTING DOUBLE PRECISION INTEGRAL VALUE. 

REMARKS 

NONE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL DOUBLE PRECISION FUNCTION SUBPROGRAM FCTIXI 
MUST BE FURNISHED BY T»C USER. 

METHOD 

EVALUATION IS DONE BY MEANS OF Z^-POINT GENERALIZED BAUSS- 
LACUEftltE OUAOIUTURE FORMULA. MHICH INTEGRATES EXACTLY 
WHENEVER FCTIXI IS A POLTNOHIAL UP TO DEGREE 47. 
FOR REFERENCE, SEE 

SHtO/CHEN/FRANK. TABLES OF /EROS ANO GAUSSIAN WEIGHTS OF 
CERTAIN ASSOCIATED LAGUERRE POLTNOMIALS ANO THE RELATED 
GENERALIZED HERHITE POLYNOMIALS. IBM TECHNICAL REPORT 
TROO.tlOO (MARCH 1964». PP.IS-U. 



SUaROUTINE 0QAZ4IFCT(YI 



20 
)0 



90 
60 



DOUBLE PRECISION X,Y,FCT 

X>. 805962 8081995041 02 

Y«.lSBrtl029215479940-34*FCri XI 

X-. 69068601979)0436902 

Y-Y*,I19692Z53B6«2775 70-29*FCTCXI 

X-. 6020666696305722 303 

Y«Y*.7J700T21603013 400-26*FCT(XI 

X-.5279543252 72B363 0O2 

Y>V». 11129 1 S49 17804 5700-2 2*FCT(KI 

X-. 46 3769 7955 754013 302 

Y«Y*.63T67T46470I02 7690-20*FCT(XI 

X-. 407 II 59a 1 8554910 7D2 

Y=Y*. 1 7460319202373 55iO-lT*FCT( XI 

X". 3565370 351632821202 

V-Y*. 26 3031924531 68 1T0D-15*FCT( XI 

X>. 3110646470904656 902 

Y-r*.2J95179T3095B3 5BT[>-13*FCTI XI 

X-. 2700 140 60564 723560Z 

Y»Y+. 1409 3865163091 TT8D-11*FCT(X) 

X«.Z32B793Z824«T991T0Z 

Y-Y4'.S630«9MT$6763 3820-1 0*FCT(X) 

X«,199Z74Z9BT524246ZD2 

Y«Y*, 1 5860934990330 T650-8*FCT( XI 

X-.16B8967 192852710802 

Y*Y*. 3245028271 79153970- T«FCT(X) 

X". 1415058618728575 902 

Y«V«^.4937317987339S0100-6*FCTf X) 

X >. 1 169069992 605607 302 

V»Y+. 569451738 34696 9620-5*FCT( X> 

X-.94940953300264B801 

T-Y*. 50571980554969 7TeO-4*FCT( XI 

X-. 754770468002345401 

V>Y*. 350 300863602 34 5660-3*FCTI X) 

X>. 5840 73 3271323608 001 

Y-Y + .19 12 78463963 Ba3060-2*FCr( XI 

X>.43642S30769353062D1 

Y-Y*. 83060098239551 050-2*FCT( XI 

X-. 31 1105245514 7713001 

T.Y* . 28889923149962 1990-1*FCT( XI 

X>. 2075 11 2909 852380 601 

Y-Y». 80959353969207 T00-1*FCTI XI 

X-, 1251740632362746401 

r = Y*-. 18 36445941 58570360a*FCr( XI 

K=. 6372902787326687900 

Y-Y», 3 3840 894389128 22100*FCTI XI 

X>=, 229102 3 164926243300 

Y>V4^.50 79230853295Le2000*FCT(XI 

X". 254379965856893590-1 

V-V*. 6220020 6O75592616O0*FCTI XI 

RETURN 

END 



0A24 
..0A24 
0A24 
0A24 
DA24 
DA24 
DA24 
DA24 
0A24 
0A24 100 
DA24 no 
0A24 120 
0A24 lao 
0A24 140 
DA24 150 
0A24 160 
DA24 170 
OA24 ISO 
0A24 190 
0A24 200 
0A24 210 
0A24 220 
0A24 230 
DA24 240 
0A24 250 
0A24 260 
DA24 270 
0A24 280 
DA24 290 
0A24 300 
0A24 310 
0A24 320 
0A24 330 
0A24 340 
0AZ4 390 
.DA24 360 
0A24 370 
0A24 380 
0A24 390 
0A24 400 
0A24 410 
0A24 420 
DA24 430 
0A24 440 
DA 24 490 
DA24 460 
0A24 470 
0A24 480 
DA24 490 
OA24 500 
0A24 510 
0A24 520 
0A24 530 
0A24 540 
DA24 550 
DA24 560 
0A24 5 70 
0A24 580 
0A24 590 
0A24 600 
DA24 610 
DA24 620 
0A24 630 
OA24 640 
DA24 650 
0A24 660 
OA24 670 
0A24 680 
0A24 690 
0A24 700 
0A24 710 
0A24 720 
DA24 730 
0A24 740 
0A24 750 
0A24 760 
0A24 770 
0A24 780 
DA24 790 
0A24 800 
0A24 fllO 
0A24 820 
DA24 B30 
0A24 840 
0A24 850 
DA24 860 
0A24 870 
0A24 860 
DA24 890 
0A24 900 
0A24 910 
0A24 920 



SU8«0UTINE 00432 

puRPOse 

TO COMPUTE INTEGRAL (FXP(-XI*fCI (X)/S0RT(X1 . SUMMED OVER X 
FROM 3 TO INFIfJITYt . ^ 

USAG6 

CALL 0QM2 IFCT.Yl 

PARAMETER FCT RtQUIRES AN EXTERNAL STATEMENT 

DESCRIPTION OF PARAMETERS 

FCT - THE NAME OF AN EXTERNAL DOUBLE PRECISION FUNCTION 

SUBPROGRAM USED. 
y - THE RESULTING D0U9Le PRECISION INTEGRAL VALUE. 

REMARKS 
NONE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL DOUSLE PRECISION FUNCTION SUBPROGRAM FCTIXI 
MUST BE FURNISHED BY THE USER. 

ME TMOO 

EVALUATION IS DONE BY MEANS Of 32^POINT GENERALIZED GAUSS- 
LAGUERRE QUADRATURE FORMULA, MHICH INTEGRATES EXACTLY 
WHENEVER FCTIXI IS A POLYNOMIAL UP TO OECftEE 63. 
FOR REFERENCE . SEE 

SHAO/CHEN/FRANK. TABLES OF 2ER0S ANO GAUSSIAN HEIGHTS OF 
CERTAIM ASSOCIATED LAGUERRE POLYNOMIALS AND THE RELATED 
GENCRALIZEO HEftMITE POLYNOMIALS, IBM TECHNICAL REPORT 
TROO.LIOO (H4RCH 19641, PP. 15-16. 



SUSftOUHNE OQA32(FCT. 



OOUBLE PRECISION 



. Y.FCT 



It ^,U 0/^9926894 7075 7603 

V=. 110 7 14130 7171 J6860-4 7*FCTI XJ 

K^.9 79 16M64260 62T602 

Y = Y». 3 J 5949598021 63 ie40-42*FCr( X) 
K=.8 79561199431 335202 

Y = Vt. 6842276022 51 UaiOO-38«FCT(X) 
X^. 793390865238232002 

Y = Vt. 31 14 73124925952 760-34*FCT( XI 
X=. 7 16684993 595 5142202 

Y=Y». 5099 321 79822599850- 3 1*FCT( XI 

X=.65 19 4426 3 761 35 7820 2 

V^Y*. 395820 71909299 33 70-2 8»FCT1 XI 

X = . 59 1290 2 79 34 391 95 ID 2 

Y=Y* . 15 723595S77851B21D-?5*FCT( X) 

X^. 5359723192614851202 

Y = Y* . 38 23 41 3 766601 2 85 70-2 3*FCT I X) 
X=-48 51 45 8 386 741604802 
Y=Y*.596572556855970230-2l»FCTIXI 
X=. 4382 5886 36990390 202 

Y = Y», 6 3045091 330075628D-19*FCI( X) 
X=.3948879712B36812702 

Y = Y«- .4 70 3^69 421 3516 3620-1 7*FCT( Xt 
X=. 3546 99 61 3961 7 3 78 3D2 

Y=Yt. 2560 186 7626448 76 1 0-15*FCT( X) 
X=.31 74254 3 7906 16606D2 

Y = Y*. 10 43 734 745 3 1 81 6950- 1 3*FCT( K) 
X=.282B4593L949T0531D2 

r = r*. 3^566S146141944C7D-l2*FCr(X) 

X-. 2 50 7 78 565441 9805 302 

r = Y*.79 18 3555J3 89544a0-U*FCT( XI 

K = .2210 707038220600702 

Y=V*. 1523O434500290903O-9*FCT( X) 

X = . 19 3592 7108 7268 71402 

Y = r». 2 34 7 2 5348464 309870 -g»FCTt X) 
X-. 163 2 340536295369402 

Y ^Y*. 29 302506 329522 18 70- 7*FCTIX) 
X^. 144899866907802 7402 

Y = Y*.299106587345449410-6*FC Tl X) 
X = . 12 3506 3821 7 71477TO2 

Y = Y».2')1668050206236920-5*FCT( K) 
X = . 1039 889190 55 5262 402 

Y=Y*. 1 75 7699846 1 700 71 8D-4*FC T ( KI 

X = . 86 2 302985 740592901 

Y=Y*.10 25L85827 15 72 549D-3*FCT(X1 

X=. 7032 95 7 798283893 601 

Y>Y*.50 196739 7026124970-3«FCI( XI 

K=. 5609103457496151301 

YiY*.20 72653199C151 553D-2»FC T ( X I 

K=. 4 35 2 53 45293301 41 001 

Y=Y*. 72 451 739570689iaO-2*FCT(X) 

X=. 3? 59 89 2256456941 901 

Y=Y*.?15120a 101 97582740-1 ♦FCT(X) 

X=. 2 328 33 766821039 7001 

r = Y*.5440 625 790 73T7 83 70-l»FCH XI 

X-. 155550 8231478939 001 

y = r*.ll 74 799639281 9887D0»FCT I XI 

X = .9 59481214500 734 3 00 

Y=Y*. 2 16996698612 37 368D0»FCt(X) 

n=. 478 75647 72 774888500 

V=Yt. 34 33 716B469B16 740D0«FCT(K1 

X = . 1722157241453955800 

Y=Y* .46 59a95 72l2 535 609D0*FCTl X) 

*=, 191 275109684468560-1 

Y=Y+. 5 4275484988260 79bD0«fCT( Kl 

RETURN 

ENO 



OA32 10 
.0A32 20 
0A32 30 
0A32 40 
DA32 50 
DA32 60 
DA32 70 
DA32 BO 
OA32 90 
DA32 100 
0A32 110 
OA32 120 
DA32 130 
0A32 140 
DA32 150 
DA32 160 
0A32 170 
OA32 ISO 
OA32 190 
OA32 200 
0A32 210 
OA32 220 
0A32 230 
OA32 240 
OA32 250 
DA 32 260 
DA32 270 
0A32 280 
OA32 290 
OA32 300 
OA32 310 
OA32 320 
0A32 330 
DA32 340 
0A32 350 
.DA32 360 
DA32 3 70 
0A3Z 360 
0A32 390 
0A32 400 
DA32 410 
DA32 420 
0A32 430 
DA32 440 
0A32 450 
0A32 460 
DA32 470 
0A32 430 
OA32 490 
DA32 500 
DA32 510 
0A32 520 
DA32 530 
0A32 540 
OA32 550 
DA32 560 
DA32 5 70 
OA32 580 
DA32 590 
OA32 600 
OA32 610 
DA32 620 
OA32 630 
OA32 640 
OA32 650 
OA32 660 
0A32 670 
0A32 680 
0A32 690 
DA32 700 
0A32 7 10 
0A32 720 
DA3Z 730 
0A32 740 
OA32 750 
DA32 760 
OA32 770 
DA32 7 80 
OA32 790 
OA32 800 
OA32 810 
0A32 820 
0A32 830 
DA32 840 
DA32 850 
DA32 660 
DA32 870 
OA32 880 
OA32 890 
DA32 900 
0A32 910 
0A32 920 
0A32 930 
DA32 940 
OA32 9 50 
DA32 960 
0A32 970 
0A32 960 
0A32 990 
OA32100O 
DA321010 
OA32I02O 
OA32103O 
DA321040 
DA321050 
0A321060 
OA321070 
DA3210a0 
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Numerical Differentiation 



2. Programming considerations 



Subroutines DGT3 and DDGT3 

These subroutines compute a vector Z={z-^, . . . ,z^ 
of derivative values, given vectors X = (X]^, . . , ,Xjj) 
of argument values and Y = {j-^,...y^ of corre- 
sponding function values. Except at the endpoints Xj 
and Xn, zj is the derivative at xj of the Lagrangian 
interpolation polynomial of degree 2 relevant to the 
three successive points (x^.^, yi_i), (xj, yj) and 
(xi+i, Yi+i). 

1. Mathematical ba ckground 

For i = 1, . . . , n-2 we must find a^ bj, and Cj 
such that 

y.{x) = a.x + b.x + c. 
11 1 1 

passes through (x., y.), (x.^^, y.^^), and (x.^^- 

yi+2^- 

The desired derivative values Zz are given by: 

if i = l 

if i=2 ,n-l 



y|(x^) =2a^x^ + b^ 



^i={^i'-l^) ='Vl^i-'Vl 



An easy computation yields: 
r 



V 



^2"^1 
^2-''l 



yg y^ 



^3 ^2 



V^l V"2 



if i = l 



^i"^i-l ^i+1 ^i ^i+rVl ., . 



x.-x. , X. ,-X. X. -X 

1 i-1 i+1 i i+1 i-1 



if i = 2, . . .,n-l 



^n \-\ ^ \ \-Z \~\ \-Z .^ 

" + — ifi = n (1) 

x-x , x-x „ X -X „ ^ ' 

n n-1 n n-2 n-1 n-2 



Assuming that the vectors X and Y represent a por- 
tion of a three-times differentiable function, Zj in- 
volves a truncation error Tj where: 

V^ ^(vVi^^VW^'"^^ ifi=2,...,n-i 

and 4j is in the closed interval determined by the 
three argument values used in computing z^, i = 
l,...,n. 



The subroutines compute the z^ in serial order ac- 
cording to (1). If n< 3, there is no computation, and 
the error parameter is set to -1. If two of the three 
arguments xj-2, xj_i, xj are identical, j =3, . . . ,n, 
the computation is prematurely terminated, and the 
error parameter lER is set to j. However, z-, , . , . , 
Zj_i are returned if j > 3. In this case zj_j is com- 
puted treating Xj.j^ as the right-hand endpoint. If 
there is no error, lER is set to zero at the end of 
the computation. The output vector Z can have the 
same storage allocation as X or Y. 

For reference see F.B. Hildebrand, Introduction 
to Numerical Analysis . McGraw-Hill, New York/ 
Toronto/London, 1956, pp. 64-68. 



SUBftOUriNE DGT3 

PURPOSE 

TO COMPUTE « VECTOt^ OF OEPIVATIVE VALUES GIVEN VECTORS OF 
ARGUHENT VALUtS *N0 CORRESPONDING FUNCTION VALUES. 



USAGE 

CALL DGT3(X.¥ 



NOIM 



IfR) 



VALUES {OIMENSION 



DESC«IPriaN OF PARAMETERS 

K - GIVEN VECTOR Of ARGUMENT VALUES (DIMENSION NOIHt 

y - GIVEN VECTOft OF FUNCTION VALUES CQP«£SP0N01 NG TO 

(DIMENSION NOIHI 
Z - RESULTING VECTOR OF DERIVATIVE 

NOIll 
NDIH - DIMENSION OF VECTORS X,V AND I 
lEO - FESULTING EfiOOB PAPAMETER 

lER = -1 - NOIM IS LESS THAN 3 

lER = - NO ERROR 

lER POSITIVE - XdEfll = XUER-ll OR XIIERI = 
K(lEB-2) 



REMARKS 

• (U 
(21 



IF (ER = -1,2,3, THEN THERE IS Ml COMPUIATIDN. 

IF lEB = ^,...,N. THEM THE DERIVATIVE VALUES ZIll 

Z(IER-l) HAVE SEEN COHPUTEO. 

(3) I CAN HAVE THE SAME STORAGE ALLOCATION AS X OR V. I 
X OR Y IS DISTINCT FROM 1-, THEN IT IS NCT OESTROVEO. 

SUBHUUTINES AND FUNCTION SUBPBOGPAMS REOUIPED 
NONE 

METHOD 

EXCEPT AT THE ENDPOINTS X{1) AND XINOIM), l\\\ IS THE 
DERIVATIVE AT K(I) OF THE LAGRANGIAN INTERPOLATION 
POLYNOMIAL OF QEOREE 2 RELEVANT TO THE 3 SUCCESSIVE POINTS 
(X(I*M,Y(I»K)I K = -1,0,1. (SEE HILOE0RANO, F.B,, 
INTRODUCTION TO NUMERICAL ANALYSIS, MC GfiAW-HiLL, NEW YORK, 
TCPONTO/LONOON, 1956, PP. 64-68.) 



SUBROUTINE OCT 3 ( K. V, Z , NOT M, lEfi 1 



DIMENSION X( 1>,V{ ll.£( 1) 

TEST OF DIMENSION AND ERROR EXIT IN CASE NOIM IS LESS THAN 3 
IE«=-1 
IF(ND!M-3»8,1.1 

PPEPAFE DIFFEGENTIAvriON LOOP 

1 A«XtlJ 
B*Y( II 
I*? 

D¥Z^X(21-A 
1FI0Y2I2,9.2 

2 DY2={Y(21-B1/0Y2 

START DIFFERFNTUTION I OOP 
00 6 I =3, NOIM 
A=X(|I-A 
lFt»j 3,9,3 

3 A=(YII)-ei/A 

e=x(i)-K(i-ii 

1F(B14,'),< 
* DYI"0Y2 

DV2=(Y( I 1-Y( I-U )/B 

DV3 = 6 

A=XII-1I 

B=nY(i-n 

5 Z( II-DV1»0Y3-0Y2 

6 ;(1-1]*0¥1#0Y2-DVJ 

END DIFFERENTIATION LOOP 

NORMAL EXIT 
IFR=0 
l=NOIH 

7 /i n=DY2*0Y3-DYl 

8 «E TU^N 

fPPOB EXIT IN CASE OF lOEVTICAl ARGUMENTS 
•? !£«= I 
I = T-I 

IF( l-2IB,6. 1 
SNO 



0GT3 10 
.0GT3 20 
0GT3 30 
DGT3 AO 
DOT 3 50 
DGT3 60 
0GT3 TO 
0GT3 80 
0GT3 90 
OGTS 100 
DGT3 110 
DGr3 120 
DGT3 130 
0Gr3 140 
DGT3 150 
DGT3 160 
DGT3 170 
DGT3 180 
OCT 3 190 
DGT3 200 
0Gr3 210 
DGT3 220 
DGT3 2 30 
DGr3 240 
0GT3 250 
DGT3 260 
0GT3 270 
06T3 280 
OCT 3 290 
OCT 3 300 
DGT3 310 
DGr3 320 
OGTS 330 
DGT3 340 
DGT3 350 
OCT 3 360 
0GT3 3 TO 
OCT 3 380 
DGT3 390 
OCT 3 400 
0GT3 410 
0GT3 420 
DGT3 430 
.-DGT3 440 
OCT 3 450 
DGT3 460 
DGT3 470 
0Gr3 480 
0GT3 490 
DGTS 500 
0Gr3 510 
0GT3 520 
DGT3 930 
0GT3 540 
0GT3 550 
OCT 3 560 
DGr3 570 
DGT3 580 
DGT3 590 
DGT3 600 
DGT3 610 
0GT3 620 
0GT3 630 
OCT 3 640 
CGT3 650 
DGT3 660 
DGT3 670 
DGT3 680 
OCT 3 690 
DGT3 TOO 
DGT3 710 
DCT3 720 
0GT3 730 
OCT 3 T40 

m\ m 

OCT 3 760 
OCT 3 7 70 
OCT 3 780 
0GT3 790 
0GT3 BOO 
DGT3 810 
OGTJ 820 
DGTB 830 
0Gr3 S40 
0GT3 850 
0GT3 960 
DGT3 870 
0GT3 B80 
OCT 3 890 
DGT3 900 
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5ue'■^^uII^t i:)0CT3 

TO CCMPUtE A WECICk OT 0£BIVAT1V£ VALUES GIVEN VECfORS Of 
*f<nu«ENI VALUES ANO CnR« eiPC ND JNC f^UNCTION VALUES. '^ 



CALL ODGI3(X,Y,2tNOIH,IERt 

DFSCPJ'^TIOM Cf P*R*nefERS 

K - r.IVtN VECTOR Of OQUBLf PPCCISIJN 4BCUHENT VALUES 

ECrHENSION NDIM) 
y - GIVEN VECrO« Of DOUBLE PRECISION FUNCTION VALUES 

CQPflESPQNnlNG TO X (DIMENSION NDIHl 
; - RESIiiriNG VECTOR OF DOUBte PRECISION DERIVATIVE 

VALUES (DIMENSION NOIHI 
NOIM - Olf-ENSION OF VCCTOfli X,Y AND I 
lEK - RESULTING ERRflK PAHAMeTtR 

UR - -1 - NDIH IS LESS THAN 3 

lEO = - NO ERPOi^ 

lER POSITIVE - X(I£RI = XtIER-1) OH XIIERI « 
xnER-2] 



70 



REMARKS 
< t ) 
(2! 



IF lEf - -1,2,3, THEN THERE IS NO COMPUTATION. 

If lER = -i.^.-.N, THEN THE DERIVATIVE VALUES HI) 

..... ZU£R-n NAVE SEEN COMPUTED. 

Z CAN HAVE THE SANE STORAGE ALLOCATION AS X OR T. I 

K OE Y IS niSTINCT fBOM Z. THEN IT IS NOT OCSTRDYED. 

lES AND FUNCTION SUBPROGRAMS REOUIREO 



METHOD 

fKCEPT AT THE ENOPOINTS X< U ANO XiNOtMl, Zd) IS THE 
DERIVATIVE AT X<I1 OF THE LAGRANGIAN INTERPOLATION 
PCLYNOMIAL OF OtGHEE 2 RELEVANT TO THE 3 SUCCESSIVE POINTS 
(XIM<(I,Y1 l*K) I K = -1,0,1. (SEE HILDEBRANO. F.B., 
INTRODUCTION TO NUMERICAL ANALYSIS, MC GRAW-HILL. NEW YORK/ 
rORCVTr/LONOOM. l')56. PP. 6*-68.l 



SUBPOUTINf DDGT3(X,r,Z,N0IM, lERt 



DINENSIOr; X( 1 1 , Y( 1 1 . Z ( 1 1 

DOUBLE PRECISION X,Y,2,DYl,DY2,OY3,*,B 

TEST OF DIMENSION ANO ERROR EXIT IN CASE NDIM IS LESS THAN 3 
IEP":-I 
If (NDIM-3)B.l, I 

PREPARE DIFFf REMI lAt ION LOOP 
A=K( n 
B=Y( II 
I>? 

OY2=X(21-A 
If (0Y2I2.9,? 
DY2=<Y(?1-BI /0V2 

START DifFECtNTIATION LOPP 
on 6 I>3,NDIM 

A=xm-A 

rFlA13,9,3 
A=(Y<I l-BJ/A 
B=X(!)-X{1-1I 
IFIBK.'),'. 

DY1=DY2 

0Y2=(v(i)-Yt i-iii/e 

0Y3=A 

AsX( I-l) 

P=V( l-l) 

If ( 1-315,5,6 

H 1 l = tiYl»0V3-DY2 

Z(l-II=DY1*OV2-Or3 

ENO OF nl FFERFNT lAT ION LOOP 

NORMAL tXIT 
IEft = 
l=NDIH 

Z«I »=OY2»OY3-DVl 
RETURN 

ERROR EXIT IN CASE 3f IDENTICAL ARGUMENTS 
lER' [ 
1 = 1-1 

IF(!-2IH.8,7 
END 



OOCT 
,.DOGT 
OOCT 
OOGT 
DDGT 
OOGT 

Docr 

OOCT 

DDCT 
ODGT 100 
OOCT 110 
OOGT 120 
ODGT 130 
OOGT 140 
ODGT 150 
DOGT 160 
OOCT 1 TO 
OOCT I BO 
DDGT 190 
ODGT 200 
OOGT 210 
DDCT 220 
OOGT 2)0 
OOGT 2A0 
DOGT 2 50 
ODGT 260 
DOGT 270 
ODGT 2 BO 
OOGT 290 
DOGT 300 
OOGT 3 10 
ODGT iza 
DDGT 330 
DDCT 340 
ODGT J50 
ODGT 360 
OOCT 3T0 
DOGT 3 SO 
DOGT 390 
OOGT 400 
OOCT 410 
DOGT 420 
OOGT 430 
DOGT 440 
.OOGT 450 
DDCT 460 
DDGT 4 70 
DDCT 4S0 
ODGT 490 
OOGT 500 
OOGT 510 
OOGT 520 
ODGT 530 
ODGT 540 
DDGT 550 
OOGT 560 
DOGT 5T0 
DOGT 5 80 
DDGT 590 
OOGT 600 
DDCT 610 
DOGT 6?0 
DDGT 6 30 
DDGT 640 
DOGT 650 
OOGT 66 
OOGT 670 
DDGT 680 
DOGT 690 
DOGT 700 
OOGT TIO 
DDGT 720 
ODGT 730 
DOGT 740 
OOGT 750 
OOGT 760 
OOGT T70 
OOCT 760 
DDGT 790 
ODGT 800 
OOGT 810 
ODGT 830 
ODGT 630 
DDGT 840 
OOGT 850 
OOCT 860 
DDGT 870 
OOGT 880 
OOGT 840 
DDGT 900 
OOGT 910 
ODGT 920 



Subroutines DET3 and DDET3 

These subroutines compute a vector Z =(zjl,. . . .z^) 
of derivative values, given a vector Y = (y]^, .' . . ,yjj) 
of function values whose entries yi correspond to n 
equidistantly spaced argument values xj, with 
Xi - xi_i = h for i=2, . . . ,n. Except at the end- 
points xi and Xjj, zj is the derivative at X; of the 
Lagrangian interpolation polynomial of degree 2 
relevant to the three successive points (xi_i, yi-i), 
(xi, yi), and (xi+i, yi+i). 

1. Mathematical baclcground 

The procedure is that described for subroutines 
DGT3 and DDGT3, but here we have the additional 
relation xj - xj-i = h, a constant, for i=2, . . . ,n. 
This leads to the following expression for the Zj: 



^(-y3+4y2-3y^) ifi=l 



\. 



z = \ (v - V ) 

i i 2h ^-^i+l -^i-l 



if i = 2,...,n-l (1) 



^3y -4y +y ) if i = n 
Zn n n-1 n-i 



Assuming that the vector Y represents the func- 
tion values of a portion of a three-times differenti- 
able function, zj involves a truncation error Tj 
where: 

.2 



T =< 
1 



Vy'^^i^' ^i^^VrVl^ ifi = 2,...,n-l 



^y'"(4,),4„e[x^_2,x^] ifi = n 



In addition to these truncation errors, roundoff 
errors may be of considerable magnitude. Supposing 
that each of the ordinates yj can be in error by ±f, 
e >0, the magnitude |Rj| of the corresponding error 
Rj in the calculation of zj can be as large as: 



R. 



4e 



\ !h) 



if i = l, n 



if i = 2. 



,n-l 
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Since small truncation errors generally require 
small |h| , while small roundoff errors generally 
require large |h| , it is reasonable to choose h so 
that |Ti| « |Ri[. 



If M = sup y '" (^) , where ^ e [ xj , x„] , and if we 
regard only the inner points X2, . • . , Xn-i, we find 
that 



optimum 



±1. 



^JT/M, 



and the magnitude JEj | of the total possible error Ej 
in Zj is given by: 



I^J 



j3.3 ^^€^M ifi = l,n 



,1.1 Yc^M if i=2,...,n-l 



2. Programming considerations 

The subroutines compute the zj in serial order ac- 
cording to (1). If n < 3 or if h = 0, there is no com- 
putation, and the error parameter lER is set to -1 
or 1 respectively. Otherwise lER is set to zero at 
the end of the computation. The output vector Z can 
have the same storage allocation as Y. 

For reference see F. B. Hildebrand, Introduction 
to Numerical Analysis. McGraw-Hill, New York/ 
Toronto/London, 1956, pp. 82-84. 



SUBROUTINE DET3 

PURPOSE 

ro CDMPUrE A VECTOR OF 0€RIV*TrwE ViLUES GIVEN A VECIOR OF 
FUNCTION VALUES MHOSE ENTRIES COfHESPONO TO EOUIOI STANTLY 
SPACED ARGUMENT VALUES. 

USAGE 

CALL DET3(K.V,;.N0IM, lERI 

OESCRIPTION Of PARAMETERS 

M - CONSTANT 0£FFER£MC£ BETWEEN SUCCESSIVE ARGUMENT 

VALUES (H IS POSITIVE IF THE ARGUMENT VALUES 

INCREASE AND NEGATIVE OTHERUISE) 
V - CrVEN VECTOR OF FUNCTION VALUES lOIMENSION NOIMI 

Z - RESULTING VECTOR OF DERIVATIVE VALUES IDINENSION 

NDIM) 
NOIH - DIMENSION OF VECTORS Y AND Z 
lER - RESULTING ERROR PARAMETER 

lER - -I - NOIM IS LESS THAN 3 

IE1 = - NO EIRDR 

I6R = 1 - H = 

REMARKS 

III If lER - -1,1, THEN THERE IS NO COMPUTATION. 

(21 Z CAN HAVE THE SAME STORAGE ALLOCATION AS Y. IF Y IS 

DISTINCT FROM Z, THEN IT IS NOT DESTROYED. 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

IF X IS THE (SUPPRESSED) VECTOR OF ARGUHENT VALUES, THEN 
EXCEPT AT THE ENdPOlNTS Xll) ANO XINDIM), Z(I| IS THE 
DERIVATIVE AT X( I t OF THE LACRANGIAN INTERPOLATION 
POLYNOMIAL 0*" DEGREE Z RELEVANT TO THE 3 SUCCESSIVE POINTS 
(X<I«-K),YII*K1 ) K - -1,0,1. («E HILOESRANO, F.8., 
INTRODUCTION TO NUMERICAL ANALYSIS, MC-G«AM-HiLL, NEW YORK/ 
TORONTO/LONDON, 1S56, PP. 62-84.) 



♦0 



TO 



SUBROUTINE DEI 3< H. Y, Z ,NDIH, I€R I 



DIMENSION Yl ll.Ztl) 

TEST Of DIMENSION 
IFtN0|M-3)*, 1,1 

TEST OF STEPSIZE 

1 IF(H12,5,2 

P(»EP*Pt DIFFERENTIATION LOOP 

2 HH=.5/H 
VY=Y(NDIH-2I 
B=Y(2)»Y(Z» 
e=HH*(B#P-Y(3)-Y(ll-Y(ll-Y(n) 

START DtfFERENTIATIW LOOP 
DO 3 1=3, NOIM 

A=e 

e»HH*(Y( Il-T( l-2( I 

3 ZU-2I-A 

END OF DIFFERENTIATION LPOP 



0ET3 
..DET3 
DETJ 
DET3 
DET3 
0ET3 

oeT3 

0ET3 

DET3 90 
0Er3 LOO 
DET3 110 
0ET3 120 
0ET3 130 
0ET3 lAO 
DET3 ISO 
0ET3 160 
0ET3 ITO 
0ET3 180 
OETS 190 
DET3 200 
0ET3 2tO 
DET3 220 
0ET3 230 
DET3 240 
DET3 250 
OCT) 260 
0€T3 2T0 
DET3 280 
OCT) Z'^O 
0ET3 300 
0ET3 310 
0ET3 320 
DETS 330 
0CT3 340 
0ET3 350 
0ET3 360 
DEIS 3T0 
0£T3 3flO 
DET3 390 
DET3 400 
0ET3 410 
DET3 tfiO 
Oen 430 
..DET3 440 
DET3 450 
0ET3 460 
0ET3 470 
DET3 460 
0ET3 490 
0ET3 500 
DCT3 510 
DET3 520 
OCT 3 530 

DET3 550 
DET3 560 
0ET3 5T0 
0ET3 5B0 
OCT 3 590 
D€T3 600 
0ET3 610 
0ET3 620 
DET3 630 
0ET3 640 
DET3 650 
DET3 660 
0ET3 670 
0ET3 680 



NORMAL EXIT 

lER^^O 

A>Y(HOIM-1I*Y(NOIM-1I 

ZIN0IM|.HH*(V(N0IM|+T(NDIM1*Y(NDIM)-A-A*YVI 

Z(NOIM-l}>e 

RETURN 

ERROR EXIT IN CASE NOIM IS LESS THAN 3 
IER=-1 

RETURN 

ERROR EXIT IN CASE OF ZERO STEPSIZE 
IER=1 

fETURN 
END 



DET3 690 
OET3 700 
DET3 710 
DET3 720 
0ET3 730 
0EI3 T40 
0ET3 750 
0ET3 760 
0ET3 770 
DET3 780 
DET3 790 
0ET3 000 
DET3 aiO 
0ET3 820 
0ET3 8 30 
0ET3 840 



SUBROUTINE DDET3 

PURPOSE 

TO CCMPUTE A VECTOR OF DERIVATIVE VALUES GIVEN A VECIOR OF 
FUNCTION VALUES WHOSE f NTR lES CORRESPOND TO EQUIOI ST ANTLY 
SPACED ARGUMENT VALUES. 

USAGE 

CALL 0DEr3(H,¥,Z,ND|M,IE«) 

DESCRIPTION OF PARAMETERS 

H - DOUBLE PRECISION CONSTANT DIFFERENCE BETWEEN 

SUCCESSIVE ARGUMENT VALUES (H IS POSITIVE IF THE 

ARGUMENT VALUES INCREASE ANO NEGATIVE DTHERWISEI 
Y - GIVEN VECTOR OF DOUBLE PRECISION FUNCTION VALUES 

(DIMENSION NDIMI 
I - RESULTING VECTOR OF DOUBLE PRECISION OERIVATIVf 

VALUES lOIMENSION NOIH] 
NCIM - DIMENSION OF VECTORS Y ANO I 
lER - RESULTING ERROR PARAMETER 

lER = -I - NOIH IS LESS THAN 3 

IFR = - NO ERROR 

lEP :. 1 - H • 

REMARKS 

III IF lER > -1,1, THEN THERE IS NO COMPUTATION. 
(21 Z CAN HAVE THE SAME STORAGE ALIOCATION AS V. IF Y IS 
DISTINCT FROM Z, THEN IT IS NOT DESTROYED. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

NONE 

METHOD 

IF X IS THE (SUPPRESSED) VECTOR OF ARGUMENT VALUES, THEN 
EXCEPT AT THE ENOPQINTS XIU ANO XINDINI, ZIIl IS THE 
DERIVATIVE AT X( t 1 OF THE LAGRANGIAN INTERPOLATION 
POLYNOMIAL OF DEGREE 2 RELEVANT TO THE 3 SUCCESSIVE POINTS 
IXn*KI,Y(I*Kn K » -!,0,1. (SEE HILOEaRAMD, F.B., 
INTRODUCTION TO NUMERICAL ANALYSIS* MC-6RAW-HILL, NEW YORK/ 
TORONTO/LONDON. 1956. PP.B^-Btt.t 



SUBROUTINE D0ET3I H, V,Z , NOI M. lER) 



DIMENSION y< DiZll) 

DOUBLE PRECISION H, V, Z, hh, YY, A,B 

TEST OF DIMENSION 
[f (NOIH-314, 1, 1 

TEST OF STEPSIZE 

1 lf(HI2.5.2 

PREPARE DIFFERENTIATION LOOP 

2 HH=.5D0/H 
YY^YINDIH-21 
P=Y{2I»Y(2I 
B=HM*(B^B-Y(3)-Y( l)-Y( n-VI II ) 

START DIFFERENTIATION LOOP 
DO 3 I-3.NDIH 
A>B 
8-HH*<YI l)-V( 1-211 

3 i(I-2J=A 

END OF DIFFERENTIATION LOOP 

NORMAL EXIT 
lER^O 

A=Y(NOrM-l»*Y(NOIM-l I 

ZINOIMI=HH*(YINOIM)tY(NDIKI*Y(NOIMl-A-A»YYl 
ZINDIH-ll-6 
RETURN 

ERROR EXIT IN CASE NOIM IS LESS THAN 3 

4 IER=-l 
RETURN 

EfiHOH EXIT IN CASE OF /E^O SrfPSfZE 

5 ie«=i 

RETURN 
END 



DOT 3 10 
..00T3 20 
DOT 3 30 
DOT 3 40 
DOT 3 50 
DDT3 40 
O0T3 70 
DDT 3 aO 
DDT3 90 
DOT 3 100 
DDT3 110 
DDT 3 120 
0013 130 
D0T3 140 
0DT3 150 
DOT 3 160 
DDT 3 170 
DOT 3 180 
DOT 3 190 
DDT 3 200 
D0T3 210 
D0T3 220 
0DT3 230 
DDT 3 240 
DOT 3 250 
DDT3 260 
DOT 3 270 
DOT 3 260 
00T3 290 
D0T3 300 
D0T3 310 
00T3 320 
DOT 3 330 
DDT 3 340 
D0T3 350 
0DT3 360 
DDT 3 370 
0DT3 380 
DOT 3 390 
00T3 -iOO 
DOT 3 410 
0DT3 420 
DOT] 430 
0DT3 440 
..0DT3 450 
DDT 3 460 
DDT 3 4 70 
DOT 3 480 
DOT 3 490 
DOT 3 500 
0DT3 510 
DDT 3 520 
0DT3 530 
DDT3 540 
DDT 3 550 
0DT3 560 
DOT 3 570 
DOT 3 580 
00T3 590 
0013 600 
00T3 610 
DOT 3 620 
0DT3 630 
DOT 3 640 
DOT 3 6 50 
ODTl 660 
DOT 3 670 
DOT 3 680 
DOT 3 690 
DOT 3 700 
0DT3 710 
DOTS 720 
DDT 3 730 
DOT 3 740 
0DT3 750 
DDT 3 760 
0or3 770 
D0T3 7S0 
DOT 3 790 
DDT 3 800 
DDT3 810 
D0T3 820 

QQji m 

00T3 840 
D0T3 850 
DOT 3 860 
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Subroutines DET5 and DDET5 

These subroutines compute a vector Z =(zj, . . . , z^) 
of derivative values, given a vector Y= (y£, . . . , yn) 
of function values whose entries yj correspond to n 
equidistantly spaced argument values xj, with 
Xi - Xi_i = h for i = 2 , . . . , n. Except at the points xj , 
X2, Xn-i, and Xjj, z^ is the derivative at x^ of the 
Lagrangian interpolation poljmomial of degree 4 
relevant to the five successive points (Xj+jj, yi+k)' 
k=-2, -1, ..., 2. 

1. Mathematical background 

For i= 1, . . . , n-4 we must find a^, bj, c^, d-, and 
ei such that 

_ 4 3 2 

y.(x) = a.x + b.x + c.x + d.x + e. 

•'r ' 1 1 1 11 

passes through (Xj+j^, yj+k) for k = 0, . . . , 4. 

The desired derivative values zj are given by: 



.yi(xj) 



3 2 

■- 4a X. + 3b X. +2c X. + d, 
1 1 1 1 1 1 1 

if i = l, 2 



=i = 



yi'-2 (^> = ^S-Z\ ^ '^-2^i ^ 2^i-2^i ^ ^i-2 
if i=3,. . . ,n-2 



3 2 

y-' ,(x.) = 4a ^x. +3b .x. +2c .x.+d 
n-4 1 n-4 i n-4 i n-4 i n-4 

if i=n-l, n 



Using the fact that x^ - Xi_i = h, a constant, for 
i=2, . . . ,n, we get: 



ifi = l 



_(-3y^-10y^ + 18y3-6y^.y^) 
if i=2 



z. 
1 



= < 



i2h(yi-2-«yi-i"*"«Vi-yi+2> 

if i = 3,. . . ,n-2 



(1) 



— (-y . + 6y „ - 18y „ + 10 + 3y ) 
2h ^ •'^n-4 •'^n-3 •'n-2 n-1 •'n' 



12h 



if i=n-l 



-^ (3y -16y +36y „ - 48y +25y ) 
12h ^ •*^n-4 ^n-3 •^n-2 -^n-l -^n' 



if i = n 

Assuming that the vector Y represents the func- 
tion values of a portion of a five-times differentiable 
function, zj involves a truncation error Tj where: 



h^ V 



20 



y(C2)' ^2^t'^i'V '^'=' 



.= \ ^^y^Kh 4,-c[x,_,,x 1 ifi=3.....n-2 



30 



i""- i-2' i+2-' 



-h^ V 
20-y Vl>'«n-i^^V4'\^ ^f'^'^-' 



h^ V 

^y(4,). ^n^'^V4'\^ "' = " 



In addition to the truncation errors, roundoff 
errors may be of considerable magnitude. Supposing 
that the ordinates y^ can be in error by ±C, f > 0, 
the magnitude |Rj| of the corresponding error R^ in 
the computation of z- can be as large as: 






32 e 

3|h| 

19g 

6|h| 

3c 

2|hl 



if i = l, n 



if i = 2, n-1 



if i = 3,. . . ,n-2 
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Since small truncation errors generally require 
small hi, while small roundoff errors generally 
require large |h| , it is reasonable to choose h so 
that |Tj| *^ ]Ri|. 

V 

If M = y \t,) ^ g^jj^ if we regard only the inner 

points X3, . . . ,Xn-2. we find that 



h ^. ~ 2.1 yfTTm 

optimum * 



and the magnitude eJ of the total possible error Ej^ 
in z J is given by: 



9 ^fe\^ 



if i = l, n 



"'^1 



2.5 Ye^M ifi = 2,ii-l 



1.4 Ve^M if i=3,..,,n-2 



SUCRCUTlNt CtJ-i 

PURPOSE 

TD COMPUTE A VECTOR OF DE"IV»Ttwt VALUES ClVf^ * VECTOR OF 
FUNCTION VALUES WHOSE ENTRIES CORRESPOND TC EOUIUI STANTLV 
SPACED AftGUHEMT VALUES. 



USAGE 

ClLL [)tr5(H,y,Z,N0I*' 



lER) 



2. Programming considerations 

The subroutines compute the z^ in serial order ac- 
cording to (1), If n < 5 or if h = 0, there is no com- 
putation, and the error parameter lER is set to -1 
or 1, respectively. Otherwise lER is set to zero at 
the end of the computation. The output vector Z 
may have the same storage allocation as Y. 

For reference see F. B. Hilderbrand, Introduction 
to Numerical Analysis. McGraw-Hill, New York/ 
Toronto/ London, 1956, pp. 82-84. 

0ET5 10 
.0€T5 ?0 
DET5 30 
0ET5 40 
DETS 50 
DET5 60 
0ET5 TO 
DETS BO 
0615 90 
OETS 100 
DET5 llO 
DeT5 120 
0ET5 130 
OETS L40 
0£T5 150 
DETS 160 
DETS ITO 
DEIS L0O 
DETS 190 
GETS 200 
DETS 2L0 
DETS 220 
0ET5 230 
DETS i*0 
DETS 250 
0615 260 
DETS 270 
DETS 280 
OeT5 290 
DETS 300 
OETf 310 
DETS 320 
OCTS 330 
DETS 340 
DET5 350 
DETS 3*0 
OfT5 iJO 
OETS 380 
DETS 340 
0€t5 *00 
0ET5 MQ 
OCrS 420 
DETS 430 
.DETS 4«0 
DETS 450 
DETS 460 
DETS 470 
DETS 480 
0€T9 490 
OCT 5 500 
DETS 510 
D€rS S20 
OETS 5 30 



NO IN 

lER 



DESCRIPTION PF PARAMETERS 

H - CONSTANT OlfFEP.ENCE BETWEEN SUCCESSIVE ARGUMENT 

VALUES (H IS POSITIVE IF THE ARGUMENT VALUES 

INCREASE AND NEGATIVE OTHERWISEI 
V - GIVEN VECTOR OF FUNCTION VALUES tOlNENSION NOIN) 
Z - RESULTING VECTOR OF DERIVATIVE VALUES lOIHENSION 

NDINI 

DIKENSION OF VECTORS Y AND 2 

RESULTING ERROR f>ARA*4CTER 

lER = -I - NDIM IS LESS THAN 5 

lER - - NO ERROR 

ICR . I _ H - 

REMARKS 

(1) IF lER - -l.lt THEN THERE IS NO COMPUTATION. 

(2) Z CAN H*VE THE S*NE STORAGE ALLOCATION AS T. If t IS 
DISTINCT FROM Z* THEN IT IS NOT OESIROVEO. 

SIMKCHITINES ANO fUHCTION SUSfftOCRANS RE9Ullt£0 
NONE 

METHOD 

If X IS THE ISUPPRESSEOI VECTOR OF A^tGUNENT VALiiESt THEM 
EXCEPT AT THE POIHTS XI II . XI 2 1 . Kf NDiK-ll MO X(NOfMI« Ull 
IS THE OEFIVATIVE AT Xd I OF THE LAGRANCIAN INTERPOLATION 
POLYNOMIAL OF OEtREE 4 RELEVANT TO THE S SUCCESSIVE POINTS 
IXn*K).YII«Kll K ■ -2,-t,...,2. (SEE HlLOEBRANO. F.B., 
INTRODUCTION TO NUMERICAL ANALYSIS. MC GRAW-HILLt MEM YORK/ 
TORONTO/LONOON, 19S6, PP. i2-A4.l 



SUSROUriNE OETS(H.V,Z»NOIM. lERt 



TEST Of 5TEPSI2E 
t IF(H)2.S.2 

PREPARE DIFFERENTIATION LOOP 

2 HN-.oe333j33/H 
Vr-Y(N0IM-4| 

B-MH»I-Z5.*YllJ*«.»YI2t->«,»Y(3t*l6,*VU»-J.«Y(5ll * 

C-HM*(-3.*Yin-|0.*YI2»»l«,*V(3»-6.«V(*|*Y(5|| 

START DIFFERENTIATION LOnp 
DO i I-9.N0IH 
US 
8-C 

C-HH«IVII-4l-V(II*f,*(v<l-lt-r(l-3M) 

3 Z(I-4I>A 

END OF OIFFERENTIATION tOOP 

MRMAt EXIT 

lEK-O 

A.MH*l-YY*6.*VtMDIM-3l-H.*V(MO|„-2,,io.*YINO|M-ll»3.*VI-D|-|| 

OZ(NOIMI-HH«(3..YY-U..YINOIN-3J»3*..Y(NOIH-2T:«. iYUoIl-n 
I «2S.«V(N0IMII 

Z(N0IM-1|-A 

Z(N0IM-2I-C 

I(NDIH-3I-B 

RETURN 

ERROR EXIT IN CASE NOIM IS LESS THAN 5 
♦ lER — I 
RETURN 

ERROR EXIT IN CASE OF ZERO STEPSIZf 
S lER-l 
RETURN 
END 



OETS 

OETS 

DETS 

OETS 

0ET5 

OETS 

OETS 

OETS 

OETS 

DETS 

OETS 

OETS 

OCT? 

PETS 

DCTS 

OCT) 

OETS 

0ET5 

0ET5 

DET9 

OETS 

OCT} 

DETS 

DETS 

OETS 

OETS 

DETS 

OETS 

OCT 5 

OETS 

DETS 

OETS 

0ET5 

OETS 

DCTS 



540 
550 
SM> 
5T0 
580 
S90 
600 
610 
620 
630 
640 
6SO 
660 
6T0 
680 
690 
TOO 
TIO 
720 
TJO 
740 
750 
T»0 
7T0 
7flO 
T90 
BOO 

810 

820 

830 

840 

8S0 

860 

870 

880 



SUBROUTINE OOCTS 

PURPOSE 

TO COMPUTE A VECTOR OF DERIVATIVE VALUES GIVEN A VECTOR OF 
FUNCTION VALUES WHOSE ENTRIES CORRESPOND TO EQUIOI STANTtV 
SPACED ARGUMENT VALUES. 

USAGE 

CALL 00ET5(H,V,Z*N0IM,IERI 

OESCfilPTION OF PARAMETERS 

H - DOUBLE PRECISION CONSTANT DIFFERENCE BETWEEN 

SUCCESSIVE ARGUMENT VALUES <H IS POSITIVE IF THE 

ARGUMENT VALUES INCREASE MO NEGATIVE GTHERWISEI 
T - GIVEN VECTOR OF DOUBLE PRECISION FUNCTION VALUES 

(DIMENSION NOIH) 
Z - RESULTING VECTOR OF DOUBLE PRECISION DERIVATIVE 

VALUES 10INENSIDN NDIM) 
NOIH - DIMENSION OF VECTORS V ANO Z 
lER - RESULTING ERROR PARAMETER 

lER - -I - NDIM IS LESS THAN 5 

lER - - NO ERROR 

lER - I - H » 



10 
20 
30 



REMARKS 
111 
121 



IF lER > -Ul, THEN THERE IS MO COMPUTATION. 
I CAN HAVE THE SAME STORAGE ALLOCATION AS V. 
DISTINCT FROM 2, THEN IT IS NOT OCSTROVED. 



SUeROUTlNES AND FUNCTION SUBPROGRAMS REQUIRED 
HONE 

METHOD 

IF X IS THE fSUTPRESSEDI VECTOR OF ARCUItfNT VALUES. THEN 
EXCEPT AT THE POINTS X( tl.XI 21 *K(N0IM-1I ANO X(NOIN)« 2111 
IS THE DERIVATIVE AT I(l| OF THE LAGRANCi AN INTERPOtATION 
POLYNOMIAL Of DEGREE 4 RELEVANT TO THE 5 SUCCESSIVE POINTS 
(Xn»Kl,V(l-»K>l K - -2.-1.... .2. (SEE WLDEBRANO, F.R., 
INTRODUCTinN TO NUMERICAL ANALYSIS. MC OKAW-HILL. NEW YORK/ 
TORONTO/LONDON. 1956. PP. 82-84. I 



SUBROUTINE DDETSIH.V.Z .NOIH. lERI 



DIMENSION Ylll.ZUI 



TEST OF DIMEKSION 
IFtNOIM-5l4,t.l 



DIMENSION YUl.Zdl 
OOUSLE PRECISION H.V.Z.I 



TEST OF STEPSIZE 

1 IF(HI2.5.2 

PREPARE DIFFERENTIATION LOOP 

2 MM-.Oa33333333333333300/H 
YY-YIHOlH-41 

B-HH*I-2S.00*V(1 |*4B.D0*Y(2l-36.00*Y(3l*16,00*Vt41-3.00«VIS» » 
C-HH*l~3.Da«V( ll-10.DO*YI2»«18.D0«V|3l-6.0O»YI*l#Y(S|l 

START DIFFERENTIATION LOOP 
DO 3 l-S.NOIM 
A-8 
B-C 
C.HH*IVII-4l-Y(tl«a.0O«(Y(I-l)-V(l-3IM 

3 ZU-6I-A 

END OF DIFFERENTIATION LOOP 

NORMAL EXIT 

I «3.00*Y(N0IMII 

0Z(NOIM|-HH«( 3.0O«TT-16.OO«YINOIH-3l*36.00*Y(NO|H-2l 

1 -48.0O*Y(NDIM-|} + ?S.O0*YIN0fNn 

2(N01M-1)>A 

Z(N0IM-2)-C 

ZINOIH-31-e 

RETURN 

ERROR EXIT 
4 lER— I 
RETURN 



N CASE NOIM IS LESS THAN 5 



ERROR e«IT IN CASE OF ZERO STEPSIZE 
S IER-1 
RETURN 
END 



DOTS 
.DOTS 
DOT 5 
00T5 
DOTS 
DOTS 
DDT 5 

DOTS 80 
DOTS 90 
DOTS 100 
DOTS 1 10 
DOTS 120 
DOTS ISO 
DOTS 140 
ODTS ISO 
DOTS 1 60 
DOTS I TO 
DOTS 160 
DOTS 190 
DOTS 200 
DOTS 210 
DOTS 220 
00T5 230 
DOTS 240 
DOTS 2S0 
DOTS 260 
DOTS 270 
DOTS 280 
D0T5 290 
ODTS >00 
DOTS 310 
ODTS 320 
ODTS 330 
DOTS 340 
DOTS 350 
DOTS 360 
DOTS 370 
DOTS 380 
DOTS 390 
KITS 400 
DOTS 410 
DOTS 420 
DOTS 410 
DOTS 440 
,.0DT5 450 
0075 460 
DOTS 4 TO 
ODTS 480 
DOTS 490 
DOTS SOO 
DOTS SIO 
DOTS 520 
DOTS 330 
DOTS 540 
00T5 550 
DOTS S40 
DOTS 570 
DOTS 580 
DOTS 590 
DOTS 600 
ODTS 610 
DOTS 620 
DOTS 630 
DOTS 640 
DOTS 4S0 
00T5 660 
DOTS 6T0 
DOTS 680 - 
DOTS 690 
ODTS TOO 
00T5 TIO 
DOTS 720 
DOTS 730 
DOTS 740 

ran m 

0DT5 760 
DOTS T70 
DOTS 780 
DOTS 790 
DOTS BOO 
DOTS 810 
DOTS 820 
DOTS 8)0 
DOTS 840 

DOTS nso 

DOTS 8.0 
DOTS 870 
DOTS 880 
DOTS 890 
DOTS 900 
DOTS 910 
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Subroutines DCAR and DDCAR 

Suppose that y = y(t) is eleven-times differentiable 
in a neighborhood of radius R > of the pomt x. 
These subroutines compute an approximation Z to 
y' (x) by applying Richardson's and Romberg's 
extrapolation method to successively computed 
central divided differences, using function values 
in a closed interval of radius |h| about the point x, 
< I h| < R. 

1. Mathematical background 

Suppose, first, that y = y(t) is analytic at x; that is, 
y has a Taylor series expansion about the point x 
with radius of convergence R > 0. Let h be such 
that < ih] < R. For each positive integer n a 
step size h^ with < h]^ s | h| is computed as de- 
scribed below, and a sequence hj^ of increments is 
generated, where 



\ 



n-k + 1 



for k = 2,. ..,n. 



From the Taylor series expansions of y(x+hk) 
and y(x-hj^) it follows that 

'^o, k ^ y'^''^ ""sT^"'^''^ ^ sT^^^''^ * • • • ^°'" •" " ^' • • • ' " 

so that, as an approximation to y'(x), T„ . involves 
a truncation error of order hj^. ' 

Knowing the two divided differences Tq j^ and 
Tq j^^j, we are able to generate the extrapolated 
value 

T -T 

T =T + O.k+1 0,k 

l,k 0,k+l a, , -1 

l.k 



where 



Vk =(^^1^)' 



Tj^k is a better approximation to y'(x) since 

'^i.k^y'^'^^-ira-T^^'^^) 

l,k 



(2) 



From the sequence (x-hj^, x+hj^^) of point pairs 
(k = l, . . . ,n), the sequence of central divided 
differences 



\k= ^h^; fork=l....,n (1) 



is computed, which forms the first column of the 
triangular Romberg scheme. The central divided 
differences Tq j^ represent the slopes of the secants 
Sk in Figure 26. 



^ a— <-.-></"« 



l,k 



l,k 



-. . . , which involves a truncation error of order h^. 

If we also know Tq j^^g- then we can generate 
^l,k+l using formula'(2), and further, we can com- 
pute the extrapolated value 



T -T 

T =T + J^^-l—ll^-^ 

2,k l,k+l a^ ^ -1 



where 



(3) 



tangent 




t=x-h 



Figure 26. A sequence of secants for a given function y= y(t) and a 
given argument t = x for the case n = 5, h > 



- 2 2 

^2,k " ^^ "*" n-(k+l) ^ 

which involves a truncation error of order hP. 

Generally, the order of the truncation error is 
increased by 2 with each new extrapolation step; 
in particular, Tj j will involve a truncation error of 
order 



Ji-i-2 

h. , i=0, ...,n-l, j =l,...,n. 



Figure 27 shows the arrangement of the T-values 
in the triangular Romberg scheme. The T-values 
are computed following the upward diagonals, using 
the general formula: 
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T =T + 

m,k-ni m-l,k-m+l 



T -T 

m-l.k-m+l m-l.k-m 

m m 



n-(k+l) ' rt-(k+l) 
for m = 1, . . . , k-1 for fixed k 



V, k = 2 n ' 



(4) 



Truncation _.2^ 
^<^k) 


0(hj) 


o(h5 


o(h5 


o(h-) 


Steps ize 


\in 
k \^^ 





1 


2 


3 


4 


h2=0.6h^ 

h =0.4h, 
4 1 


1 
2 
3 
4 
5 


T 
0,1 

\2 

\A 

T 
0,5 


T 
1,1 


\3 


T 

\2 


T 
4,1 



Figure 27. The triangular Romberg scheme of T-values for the 
case n = 5 

Numerical experience shows that the accuracy 
of the results depends heavily on roundoff errors in 
the central divided differences Tq j^. Therefore, 
the choice of the absolutely smallest step size, h , 
is based on the following considerations. 
Let 



") 



1 in single-precision computation 
3 in double-precision computation 



h = min (n-10 , |h| ) 



Set 



Y = ■j(y(x+h^) +y(x-h^)) 



and 



T = |(y(x+h ) - y(x-h ))/h 



0" 

Y and T are approximations to y(x) and y' (x) , 
respectively. 

Assuming that the errors in the function values 
y(t) forte [x-|h|, x + |htj are bounded by 



^Y«10' 



D 



if Iy| > 1 
if IyU 1 



formula (1) shows that the roundoff error in the com- 
putation of Tq jj is bounded by 



R(T ) = -f_ = ^ 
0,n' h^ ) 



J n 

D 

— if IyU 1 



10 



where D is the number of significant digits in the 
floating-point representation of numbers. Suppose, 
also, that we are willing to tolerate a roundoff error 



R'(T„ ) = 



\ T-IO' 



■D+v 



0. 



° I 



10 



-D+v 



if |T|> 1 
if ItU 1 



Then we must have R(T„ ) :S R'(T ), which is 

On On 

satisfied when ' ' 



max(l, Y ) , -V 
^" =max(i:|T|) ^° (^) 

Finally we set 

h = min(n.h , |h| ) (6) 

guaranteeing that the evaluation of the function 
y = y(t) is restricted to the closed interval 

[x-|h|, x+|h|] . 

2. Programming considerations 

Numerical experience shows that, because ef in- 
creasing roundoff errors, it is generally fruitless 
to perform more than five extrapolations. Thus, 
the subroutines use n = 5, and consequently it is 
only necessary that y = y(t) be eleven-times dif- 
ferentiable, rather than analytic. It Is easy to see 
that in the case n = 5, y = y(t) must be evaluated at 
twelve points in the closed interval [x-|h|, x+|h|] . 

The parameter lists of both subroutines contain 
the decision parameter IH. If the user wants the 
maximum step size to equal|h|, he must set IH = 0. 
In all other cases (IH ^ 0) the procedure determines 
the maximum step size bj itself, using formulas " 
(5) and (6) with n = 5. Step size h^ and all the other 
step sizes hj^ (k =2, . . . , 5) are successively stored 
in the single storage location HH. 

As previously explained, the computation of the 
T-values is performed along the upward diagonals 
of the triangular Romberg scheme. Therefore, 
only a one-dimensional internal storage vector. 
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named AUX, with five storage locations is necessary. 
Figure 28 shows the storage administration and the 
sequence of computations (numbers in parentheses). 



AUX(l) 


\5<") 








AUX (2) 


To_4(V) 


Tj,(12) 








AUX(3) 


^0.3^ 


\3<«> 


\3<"' 






AUX(4) 


To. 2(2) 


Tl.2<5) 


^2.2(9) 


T3.2<1^) 




AUX(5) 


Vl<^' 


T^,m 


T2,l<«> 


T3.l(^°> 


T,,(15) 



Figure 28. Storage administration and order of computation 

Each extrapolation loop, the computation of the 
elements on an upward diagonal, is terminated as 
soon as the absolute values of the differences be- 
tween adjacent diagonal elements stop decreasing, 
showii^ the influence of roundoff errors. The com- 
puted T-value that differs least in absolute value 
from its immediately preceding diagonal neighbor is 
the desired value Z. 

3. Accuracy of results 

Tests of the single-precision (double-precision) 
subroutine on the functions y(t) = t , l/t, e , tan t, 
and sin t showed that the accuracy obtained using the 
step size determined by the subroutine was 3-4 
(11-12) significant digits near poles, 5-6(13-14) 
decimal places near points with horizontal tangents, 
and 5-6(13-14) significant digits otherwise. 

For reference see S. Fillipi and H. Engels, 
"Altes und Neues zur numerischen Differentiation," 
Elektronische Datenverarbeitung, iss. 2(1966) 
pp. 57-65. 



SU6fOUT!^£ DC*B 

PURPOSE 

10 COMPUTE. AT A G[veN POINT K, AN APPROXIMATION I TO THE 
DER!V»TIVE OF »N AN-JL VTI C iLL V GIVFN fUNCTIflN fCT THiT IS It- 
TIMES 3IFFE«rNTIABLf: IN A DOMAIN CONTAINING a r.LO?tD» 2-SIOE 
SYMMETRIC INTERVAL Of RADIUS ABSHLUTE M ABOUT X, USING FUNCT 
VALUES ONLY OK tMAT CLOSED INTERVAL. 

USAGE 

CALL OCAD <X.H. IHtf^CTW I 
PARAMfTFR FCT HFQUISES A^ 



50 



TEP.^4L STATEMENT 



DESCRI»TION OF PAFAMETfcPS 

K - THE POINT AT WHICH I HE DERIVATIVE IS TD BE COMPUTED 
H - THP NUMBEfi Wr.aS£ AGSOIUTE VALUE OEFIKFS THE CLOSED, 
SV'iMErRiC 2-SlOEO INTEIVflL fleOUT X tSEF PUHPOSEl 

[H - rNPUr PA?AMfTr? ( Stf CEMeSKS .ANO METHODI 

IH NON-^ERO - THE SUBrtDUTINE GENERATES THE INTERNAL 
VALUE MM 

IH = - THF INTERNAL VALUE HH IS SET TO ABSOLUTE 

FCT - THE NAME OF THE EKTFRNAL FUNCTION SUBOfiOOPAN THAT WILL 

GENE-JATF THE NECESSARY FUNCTION VALUES 
I - RESULTING DERIVATIVE VALUE 

REMARKS 

(II IF H = 0. THEN TH^PC IS NU COMPUTATION. 

(Z) THE IMEHMAL VALUE HH, WHICH IS UETEftHINfP ACCORDING TD 
IH, IS THE MAXIMUM STEP-SIZE USED IN THE COMPUTATION OF 
THE CENTRAL DIVIDED DIEFERENCES I SEE METHOD.) IF IH IS 
NON-ZEPO. THEN THE SUBROUTINE GcNERATES HH ACCQHDINii TO 
CRITErtIA THAT .JALANCE RDUNO-OFF AND TRUNCATION ERROR. 
IS ALWAYS I ESS THAN OS EOUAL TO ABSOLUTE H IN ABSOLUTE 
VALUE, SI THAT ALL CrMPUTATIDN OCCURS WITHIN A RADIUS 
AaSOLUTE H OF X. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE FXTE3WAL FUNCTICN SUBPROGRAM FCT(TI MOST BE FURNISHED BY 
THE USER. 

METHOD 

THE COMPUTATION OF I IS BASED CN RICHARDSON'S AND ROHSEBG'S 
EXTRAPOLATION METHOD AS APPLIED tq thE SE<iOENCE OF CENTRAL 
DIVIDED DIFFERENCES ASSQCIArED WITH THE POINT PAIR^ 
U-(K«HH|/5,X+(K*HH(/5) K=l,,.,.5- (SEE fILLIPI, S. AND 
ENGELS, H., ALTES UNO NEUES ZUR NUMERISCHEN DIFFERENTIATION, 
EL«ECIRONISCHt riATEMVEJAt-RF injNC, ISS. 2 (19661, PP. 57-6^,1 



SUBROUTINE DC AR I X, H, IH ,f C ' , Z 1 



DIMENSION AUX15) 

NO ACTION IN CASE OF ZERO INTERVAL LENGTH 
IF<H)I.L7,I 

GENERATE STEPSIZE HH FOR DIVIDED DIFFERENCES 
. C=ABS(HI 
IF( IHI2,9,2 

! HH=.5 

IF(C-HH)?,4,4 

I HH=C 

. AxFCT(X*HHI 
B=FCT1X-HHI 

Z=ABS( ( A-Bl/ IHH*HHl t 

A=.5*A6S(A»B) 

HH=.5 

IF! A- t . I6,«.. 5 
, HH=HH»A 
. IFIZ-l. 16,6, 7 

■ HH=HH/2 

I IF(HH-CI 10, 10,9 

I HH=C 

INITIALIZE DIEEERENTIATION LOOP 

' Z^IFCTCXtHh-J-FCTU-HH) 1/IHH + HHI 

J = 5 

JJ=J-I 

AUXIJt=Z 

DH^HH/FLOATIJl 

0Z=l.£75 

START CIFFERENt UT ION LCOP 
J-J-l 
C = J 

HH=C*OH 
AUXt JJ=tFCT(X+HHl-FCT(X-HH) )/(HH«HHl 

INITlALUf EXTRCPOLuTION LOCP 
02=1. t75 

e=o. 

A=I./C 

STAPT EXTt AFOl ftTlDN LOOP 
00 12 I=J,JJ 

Dl'^DZ 

HH-(auxi 1 1 -AUX I i»in/(B*(?.*eM 

flUX( 1*11 ^AU!" 1 1 ) *HH 

TEST TN rSClLLATIN(> INCREMENTS 
D:? = ABS(HHI 
1T(D2-011 i?, 13, ii 
CONI INUE 

END PF E XTB APCLAT ION LtlOP 



Uf-OfiTt '^ L-SULT VILUE Z 
fOJtl 
GO Tn I'i 

rj D?=Di 
JJ=I 

lA IF (D?-aZ I 15, 16, 16 

15 DZ^D2 

Z = AUX( I I 

16 |F(j-^l (17,17.11 

END OF niFFEFENTIATION LOOP 



DCAB 

. . . DCAR 

OCAR 

DCAR 

DCAR 50 
DCAR 60 
DCAR TO 
DCAB 80 
D DCAR -SO 
lONOCAR 100 
DCAR 1 10 
DCAR 120 
OCAR 130 
OCAR UO 
DCAR 150 
DCAR 160 
OCAR 170 
DCAR ISO 
DCAR IIO 
OCAft 200 
OCAR 210 
DCAR 220 
OCAR 230 
H OCAR 2<.0 
OCAR 250 
OCAR 260 
DCAR 2T0 
DCAR 280 
DCAR ^90 
OCAR 300 
DCAR 310 
DCAR 320 
DCAR 330 
OCAP 340 
HH DCAR 350 
OCAR 360 
DCAR 3 70 
OCAR jao 
DCAR 390 
DCAR 400 
OCAR 410 
DCAP 420 
DCAR 430 
OCAR 440 
DCAR 450 
DCAR 460 
DCAft 470 
DCAR 480 
DCAR 490 
DCAP SOO 
DCAR 510 
..DCAR 520 
DCAB 530 
DCAB 540 
OCAR 550 
OCAR 560 
OCAR 570 
DCAR 580 
DCAR 590 
OCAR 600 
DCAR 610 
DCAR 620 
DCAR 630 
OCAR 640 
DCAR 6S0 
OCAR 660 
OCAR 670 
DCAP 680 
DCAR 690 
OCAft 700 
DCAR 710 
DCAP 720 
OCAR 730 
OCAft 740 
DCAR 750 
OCAR 760 
OCAR 770 
OCAR 7B0 
DCAR 790 
DCAR 800 
OCAR 810 
DCAR 820 
DCAR 8 30 
DCAR 840 
OCAfi 850 
DCAR 860 
DCAR 870 
OCAR 680 
DCAR 890 
DCAP 900 
OCAR 910 
DCAR 920 
DCAR 930 
OCAR 940 
DCAB 950 
DCAR 960 
OCAR 970 
DCAP 980 
DCAR 990 
OCARIOOO 
OCARIOIO 
DCAfil020 
0CAR1030 
DCAR1040 
OCAR 1050 
DCAR 1060 
DCAFI070 
OCAR I 080 
DCARt090 
DCAR 1100 
OCAFIUO 
DCAR1120 

OCAR II 3d 
DCARl 140 
DCAR I 150 
OCARl 160 
OCARt 170 
DCAR 11 80 
DCARl 190 
0CAR1200 
0CAPI210 
OCARI220 
DCAfll230 
OCAR1240 
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Subroutine docar 



OOCA 
.ODCA 
DDCA 
DDCA 
OOCA 
DDCA 
DOC A 
OOCA 
DDCA 



TC rOMPUTT, Al A GIVEN POINT X, AN JPPROXIMAT I UN I TQ THE 
DERIVAKVf Q\ AN INALVTICALLV GIVEN FUNCTION FCT THAT >( S 11- 
HMES Dl Ff fcRLNTUatt IN A DDMAJN CINTAINING A CI-PSED, 3-SiDED 

SYMMFTi^IC INTERVAL OF HftOIUS ASSHLUTf H AflQuT X, USING FUNCTIONDOCA 100 

VALUES DULY ON That ClOSEO interval. DDCA HO 

ODCA 120 

ODCA 130 

DDCA 1^0 

DOC A ISO 

DDCA 160 

OOCA ITO 

OOCA 180 

OOCA 190 

DDCA 200 

OOCA 210 

DDCA no 

ODCA 2S0 

DOCA 240 

OOCA 2 50 

I OOCA 260 

ODCA 270 

DDCA 2B0 

DDCA 2<)0 

OOCA 300 

DDCA 31C 

OOCA 320 

DDCA 330 

OOCA 340 

DDCA 350 

DDCA 360 

OOCA 370 



USAGE 

CALL OOtARM.H, [H.FCI.Zl 

PARAMETER FCT EFQUlfiES AN EXTEPNAL STATEMENT 

DESCRI^'TIGN OF PAKfiMETEHS 

X - TH; PCIM AT HHif.H THE DFHIVATtVE IS TO RE CflMPUTED 

X 15 [N OOUBLf: PPtCniQN, 
H - THt NUMBER WHU^E ABSOLUTE VALUE OEF INES THE CLOSEO t 

iVMMETRlC 2-Sir.fcD INTERVAL A9UUT X (SEE PURPOSE) 

H ] 5 \H SINGLE PRECISION 

IH - INPUT PARAMETER (SEE REMARKS AND ME THGO ) 

\H NQN-ZrCO - THF SUBROUTINE C.fNERATES THf INTERNAL 
VALUt HH 

IH = O - THE INTERNAL VALUE HH IS SET TO ABSOLUTE 

FCr - THf NAhe Of THE EXTERNAL DOURLE PRECISION FUNCTION 

SUPP^aCFfiM THAT WILL GENEEAIE THE NECESSARY FUNCTION 

VALUES. 
I - RESULTING DERIVATIVE VALUE - OHUBLE PRECISION 



REMARKS 
( 11 
(2» 



If H = 0. THEM THERE IS NO COMPUTATION. 

THE INTERNAL VALUE HH, WHICH IS OETERMINEO ACCORDING TO 

IH, IS THE MAXIMUM STEP-SIZE USED IN THE COMPUTATION OF 

THE CENTRAL DIVIDED DIFfERFNCES ISEE METHOD.) IF IH IS 

NON-IERC, THEN THE SUSROUTiNt GENERATES HH ACCORDING TO 

CRITERIA THAT BALANCE ROUND-tlFF AND TRUNCATION ERROR. HH DDCA 38 



IS ALWAYS LESS THAN TR EQUAL TH AHSHLUTF H IN ABSOLUTE 
VALUE, SO THAT ALL COMPUTATION OCCURS WITHIN A RADIUS 
AHSOLUTF H Of X. 

SUBROUTINES AND FUNCTION SU-lPRaGRAIS REQUIRED 

THE EXTERNAL FUNCTION SU8PR0CRAH FCTITJ MUST BE FURNISHEO BY 
THE USPS. fCT(T| IS IN 0QU8LE PPfCISION 

METHOD 

THE COMCJTATiriN OF I IS BASED ON RICHARDSON'S AND ROMBERG'S 
EXTRAPOLATION METHOD AS APPLIED TO ^HE SEQUENCE OF CENTRAL 
DIVIDED DIFFERENCES ASSQCIATEJ WITH THE POINT PAIRS 
( X-iXtHHl/5.Xt(»(*HH)/5l K=l,..,,^. (SEE fILLIPIt S. AND 
ENGElS, H., ALTES UNO NEUES Z UR NUMERISCHEN DIFFERENTIATION, 
ELECTHONISCHE DATENVERARSEl TUNC, ISS. 2 (1966), PP. 57-65.1 



SUBRnuTINE DDCARtX, 



", Z , AUX, A,B,C , O.H,HM 

NO ACTION IN CASE OF ZERO INTERVAL LENGTH 
IFIH 11, 17,1 

GENERATE STEPSl^E HH FOR OIVIOEO OlFfERENCES 
C=ABS(H» 
IF(1HI2.9,? 
HH=.5D-2 
IFIC-HMl 3,'.,'. 
HH = C 

A=FCT( X»HH) 
B=FCT( X-HH) 
Z=DAfiS{ t A-B)/|HH*HH1 3 
ft=,500*DA3S( A*BI 
HH=.50-2 
If ( A-I .00)6,6,5 

HH=HH»A 

IF(Z-1.00)8,8. 7 
HH^HH/Z 

. IF (HH-CI 10, 10, <) 
I HH=C 

INITIALIZE DIFFERENT IftTiGN LOOP 
I Z=(FCT{X*HHI-FCT(X-HHI l/( HH*HH I 
J = 5 
JJ=J-l 
AUXI J)=7 
DH=HH/DFlOAT< J ) 
DZ=1.E75 

STAKT DIFFERENTIATION LOHP 
J=J-l 

r = j 

HH=C»aH 

AUX( J3-(fCTIX*HHl-FCT(X-HHIl/(HH*HHl 



INITI ALIZP dXTt APOLA 


TinN LOOP 


02=l.ETS 




B = 0.00 




a= l.DO/C 




START EXTRAPOLATION 


LOOP 


00 12 [ = J . J J 




01=02 




B = BtA 




HH=(AUX( I l-AJXl I»lU/(i 


»(2.nG*fli 1 


AUX( I + ll=AUX( 1 )tHH 




TEST ON nSCILLAT 1 NO 


INCREMENTS 


D2=DABSIHHI 




IF(DZ-3l 112, 13.13 




CONTINUE 




END OF EXTRAPHLATfON 


LOOP 


UPDATE 0£SULT VALUE 


I 


r=jj+i 




(?0 TO 14 




02 = 01 




jj = i 




1F(D2-D' 115. If., ti^ 




0Z = D2 




/=AUX(I 1 




1F(J-IH7,1T,I1 




END OF ClfFEi^FNlIAIICN LOOP 


RETURN 




FNO 





DDCA 390 
OOCA 400 
OOCA 410 
DDCA 420 
OOCA 430 
OOCA 440 
DDCA 450 
OOCA 4 60 
OOCA 470 
DOC A 4 80 
DDCA 4')0 
OOCA 500 
DOC A 510 
OOCA 520 
ODCA 530 
DOCA 540 
..OOCA 550 
DDCA 560 
ODCA 570 
DOCA 580 
DDCA 590 
DOCA 600 
DOCA 610 
ODCA 620 
.DDCA 630 
DDCA 640 
ODCA 650 
DDCA 660 
DDCA 670 
DDCA 680 
OOCA 6'3 
OOCA 7 00 
DOCA 710 
ODCA 720 
OOCA 730 
DOCA 740 
DDCA T50 
DOCA 760 
ODCA 7 70 
DOCA 780 
ODCA 790 
DOCA 800 
DDCA 810 
OOCA 8 20 
OOCA 830 
OOC* 840 
DOCA 850 
DDCA 860 
OOCA 870 
OOCA 680 
ODCA 890 
OOCA 900 
ODCA 910 
DOCA 920 
ODCA 930 
DDCA 940 
DDCA 950 
DOCA 960 
DDCA 970 
OOCA 9 80 
DDCA 990 
DOCA] 000 
DOCAIOIO 
DDCftl020 
OOCA1030 
DDCA1040 
00CA1O50 
ODCAlOftO 
D0CA1070 
DDCAIOBO 
DDCA1090 
ODCAllOO 
DOC All 10 
OOC Al 120 
00CA1130 
0OCA1140 
D0CA1150 
DDCAlliSO 
DDCA1170 
DOCAl iflO 
DOCA I l«0 
D0Cai200 
D0CA1210 
OOCA I 220 
DDCA1230 
0DCA1240 
DDCA1250 
0DCA1260 
DDCA1270 
00CA12B0 



Subroutines DEAR and DDBAR 

Suppose that y = y(t) is eleven-times differentiable 
in a neighborhood of radius R > of the point x. 
These subroutines compute an approximation Z to y' 
(x) by applying Richardson's and Romberg's extrapo- 
lation method to successively computed one-sided 
divided differences, using function values in a closed 
interval [x, x+h] , < |h|< R. 

1. Mathematical background 

Suppose, first, that y = y(t) is analytic at x; that is, 
y has a Taylor series expansion about the point x 
with radius of convergence R > 0. Let h be such 
that < ih|< R. For each positive integer n, a step 
size h]^ with <|h]^|£|h| is computed as described 
below, and a sequence hj^ of increments is generated, 
where 



\ 



n-k+1 



for k = 2, . . . ,n. 

From the sequence (x,x+h. ) of point pairs 
(k = 1, . . . , n) , the sequence of one-sided divided 
differences 



T = y(x+hk) 
0,k h, 



y(x) 



for k = 1, , 



(1) 



is computed, which forms the first column of the 
triangular Romberg scheme. These one-sided 
divided differences Tq j^ represent the slopes of the 
secants Sj^ in Figure 29, in the case h> 0. 



tangent 




Figure 29. A sequence of secants for a given function y = y(t) 
and a given argument t = x for tlie case n = 10, 
h>0 
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From the Taylor series expansion of y(x+h. ) it 
follows that 

\ < 

T^ j^ = y'(x) +2-fy"(x) +3T-y'"(x) + . . . fork = l, . . . ,n 

so that, as an approximation to y'(x), Tq j^ in- 
volves a truncation error of order hj^. Knowing 
the two divided differences Tq j^ and Tq k+l> ^® 
are able to generate the extrapolated value 

T -T 

T =T + O.k+1 O.k 

l,k 0,k+l a, , -1 

l,k 

where (2) 

^.k ={^^^) 
Tj j^ is a better approximation to y'{x) since 

1, k 

11 1 3 iv 

i,k i,k 

o 
. . . , which involves a truncation error of order hj^. 

If we also know T. . , then we can generate 



Tj j^+j using formula (2), and further, we can com- 
pute the extrapolated value 



T = T + 

2,k l,k+l 



T -T 

l,k+l l,k 

"2,k 



where 



^2,k = (1-^;^:^)) 



which involves a truncation error of order h3. 

Generally, the order of the truncation error is 
increased by 1 with each new extrapolation step; in 
particular, Tj j will involve a truncation error of 
order 

i+1 
h , i =0, ..., n-1, j = l,...,n. 

Figure 30 shows the arrangement of the T-values 
in the triangular Romberg scheme. The T-values 
are computed following the upward diagonals, using 
the general formula 

T , -T 

™, _ rp ^ m-l,k-m+l m-l,k-m , 

m,k-m m-l,k-m+l m / 

n-k+1 • 



for m = 1, . . . , k-1 for fixed k, k = 2, . . . , n 




(3) 



Figure 30. The triangular Romberg scheme of T-values for the 
case n = 10 
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Numerical experience shows that the accuracy 
of the results (iepends heavily on roundoff errors in 
the one-sided divided differences Tq j^. Therefore, 
the choice of the absolutely smallest step size, hjj, 
is based on the following considerations. 
Let 

i 1 in single-precision computation 
V = ^ 

( 3 in double-precision computation 



Set 



n = sgn(h).min(— 'lO ^, 



(y(x+h^) - y(x))/h^. 



T is an approximation to y' (x) . 

Assuming that the errors in the function values 
y(t) for te [x, x+h] are bounded by 



f = ', 



) 



•10 



-D 



10 



if |y(x)| > 1 
if |y(x)| s 1 



formula (1) shows that the roundoff error in the 
computation of T^ is bounded by 



2 y(x)| 10 



R(T 



2€ 



0,n' 



10 



n| 
■D 



if 



if 



y(x) 



y(x) 



> 1 



<. 1 



where D is the number of significant digits in the 
floating-point representation of numbers. Suppose, 
also, that we are willing to tolerate a roundoff error 



R'(T„ ) 



\ 



2T'10 



-D+v 



"'" / „ ,„-D4-v 



2-10 



if T > 1 



if T U 1 



Then we must have R(Tq j^) s R'(Tq ^), which is 
satisfied when 

^ max (1, ly(x)|) ^ -v 
n max (1, |T|) 



(4) 



Finally, we set 



h, = sgn(h) • min(n« h 
1 ° ^ ' 'In 



. h) 



(5) 



guaranteeing that the evaluation of the function 
y = y(t) is restricted to the closed interval 

[x,x+h] . 

2. Programming considerations 



Numerical experience shows that, because of in- 
creasing roundoff errors, it is generally fruitless 
to perform more than ten extrapolations. Thus, the 



subroutines use n = 10, and consequently, it is only 
necessary that y = y(t) be eleven-times differentiable, 
rather than analytic. It is easy to see that In the 
case n = 10, y = y(t) must be evaluated at Welve 
points in the closed interval [x,x+h] . 

The parameter lists of both subroutines contain 
the decision parameter IH. If the user wants the 
maximum step size to equal|h|, he must set IH = 0. 
In all other cases (IH ^ 0) the procedure determines 
the maximum step size by itself, using formulas 
(4) and (5) with n = 10. Step size h-j^ and all the other 
step sizes hj^ (k = 2, . . . , 10) are successively stored 
in the single storage location HH. 

As previously explained, the computation of the 
T-values is performed along the upward diagonals 
of the triangular Romberg scheme. Therefore, 
only a one-dimensional internal storage vector, 
named AUX, with ten storage locations is neces- 
sary. Figure 31 shows the storage administration 
and the sequence of computations (numbers in 
parentheses). 



AUX(l) 


■^0, io"« 






AUX(2) 


T^.pn 


Tl,9<^'> 




AUX(3) 


T„_3(29) 


T,^g(38, 


T, g(48) 


AUX (4) 


T„,(22) 


Tj ,(30) 


T2_,(39, 


AUX(5) 


Vo'"^> 


T,,,(23) 


T2,G<»> 


AUX (6) 


Vs<"' 


T,,5'"' 


T,,,(24) 


AUX(7) 


V4''> 


T,,(12, 


T2,(.8) 


AUX(8) 


■^0,3<^' 


Tls"*' 


\3<"' 


AUX (9) 


T„,,(2, 


^1.2<^' 


\-/'' 


AUX(IO) 


To, .<'' 


T^ ,(3) 


T,_,(C) 



T,3(53) 






T, ^(44) 


\2<''^ 




T,,(3G) 


T,.(45) 


\l<^5) 



Figure 31. Storage administration and sequence of calculations 

Each extrapolation loop, the computation of the 
elements on an upward diagonal, is terminated as 
soon as the absolute values of the differences be- 
tween adjacent diagonal elements stop decreasing, 
showing the influence of roundoff errors. The com- 
puted T-value that differs least in absolute value 
from its immediately preceding diagonal neighbor 
is the desired value Z. 

3. Accuracy of results 

Tests of the single-precision (double-precision) 
subroutine on the functions y(t) = t , l/t, e , tan t, 
and sin t showed that the accuracy obtained using the 

step size determined by the subroutine was 2-4 

(10-12) significant digits near poles, 4-6(13-14) 
decimal places near points with horizontal tangents, 
and 4-6(11-13) significant digits otherwise. 

For reference see S. Fillipi and H. Engles, 
"Altes und Neues zur numerischen Differentiation," 
Elektronische Datenverarbeitung, iss. 2 (1966) pp. 
57-65. 
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SUaC^UTlNE DrftR 



DBAfi 

OBAR 

DBAR 
OBAf) 
PUOPOS£ 084R 

TO COMPUTE, AT A GIVEN PQIMT K, AN APPRUX IMAT I ON Z 10 THE OBAR 

DERIVATIVE C>f AM AWAL^TICALLT GIVEN fUNCTIDN FCT THAI IS Ml- OBAR BO 
riHCS llfFERf^JTIABLF IN A DOMAIN CONTAINING A CL05eo irtTERVAL -OBAR 90 
Tne SET OF T BETWEEN K ANO M^H (H POSITIVE OP NEGiTIVEl - USINCOBAR 100 



TO 



SUflfOUTINE ODflA' 



PURPOSE 

TO ca^PVJ'z 



FUNCTION VALUES ONLY OM THAI INTERVAt. 
USAGE 

CALL DdAD|X.H,IH,FCT,21 

PARAMcTEH fCT aEQUKlES AU EXTERNAL STATEMENT 

OESCftlPTIPN nf OA><>HErER& 

X - THE POIVT AT WHICH THE OEmVATWE IS TO BE COMPUTED 

H - THE fiuri-iEB THAT DEFINES TH£ CLOSEO INTERVAL WHOSt ENO" 

POIAiTS ARE X AND K»H (SEE PURPOSE) 
IH - INPUT PARAMETER (SEE REMARKS ANO METHOOI 

IH NflN-IERO - THE SUBROUTINt GENERATES THF INTERNAL 
VALUE HH 

IH = - THE rNTERNAL VALUE HH IS SET TO H 

FCT - HC NAME OF THE EXTERNAL FUNCTION SUBPROGRAM THAT WILL 

OENEBATE THE NECESSARV FUNCTION VALUES 
I - RESULTING OERIVATIVE VALUE 



flEHARKS 
(I) 
(21 



OBAR llO 
D6AR 120 

OBAR no 

OBAR 140 
DBAR 150 
DBAR IfSO 
OBAR I TO 
OBAR 180 
DBAR ISO 
OBAR 200 
OBAR 210 
OBAR 220 
OBAR 230 
DBAR 240 
OBAR 250 
DBAR 260 
OBAR 270 
OBAR 280 
DBAR 240 
OBAR 300 
OBAR 310 
OBAR 320 



If H = 0, THEN THER^ IS NO COMPUTATION.. 

THE (MAGNITUDE OF THE » INTERNAL VALUE HH, MHICM IS DETER 

MINED ACCORDING TO IH. IS THE MAKINUH STEP-SIZE USED IN 

THE COMPUTATION OF THE ONE-SIOEO DIVIDED DIFFERENCES (SEE OBAR 330 

HETMOD. » IF IH IS NON-ZERO, THEN THE SUBRCUTINE G£N£R ATESOBAR 3*0 

HH Ar.CORDtHC TO CRITERIA THAT BALAftCE BQUNO-OFF AND TRUN- OBAR JSO 

CATION ERROR. HH ALMAYS HAS THE SAME SIGN AS H ANO IT IS OBAR 360 

ALWAYS LESS THAN OR EQUAL TO THE MAGNITUDE OF H IN AB- DBAR 3T0 

SOLUTE VALUE, SO THAT ALL COMPUTATION OCCURS IN THE CLDSEOOBAA 380 



INTERVAL OETERMINED BY H. 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTITI MUST BE FURNISHED flV 
THE USER. 



METHOD 

THE COMPUTATION OF I IS BASED ON RICHARilSON' S ANO ROMBERG*S 
EXTRAPOLATION METHOD AS APPLIED TO THE SEOUENCC OF ONE-SIOEO 
DIVIDED DIFFERENCES ASSOCIATED WITH THE POINT PATRS 
(X,X+(K»HMI/10)K-l,...,10. ISEE FILLIPI, S. AND ENCELSt H., 
ALTES UNO NEUES IW NUMESISCHEN DIFFERENTIATION. ELECTRONISCHE DBAR 500 
DATENVERARHEI TUNC. ISS. 2 (19661. PP. 57-65.1 DBAR 510 

DBAR S20 

OBAR 530 



OBAR 390 
DBAR 400 
OBAR 410 
DBAR 420 
DBAR 430 
OBAR 440 
OBAR 450 
DBAR 460 
DBAR 470 
DBAR 430 
OBAR 490 



SUBROUTINE DBA«l( X, H, IH.FCT, n 



DIMENSION AUX(IO) 

: NO ACTION IN CASE OF ZERO INTERVAL LENGTH 

IF(HU,17,1 

GENERATE STEPSIZE HH FOR DIVIDED DIFFERENCES 

1 C=AeS(H) 
B=H 

O-X 
O'FCT(O) 

1FI|H12,9,2 

2 HH..S 
IFIC-HH)3,4,4 

3 HH-e 

4 HH=SICNIHH,9) 
Z=ABSItFCT(X*HH}-OI/HHI 
A-A8S[0> 

HH»1. 

IFIA-1. 16.6.5 

5 HH«HH*A 

6 IFU-l.)e,8,7 

7 HM-HH/Z 

a IF(HH-C) 10, 10,9 
9 HH>B 
10 HH-SIGN(HH,B) 

INITIALUE DIFFERENTIATION LOOP 

Z=(f CT(X*HH]-OI/HH 

J=10 

JJ»J-1 

AUXIJI'Z 

DH-HH/FLDAT(JI 
0£»l.E75 

START DIFFEPFNTIATION LOOP 

C-J 

HH=C*DH 

AUK(JI = fFCT|X*HH|-OI/'HH 

INITIALISE EXTSAPCLATION LOOP 
02=1. E75 
P«0. 
A=l./C 

SrA<*I EXTRAP'^LAT JON LOOP 
00 12 t=J.JJ 
DI«D2 
B'B*A 

HH-(Aux( I i-fluxi i*in/e 

AUX( l+n=AUX< I )*HH 

TEST ON OSCILLATING INCREMENTS 
D2 = <'fSIHH( 
IF(02-0Itl2. 13.13 
12 CONTINUE 

FNO (F f XT»«Pf)i.JiriO»' LOO" 

UPDATE RESULT VALUE I 
r=JJ*l 
CO TO 14 
11 02=01 
JJ = I 

14 IF(02-DZ)15,16,16 

15 CZ=02 
Z=AUXt 1 > 

16 IF(J-l(lTt 17.11 

END OF DIFFERENT iATlTN LPi''P 

17 RETURN 
ENO 



OBAR 540 

DBAR SSO 

DBAR 560 

OBAR 570 

OBAR seo 

OBAR 590 
OBAR 600 
OSAR 6tO 
DBAR 670 
DBAR 6 30 
08AR 640 
OBAR 650 
DBAR 660 
OBAR 670 
DBAR 6B0 
DBAR 690 
OBAR 700 
OBAR 710 
OBAR 720 
OBAR 730 
DBAR 740 
OBAR 750 
OBAR 760 
OBAR 7 70 
DBAR T80 
OBAR 790 
DBAR 800 
DBAR BIO 
DBAR 820 
OBAR 830 
DBAR 840 

DBAR 850 
OBAR 860 
DBAR 870 
DBAR 8 80 
DBAR 890 
OBAR 900 
DBAfi 9L0 
DBAR 920 
DBAR 930 
DBAR 940 
OBAR 950 
DBAR 960 
OBAR 9T0 
OBAR 4S0 
OBAR 990 
OBAPIOOO 
08AR1010 
D8;R1020 
DBAR1030 
0BAP1040 
0BAR1050 
06AR1060 
0BAR1070 
06AR1080 
D8AR1090 
DBARIIOO 
OBARlllO 
OBARII20 

oaARi no 

DBARt 140 
0BAR1150 
0BARlt60 
_0BAR1 170 
OBARl 180 
DBARU9<} 
DBAR 1200 
DBAR 12 10 
OBAR1220 
OBAR 12 30 
DBAR I 240 
DBAR1250 
OBARl 260 
06API270 
DBAR1280 



DOB A 10 
DOBA 20 
DD6A 30 
006 A 40 
DOBA 50 
006 A 60 
DOBA TO 
006 A SO 
DOBA 90 
USINGOOBA 100 
DDBA 110 
ODBA 120 
DOBA 130 
DDBA 140 
DOBA ISO 
ODBA 160 
DOBA 170 
DOBA ISO 
D08A 190 
ODBA 200 
DOBA 210 
ODBA iZO 
ODBA 230 
ODBA 240 
DOBA 250 
DOBA 260 
DDBA 270 
ODBA 280 
ODBA 290 
ODBA 300 
DOBA 310 
DDBA 320 
IF H = 0. THEN THERE IS NO COMPUTATION, OOBA 330 

THE tMAGNITUOE OF THE 1 INTERNAL VALUE HH, WHICH IS DETER- DOBA 340 
MINfO ACCOROIWC TO IH, IS THE MAXIMUM STEP-SIZE USED IN DOBA 350 
THE COMPUTATION OF THE ONE-SIDED OIVIOEO DIFFERENCES (SEE DDBA 360 
METHPD.l IF IH IS NON-ZERO, THEM THE SUBROUTINE GENERATESOOBA 370 
HH ACCORDING TO CRITERIA THAT BALANCE ROUND-OFF ANO TRUN- DDBA 380 
CATION ER^OR. HH ALHAVS HAS THE SAME SIGN AS H ANO U IS ODBA 390 
ALWAYS LESS THAN OR EQUAL TO THE MAGNITUDE Of H IN AB- OOBA 400 

SOLUTE VALUE, SO THAT ALL COMPUTATION OCCURS IN THE CLOSEOOOBA 410 



TO CQ?1PUT^, AT A GIVEN POINT X. AN APPROXIMATION 2 TO THE , 
DEfilVATIve Cr- AN ANALTTICALLV GIVEN FUNCTION FCT THAT IS II- 
TIMFS OI-'FERENTIABLe IN A DOMAIN CONTAINING A ClCSED INTERVAL 
THE StT OF T 9ETMEEN X AND K*H IH POSITIVE OB NEGATIVE) 
FUNCTin*-! VALUES ONLY ON THAT INTERVAL. 

USAGE 

CALL 006AR(X,H, lH,FCT.Z, } 

PARAMETER fCI REQUIRfS AN EXTERNAL STAIFMEnT 

DESCFI'^TION OF PAPAMETKiS 

X - THE POINT AT HhlCH THE DERIVATIVE IS TD BE COMPUTED 

X IS IN DOUBLE PRECISION 
H - THE NUMSeft THAT DEFINES THE CLQSEO INTERVAL WHOSE END- 

POINTS APE X tUD K*H (SEE PURPOSfl 
H IS IN SINGLE PRECISION 
IH - INPUT PARAMETER (SEE REMARKS ANO METHOOI 

IH r:]t.-iERO - THE SUBROUTINE GENERATES THE INTERNAL 

VALUE HH 
IH = - THE INTERNAL VALUE HH IS SET TO H 

fCI - IHE NAME OF THE EXTERNAL DOUBLE PRECISfON FUNCTION 

SUBPROGRAM TH4T fUL CENERATE THE NECESSARY FUNCTION 
VALUES. 
I - EESULTING DERIVATIVE VALUE - DOUBLE PRECISION 

REMARKS 
HI 
(2t 



INTERVAL DETERMINEO BY H, 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL FUNCTION SUBPROGRAM FCTITI MUST BE FURNISHED BY 
THE USER. FCTIT) IS IN DOUBLE PRECISION 



DOBA 420 
OOBA 430 
OOBA 440 
DOBA 450 
OOBA 460 
ODBA 4T0 
OOBA 4B0 
DDBA 490 
OOSA 500 
DOBA 510 
OOBA 520 



METHOD 

THE COMPUTATION OF Z IS BASED ON RICHARDSON'S AND ROMBERG'S 
EXTRAPOLATION METHOD AS APPLIED TO THE SEQUENCE OF DNE-SIOeO 
OIVIOEO DIFFERENCES ASSOCIATED WITH THE POINT PAIRS 

{X,X*(K*HHI/I0m-1 10. (SEE FILLIPI. S- ANO ENGELS. H., 

ALTES UNO NEUES ZUR N'JMERISCHEN OIFFERENTIATION. ELECTRONISCHE DOBA 5)6 
OATENVERARBf ITUNG, ISS. 2 I1966>. PP. 57-65.1 OOBA 540 

ODBA 550 

ODBA 560 

OOBA 5T0 
ODBA SBO 
OOBA S90 
DOBA 600 
OOBA 610 
OOBA 620 
OOBA 630 
OOSA 640 
DOBA 650 
OOSA 660 
DOAA 670 
DOBA 660 
DOBA 690 
ODBA TOO 

DOBA no 

DOBA 720 
008A 730 
DDBA 740 
DOBA 750 
DOBA 760 
OOBA TTO 
ODBA 780 
OOBA 790 
DOBA 800 
OOBA 810 
DDBA 820 
DOBA 3O 
OOeA 940 
0D6A BSO 
OOBA 860 
OOeA 670 
OOSA 880 
ODBA 890 
ODBA 900 
ODBA 910 
OOBA 920 
OOBA 930 
OOBA 940 
OOBA 950 
OOeA 960 
OOBA 970 
OOBA 980 
OOBA 990 
DDBAIOOO 
OOBAlOtO 
OOBA 1020 
0DeAt030 
00eA1040 
DOB At 050 
DDBA1060 
D0BA1070 
ODSAIDSa 
OOBA1090 
OOBAllOO 
ODSAlllO 
00BA1I20 

DOSAl L40 
DDBA1150 
D06Atl60 
ODBA 11 70 
ODBAllSO 
OOBAllOO 
00BA1200 
0OBA121O 
DOB A 1220 
0DBA1230 
DDBA 1 240 
DOBA 12 50 
DOBA 1260 
D0BA1270 
006AI2aO 
OOBA 1290 
OOBAL300 
DOBA1310 
OOBA1320 



SUBROUTINE ODB AR I X. H. IH.FC T.Z ) 



DIMENSION AUXnO) 

DOUBLE PRECISION X.FCT, 2, AUX, A,B,C ,D,DH,HH 



NO ACTION IN CASE Of ZERO INTERVAL LENGTH 
IF(Hll,iT,l 



0-X 

0«FCT(DI 
IF(IHt2,9.2 
2 HH-.50-2 

IF(C-HH)3i4,4 

4 HH-0SIGN1HH.6I 

Z-0A6St (FCTfX't'HHl-Ol/HHI 

A-OABSIOI 
HH- 1,0-2 
IF(A-1, 0016, 6,5 

5 HM-HH*A 

6 1FIZ-1.00I6.6.7 

7 HH«HH/Z 
B IFIHH-CI10,I0(9 
9 HH"B 

10 HH>OSIGN(HH.«l 

INITIALIZE OIFFERENTIATION LOOP 
Z<(FCT(X4>HH)-Dt/HH 
J*10 
JJ-J-l 
AUK(JI>Z 
0H=HH/0FL0ftT(JI 
DZ-I.E75 

START DIFFERENTIATION LOOP 

11 J=J-1 
C-J 

HH-C»OH 

AUXl J»«(FCT(K»HH1-0I/HM 

INITIALIZE EXTRAPOLATION LOOP 
02-1.E75 

e>o.Do 

A=1.00/C 

START EXTRAPOLATION LOOP 
DO 12 I -J, J J 
01 = 02 
6-B«A 

HH=(AUX( 1 >-AUX( I* M l/B 
AUK(l*l)=AUX(ll»MH 

TESr UK OSCILHriNG INCREMENTS 
02-OA8S(HHl 
IFI02-0I 112,13,13 

12 CONTINUE 

END OF FHTRAPOLAT ION LOOP 

UPDATE RESUIT VALUt I 
I-JJ«I 
GO 10 14 

13 D2'=01 
JJ-I 

14 IF(02-07Ii5. 16,16 

15 0Z=02 
2=AUX(II 

16 IF(J-ni7,17,U 

END Cf OlFFf PENT lAT ITN t OOP 
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Ordinary Differential Equations 
Subroutine RKl 

This subroutine integrates a given function using the 
Runge-Kutta technique and produces the final com- 
puted value of the integral. 

The ordinary differential equation: 



^' '(^-) 



(1) 



with initial condition y(xQ) = yg is solved numerically 
using a fourth-order Runge-Kutta integration proc- 
ess. This is a single-step method in which the value 
of y at X = Xn is used to compute yn+l = Y(Xn+i) and 
earlier values yn-1, yn-2, etc. are not used. 
The relevant formulas are: 



Vl=\"^/^[*^0"'^"''^2"^3] 



where, for step size h: 



^=^^^'V 



{ 



k^=hf(x^ + h/2, y^ + \/2) 
k2=hf(x^ + h/2, y^ + 'k/2) 
k =hf(x^ +h, y^ +k ) 



Uet.Ctll^€ OKI 



1 CIFFE«EMI*L tCLAllCK 
■ FEClflEC Ht.iL VALUE 



C«LL f KUFLK.t- I.Xl 



VI ,xFt>f lAfSf t'K^Vf iei«} 



CESCFK 



nc 

-LSEW 

*>nc 

-iFt 

-IMI 

-IMI 
-F IK« 

-f IM 
-H(S(, 
-BESL 

Hie 

-ttmtc 
Its 



Cf p* 
SLFF 
^ CI 
<1EP 
141 
I/L 
L VA 
L 'tk 
Ll*^ 
LIAK 
Ef> «' 
^CI^ 
B CC 
C tiC 
I SI 



EC ^l>^C^C^ SUEFBCGC*^ NITH »tiGUfEMS x.v 
\|{S CV/DX 

SUE 
VJILE CF II 

Si*LL( CF 'r h^EKE Yl-YU"! » 
LLC CF X 
Ut CF V 

I HN*L V*lLt Cf * 
I flML VALLE Cf 1 

^iX hlLL eCLAl KF C» A^51 hILL ECLAL tf 
G tlv hHltl- IS BEAChEC FIfiSI 
CE 

rtCP 

SWt IS ZtHC 



Ah5 



IS ZtdC. IfcK IS SET IC CNE, iKS» 
IS StI K ItfC 



IS SET IC Kl. 



SCEPCtllKtS ifcC FLKCIIQK SLff i*CCH ACS PEtLIREC 

Ft^ IS A IhC AHCCt'ENI FCfrCUCS SCePWCCPAH FLBMShEC BY THE 
LSEB, Clt/CH-FL^ Oi.*! 

CAlllKt fttCG.iAP KLSI fAVE fC«IBAh EkUCNAL 5I«IE«'E^T 
C^;M«IM^C fcACES CF FLKCIICK SteP>*CGH A*«S LISIEC Ih CALL IC 

em 
»'CI^cc 

(.StS FCCMit- CKCEO RU^CE-KlItA IKIECAAllCh PPCCESS Ch A 
I^ECLASIht eASIS AS SHChh IK F.B. t-ILCEBRANCt • IMtfCOUCt I CN 
K ^CfEftlCA(. AhALVSIS*.fCCRAk-l-I(.l.lS!£. FRCCfSS I« 
lEHPUATEl A^C FIKAL VAtLE ACJCSTEC h(-EK EIT^£H XF HR Yf 
i! ftfChEC. 



HCLIIhE t<KllFLh.»-l>Xl,VI,]iF,>f,dhS}>.A^SV,IER) 



IF A CCLeLt FFiEClSICK W£«SIC^ CF Tt-IS POLIISE IS tESl»fC, IHE 



(2) 



(3) 



RKl 

HK 1 
RKl 
WKl 
RKl 
RKl 
KKt 
RKl 
RKl 
RKl 
lift I 
RKl 



RKl 
RKl 
RKl 

RKl 
RKl 
XK 1 
RKl 

RKl 

B«l 
RKl 



RKl 
RKl 
KKl 

RKl 

RKl 

RKl 
RKl 

RKl 
RKl 
ItKl 

HKl 

RK 1 

RKl 
RKl 
RKl 
RKl 
RKl 
RKl 

.RKl 
RKl 
RKl 
RKl 

.RKl 



80 
90 
100 
111 

l^o 

no 

1*0 
150 
160 
ITO 

140 

no 

200 
210 
2?0 
230 
240 
250 
260 
210 
260 

2 "JO 
300 
)10 
320 

3 30 
3*0 
550 
560 
3 70 

sen 

i<io 

*00 

*I0 

«20 ' 

h^O 

440 

4^0 

460 

4T0 

480 

4^0 

SOO 

510 

520 

530 

540 



L IK CClLrK I StiCLLC E6 RCfCwEC fRO* 
nitt^EM fcMCt- fCLLLkS. 



Il-E CCUtfLE FtftCISICK 



IICieiE rCtClSlCK F l ,kl,Vl,XF*Vf .A\SM.AKSV,h.VS.tN.FKEh.xKl.VM, 
1 xX,tt.XKtk>VhCh<e2.TI«I2tt3*l4.FLh 

IFE C RtSI Ai£C (E HlPCttC ff>Cf CCLfilE #RECISICK SrATE*4EKTS 
AFPtlHlhC Ih tlbEH RCCllKt! LStO IK CCKJCKCTICN kITf- THIS 
RCLIIfE. \ 

I.:EK FLhCTICK SLt!FRCCRA»', FL^t HLST EE Ih DCLBLE PhCCISICh. 



IF >F i: less Itlh CF EhiUAL IC *X, PElLDK »1.VI AS AhSkEfl 

lER-C 

IF II>F->1 I 11.11,12 
11 AKSX-XI 
AMWI 

VEILRK 

1E;1 IMEKVa VAILE 

IFII-II lt.l4.2C 
14 1E>^-1 
AMXVI 

ak;>-c.c 

fitlLRK 
U t'-H 

SEI Xh-lKItlAL K.Vh-lMTIAL 1 

VK-VI 

IKTECRAU CKE TIPE STEP 

t-KEk-f 
jt-t-f' 1 

CC IC nc 

it >M»>)i 

VM- »V 

CCFAPE »M l-Jilh^in IC X FlhAt AMJ IJRAKCI- ACCCPOIKCLV 
lFl)iM->F )SC.?C.4C 

>M.)rF, ^■tIt.B^ OF.VMI *S /K<*eH 

3C A^S*«>F 
*^s^-Y^l 
CC IC Hi 

XKI CREAIER IFAK HF . ^EI Kbk SIEP SIZE AKC IMECkATE CKC STEP 
l<EIL^K REHLIS CF IMEGRATlCh H A^Sht•) 

4C l-fEk>*lF->K 

CC 1L nc 

4i A(iSl*>X 

AKSY-TV 
CC TC 16C 

>M LESS IFAh X FlhAl, CI-ECK IF IY^,*^1I SPAK T FUAL 

5C IFinM-^FMITF-tM IfC.ICllC 

VM IhC \h CC Ktl SFAK VF. SCI IXK.YM AS OM.VMJ AKC MfPEAT 
<C Yh-VM 

CC IC uc 

EIIFtt' *fc C* YM -YF. Ct-ECK hUCt- AKC SET FFCt-ER (>,Y| A; A^S^.EH 
TC IFI»M-*FI8C.ICC,£C 

ec A^s»«YK 

CC IC UC 

ICC *^SY-YM 
ArSX'MM 
GC IC UC 



; Vh AKt YM SFAK IF. IRV TO F|KC > VALLC ASSCClAteC hlTh YF 

lie CC I4C IM.IC 

IMERFCLAIE K flKC KEh TIfE STEP AKO IMEGRAIE CKE SIEP 
IRY lEK IMEUfClAIICKS AT FCSI 

FfEk<((YF->K )/nM-YMM{XM-yM 

CC TC nc 

11! IKEh>RX 

YKEh-YY 

CCPFAFt CCfFUlEC T VALLE liUF- YF iKO EPA^CH 

IFIYhEk-YFlUC.I^C.UC 

AGVAKCE. VF IS CETMEEh Yheti AKC YKl 

12C VO-VkEk 
XK-XKEh 
CC TC 14C 

ACVAKCe. VF U CEThCEh Vh AhO VKEh 

nc Yhl-VkEk 

RKl-RhCh 

14C CCKTIKCE 

RCTURf (AI^Eb.VFI iS ihShEft 

ISC AASX'NItCh 

AKSV*VF 
ICC RETURIk 

lie l-2«FfEk/2.0 

II-Ftk£h4Ft*i(liK,VKI 

T3-l-K£l>«FCI>lAh«l-2.Ylii«l2/2.CI 

l4't>|i£ti«FtlkUlk4MkEk.VK«T3l 

VY*Vh4(11«2.C«12«2.C*l3«T4l/«.C 

XX>)lK«fKCb 

GC TC 1<5.4S.U5I* JCfP 

EKC 



RKl 


S50 


RKl 


560 


RKl 


5 70 


RKl 


590 


RKl 


590 


RKl 


too 


RKl 


510 


KKl 


620 


RKl 


6 30 


RKl 


640 


RKl 


650 


RKl 


660 


.RKl 


670 


RKl 


A 80 


RKl 


6<}0 


RKl 


700 


RKl 


T05 


RKl 


TIO 


RKl 


720 


RKl 


r30 


RKl 


740 


RKl 


750 


RKl 


760 


RKl 


770 


RKl 


790 


RKl 


790 


RKl 


BOO 


RKl 


«in 


PKl 


azo 


RKl 


■130 


RKl 


d40 


RKl 


a 51 


RKl 


860 


RKl 


970 


RKl 


880 


RKl 


AW 


RKl 


900 


RKl 


910 


RKl 


920 


RKl 


930 


BKl 


940 


RKl 


950 


RKl 


960 


RKl 


970 


KKl 


9S0 


RKl 


990 


RKl 


1000 


RKl 


ICIO 


KKl 


1020 


RKl 


1030 


RKl 


1040 


SKI 


1050 


H*l 


1060 


RKl 


1070 


■'Kl 


loan 


RKl 


loqo 


RKl 


1100 


BKl 


1110 


RKl 


1120 


RKl 


1130 


RKl 


1140 


RKl 


1150 


RKl 


1160 


HKl 


1170 


RKl 


IISO 


RKl 


1190 


RKl 


1200 


fiKl 


1210 


RKl 


1220 


PKI 


1230 


RKl 


1240 


RKl 


1250 


RKl 


12«0 


RKl 


1270 


RKl 


1280 


RKl 


12<30 


RKl 


130n 


RKl 


1310 


RiCl 


1320 


RKl 


030 


RKl 


1340 


.IKl 


1350 


KKl 


1360 


RKl 


13T0 


RKl 


13R0 


RKl 


1390 


RKl 


140CI 


RKl 


1410 


RKl 


1420 


RKl 


14 30 


RKl 


1440 


RKl 


1450 


RKl 


1460 


RKl 


1470 


RKl 


1480 


RKl 


1490 


RKl 


1500 


RKl 


1510 


RKl 


1520 


RKl 


1530 


HKl 


IS40 


RKl 


1550 


RKl 


L960 


RKl 


1570 


RKl 


i9sa 


RKl 


1590 


KKl 


1600 


KKl 


uto 


RKl 


1620 


RKl 


1630 


ItKt 


1*40 


ft«I 


1650 


Ml 


1660 


RKL 


1670 


Ml 


16flO 


KKl 


1690 


A«l 


ITOO 


HKl 


1710 


RKl 


1720 


RKl 


17J0 


RKl 


1760 


RKt 


1750 


AKt 


1760 


RKl 


1770 


RKl 


1780 


RKl 


1790 


RKl 


1«00 


RKl 


1810 


RKl 


1120 


RKt 


UM 


RKl 


1840 
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Subroutine RK2 

This subroutine integrates a given function using the 
Runge-Kutta technique and produces tabulated values 
of the computed integral. 

The ordinary differential equation: 



dx 



= f(x,y) 



(1) 



with initial condition ylx^) = y^ is solved numerically 
using a fourth-order Runge-Kutta integration proc- 
ess. This is a single-step method in which the value 
of y at X = xn is used to compute yn+i = yCx^+i) and 
earlier values yn-i, yn-2. etc. are not used 
The relevant formulas are: 



where, for step size h: 



k, =hf(x + h/2, y + k /2) 
1 n ' -^n ' 

k =hf(x +h/2, y +k /2) 
^ n n 1 

'^3 = '^f(\ + '^'y„^S) 



(2) 



(3) 



SUBItOUriNE IIK2 

PUR pose 

INTEGRATES A FIRST ORDER OlFFERCNTfAt. EOUATION v 

OV/OJ(«fUH(I(.y| ANO MOOUCeS A FAfllE OF INTEGRATEO VAtUES 
USAGE 

CAtL «K2IFU«,H,K|,ri,*t,««V€CI 

OeSCAfPTION OF PARANETERS 

FUN-gSER-SUPPLI60 FUNCTION SUBPROGRAM HITH ARCUNCNTS X.V 

WHICH GIVES OY/DK 
H -STEP SIZE 
KI -INITIAt VALUE OF X 
H -INITIAL VALUE OF T WHERE ri*r(X|) 



RK2 

>RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
kK2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 



K -THE INTERVAL AT WHICH COHPUTED VALUES ARE TO SE STORED RK2 

H -THE NUMBER OF VALUES TO BE STORED «= " <»'^ >»™E0 «« 

VEC-THE RESULTANT VECTOR OF LENGTH N IN WHICH COHPUTEO 
VALUES OF V ARE TO BE STORED 



REMARKS 
NONe 



RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
HK2 



SURROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

FUN - US€R-SUP#LIE0 FUNCTION SUBPROGRAM FOR OV/OX 
CALLING PROGRAM MUST HAVE FORTRAN eXTERNAt STATEHENT 
CONTAINING NAMES OF FiiNCTION SUBPROGRAMS tlSTEO IN CALL TO R« 
**^ RK2 

METHOO J[[| 

FOURTH OROER RUNGE-KUTTA INTEGRATION ON A RECURSIVE BASIS ASRK2 
SHOWN IN F.B. HIL0E8RANO, MNTROOUCTION TO NUmSiCAL 
ANALYSIS*. MCGRAW-HILL. NEW YORK, 1956 



RK2 

RK2 
RK2 



TO 
SO 
«0 
100 
110 
120 
DO 
140 
ISO 
160 
ITO 
IBO 
190 
200 
210 
220 
230 
240 
2S0 
2*0 
270 
280 
290 
300 
310 
320 
330 
340 
3S0 
360 
3 70 



SUBROUTINE RK2( FUN, H. XI , YI ,K,N, VEC) 



RK2 390 
RK2 400 
RK2 410 



IF A DOUBLE PRECISION VERSION OF THIS ROUTINC IS DESIRCO. THE 
C IN COLUMN I SHOULD BE REMOVED FROM THE DOUBLE PRECISION 
STATEMENT WHICH FOLLOWS. 

OOUflLE PRECISION H, XI .YI, VEC.H2 . Y,X.TUT2.T3, T4,F0N 

THE C RUST ALSO «£ REMOVED FROM DOUBLE PRECISION STATEMENTS 
APPEARING IN OTHER ROUTINES USED IN CONJUNCTION WITH THIS 
ROUTINE. 

USER FUNCTION SUBPROGRAM, FUN, MUST BE IN DOUBLE PRECISION. 



DIMENSION VECIU 
H2-H/2. 

y»Yi 

X-XI 

DO 2 I'l.N 

DO 1 J-l.K 

T1-H»FUN(X,Y1 

T2-H«FUN(X*H2.Y«^Tl/2. I 

T3*H*FUNrx*H2,Y*T2/2.I 

r4*H*FUN(X«+l,Y*T3l 

V- V*(TI*2.*T2*2.«T»»T4>/6. 

X»X»H 

VEC( I )-r 

RETURN 

ENO 



RK2 
RX2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
RK2 
.RK2 



430 
440 

«so 

460 
470 
490 
490 
500 
$10 
S20 
530 
540 
550 
560 



RK2 590 

RK2 600 

RK2 610 

RK2 620 

RK2 630 

RK2 640 

RK2 650 

RK2 660 

ftK2 6T0 

RK2 660 

RK2 690 

RK2 TOO 

RK2 no 

RK2 720 
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Subroutines RKGS and DRKGS 

These subroutines use the Runge-Kutta method for 
the solution of initial-value problems. 

The purpose of the Runge-Kutta method is to ob- 
tain an approximate solution of a system of first- 
order ordinary differential equations with given 
initial values. It is a fourth-order integration pro- 
cedure which is stable and self-starting; that is, 
only the functional values at a single previous point 
are required to obtain the functional values ahead. 
For this reason it is easy to change the step size h 
at any step in the calculations. On the other hand, 
each Runge-Kutta step requires the evaluation of the 
right-hand side of the system four times, which is 
a great disadvantage compared with other methods 
of the same order of accuracy, especially predictor- 
corrector methods. Another disadvantage of the 
method is that neither the truncation errors nor 
estimates of them are obtained in the calculation 
procedure. Therefore, control of accuracy and 
adjustment of the step size h is done by comparison 
of the results due to double and single step size 2h 
and h. 

Given the system of first-order ordinary differ- 
ential equations: 









^n^ *r = ^n<^' ^1' ^2' •••' yJ 
and the initial values: 



^l^'o' = ^1, 0' y2('^o) =^2,0' ■■■' \^\'^ = \, 



and using the following vector notations: 



y^(^)\ 



f^(x,Y) 



Y(x) = y2(x) I , F(x, Y) = f^(x, Y) 



Y = I v 
' I 2,0 



y„(x) 



,y^'^/ 




where Y, F and Yq are column vectors, the given 
problem appears as follows: 



. dY 
Y' = 3— = F(x, Y) with Y(x ) = Y 
dx \ > ' \ qI q 



With respect to storage requirements and com- 
pensation of accumulated roundoff errors, Gill's 
modification of the classical Runge-Kutta formulas 
is preferred. Thus, starting at xq with Y(xo) = Yq 
and vector Qo = 0, the resulting vector Y4=Y(xo + h) 
is computed by the following formulas: 



K = h . F(x , Y ) 
1 ^00' 



;Y^=Y^-(K^-2Q^) 



Kg^h 



Q,=Qo-3[|(K^-2Q^)]-iK^ 

Q2 = Ql - 3 [(1 -JlxK^ - Q^)] - (1 -J|)K2 



^^fi>' 



(1) 



S=S"=^C(i>/5(S-Q2>]-(i^>/ls 

K^=h. F(x^.h, Y3) ;Y4=Y3.|(K^-2Q3) ; 



%=%''k^\-'V^ 



k\ 



where Ki, K2, K3, K4, Yi, Y2, Y3, Y4, Qi, Q2, 
Q3, Q4 are all column vectors with n coniponents. 
If the procedure were carried out with infinite 
precision (that is, no rounding errors), vector Q4 
defined above would be zero. In practice this is not 
true, and Q4 represents approximately three times 
the roundoff error in Y4 accumulated during one step. 
To compensate for this accumulated roundoff, Q4 
is used as Qq for the next step. Also (xq + h) and Y4 
serve as xq and Yq respectively at the next step. 

For initial control of accuracy, an appx'oximation 
for Y(xo + 2h) called Y(2) (xq + 2h) is computed using 
the step size 2h, and then an approximation called 
y(1) (xq + 2h), using two times the step size h. From 
these two approximations, a test value 5 for ac- 
curacy is generated in the following way: 



1 " 

= - y 
1^ i=i 



a. 
1 



y«-,/^>l 



(2) 



where the coefficients aj are error-weighte epecifled 

in the input of the procedure. 

Test value 5 is an approximate measure for the 
local truncation error at point xo+2h. If 3 is greater 
than a given tolerance «2. increment h is halved and 
the procedure starts again at the point xq. If 5 is 
less than <2, the results Y(l) (xo+h) and Y(l) (xo+2h) 
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are assumed to be correct. They are then handed, 
together with xq + h and xq + 2h and the derivatives 
at tiiese points — that is, the values of f[xq + h, 
yO-) (xo+h)] and F[xo+2h, Y(l) (xo+2h)] respective- 
ly — to a user-supplied output subroutine. 

If 6 is less than *i = *2/50, the next step is 
carried out with the doubled increment. However, 
care is taken in the procedure that the increment 
never becomes greater than the increment h specified 
as an input parameter, and further that all points 
xo + j . h (where j = 1, 2, . , . ) which are situated 
between the lower and upper bound of the integration 
interval are included in the output. Finally, the 
increment of the last step of the procedure is chosen 
in such a way that the upper bound of the integration 
interval is reached exactly. 

The entire input of the procedure is: 

1. Lower and upper bound of the integration 
interval, initial increment of the independent vari- 
able, upper bound *2 of ^^^ local truncation error 

2. Initial values of the dependent variables and 
weights for the local truncation errors in each com- 
ponent of the dependent variables 

3. The number of differential equations in the 
system 

4. As external subroutine subprograms, the 
computation of the right-hand side of the system of 
differential equations; for flexibility in output, an 
output subroutine 

5. An auxiliary storage array named AUX with 
8 rows and n columns 

Output is done in the following way. If a set of 
approximations to the dependent variables Y(x) is 
found to be of sufficient accuracy, it is handed — 
together with x, the derivative F[x, Y(x)] , the 
number of bisections of the initial increment, the 
number of differential equations, the lower and upper 
bound of the interval, the initial step size, error 
bound *2) and a parameter for terminating subroutine 
RKGS or DRKGS — to the output subroutine. Because 
of this output subroutine, the user has the opportu- 
nity to choose his own output format, to handle the 
output values as he wants, to change the upper error 
bound, and to terminate subroutine RKGS or DRKGS 
at any output point. In particular, the user is able 
to drop the output of some intermediate points, 
printing only the result values at the special points 
X() + n. h(n=0, 1, 2, ...). The user may also 
perform intermediate computation using the integra- 
tion results before continuing the process. 

For better understanding of the flowchart and of 
the FORTRAN program. Figure 32 shows the alloca- 
tion of special intermediate result vectors within the 
storage array AUX. 

For reference see A. Ralston/H. S. Wilf , Mathe- 
matical Methods for Digital Compu ters , Wiley, 
New York/London, 1960, pp. 110-120, 



AUX 



function vector Y(x) 



derivative vector F(x, Y(x)) 



vector of accumulated roundoff 
at point X 



function vector Y(x+2h) for 
testing purposes 



function vector Y(x-l4i) 



vector of accumulated roundoff 
at fxjint X +h 



derivative vector F(x+h, Y(x+h)) 7 



2, 



5. 



vector of error weights 
multiplied by 1/15 



row (AUX (1) in flowchart) 

row (AUX (2) in flowchart) 
row (AUX (3) in flowchart) 

row (AUX (4) in flowchart) 

row (AUX (5) in flowchart) 
row (AUX (6) in flowchart) 

row (AUX (7) in flowchart) 
row (AUX (8) in flowchart) 



Figure 32. Storage allocation in auxiliary storage array AUX 
(RKGS -DRKGS) 



SU8«auriNE RUGS 

puftpose 

ro SOLVE A SrsrEH of first OROER OftOINAKV DIFFERENTIAL 
EQUATIONS MITH GIVEN INITIAL VALUES. 

USAGE 

CALL RKGS (P4nr,Y,OERV,N0IN, IHLF(FCT)QUIP«AUIt 
PARAMETERS FC F AND QUTP REQUIRE AN EXTERNAL STATEMENT. 



10 



40 



RKGS 
RKGS 
RKGS 
RKGS 
RKGS 
RKGS 
RKGS 
RKGS 
RKCS 
RKGS 100 
RKGS 110 
RKGS 120 
RKGS 190 
RKGS 14^0 
RKGS ISO 
RKGS 160 
RKGS 170 



DESCRIPTION OF PARAMETERS 

PRMT - AN INPUT AND OUTPUT VECTOR UITH DIMENSION GREATER 

OR EQUAL TO 5* MHICH SPECIFIES THE PARAMETERS OF 

THE INTERVAL ANO OF ACCURACY AND WHICH SERVES FOR 

COMMUNICATION 8ETtfEEN OUTPUT SUSROUTINE (FURNISHED RKGS ISO 

8Y THE USERI AND SUSROUTINE RKCS« EXCEPT PRHTI5I RKGS 140 

THE COHPONENTS ARE NOT OESTROTEO BY SUBROUTINE RKGS 200 

RKGS AND THEY ARE RKGS 210 

PRHT(l)- LOWER BOUND OF THE INTERVAL (INPUTIt RKGS 220 

PRHTIZI- UPPEft BOUND OF THE INTERVAL IINPUTI. RKGS 230 

PRNTISI- INITIAL INCREMENT W THE INOEPENOENT VARIABLE RKGS 240 

(INPUT) , RKGS 250 

PRMTI^I- UPPER ERROR BOUND tINPUTl. IF ABSOLUTE ERROR IS RKGS 260 

GREATER THAN PRNTUI* INCREMENT GETS HALVED. RKGS 270 

IF INCREMENT IS LESS THAN PRHTOt AND ABSOLUTE RKGS 280 

ERROR LESS THAN PRNT(4I/S0« INCREMENT GETS OOUBLED.RKGS 290 



THE USER MAY CHANGE PRNTH) BY MEANS OF HIS 
OUTPUT SUBROUTINE. 

PRMTISI- NO INPUT PARAMETER. SUBROUTINE RKGS INITIALIZES 
PRHTISI*0. IF THE USER HANTS TO TERMINATE 
SUBROUTINE RKGS At ANY OUTPUT POINT, HE HAS TO 
CHANGE PRMr(SI TO NON-ZERO BY MEANS Of SUBROUTINE 
OUTP. FURTHER COMPONENTS OF VECTOR PRMT ARE 
FEASIBLE IF ITS DIMENSION IS DEFINED GREATER 
THAN 5. HOWEVER SUBROUTINE RKGS DOES NOT REQUIRE 
AND CHANGE THEM. NEVERTHELESS THEY HAY BE USEFUL 
FOR HANDING RESULT VALUES TO THE MAIN PROGRAM 
(CALLING RKGSI WHICH ARE OBTAINED BY SPECIAL 
MANIPULATIONS WITH OUTPUT DATA IN SUBROUTINE OUTP 

Y - INPUT VECTOR OF INITIAL VALUES. (OESTROVEOI 

LATERON Y IS THE RESULTING VECTOA OF DEPENDENT 
VARIABLES COMPUTED AT INTERHEOIATC POINTS X. 

OERY - INPUT VECTOR OF ERROR HEIGHTS. (DESTROYED) 

THE SUM OF ITS COMPONENTS MUST BE EQUAL TO 1. 
LATERON DERY IS THE VECTOR OF DERIVATIVES, WHICH 
BELONG TO FUNCTION VALUES Y AT A POINT X. 

NDIN - AN INPUT VALUE, WHICH SPECIFIES THE NUMBER OF 
EQUATIONS [N The system. 

IHLF - AN aUTPUT VALUE, WHICH SPECIFIES THE NUMBER OF 

BISECTIONS OF THE INITIAL INCREMENT. IF IHLF GETS 
GREATER THAN 10. SUBROUTINE RKGS RETURNS WITH 
ERROR MESSAGE IHLF=11 INTO MAIN PflOCRAM. ERROR 
MESSAGE IHLF-t2 OR lHLF=13 APPEARS IN CASE 
PRMT(3)-0 OR IN CASE S IGNIPRMT ( 3 ) I . 
PRMTdll RESPECTIVELY. 

FCT - THE NAME OF AN EXTERNAL SUBROUTINE USED. THIS 

SUBROUTINE COMPUTES THE RIGHT HAND SIDES DERY OF 
THE SYSTEM TO SIVEN VALUES X AND V. ITS PARAMETER 
LIST MUST BE X,Y,0ERY. SUBROUTINE FCT SHOULD 
NOT DESTROY K AND Y. 

OUJP - we AUMf OF M ^iTfAUlL OUTPUT SUWOUflNC USCO. 

ITS PARAMETER LIST MUST 6E X ,Y ,D£«V , IHLF, NOIM, PRMT.RKGS 650 

NONE OF THESE PARAMETERS (EXCEPT. IF NECESSARY, RKGS 660 

PRMTI^I .PRHT(5I....) SHOULD BE CHANGFO BY RKGS 670 

SUBROUTINE OUTP. IF PRMT(5I IS CHANGED TO NON-ZERO, RKGS 6«0 



RKGS 300 
RKGS JIO 
RKGS 120 
RKGS 330 
RKGS 340 
RKGS 3 SO 
RKGS 360 
RKGS 370 
RKGS 380 
RKGS 390 
RKGS 400 
RKCS 410 
RKGS 420 
RKGS 430 
RKGS A40 
RKGS 4S0 
RKGS 460 
RKGS 470 
RKGS 480 
RKGS 490 
RKGS SOO 
KKGS 510 
RKCS S20 
RKGS 530 
RKGS 540 
RKGS SSO 
RKGS S60 



RKGS 590 

RKGS 600 

RKGS 610 

RKGS 620 

RKCS 630 

RKGS 640 



SUBROUTINE RKGS IS TERMINATED. 
AUX - AN AUXILIARY STORAGE ARRAY WITH 8 ROUS AND NOIM 
COLUMNS. 

REMARKS 

THE PROCEDURE TERMINATES AND RETURNS TO CALLING PROGRAM, 
(II MORE THAN 10 BISECTIONS OF THE INITIAL INCREMENT ARE 



RKGS 690 
RKGS 700 
RKGS 710 
RKGS 720 
RKGS 730 
If RKGS 740 
RKGS 750 
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Nec£ss»Rr TO cer satisfactory accuracy ierror mcssage 

IHLF'UI. 
^2} INITIAL INCREMENT IS EQUAL TO O OR HAS WRONG SIGN 

IERROR MESSAGES IHLF-L2 OR IHLf>^L3>. 
(31 THE WHOLt INTEGRATION INTCRVAL IS WORKED THR31IGH, 
(*» SUBROUTINE OUTP HAS CHANGEO PRHT15I TO NON-ZERO. 

SUBROUTINES ANO FUNCTION SUBPROCRAHS REOUlR£E> ^ 

THe EXTERNAL SUeROUTINES FC T ( K. Y.OERY) AND 
OUTP(X,Y,DEftY,lHLF,NOI»l,PRHT> MUST BE FURNISHED SY THE USER 

METHOD 

EVALUATION IS DONE BY MEANS OF FOURTH ORDER RUNGE-KUTTA 

FORHULAE IN THE HOOIFICATION DUE TO GILL. ACCURACY IS 

TESTED COMPARING THE RESULTS Of THE PROCEDURE WITH SINGLE 

ANO DOUBLE INCREMENT. 

SUBROUTINE RKG5 AUTOMATICALLY ADJUSTS THE INCREMENT DURING 

THE WHOLE COMPUTATION BY HALVING OR DOUBLING. IF MORE THAN 

iC BISECTIONS OF THE INCREMENT ARE NECESSARY TO iET 

SATISFACTORY ACCURACY, THE SUBROUTINE RETURNS WITH 

ERROR MESSAGE IMLF-IX INTO MAIN PROGRAM. 

TO GET FULL FLEXIBILITY IN OUTPUT, AN OUTPUT SUBRQUTINE 

MUST BE FURNISHED BY T* USER. 

FOR REFERENCE* SEE 

RALSTON/UILF. MAIHENATICAL METHODS FOR DIGITAL COMPUTERS, 

WILEY, NEW V3RK/L0N00N. 196C, PP. 110-120. 



SUBROUTINE R«GSIPRMT,Y,06RY,NDIM, IHLF .FCT.OUTP, AUXI 



DIMENSION Vlll.0ERY(l|,AUX{a,L),A<4I.B(AI .CI4 ) . PRMTI 1. 1 
00 L I>1,N0IM 
i AUX<8*I l-.066&66&T*OERYCi > 
X>PRMT< II 
XEN0=PRMT(2I 
H-PRMT( 3) 
PRMr(5l«0. 
CALL FCTIX.Y.DERYI 

ERROR TEST 
lF(H*(XEND~xn38,37,2 

PREPARATIONS FOR RUMCE-KUTTA METHOD 

2 A(l)».5 

A( 2 l=. 2929932 

4(31=1. T07107 

AU) = *1666667 

B( l)-2. 

Bt2)«t. 

BOI'l. 

B(*>-2. 

C( U-.5 

C(2)*.2928S32 

C(S>-I. 707107 

C(*l'.5 

PREPARATIONS OF FIRST ftONGE-tCUTTA STEP 
00 i l=l.NOIN 

Auxi 1.1 t>T( n 

AUJC(2. I l>OERY(I ) 
AUXI )tl 1*0. 

3 AUX(6, I 1-0. 
IREC=0 
H*H»H 
IHLF--1 
ISTEP-O 
IENO-0 



START OF A RUNGE-KUTTA STEP 

4 IFI (X*-H-X£N0l*HITt6,S 

5 H*XENO-K 

6 I END" I 

RECORDING OF INITIAL VALUES OF THIS STEP 

7 CALL OUTP(X,V,OERY,|REC,NOIM,PRMT» 
IFIPRMTtSlt^O, S,40 

e ITEST^O 

9 ISTEP=ISTEP*1 



START OF INNERMOST RUNGE-KUTTA LOOP 

J*l 
10 AJ>A(J) 

flJ-8( J) 

CJ-C(JI 

DO U I*l,NOIM 

Rl-H«OeRYIII 

R2-AJ*IRl-ej*AUXI6,in 

TlII'Yin^RZ 

RZ«R2*-R2+R2 
U AUXI6,II>AUXI6,II>R2-CJ*RI 

IFI J-4I12.I5,15 

12 J=J*l 
IF(J-3)13,I*,I3 

13 X=R*.5»H 

14 CALL FCTIX.Y.DERY) 
GOTO 10 

END Of INNERMOST RUNGE-tCUTTA LOOP 



TEST OF ACCURACY 

15 IF< ITEST}16.L6.20 

IN CASE ITEST-O THERE IS NO POSSIBILITY FOR TESTING OF ACCURACY 

16 00 17 I*1,N01M 

17 AUXI4,n»YIIl 
1TEST=1 
ISTEP-ISTEP*ISTEP-2 

18 IMLF-IHLF*1 

X-X-H 

H=.5*H 

00 19 I'ltNOIM 
v( I )'AUX( 1,1 I 
0ERYCI>>AUK(2,I) 
IS AUXt6(I )=AUXO,II 
GOTO 9 

IN CASE ITEST-1 TESTING OF ACCURACY IS POSSIBLE 

20 IM0D='ISTeP/2 
IFdSTEP-IHOO-IHOOl 21.23.21 

21 CALL FCTI X.Y.DERYI 
00 22 I-l.NOIM 
AUKt5,I }«Y(I) 

22 AUX{7,I )-OERY( I I 
GOTO 9 



RKGS 760 
RKGS F70 

RKGS 780 

RKGS 790 
RKGS SOO 
RKGS a 10 
RKGS 820 
RKGS 830 
RKGS 840 
,RKGS 850 
RKGS 860 
RKGS 8 70 
RKGS 880 
RKGS 890 
RKGS 900 
RKGS 410 
RKGS 9 20 
RKGS 930 
RKGS 940 
RKGS 950 
RKGS 960 
RKGS 970 
RKGS 980 
RKGS 990 
RKGSIOOO 
RKGS 1010 
RKGS1020 
RKGS 10 3C 
RKGS1040 
RKGS 1050 
RKGS1060 
RKGSIOrO 
RKGS 1060 
RKGS 1090 
RKGS 1100 
RKGSUtO 
RKGS 11 20 
RKGS 11 30 
RKGS1140 
RKGS 11 50 
RKGSL160 
RKCSUTO 
RKGS1180 
RKGS 11 90 
RKGS 1200 
RKGS1210 
RKGS1220 
RKGS12 30 
RKGS 1240 
RKGS1250 
RKGS1260 
RKGS1270 
RKCS12S0 
RKGS129C 
RKGS1300 
RKGStSlO 
RKCS1320 
RKCS1330 
ftKGS1340 
RKGS1350 
RKGS1360 
RKGSU70 
RKGS 1380 
RKCS1390 
RKGS1400 
RKGS1410 
RKGS1420 
RKGS1430 
RKGS 1440 
RKGS 1450 
RKGS 1460 
RKGS14T0 
RKCS14B0 
RKGS 1490 
RKGSISOO 
RKGS1510 
RKGS 1520 
RKGS1530 
RKGS1S40 
RKCS1550 
RKGS1560 
R((GS1570 
RKGS1580 
RKGS 1590 
RKGS1600 
RKGS1610 
RKGSI&20 
RKGS 1630 
RKGS1640 
RKGS 1650 
RKGS 1660 
RKGS1670 
RKGS1680 
RKGS 1690 
RKGSITOO 
RKGSITIO 
RKGS1T20 
RKGS1730 
RKGS1740 
RKGS 1750 
Rl^GS1760 
RKGSUTO 
RKGSIT90 
RKGS1790 
RKGS 1800 
RKGS la 10 
RKGS 1820 
RKGS1830 
RKGSia40 
RKGSia5C 
RKGS1860 
RKGS18T0 
RKGS1880 
KK6S1990 
RKGSI900 
RKG$I910 
RKGS 1920 
RKGS 1930 
RKGS194D 
RKGS1950 
RKGS 1960 
RKGS1970 
RKGS19S0 
RKGS 1990 
RK&S2000 
RKGS2010 
RKGS2020 
RKGS20 30 
RKGS2040 



CUMPUT4T1GN OF TEST VALUE OElT 
23 OELT=C. 

00 24 I=1,N0IM 
2 4 DELT-DfcLT*AJXI8.l )* ABS ( AUX(4, I I- Y( 1 I I 

IFI0£Lr-PRI1TI4I I2B,2«,25 

ERROH I S TOO CHEAT 

25 IFt IHLF-10126, 36, 36 

26 00 2 7 I =1.ND1M 

27 AUX(4. t l^AUXIS. I ] 
ISTEP = lSTEP*ISTEP-'i 
X = K-H 

IEND=0 
GOTO 18 

RESULT VALUES ARE GOOO 

28 CALL FCTI X,Y,oeRYJ 
DO 2-* I = UNOIM 
AUXU.I t = Y(ll 

Aux(2, n=OERyn i 

AUX< 3, I )=AUXt 6,11 
YMI=AUKt5.II 
Z1 OERVI I l=AUX( 7, I) 

CALL 0JTP(X-H, Y.OtRY, I HLF , NOI M, PRMTI 

3C 00 31 l = UN0iM 
Yl I I^AUXI I.I I 

31 DERYl It=AUX12. II 
lREC=lHLf 

IF! IEN0n2, 32. 39 

INCREMENT GETS DOUBLED 

32 IHLF = IriLF-l 
ISTEP=ISTEP/2 
H=Ht-H 

Ifl iHLFI-i.iS.SS 

33 IM0D=ISTEP/2 

IFI i STEP- I MOD- I MOO I 4, 34, 4 

34 IF(0ELr-.02*PRMT(4) 135,35,4 

35 IHLF=IHLF-l 
ISTEP-ISTEPi'2 
H = H*H 

GOTO 4 



liETURNi TO CALLING PROGRAM 
36 IHLF=ll 

CALL FCK X.Y.DtRYl 

GOTO 39 
3 7 IHLF=12 

GOTO 39 
3 8 IHLF=I3 

39 CALL QUTPfX, V.OEHY, IHLF.NOIM.PRMTI 

40 RETURN 
ENO 



RKGS2050 
RK&S206D 
RKGS2070 
RKGS2380 
RKGS2090 
RKGS21P0 
RKGS2110 
RKCS2120 
RICG52L30 
RKGS2140 
RKGS2150 
RKGS2160 
RKGS2170 
RKGS2180 
RKGS2190 
RKGS2200 
RKGS2210 
RKGS2220 
RKGS2230 
RKGS2240 
RKGS225P 
RK&S2260 
RK.GS22 70 
RKGS22flO 
RKGS2290 
RKCS2300 
RKGS2310 
RKGS2320 
RKGS2330 
RKGS2340 
RKGS2350 
RKGS236C 
RKGS237C 
RKGS23a0 
RKGS2390 
fiKGS2A00 
RKGS241D 
RKCS2420 
RKCS2'i30 
RKGS2440 
RKGS2450 
RKGS2460 
RKGS2470 
RKGS2480 
RKGS2490 
RKGS2500 
RK&S2510 
RKGS2520 
RKGS2530 
RKCS2540 
RK&S2550 
RKGS2560 
RKGS2570 
RKGS2560 
RKCS2590 



SUBROUTINE DRKGS 

PURPOSE 

TO SOLVE 
EQUATIONS 



USAGE 

CALL DRi 
PARAMETE 



MI ,y,OERY,NOI M. IHLF ,FCT (OUTP.AUX) 
RS FCT AND OUTP REQUIRE AN EXTERNAL STATEMENT. 



ORKG 
.ORKG 
DRKG 
ORKG 
DRKG 
ORKG 
ORKG 
ORKG 
DRKG 
ORKG 
ORKG 
DRKG 
ORKG 
DRKG 
DRKG 
JRKG 
DRKG 



PRMTI U- 
PRMTI 21- 
PRMTI J)- 



OF PARAMETERS 

DQUflLE PRECISION INPUT ANO OUTPUT VECTOR HUH 

DIMENSION GREATER THAN OR EQUAL TO 5, WHICH 

SPECIFIES THE PARAMETERS OF THE INTERVAL AND OF 

ACCURACY ANO WHICH SERVES FOR CONHUNICATIGN BETUEENORKG 

OUTPUT SUBROUTINE (FURNISHED BY THE USERI AND DRKG 

SUBROUT I N6 DRKSS. EXCEPT PRMT (5) THE COMPONENTS DRKG 

ARE NOT DESTROYED 8Y SUdROUTINE ORKGS ANO THEY ARE DRKG 

LOWER BOUND OF THc INTERVAL CINPUTl. 

UPPER SOUND OF THE INTERVAL IINPUTI, 

INITIAL INCREMENT OF THE INOEPENOENT VARIABLE 

(INPUT! , 

UPPER ERROR BOUNO IINPUT). IF ABSOLUTE ERROR IS 

GREATER THAN PFMTKI. INCREHCNI GETS HALVED. 

IF INCREMENT IS LESS THAN PRflTI3) ANO AdSOLUTE 



ORKG 
DRKG 



DRKG 
0«KG 
ORKG 



ERRllR LESS THAN PflMT(4l/50. INCREMENT GETS DOUBLED. ORKG 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
2 30 
240 
250 
260 
270 

2 60 
290 
300 
310 
320 
330 
340 
350 
36C 

3 70 
380 

390 

400 

410 



THE USER NAY CHANGE PRMTI4) BY MEANS OF HIS ORKG 

OUTPUT SUBROUTINE. ORKG 

- NO INPUT PARAMETER. SUBROUTINE ORKGS INITIALIZES ORKG 
PRMT(5)=0. IF THE USER WANTS TO TERMINATE ORKG 
SUBROUTINE DRK3S AT ANY OUTPUT POINT. HE HAS TO 0R< G 
CHANGE PRMT15» TO NON-ZERO BY MEANS OF SUBROUTINE DRKG 
OUTP. FURTHER COMPONliNTS OF VECTOR PRMT ARE ORKG 
PEASIBLE IF ITS DIMENSION IS DEFINED GREATER ORKG 
THAN 5. HOWEVER SUBROUTINE ORKGS DOES NOT REQUIRE ORKG 
ANO CHANGE THEM. NEveRTHELESS THEY MAY 8E USEFUL DRKG 
FOR HANDING RESULT VALUES TO THE MAIN PROGRAM DRKG 
(CALLING DKKGS) WHICH ARE OBTAINED BY SPECIAL ORKG 
MANI CULATIQNS WITH OUTPUT DATA IN SUBROJUNE OUTP. ORKG 420 

- DOUBLE PRECISION INPUT VECTOR OF INITIAL VALUES DRKG 430 
(OESTROYEO). LATEflON Y iS THE RESULTING VECTOR OF ORKG 440 
OEPENOEMT VARIABLES COMPUTED AT INTERMEDIATE ORKG 450 
POINTS X. DRKG 460 

- DOUBLE PRECISION INPUT VECTOR OF ERROR -EIGHTS DRKG 470 
EOESTROYEOl. THE SUM OF ITS COMPONENTS HUST BE ORKG 480 
EQUAL TU 1. LATtrtON OERY IS THE VECTOR OF ORkG 490 

omnnns, m\CH mohO ro function mm r 4f om m 

INTERMEDIATE POINTS X. ORkC 510 

- AN INPUT VALUE. WHICH SPECIFIES THE NUMBER OF ORKG 52C 
EQUATIONS IN THE SYSTEM, ORKG 5 30 

■ AN nuTPUT VALUE, WHICH SPECIFIES THE NUMBER OF DRKG 540 

aiStCTIONS OF THE INITIAL INCREMENT. IF IHLF GETS ORKG 550 

GREATER THAN 10, SUBROUTINE ORKGS RETURNS WITH ORkG 560 

ERROR MESSAGE IHLF=11 INTO MAIN PROGRAM. ERROR ORKG 570 

MESSAGE IHLF=12 OH |HLF=13 APPEARS INCASE DRKG 560 
PRMTIJI^C OR IN CASE S 1GN( PRMT U 1 I . NE.S I GN( PRMT( 2 ) -ORKG 590 

PRMI(ll) RESPECnvELY. &RKC600 

THE NAME OF AN EXTERNAL SUBROUTINE USED. THIS ORKG &10 

SUBROUTINE COMPUTES THE RIGHT HAND SIDES DERY OF DRkG 620 

THE SYSTEM TO 3IVEN VALUES X aNo Y. ITS PARAMETER DRkG 630 

LIST MUST fl£ X.Y.OERV. SUBROUTINE FCI SHOULD ORKG 640 

NOT 0E5IR0Y X ANO V. QRkG 650 
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QUTP - THE NAME OF *N 6xTEftNAl OUfPUT SUBROUTINE USED. 

IIS PARAMEIER UST MJST BE X, Y .OERY , (HLF, NOIM. P««r 
NONE OP THESE PARAMETERS (EXC£PT. IF NECESSA' 
P«Mr(^I.P«Mr(SI.,..) SHOULD BE CHANGED Br 
SUBROUTINE OUTP. IF PRMTI5J IS CHANGED TO NQN-ZeRO 
SUBROUTINE ORtCGS IS TERMINATEO. 

AUK - OaUBLE PRECISION AUXUIARV STORAGE ARRAV WITH 6 

ROWS AND NDIM COLUMNS. > 

REMARKS 

THE PROCEDURE TERMINATES AND RETURNS TO CALLING PROGRAM, IF 
(11 MORE THAN 10 BISECTIONS OF THE INITIAL INCREMENT ARE 

NECESSARY TO GET SATISEACrORY ACCURACY (ERROR MESSAGE 

IHLF=m, 
£21 INITIAL INCREMENT IS EQUAL TO OR HAS WRONG SIGN 

(ERROR MESSAGES IHLf = U OR IHLF=I3(, 
(31 THE WHOLE INTEGRATION INTERVAL IS WORKED THROUGH, 
(41 SUBROUTHE OUTP HAS CHANGED P«MT(51 TO NON-ZERO. 

SJBROUrlNES AND FJNCTIGN SUBPROGRAMS REQUIRED 
THE EXTERNAL SUBROUTINES FCriX.Y.OERV) AND 
0UTP{«,Y,OERY,IHLF,NOIM,PRMTI MUST BE FURNISHED dY THE USER. 

METHOD 

EVALUATION IS DONE BV MEANS Or FOURTH ORDER RUNGE-KUTTA 

FORMULAE IN THE MODIFICATION 0U£ TO GILL. ACCURACY IS 

TESfEO COMPAftING THE RESULTS OF THE PROCEDURE WITH SINGLE 

ANi> DOUBLE INCREMENT, 

SUBROUTINE DRKGS AUTOMATICALLY ADJUSTS THE INCREMENT DURING 

THE MHDLE COMPUTATION BY HALVING OB DOUBLING. IF MORE THAN 

10 aiSECTIONS OF THE INCREMENT ARE NECESSARY TO iET 

SATISFACTORY ACCURACY, THE SUBROUTINE RETURNS WITH 

ERROR MESSAGE lHLF»ll INTO MAIN PROGRAM. 

TO GET FULL FLEXIBILIIY IN OUTPUT, AN OUTPUf SUBROUTINE 

MUST BE FURNISHED BY THE USER. 

FDR REFERENCE, SEE 

<ALSTON/WlLF, MATHEMATICAL MCTHODS FOR DIGITAL COMPUTERS, 

WILEY, NEW Y3RK/L0N00N, I960, PP. 110-120. 



SUBROUTINE ORKGS t PRMT, Y ,D£fi Y.NOI M, IHLf .f CT.OUTP, AUX I 

DIMENSION Y( U.0ERY{ll,AUK(8,[l,A(4l,BI'il,C(4t, PRMT( I) 
OauaLE PRECISION PRMT,V,OtRy .AUlC.A.e ,C,X,X£N0,H,AJ,BJ,CJ,R1.R2, 
lOELT 
DO I I=1,N01M 
I AUX ( a. I 1= .C>6666t.666t.6(!.6666£.70C-[)£»Y( I 1 
X=PftMT( II 
XENO^PRMTI 2) 

H=PHMT( 31 

PRMT|5I=0.00 

CALL FCTI X,Y,OEHYI 

ERROR TEST 

1F(H*I KENO-XI 1 36, 37.2 

PREPARATIONS FOR RJNGE-KUTTA HETHOD 

2 a ( I I = . 500 

A ( 2) =.2928932 1881 3^52*800 
A( 31=1.70710678118654 7500 
&< ^l = . 166 66666666 66 666 TOO 

at n = 2.00 

6(21=1.00 

B( 31 =1.D0 

B (4 1=2.00 

C( n = .5D0 

C(21 = .2928<9 3218 6134 52 '.800 

C( 31 = 1 . 707106 781186 54 750 

CI4) -. 500 

PREPARATIONS Of FIRST RUNGE-KUTTA STEP 
DO 3 1 = 1,N0IM 
AUXI l.I ) = Y( I 1 
AUXI2. I 1=DERY(I J 
AUXI 3, I 1=0.00 

3 AUX(6. I 1 = 0. DO 
IREC=0 

IHLF=-1 

ISTEP=0 
IEND=C 



START OF A RUNGE-KUTTA STEP 

4 IF( ( X*H-XENDI»H17,6,5 

5 H=XEND-X 

6 ieNo=i 

RECOROING OF INITIAL VALUES OF THIS STEP 

7 CALL OUTP(X,Y,DEftY, IRECNOIM.PRMTl 
IF(PRMT(51 140,8,40 

8 1TE5T=0 

9 ISrEP=ISTEP*I 



START Of INNERMOST RUNGE-KUTTA LOOP 
J=l 

10 AJ = A( J I 

ej=8( J I 

CJ=Ct J I 

00 11 1=1, NDIM 

R1-H»0£RY( I 1 

R2 = AJ*lRl-aj*AUX(6, I I J 

Yl I l = r( I 1»R2 

ft2=R2*R2*ft2 

11 AUX(6, I 1=AUX(6. II*R2-CJ"Rl 
IF( j-41 12, 15, 15 

12 J=J»1 

IFl J- 31 13, 14,13 

1 3 X=X+.500*H 

14 CALL FCr( K, Y,DE«Y» 
GOTO 10 

END OF INNERMOST RUNGE-tCUTTft LOOP 



TEST Of ACCURACY 

15 IF) I TESTl 16, 16,20 

IN CASE [TEST=0 THERE IS NO POSS-'BILITY FOR TESTING OF ACCURACY 

16 OG 17 1=1, NDIM 
I 7 AUX<<., I ( = Y( I ) 

ITEST=I 

isTEP=[STeptisrep-2 

16 IHLF=IHLF*1 
X = X-H 
M=.5D0*H 
00 19 I=l,NOtM 



ORKC 660 
.ORKG 670 
ORKC 680 
ORKG 69C 
ORKG 700 
DRKG 710 
ORKG 720 
DRKG 730 
ORKG 740 
ORKG 750 
ORKG 760 
ORKG 770 

ORKG rso 

ORKG 790 
DRKG 800 
ORKG 610 
ORKG 820 
DRKG 8 30 
DRKG 840 
ORKG 850 
ORKG 860 
■DRKG 870 
DRKG 880 
DRKG 890 
DRKG 900 
DRKG 910 
ORKC 920 
DRKG 930 
DRKG 940 
ORKC 9 50 
ORKG 960 
ORKG 9 70 
ORKG 980 
DRKG 990 
DRKGIOOO 
DRKGICIO 
ORKC1020 
DRKGIOJO 
ORKG1040 
.. .0RKG105C 
DRKG1C60 
ORKG1.070 
ORKG1080 
DftKGt090 
OftKGUOO 
ORKG I no 
OftKG1120 
ORKGil JO 

OKKG1140 

ORKG 1150 

DRKGIL60 
DRKG 1170 
DRKGI180 
0RKG119C 
D«KG1-?0C 
0RKG1210 
DRKGi220 
ORKG1230 
0RKC1240 
DRKG1250 
0RKG1260 
0RKG12 70 
DRKGL280 
0RKG1290 
DRKG 1 300 
0RKG1310 
ORKG13 20 
ORKGl 3 30 
0RKG1340 
OHKG1350 
DRKC136C 
DRKGl 3 70 
DRKG 1380 
DRKG1390 
DflKGl400 
DRKG1410 
DRKG1420 
DHKGi430 
ORKG1440 
DRKG145C 
DRKGt460 
DRKG1470 
DRKG148C 
DRKG1490 
ORKG1500 

ORKGi510 

DRKGl 520 
ORKG 15 30 
ORKG 1540 
ORKG 15 SO 
0BKG1560 
DRKGi570 
DRKG1580 
0RKG159C 
DRK&1600 
DRKG1610 
DRKG1620 
DRKC1630 
DRKG1640 
ORKG1650 
0RKG1660 
0RKG167C 
DRKG1660 
DHKG1690 
DRKG1700 
ORKGl 7 10 
DRKG1720 
DRKGI730 
DRKG1740 
0RKG1750 
ORKG 1760 
0HKG1770 
DRKGl 780 
DRKG I 790 
DRKGiaOC 
OHK&1810 
0RKG182C 
DRKG1830 
DRKGia40 
DRKGiaSO 
DRKGia&O 
0RKG1870 

DRKGieao 

DRKG1890 
ORKG1900 
0RKG1910 
DRKG1920 
0RKG1930 
0RKG1S40 



Yl ( )>AJX( 1, I I 
DERY([I=AUX(2,|) 

19 AUXI6, I I'AUXI 3. I I 
GOTO 9 

IN CASE ITEST=1 TESTING OF ACCURACY IS POSSIBLE 

20 IM0D=ISTEP/2 

IF( lST£P-IMaD-IM0DI2l,23,21 

21 CALL PCTt X,Y,OERYI 
Oa 22 1=1, NDIM 

Aux(5,n = y(ii 

ZZ AUXIT, I I=OERY( I ) 
GOTO 9 

COMPUTATION OF TEST VALUE OELT 
23 DELI*0.DO 

DO 24 Ii'lfNDIM 
2 4 OELT = OELT*AUK< 8,1 1 • DAB S t AUX ( 4 , I l-Ydl ( 

lF(Ll£Lr-PftMT(41 128,28,25 

ERROR IS TOO GREAT 

25 1F( IHLF-1PI26, 36,36 

26 00 27 1=1, NDIM 

27 AUXI 4, I ) = AUXI 5, 1 1 
ISTEP=ISrEP*IST£P-4 
X = X-H 

IENO=0 
GOTO IS 

RESULT VALUES ARE GOOD 

28 CALL FCT(K,Y.0ERY1 
DO 29 1=1, NDIM 
AUX) 1, 1 1=¥( I ) 
AUX(2,n=0£RY(n 
AUXI 3, I )=AUX(6, I I 
r( I l=ijx(5, [ 1 

29 DERYd )=AUX(7,I 1 

CALL OUTP( X-H,Y,DERY,IHLF,NOIM,PRMT) 
IFl PRMr(51 140, 30,40 
3C DO 31 1=1, NDIM 
ri I 1=AUX( 1,11 

31 0£RY( I I =AUXI2, I 1 
IREC-IHLF 

IF( lENO 132, 32,39 

INCREIENT GETS DOUBLED 

32 IHLF=INLF-1 
ISrEP=ISTEP/2 
M = H»H 

IFl INLF 14, 33,33 

33 IMO0=I$TEP/2 

IFl I STEP- I MOO -I MOD) 4, 34, 4 

34 IFIOEL I--0200»PRMTI 41 ) 35,35,4 

35 IHLF=IHLF-1 
I5rEP=I STeP/2 
H = H»H 

GOTO 4 



RETURNS TO CALLING PROGRAM 
16 IHLF =11 

CALL FCTI X, Y.OERYl 
GOTO 39 

37 IHLF=12 
GOTO 39 

38 IHLF=13 

39 CALL OUTPI X,Y,OERY, IHLF, NDIM. PRMTl 

40 RETURN 
END 



DRKG19S0 
0RKG1960 

DRKGiqTO 
0RKG1980 
DRKG1990 
DRKG2000 
0«KG2010 
ORKG202D 
ORK&2030 
0RK&2040 
OflKG2 50 
DRKG2060 
D*tKG20 70 
DftKG209O 
ORKG2090 
D3KG2100 
DHKG2UC 
ORKG2U0 
aHKG2130 
0RKG2140 
ORKG2150 
DRKG2I60 
ORKG2170 
0RK&2iaC 
DRKG2190 
DRKG2200 
ORKG22 10 
DRKC2220 
ORKG2230 
DRKG2240 

DRKG2250 

DRKG2260 
OftK52270 
0RKG22a0 
0RKG2290 
DRKG2300 
DRKG23IO 
ORKG2320 
ORKG2330 
DRKG2340 
ORKG2350 
ORKC2360 
DRK&2 3 70 
DRKG2380 
ORKG2390 
0RKG240C 

ORKG24 10 

0RKG2420 
0RKG2430 
DRKG2440 
DRKG245C 
DRKG2460 
ORKG2470 
0RKG2480 
DRKG2490 
ORKG2 500 
0RKG25I0 
0RKG25^0 
ORKG2530 
0RKG2540 
ORKG2550 
0RKG2560 
0RKG2570 
DRKG25S0 
DRKG2590 
0RKG2600 
0RKG2610 
OflKG2620 
0RKG26 30 
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Subroutines HPCG and DHPCG 

These subroutines use Hamming's modified 
■ predictor-corrector method for the solution of gen- 
eral initial-value problems. 

The purpose of Hamming's modified predictor- 
corrector method is to obtain cui approximate solu- 
tion of a general system of first -order ordinary 
differential equations with given initial values. It is 
a stable fourth-order integration procedure that re- 
quires the evaluation of the right-hand side of the 
system only two times per step. This is a great 
advantage compared with other methods of the same 
order of accuracy, especially the Runge-Kutta 
method, which reqviires the evaluation of the right- 
hand side four times per step. Another advantage is 
that at each step the calculation procedure gives an 
estimate for the local truncation error; thus the pro- 
cedure is able, without a significant amount of cal- 
culation time, to choose and change the step size h. 
On the other hand, Hamming's predictor-corrector 
method itself is not self -starting; that is, the func- 
tional values at a single previous point are not 
enough to get the fimctional values ahead. There- 
fore, to obtain the starting values, a special Runge- 
Kutta procedure followed by one iteration step is 
added to the predictor-corrector method. 

Given the general system of first-order ordinary 
differential equations: 



y' = 



dx 
dx 



= i^{^, Yj. y 



2' 



• V 



= f2<^'yi'y2' •••■ V 



where Y, F, and Y„ are column vectors, the given 
problem appears as follows: 



dY 
Y- = ^ = F(x,Y)withY(X(j) =^Yq 



For stability purposes, the modification by 
Hamming of Milne's classical modified predictor- 
corrector method is preferred. Thus, knowing the 
results at the equidistant points X:_3, x^ £. •''i-i ^nd 
X., the results at point x-^ ■, = x. + h are computed 
by the formulas below. 



Predictor: P. , = Y. „ 
J+1 J-3 



+ f (2Y] - y:_^ + 2y:_2) (i> 



112 
Modifier: M. , = P. , - —- (P. - C.) ; 
j+1 j+1 121 M J 



M! , = F(x. ,, M. J (2), (3) 
]+l ^ J+1 J+1 ^ "^ ' 

Corrector; C. , = — 9Y. - Y. „ 
J+1 8 L ] j-2 

+ 3h(M'. , + 2Y! - y: J 1 (4) 
^ ]+l J j-l'J ^ 



Final value: Y. , = C. , 
J+1 J+1 



" m ^Vi-'^J+i^ 



(5) 



dy 

y;= dF= ^n^^^'^vh' •••'V 



and the initial values: 

^l^V = ^1,0' y2(V = ^2,0' •••■ yn<^o)= VO 
and using the following vector notations: 

/y 



Y(x) 



,yiW. 
y2(x) 



^y,(x)' 



. F(x,Y) 



f2(x.Y) 



f^(x.Y) 



. Y, 



1,0 



'2,0 



'n,0 



where Y, Y', P, M, M', F and C are column vec- 
tors with n components. Formulas (1) and (4) have 
local truncation errors: 



T^ = g h^Y^^) («^)with|^Mx. 3. X ) 



and 



^2= -44^^^^^^ (^2>-"^«2*(Y2' Vl^ 



respectively, such that 



%l-\l^-'^0^'^'"' ^^^ [^*<V3-Vl^] 
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Assuming that Y^^ (x) does not vary to any great 
extent in the interval (Xj_3. Xj+j), it follows that: 



121 ^^j+1 



Vi^ 



This formula shows that the components of column 
vector Pj_,_ ^ - Cj4. ^ are measures for the local 
trimcation errors in the components of column vec - 
tor Yj^.j, and therefore control of accuracy and ad- 
justment of step size h can be done by generating 
the following test value: 



If 5 is less than «/50, the next step Is carried 
out with the doubled increment; however, care is 
taken in the procedure that the Increment never gets 
greater than the increment h specified as ari input 
parameter, and further, that among the output are 
all points Xo+ j • h (where j = 0, 1, 2, . . . , and h 
is the Input step size) which are situated between the 
lower and the upper bound of the integration interval. 

Changing the step size by halving or doubling re- 
quires changing of Pj - Cj or P^^j^ - Cj^^, respec- 
tively. Using the following interpolation formula: 



« = i: 



i=l 



j+l,i j+l,il 



(6) 



where the coefficients a. (i = 1, 2 n) are 

error-weights specified in the input of the procedure. 

If i is greater than a given tolerance f\, incre- 
ment h is halved and the procedure computes 

Y-^ 1/2 — '■^^^ ^^' ^(^ "*" 0^ — after having inter- 

polated Y^_i/2 = Y(x. - |) and Y._^^^ = Y(x. - |h), 

with previous increment h, using the following 
sixth-order interpolation formulas): 



^i 1/0 = 9RC (80Y. + 135Y. , + 40Y. „ + Y. _) 
j-1/2 256 J j-1 j-2 ]-3' 



""j == ^j-3 " ¥ '^(Yj-3 ^ ^Yj-2 ^ ^Yj-1 ^ ^P 
<V [^3*(^J-3'V] 



i-'-^'^ 



and assuming that Y^^ (x) does not vary to any 
great extent in this interval, P. - C- can be written 
as: 



242 



^h(Y. . 3Y._^-. 3Y._2. Y'g) 



When halving increment h, this formula becomes: 



/_Y' + 6Y' + Y' ) n\ 

128 ^ j j-1 j-2^ ^ ' 



242 
^J-^J«^^J-V3/2^ 



^j-3/2 = 2-56 (^2Yj ^ l^^Yj-1 ^ l°«Yj-2 ^ "^j-3) 



36 2 ^"^j * ^^j-1/2 



- (-Y; - 18Y^_^ . 9Y^_2) (8) 



^^Y]-l^^j-3/2> 



(9) 



If 6 is less than « , the result Y-^ i is assumed to 
be correct and is handed, together with ^t+i and the 
vector of derivatives Y-^ 1 = F(Xj^2, Y;_^-i), to a 
user-supplied output subroutine. 



tNumerical experience seems to show that the pro- 
cedure does not exceed a global relative error ap- 
proximately equal to ( . 



and when doubling: 



242 
^j+1 ' ^j+l-^f ^j+1 " ^j-S^ 



121 



- • 2h(Y:^^ . 3y:_^ 



^ ^^i-3 - ^i-5) 



(10) 
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starting Hamming's modified predictor-corrector 
method requires the functional and derivative values 
at four preceding equidistant points; that is, Xq, x^, 
X2 and Xg . The values Yq and Y'q = F(x>q, Yq) are 
specified by input. For computation of Y-^, Y^, Y2, 
YU, Yg and Y^ and for adjustment of the step size h 
to accuracy requirements, a special Runge-Kutta 
procedure suggested by Ralston is used. Starting at 
X-, result values at point x-^-^ = x. + h are computed 
using the following formulas: 



K, = h . Y! 
1 J 



k„ = h . F(x. + 0.4h, Y. + 0.4KJ 
2 J J 1 

K = h ■ F(x + 0.45573725421878943h, Y. 
+ 0.29697760924775360 K, 



+ 0.15875964497103583 K ) 



(11) 
(12) 



(13) 



K = h • F(x + h, Y + 0. 21810038822592047 K^ 
4 j ] 1 

- 3.0509651486929308 K„ 



+ 3.8328647604670103 K ) 

o 



Y =Y + 0.17476028226269037 K, 
J + 1 J 1 



(14) 



0.55148066287873294 K 



1.2055355993965235 K„ 



+ 0.17118478121951903 K, 



(15) 

where Yj, Yj + i, K^, K2, K3 and K4 are all column 
vectors with n components. 

These formulas are not very stable, but this does 
not matter because they are used only in three suc- 
cessive steps (j = 0, 1, 2). On the other hand, they 
have the smallest bound of truncation error of all 
fourth-order Runge-Kutta procedures. Therefore 
they are best suited to start other integration 
methods which are not self-starting. 

For initial control of accuracy and adjustment of 
step size h, in starting the procedure an approxima- 
tion for Y = Y(x + h) , named Y^ . is computed 
using the step size h, and then an approximation 

named Y^ , using the step size h/2 twice. From 
these two approximations a test value for accuracy 
is generated in the following way: 



_1 
15 



i=l 



2,1 



,(2) I 
'2,il 



(16) 



If 5 is greater than t , increment h is halved, 
and the procedure starts again at point xq. 



If 5 is less than t , the results Y = Y(x + — ) 



and Y 



(2) 



Y(x + h) are assumed to be correct, 



and a third step follows , which computes the results 

3 3 

at point X + — h — that is, Y = Y(x + — h). The 

i) £i O ^ 

step size h/2 of these three steps is handed as ini- 
tial step size h to the predictor-corrector method. 



It is very important that the starting values be 
as accurate as possible, because errors in these 
starting values may increase during the following 
predictor-corrector procedure. Therefore the 
starting values computed by the Runge-Kutta method 
are refined by one iteration step using the following 
fourth-order interpolation formulas: 

Yi=Yo + ^(9n"l^Y'l-5Y'2"Yy (17) 

"' ' (18) 

(19) 



Y2 = Yo+y(y,.4Y'^ + Yy 
3h 



Y = Y 
3 



8 (Y'o - 3 Y-^ . 3 Y'2 . Y'g) 



Use of these must be considered an iteration 
procedure; that is, first the result values of the 
Runge-Kutta method are used in the right-hand side 
of formula (17) to compute a refined Yi. After 
computing the refined Y'l = F(xi, Yi), the refined 
vector Y2 is generated usii^ formula (18). Finally, 
the refined Y'2 = F(x2, Y2) is used, together with 
the other values, in the right-hand side of formula 
(19) to compute the refined vector Y3. During this 
iteration, the refined data sets xj, Yj, Y'j are 
handed, together with the number of bisections of 
the initial step size (specified by input) , to the 
output subroutine. 

It can be shown that, using this iterative pro- 
cedure, the initial column vector P3 - C3 used in 
formula (2) for j=3 is equal to zero. 

The entire input of the procedure is : 

1. Lower and upper bound of the integration 
interval, initial step size h of the independent vari- 
able, and upper bound e of the local truncation 
error 

2. Initial values Yq of the dependent variables 
and weights ai (i = 1, 2, . . . , n) for the local trunca- 
tion errors in each component of the dependent 
variables 

3 . The number n of differential equations in the 

system 

4. As external subroutine subprograms, the 
computation of the right-hand side of the system of 
differential equations; for flexibility in output, an 
output subroutine 

5. An auxiliary storage array named AUX with 
16 rows and n columns 
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Output is done in the following way. If a set of 
approximations to the dependent variables Y(x) is 
found to be of sufficient accuracy, it is handed — 
together with x, the derivative Y' (x), the number 
of bisections of the initial increment, the number 
of differential equations, the lower and upper bound 
of the interval, the initial step size, error bound E, 
and a parameter for terminating subroutine HPCG 
or DHPCG — to the output subroutine. By means 
of this output subroutine, the user has the oppor- 
tunity to choose his own output format, to handle the 
output values as he wants , to change the upper error 
bound, and to terminate subroutine HPCG or DHPCG 
at any output point. In particular, the user is able 
to drop the output of some intermediate points, 
printing only the result values at the special points 
XQ + } ' h(where j = 0, 1, 2, . , . , and h is the ini- 
tial step size specified by input). The user may also 
perform intermediate computations using the inte- 
gration results before continuing the process. 

For better understanding of the flowchart and of 
the FORTRAN program, the allocation of special 
intermediate-result vectors within the storage 
array AUX is given in Figure 33. 



function vector Y, , = Y(x. ,) 
j-6 j-6 



function vector Y._, = Y(x. ) 



-5 



J- 



function vector Y. . = Y(x. ,) 
J-4 J-4 



function vector Y. , = Y(x. ,) 
j-3 j-3' 



function vector Y, 



-2 



Y(x, 



function vector Y. , - Y(x. ,) 

1-1 i-r 



function vector Y. 
J 



Y(x.) 



derivative vector Yl , 
j-6 



Y'(x^ 



derivative vector Y. ^ = Y' (x. ..) 
1-5 J-5 



derivative vector Y. . = Y' (x .) 
1-4 1-4' 



derivative vector Yl _ = Y' (x. -) 
]-3 J-3' 



derivative vector Y! „ - Y' (x „) 
J-2 J-2 



derivotive vector Y! , ~ Y' (x. ,) 
J-l J-' 



derivative vector Y'. 
I 



y (Xj) 



vector of error weights 



vector P, - C. 



1. row (AUX (I) in flowchort) 

2. row (AUX (2) in flowchart) 

3. row (AUX (3) in flowchart) 

4. row (AUX (4) in flowchart) 

5. row (AUX (5) in flowchart) 

6. row (AUX (6) in flowchart) 

7. row (AUX (7) in flowchart) 

8 . row (AUX (8) in flowchart) 

9. row (AUX (9) in flowchart) 
10. row (AUX (10) In flowchart) 
n . row (AUX (11) in flowchart) 

12. row (AUX (12) in flowchart) 

13. row (AUX (13) in flowchort) 

14. row (AUX (14) in flowchart) 

15. row (AUX (15) in flowchart) 

16. row (AUX (16) in flowchart) 



Figure 33. Allocation of special intermediate-result vectors 
within the special array AUX 



For reference see: 

(1) A. Ralston/ H.S. Wilf, Mathematical 
Methods for Digital Computers , Wiley, 
New York/London, 1960, pp. 95 - 10&. 

(2) A, Ralston, "Runge-Kutta Methods with 
Minimum Error Bounds", MTAC, vol. 16, 
no. 80 (1962), pp. 431 - 437. 



HI>CO 
HPCG 



SUB(*OUTlMe HPCG 

PURPOSE 

TO SOLVfc A SV5TEM OF FIRST ORDtR ORDINARY GENERAL 
OlFFERENIIAL EQUATIONS WtTH GIVEN INITIAL VALUES. 

USAGE 

CAi^L HPCG < P-tMr.Y.DERV.NOlM.iHLF.FCT.aurc.AUXI 
PARAMETERS FCF AND OUTP REQUIRE AN EXTERNAL STATEMENT. 



.MPCG 30 
HPCG 40 
HPCG 50 
HPCG 60 
HPCG 70 
HPCG 80 
HPCG 90 
HPCG 100 
HPCG no 
HPCG I2C 
HPCG 130 
HPCG 140 
HPCg 150 
HPCG IfcO 
HPCG 170 
HPCG lao 



DESCRIPTION OF PARAMETERS 

PRMF - AN INPUT ANO OUTPUT VECTOR KITH DIMENSION Gft€AT£R 
OR EQUAL TO 5, MHICH SPECIFIES THE PARAMETERS OF 
THE INTERVAL AND OF ACCURACY ANO WHICH SERVES FOR . ., ^ „ . „„ 
COMMUNICATION BETWEEN OUTPUT SUBROUTINE (FURNISHED HPCG 190 
BY THE USER! ANO SUBROUTINE HPCG. EXCEPT PRMT(53 
THE COMPONENTS AAE NOT OESTROYEO BY SUBROUTINE 
HPC5 ANO THEY ARE 

ORMUM- LOWER BOUND OF IHE INTERVAL (INPUT), 

PRMTI^I- UPPER BOUND OF THE INTERVAL (INPUT), 

PRMTI3I- [NiriAL INCREMENI OF THE INDEPENDENT VARIABLE 



I 1 N 



UTJ , 



PRHTI-i 



HPCG 200 
HPCG 210 
HPCG 220 
HPCG 230 
HPCG i;40 
HPCG 250 
HPCG 260 
hPCG 27C 
HPCG 2B0 
HPCG ^90 



UPPER ERROR BOUND (INPUT). IF ABSOLUTE ERROR IS 
GREATER THAN PRMT(4I, INCREMENT G£TS HALVED 
IF INCREMENT IS LESS THAN PRMTIil AND ABSOLUTE 
EARaS LESS THAN PRMTCVJ/SO, INCREMENT GETS DOUBLED. HPCG 300 
THE USER MAY CHANGE PRMTI4) 5Y MEANS OF MIS MPCG 310 

OUTPUT SUBRGUTINE. HPCG 320 

PRMTIS)- NO INPUT PARAMETER. SUflHOUTINE MPCG INITIALIZES HPCG 330 

PRMr(5)-0. IF THE USER WANTS TO TERMINATE HPCG 0,0 

SUBROUTINE HPCG AT ANY OUTPUT POINT, HE HAS TO HPCG J50 

CHANGE PRMr(5l TO NON-ZERO BY MEANS OF SUBROUTINE HPCG 360 
DUTP. FURTHER COMPQNEI'.TS OF VECTOR PRMT ARE HPCG 370 

FEASIBLE IF ITS DIMENSION IS OEFINtO GREATER HPCG 330 

THAN 5. HOWEVER SUBROUTINE HPCG DOES NOT REQUIRE HPCG i90 
ANO CHANGE THEM. NEVERTHELESS TMEY MAY BE USEFUL 
FOR HANDING RESULT VALUES TO IME MAIN PROGRAM 
ICALLING MPCGI WHICH ARE OflTAINEO BY SPECIAL 



HPCG *00 
HPCG Via 
NPCG 420 



HPCG 440 
HPCG «50 
HPCG 460 
HPCG 4 70 
HPCG 480 
HPCG 490 
HPCG 500 
HPCG 510 
HPCG 520 
HPCG 530 
HPCG 540 
HPCG 550 
HPCG 560 
HPCG 570 
-HPCG 580 
HPCG 590 
HPCG 600 
HPCG 610 
HPCG 620 
HPCG 630 
HPCG 640 
HPCG 650 



MANIPULATIONS WITH OUTPUT OAT* IN SUBROUTINE OUTP. HPCG 430 

- INPUT VECTOR OF INITIAL VALUES. (OESTROYEO) 
LATERON Y IS THE RESULTING VECTOR OF DEPENDENT 
VARIABLES COMPUTED AT INTERHCOIATE POINTS X. 

- INPUT VECTOR OF ERROR WEIGHTS. (OESTHOfED) 
THE SUM GF ITS COMPONENTS MUST 8E EQUAL TO 1, 
LATERON DERY IS THE VECTOR OF DERIVATIVES, WHICH 
BELONG TO FUNCTION VALUES Y AT A POINT K. 

- AN INPUT VALUE, WHICH SPECIFIES THE NUMBER OF 
EQUATIONS IN THE SYSTEM. 

- AN OUTPUT VALUE. WHICH SPECIFIES THE NUMBER OF 
BISECTIONS OF THE INITIAL INCREMENT. IF IHLF GETS 
GREATER THAN 13, SUBROUTINE HPCG RETURNS WITH 
ERROR MESSAGE lHLF=lt INTO MAIN PROGRAM. 
ERRDR MESSAGE 1HLF = 12 OR IHLFM3 APPEARS IN CASE 
PRMTUI=0 OR IN CASE SIGNIPRMT ( 3 ) ) .NE .S IGNI PRMT ( 21 
PRMTUM RESPECTIVELY. 

- THE NAME OF AN EKTERNAL SUBROUTINE USED. IT 
COMPUTES THE RIGHT HAND SIDES DERY OF THE SYSTEM 
TO GIVEN VALUES OF Jt AND Y. ITS PARAMETER LIST 
MUST BE K,Y,OERY. THE SUBROUTINE SHOULD NOT 
DESTROY X ANO Y. 

- THE NAME OF AN EXTERNAL OUTPUT SUBROUTINE USED. 
ITS PARAMETER LIST MUST BE X ,Y ,oeRY t I HLF, ND 1 M.PRMT .HPCG 560 
NONE OF THESE PARAMETERS (EXCEPT, IF NECESSARY, HPCG 670 
PRMTI4l,PRMr(5),..,l SHOULD BE CHANCED UY HPCG 680 
SUBROUTINE OUTP. IF PRmT(5) IS CHANGED TO NON-i ERO , HPCG 690 
SUBROUTINE HPCG IS TERMIhATEO. hPCG 700 

- AN AUXILIARY STORAGE ARRAY WITH 16 ROWS AND NDIH HPCG TIC 
COLUMNS. HPCG 720 

HPCG 7 30 
HPCG 740 
HPCG 730 
HPCG 760 
HPCG 770 
HPCG 780 
HPCG 790 
HPCG 800 
HPCG BIO 
HPCG (320 
HPCG 8 30 
HPCG 340 
HPCG 850 
.HPCG 360 
HPCG 870 
HPCG 880 
HPCG 890 
HPCG 900 
HPCG 910 

HPCG 930 

HPCG 940 

HPCG 950 

JUiTS THE INCREMENT DURING 

HALVING OR DOUBLING. hPCG 970 

I'M OUTPUT, AN OUTPUT SUBROUTINE HPCG 980 

HPCG 990 
'??'-.5'°'*"'"^'=' «*rHEMAriCAL METHODS FOR DIGITAL HPCGl'oJo 

RALSTON, RUNGE-KUTIA M£ THOorwifH 'MINtSl^/ERJoR ^BOUNDS, HPCciosO 

PP. 431-437. MPCGI040 

HPCGI05C 

HPCG 1060 

., ^ HPCC1070 

IHLF, FCT. OUTP, AUX I HPCGiOBO 



REMARKS 

THE PROCEOURE TERMINATES ANO RETURNS TO CALLING PROGRAM. I 
III MORE THAN 10 BISECTIONS OF THE INITIAL INCREMENT ARE 
NECESSARY TO GET SATISFACTORY ACCURACY (ERROR MESSAGE 



IHL 



= ID . 



12) INITIAL INCREMENT IS EQUAL TO OR HAS W«DNG SIGN 

(ERROR MESSAGES IHLF=I2 OR lHLF=t3), 
131 THE WHOLE INTEGRATION INTERVAL IS WORKED THROUGH, 
(41 SUBROUTINE OUTP HAS CHANGED PRMT(5) TO NON-ZERO. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REOUIREO 
THE tilTERNAL SUBROUTINES FC I ( X, Y,OERYI AND 
OUTP(«,Y,0£Rr,IHLF,NDIM.P«MTI MUST BE FURNISHED 6V THE USER 

METHOD 

EVALUATION IS DONE tJY MEANS OF HAMMINGS MODIFIED PREDICTOR- 
CORRECTOR METHOD. IT IS A FOURTH ORDER METHOD, USING 4 
PRECEEDING POINTS FOR COMPUTATION OF A NEW VECTOR Y OF THE 
DEPENDENT VARIABLES. 

fOURTH OftOffi «UNCE-<UrrA METHOD SUGGESTED BY RALSTqn IS 
USED FOR ADJUSTMENT OF THE INITIAL INCREMENT ANO FOR 
COMPUTATION OF STARTING VALUES. 

SUBROUTINE HPCG AUTOMATICALLY ADJUSTS THE INCREMENT DURING HPCG 960 
THE WHOLE COMPUTATION BY HALVING OR DOUBLING- .Irr '" 

TO GET FULL FLEXIBIL 
MUST BE COOED BY THE USER. 
FOR REFERENCE. SEE 
ILF, 
COMPUTERS, WILEY, NEJ YORK/LONDON^ 



VOL.16, ISS.dO (1962), 



SUBROUTINE HPCG fPRM T, Y, DERY ,NDI 
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DIMENSION PRMTl 11 . Yd t .DERYd) .AUKI L6t LI 

N=l 

IHLF=0 

X=PRMT( 11 

PRMr< 5}«0. 
00 1 I^I.NOIH 
AUX( lb, I 1=0. 
AUX( 15, It=0£RY( I I 

1 Auxf iti )=y( I 1 

IF) H*(PRMT1 21-X) ) 3t Z,^ 

ERROK REruRNS 

2 1HLF=12 
COTQ 4 

3 IHIF=13 

COMPUTATION OF 06RY FOR STARTING VALUES 
i, CALL FCKX.Y.DERV) 

RECORDING OF STARTING VALUES 

CALL DUTPfX.y.DEiy.IHLF.NOIM.PRMTt 

IFCPRMTISt 16,5,6 

5 IF( INLF 17, 7,6 

6 RETUftl4 

7 00 8 1= UNOIM 

8 AUX< 8, I I=OERYt I ) 

CDM^JTATION OF AUX(2,II 
ISW=1 

GOTO 100 



00 10 t=l.NOIM 

10 AUKUtl I'VI I I 

INCREMtNT H tS TESffcD 6T MEANS OF BISECIION 

11 1MI.F = 1HLF*1 

K = X-H 

DO 12 Ul.NOIM 

12 AUXCi, I )=AUX12, I 1 
H=.S«H 

N=l 
ISW = 2 
Goro LOO 

13 X=K»H 

CALL FCT( «, Y,OERr) 

03 14 I=l,NrjlM 
AUX<?, I 1=V( I ) 
I''. AUX(<),I 1=DERY(I I 
ISW = 3 
GOTU 100 

COMPUTATION OF TEST VALUE OELT 

15 DELT=n. 

00 16 l=l.N01M 

16 DfcLT=0ELT*AUX(l5,I)«ABS(Y(ll-AUX (4,111 
DELT=.06666667*DeLT 
!F(0£LF-PRMI('tIll9,l9,17 

IT IF! IHCF-IO) 11, 18, la 

NO SATISFACTORY ACCURACY AFTER 10 6ISECI1UNS. ERROR MESSAGE. 
IB IHLF=ll 
X=XtH 
GOTQ t, 

THE^E IS SATlSFACtaRY ACCURACY 4F(ER LESS THAN 11 BISECTIONS. 
IS X=X*H 

CALL FCT(X,Y.OERY) 

00 20 I=l,NOrM 
4UX( 3, I ) = Yf 1 ) 

20 AUX( 10, n=DEnYIU 
N = 3 

1 S'i^'' 
GOTO 100 

2 1 N = l 

X = X*H 

CALL FCT( XiY.OERV) 

X = PRMr{ II 

00 22 1=1.NDIH 

AUX[ lit It=OERY( I) 
22CYI I I =AUX( 1. I I tH*! .3 75**UX(8,n*.Tqi666 7*AUXiq,T ) 
1-.208 33 33"A1JXU0,I )♦, 0416666 7«0ERV (I » I 

23 X=X*M 
N = N»l 

CALL FCTIX.Y.DERY) 

CALL OUTP(X,Y,OERY, IHLF , NOIM.PRMT J 

IF(PRMr)5l 16,24,6 

24 IF(N-*I25,20C,200 

25 00 26 I = 1,'*0IM 
AJX(N. I l = Y( I ) 

26 AyXlNt7.II=0ERY(l I 
IF(N- 31 27,2<3,200 

2 7 DO 2B l=l.NOIM 

OELT = AUXl<J.I l*AUX(9.I> 

DELT=DELT*DELr 
28 Y( n=AUXl I, IK- 3J3J333*H* 

GOTO 2 3 



, I l*OELT»AUX< 10,1)1 



I l + OELH-AUKl li. 



29 DO )0 I-l,NO[M 

OELr = AUX(9,I I.AUXdO, I 1 

0£LT=DELT*DELT*OELT 
3C Y( n=AUX( 1, U*.375»H»(AUX(a 

GOTO 23 

THE FOLLOWING PART OF SUSROUTINE HPCG COMPUTES BY MEANS OF 
RUiVGE-KUrrA MEfMOD STARTING VALUES FOR THE NOT SELF-STARTING 
PREOICrOft-CORRECTOR «€THOO. 
IOC 00 101 IsUNOIM 
Z=H«AUX(N*7. I ) 
AUXI5,II=Z 

101 Y( I 1=AUX(N,I )*.4»Z 

I IS AN AUXILIARY STORAGE LOCATION 

i=X*.4«H 

CALL FCn i,Y,OERYl 
00 102 1=UN0M 
Z=H«OERY( I) 
AUX(6,I }=; 

102 Yd l=AUX(N,I U.2')69776*AUX(5,1 I ♦.I53 7596*£ 



HPCG1090 
HPCGllOC 
HPCGlllO 
HPC&1120 

HPCG1130 
HPCG1140 
HPCG1150 
HPCGLI60 
HPCGU70 
HPC&U80 
HPCCd^O 
HPCG12C0 
HPCG12LC 
HPCC1220 
MPC&1230 
HPCG1240 
HPCG1250 
HPCG1260 
HPCG1270 
HPCG12B0 
HPCG1290 
HPCG13C0 
HPCGUIO 
HPCG1320 
HPCGi330 
HPCGIS^O 
HPCG1350 
HPCG136C 
HPCG13T0 
HPCG13B0 
HPC&13'»C 
HPCGUOO 
MPCGUIO 

HPCG142C 

HPCG14 iO 
HPCG 1*40 
HPCGI'tSO 
HPCG 14 60 

MPCG1'.70 
HPCG1430 
HPCG1490 
HPCG150C 
HPCG15I0 
HPCG1520 
HPCG 15 30 
HPCG15 40 
HPCG1550 
HPCG1560 
HPCG1570 
HPC&1580 
HPCG1590 
HPC&16C0 
HPCG16I0 
HPCG1620 
HPCG1630 
HPCGlb'tO 
HPCG Ib'iO 
HPCGlbfaO 
MPC&1670 
MPCGlfteO 
HPCGI690 
HPCGt7QC 
HPC&1710 
HPC&1720 
HPCG1730 
HPCCIT40 
HPCGI750 
HPCG1760 

MPCGL7 70 

HPCGl/aC 
HPCGl?90 
HPCGI300 
HPCGIBIC 
HPCG1820 
HPCC1830 
HPCG1340 
HPCGiaSO 
HPCGia60 
HPCG1870 

HPCGiaao 
HPCGiaqo 

HPCG1900 

HPCG1910 

HPCG1920 
HPCG193C 
HPCG1940 
HPCG1950 
HPCGi960 
HPCG19T0 
HPCG1990 
HPCG1990 
HPCG2000 
HPCG2010 
HPCG2020 
HPCG2030 
HPCG2040 
HPCG2050 
HPCG2060 
HPCG2070 
HPCG2080 
HPCG2090 
HPCG2100 

HPCG21 10 

HPCG2t20 
HPCG2t30 
HPCG2I40 
HPCG2150 
HPCG2160 
HPCG2170 
HPCG2180 
HPCG2190 
HPCG2200 
HPCG22IO 

HPCG2220 

HPCG2230 
MPCG2240 
HPCG2250 
HPCG2260 
HPCG22rO 
HPCG2280 
HPCG2290 
HPCG2300 
HPCG2 310 
HPCG2320 
HPCG2330 
HPCG2340 
HPCG2350 
HPCC2360 
HPCG2370 



DO 103 l-l,NOIH 
i"H*oeRYl I 1 
AUX(7,I)>Z 
10 3 YU |=*UX(N, 1 H-.2iai004*AUX(5tII-3-050965**UX(. 



I I*3.832a65»£ 



Z = K*H 

CALL FCIU.Y.OERYI 

00 104 I=1,N0IM > 

10^GY{ 11= AUXIN. I Jt.l747603*AUXl5.I»-.55l4807**UX16,II 
l*1.205536*AUX(7,l )♦ . 17 1 l848*H*0eRY( I 1 
G0T0C9,13,15,21).ISU 

POSSIBLE BREAK-POINT FOR LINKAGE 

STARTING VALUES ARE COMPUTCD. 

NOW START HAHMINCS HGDIFieo PREDICTOR-CORRECTOR METHOD. 

200 IST€P=3 

201 IFlN-61204,202,204 

N=8 CAUSES THE ROWS OF AUK TO CHANGE THEIR STORAGE LOCATIONS 

202 00 203 N=2t7 

DO 203 l«l,N0IM 
AUX(N-ltII=AUXlNt II 

203 AUX(N+6*I >=AUX<N«'7, 1 1 
N = 7 

N LESS THAN B CAUSES N*l TO GET N 

204 N=Ntl 

COMPUTATION OF NEXT VECTOR Y 
DO 205 I"l,NO!H 
AUXIN-1,1I*Y(I1 

205 AUKlN*6,H-0ERYd I 
X=X»H 

206 iSTEP=ISTEP*I 
DO 207 I=l,NOIM 

0DELT-AUK(N-4,n*l.333333*H*(AJX(N*6.ll+AUX(N46,ll-AUX(f^*5,n + 

lAUXIN*4,II+AUXIN4*iI)) 
Y( I 1»0ELT-.9256198«AUXI16,I I 

207 AUX( 16, II=OELT 

PREDICTOR IS NOW GENERATED IN ROW 16 OF AUX. MOOiFlEO PREOICIOR 
IS GEMERATED IN Y. OELT HEANS AN AUXILIARY STORAGE. 

CALL FCT(X,Y,DERY) 

DERIVATIVE OF MODIFIED PREDICTOR IS GENERATED IN DERY 

00 208 l=l.NOIM 
0D£LT=.125»19.*AUX(N-1,I 1- AUKIN-3 , I 1 *3 .■H*(OER Y( 1 1 tAUXI r>4*6 , 1 )* 
lAUX(N«-6.ll-AUXINt^5. III! 
AUX(16, ll=AUX(16,l I -OELT 
206 YI n=DELT».0743B0l7»AUX( 16, 11 

TEST WHETHER H MUST BE HALVED OR DOUBLED 
DELT=C. 

DO 209 I=1,ND1M 
2C9 DELT-DELI+AUXl l5,II*A9S)AUXd5,lll 
|F(0ELT-PRMTI41 1210,222,222 

H MUST NOT BE HALVED. THAT MEANS Ydl ARE GOOD. 
21C CALL FCTIX.Y.DERY) 

CALL OUTP(X,Y,DlERyiIHLF,NOIM,PftHTI 
IF(PRMT(51I?12.211,212 

211 IF( IHLF-111213. 212,212 

212 RETURN 

213 IF(H»[X-PRMT(2I ))2l*.212,212 

214 lFIABSIX-PRMT(2l)-.l*AaS(HII2l2.215.215 

215 IFIDELT-.02»PRMT1'.I 1216,216,201 

; H COULO 6E DOUfiLeO IF ALL NECESSARY PRECEEOING VALUES ARE 
AVAILABLE 

216 IF( IHLF 1201,201.217 

217 IF(N-7I201,218,2I8 

218 IFt 1STEP-4I201, 219, 219 

219 IMO0=ISTEP/2 

IF( I STEP- IMOD-I MOO 1201,220,201 

220 H=H*H 
IHLF=iHCf-l 
ISTeP=0 

DO 221 1=1,N0IM 
AUXIN-l,n=AUK(N-2,II 
AUX(N-2,II-AUX(N-4, IJ 
AUXlN-3,I)=AUXlN-6, It 
AUX(Nt6,I»=AUX(Nt5, II 
AUXtN*5, [)=AUX{N+3t II 
AUX(N*4,I)=AUX(N*l,n 
0£LT=AJXIN*6.I l*AUX(N*5,I 1 
22I0Au!;!l6!lUe!9l2?63MY(n-AUXtN-3.in-i.36Uil«'HMDERV(I)*0ELT 

It^AUXIN+'^.m 
GOTO 201 

C 

c 

C H MUST BE HALVED 

222 iHLF=IHLF*l 

IF! IHLF-10t223,223,210 

223 H=.5»H 
ISTEP=0 

CY<lf=!or390625M30.*AUX<N-l,n*135.*AUX|N-2.I).40.*A^ 
1AUX(N-4,IH-.U71875MAUX(N+6,IJ-6.»AUXIN»5,IJ-AUX N*A.U)*H 
JaUX n4 ll = .C0390625*(12.'AUX.N-l,nM35.*AJX(N-2.n. 
llC8.*AUX(N-3.ll*AUXlM-4,IH-.0234375»(AUXlN»6.l)*ie.*AUX(N*5,n 

29.*AUKINt4,ni*H 
AUX(N-3, n=AUX(N-2, I) 

224 A0X(N*4.n = AUXIM*5, n 
X = X-H 
0ELT=X-1H*HI 

CALL FCT(OELT.Y,0eRY) 
DO 225 l=l,N0IH 
AIJXIN-2, I l-YU 1 
AUXlNt5,ll-0ERY(I 1 
223 Y( I 1 =AUX(N-4,I 1 

CALL FCTCOELT.Y.OeRYI 
DO 326 l=l,NDIM 
0£Lr=AUX(N»5,I l*AUX(N*4,I 1 
DEL T=DELr*OELT* OELT 
0AUXI16,I)=8.962963*(AUX(N-|.I1-Y(IJI-3.3611U«H»{AUX(N*6,II*0ELI 

l+DERYI I II 
226 AUXiNU, I1-0ERY{1 J 
GOTO 206 
END 



MPCG23aO 
HPCC2390 
HPCG2*00 
HPCG24 10 
HPCG2420 
HPCG2430 
HPCC2440 
HPCG2'.50 
HPCG2*60 
HPCG247C 
HPC&2*80 
HPCG2490 
HPCG2500 
HPC&2510 
HPCG2520 
HPCG2530 
HPCG25*0 
HPCG2550 
HPCG2560 
HPCG2570 

MPCG2S80 

HPCG2590 

MPCG2600 

HPCG2610 

HPCG2620 

HPCG26 30 

HPCG2640 

HPCG2650 

HPCG2660 

HPCG2670 

HPCG2690 

HPCG2690 

HPCG2700 

HPCG2710 

MPCG2720 

HPCG2730 

HPCG2740 

hPCG2750 

HPCC2760 

HPCG27 70 

HPCG2760 

HPCG2790 

HPCG2800 

HPCC2aiO 

HPCC2820 

HPCG2a30 

HPCG2a40 

HPCG2a50 

HPCG2a60 

HPCG2fl70 

HPCG2380 

HPCG2B90 

HPCG2900 

HPCG2910 

HPCG2920 

HPCG2930 

HPC&2940 

HPCG2950 

HPCG2')&0 

HPCG2970 

HPCG29aO 

HPCG29qO 

HPCG30aO 

HPCG3010 

HPCG3C20 

HPCG3C30 

HPCG3040 

HPCG3050 

HPLC3C6G 

HPCG3070 

HPCG3080 

HPCG3090 

HPCG310C 

HPCG3U0 

HPCG3120 

HPCG3130 

HPCG3l't0 

HPCG3150 

HPCC316C 

HPCG3170 

HPCG3180 

HPCG3190 

HPCG320l> 

HPCG3210 

HPCG3220 

HPCG32 30 

HPCG3240 

HPCG3250 

HPCG3260 

HPCG3270 

HPCG3280 

HPCG3290 

HPCG3300 

HPCG33iO 

HPCG3320 

HPCG3330 

HPCG3340 

HPCG3350 

HPCG3360 

HPCG33 70 

HPC&33aO 

HPCG3390 

HPCC3400 

HPCG3410 

HPCG3'i.20 

HPCG34 30 

hPCG34'.0 

HPCG3450 

MPCG346Q 

HPC&34 70 

HPCG3480 

HPCG3490 

HPCG3500 

HPCG3510 

HPCG3530 
HPCG354C 
MPCG3550 
HPCG3560 
HPCG3570 
HPCG35aO 
HPCG3590 
HPCG3600 



Mathematics — Ordinary Differential Equations 341 



sueROuriNc ohpcg 

PURPOSE 

rO SOtWE A SYSFEM OF FIRST ORDER OROINARV GENERAL 

oefferenhal equations with given initial values. 

USAGE 

CALL OHPCG (PRHT.Y,OERr,NDIM,IHLF,FCI,aurP,AUX» 
PARAMETERS FCT *N0 OUTP REQUIRE AN EXTERNAL STATtMENT. 

DESCRIPTION OF PARAMETERS 



OHCG 

DMCG 
OHCG 
OHCG 
OHCG 

OHCG 
OHCG 
OHCG 
OHCG 
OHCG IOC 
OHCG 1 10 
DHCG UO 
DMCG 130 
DHCG KO 
OHCG 150 
OHCG 160 
OHCG 170 



30 



90 



COHPUTATION OF OERV 
CALL FCTU.Y.OERY) 



FOR STAATING values 



PRHT( n- 
PRMTI 21- 
PfiMT{ 3>- 



00U3LE PRECISION INPUT AKO OUTPUT VECTOR WITH 

DIMENSION GREATER THAN OR EQUAL TO 5. WHICH.. 

SPECIFIES THE PARAMETERS OF THE INTERVAL AND OF 

ACCURACY AND WHICH SERVES FQR COMMUNICATION BETWEeNOHCG ISO 

OUTPUT SUflRQUriNE (FURNISHED BY THE USER) AND DHCG 190 

SUBROUTINE OHPCG. EXCEPT PRMKSI THE COMPONENTS DHCG ^00 

ARE NOT DESTROYED fly SUBROUTINE OHPCG AND THEY ARE OHCG 21.0 



VARI A6L 



LOkER BOUND OF THE INTERVAL I INPUT), 
UPPER BOUND OF THE INTERVAL IINPUT), 
INITIAL INCREMENT OF THE INDEPENDENT 
(INPUT) , 

PRMT(4»- UPPER ERROR BOUND (INPUT). IF ABSOLUTE ERROR IS 
GREATER THAN PRMT(4), 1 NCREMENT' GETS HALVED. 
•- INCftEHENT IS LESS THAN PRMTI3) AND ABSOLUTE 



DHCG 220 
DHCG 230 
OHCG 2*0 
DHCG 250 
OHCG 260 
DHCG 2 70 
DHCG , 



AUX 



ERRaR LESS THAN PRMT(4)/S0, INCREMENT GETS OOUBLEO.OHCG 290 
THE USER MAY CHANGE PBMTUJ BY MEANS OF HIS 
OUTPUT SUBROUTINE. 
I- NO INPUT PARAMETER. SUBROUTINE DHPCG INITIALIZES 
PRMT(5I=0. IF THE USER WANTS TO TERMINATE 
SUBROUTINE DHPCG AT ANY OUTPUT POINT, HE HAS TO 
CHANCE PR«T{5I TO N0N-2ER0 BY MEANS OF SUBROUTINE 
OUTP. FURTHER COMPONENTS OF VECTOR PRMT ARE 
FEASIBLE IF ITS DIMENSION IS DEFINED GREATER 
THAN 5. HOWEVER SUBROUriNE DHPCG DOES NOT REQUIRE 
AND CHANGE THEM. NEVERTHELESS THEY MAY BE USEFUL 
FOR HANDING RESULT VALUES TO THE MAIN PROGRAM 
(CALLING OHPCG) WHICH ARE OBTAINED 6Y SPECIAL 
MANIPULATIONS WITH OUTPUT DATA IN SUBROUTINE OUTP. OHCG 420 

- DOUBLE PRECISION INPUT VECTOR OF INITIAL VALUES DMCG 430 
(OESTROVEO). LATERON Y IS THE RESULTING VECTOR OF 
DEPENDENT VARIABLES COMPUTED AT INTERMEDIATE 
POINTS K. 

- MUBLE PRECISION INPUT VECTOR OF ERROR WEIGHTS 
(DESTRQYEO). THE SUM OF IIS COMPONENTS MUST BE 
EOUAL TO I. LATERON OtRY IS THE VECTOR QF 
DERIVATIVES. WHICH BELONG TO FUNCTION VALUES Y AT 
INTERMEDIATE POINTS X. 

- AN INPUT VALUE, WHICH SPECIFIES THE NUMBER OF 
EaUATIONS IN THE SYSTEM. 

- AN OUTPUT VALUE, WHICH SPECIFIES THE NUMBER OF 
BISECTIONS OF THE INITIAL INCREMENT. If IHLF GETS 
GREATER THAN 10. SUBROUTINE OHPCG RETURNS WITH 
ERROR MESSAGE IHLF = U INTO MAIN PROGRAM. 
ERR3R MESSAGE IHCF = i2 OH I HL F = 1 3 APPEARS IN CASE 
PRMI(3)=0 OR IN CASE S IGN (PRMT 1 3) ) . NE. S IGN( PRMff 2)-0HCG 590 
PRMTID) RESPECTIVELY. OHCG 600 

- THE NAME OF AN EXTERNAL SUBROUTINE USED. IT 
COMPUTES THE RIGHT HAND SIDES DERY OF THE SYSTEM 
TO GIVEN VALUES OF K AND Y. ITS PARAMETER LIST 
MUST BE X.Y.OERY. THE SUBROUTINE SHOULD NOT 
DESTROY X AND Y. 

- THE NAME OF AN EXTERNAL OUTPUT SUBROUTINE USED. 
IIS PARAMETER LIST MUST BE X ,Y, DERY , IHLF, NO! M, PRMT. OHCG 6T0 
NONE OF THESE PARAMETERS (EXCEPT, IF NECESSARY. DHCG &8C 
PRMT(4),PRMT(5),..,) SHOULD BE CHANGED 3Y OHCG 690 
SUBROUTINE OUTP. IF PRMTIS) IS CHANGED TO NON-ZERO, OHCG 700 
SUBROUTINE OHPCG IS TERMINATED. DHCG 710 

- DOUBLE PRECISION AUXILIARY STORAGE ARRAY WITH 16 DHCG 720 
ROWS AND NOIH COLUMNS. 



OHCG 300 
OHCG 310 
OHCG 320 
OHCG 330 
OHCG 340 
DHCG 350 
OHCG 360 
DHCG 370 
OHCG 380 
OHCG 390 
OHCG 400 
DHCG ■410 



OHCG 440 
DHCG 450 
DHCG 460 
OHCG 4 70 
OHCG 480 
OKCG 4 90 
DHCG 500 
OHCG 510 
OHCG 520 
OHCG 530 
OHCG 540 
OHCG 5 50 
OHCG 560 
OHCG S70 
OHCG 59 



OHCG 610 
OHCG 620 
OHCG 630 
OHCG 640 
OHCG 650 
DHCG 660 



OHCG 7 30 

DHCG 740 

"niMvj DHCG T50 

THE PROCEDURE TERMINATES AND RETURNS TO CALLING PROCRAH, IF OHCG 760 

II) MORE THAN 10 BISECTIONS OF THE INITIAL INCREMENT ARE OHCG 770 

NECESSARY TO GET SATISFACTORY ACCURACY (ERROR MESSAGE OHCG 780 

(2) INITIAL INCREMENT IS EQUAL TO OR HAS NRONG SIGN 

(ERROR MESSAGES lHLf-12 OR IHLF=13), 
(31 THE WHOLE INTEGRATION INTERVAL IS WORKED THROUGH, 
(4) SUBROUTINE OUTP HAS CHANGED P(»MT{5I TO NON-ZERO. 



OHCG 790 

OHCG 800 

OHCG BIO 

OHCG 820 

OHCG ajo 

OHCG 840 
OHCG 850 
DHCG 860 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
THE EXTERNAL SUBROUTINES FCT( X. Y,OERY) ANO 
OUTPIX.V, DERY, IHLF, NOIM.PRMTl MUST BE FURNISHED BY THE USER. OHCG 870 

METHOU °"" "° 

EVALUATION IS DONE BY MEANS OF HAMMINGS MODIFIED PREDICTOR 
CORRECTOR METHOD. IT IS A FOURTH ORDER METHOD, USING 4 
PRECEEDING POINTS FOR COMPUTATION OF A NEW VECTOR Y OF THE 
DEPENDENT VARIABLES. 

FOURTH ORDER (tUNGE-KUTTA METHOD SUGGESTED BY RALSTON IS 
USEO FOR ADJUSTMENT OF THE INITIAL INCREMENT AND FOR 
COMPUTATION Of STARTING VALUES 



OHCG B90 
DHCG 900 
DHCG 910 
DHCG 920 
OHCG 9 30 
OHCG 940 
DHCG 950 
OHCG 960 



SUBROUTINE DHPCG AUTOMATICALLY ADJUSTS THE INCREMENT DURING OHCG 970 



OHCG ' 
OHCG 990 
DHCGIOOO 
OHCGIOIC 
0HCG1020 
DHCG I 30 



TH£ WHOLE COMPUTATION BY HALVING OR DOUBLING. 

TO GET FULL FLEXIBILITY IN OUTPUT, AN OUTPUT SUBROUTINE 

MUST BE CODED BY THE USER. 

FOR REFERENCE, SEE 

(1) RALSTON/WILF, MATHEMATICAL METHODS FOR DIGITAL 
COMPUTERS, WILEY. NEW YORK/LONDON, I960, PP. 95-109. 

(2) RALSTON, RUNGE-KUTTA METHOUS WITH MINIMUM ERROR BOUNDS. DHCG1040 
MTAC. VOL.16, ISS.80 (19621, PP. 431-437. OHCGiOSO 

DHCG1060 

DHCG1070 

DHCG1080 

OHCGI090 

OHCGUOO 

DHCGIllO 

DKG1120 

OHCGII30 

OHC&II40 

DHCG1150 

DHCG1160 

OHCGllTO 

OHCGUaO 

DHCG1190 

DHCG1200 

OHCG 12 10 

OHCG1220 

OHCG12 30 

0HCG1240 

OHCG 1 250 

OHCG1260 

DHCGI270 

OHCG1280 

0HCG1290 



SUBROUTINE OHPCG( Pt MT, Y.0ERY,N01 M, IHLf , FCT .OUTP , AUXI 



DIMENSION PRMTIll.Ydl .OERYll ) , AUX ( l6, 1 1 
DOUBLE PRECISIOW Y . OER Y, AUX, PRM T , X ,H , Z, OEL T 

N = l 
|HLF=0 

X=PRMTI 11 

H=PRMTI 3) 

PRMT(5)=0.D0 

00 1 I=1,ND1M 

AUX( 16, I)=0.00 

AUX(I5, II=DER,-(|} 
1 AUXd.l ) = Y(I) 

IF(H*(PRMr{2)-x)|3,2,4 

ERROR RETURNS 
' IHLF=i^ 

GOTO 4 
■ IHLF=13 



RECORDING OF STARTING VALUES 

CALL OUTP(X,Y,OERY, IHLF, NOIH, PRMT) 

IF(PRMT(5) )6,5,6 

5 1F( IHLF)7,7,6 

6 RETURN 

7 00 8 I=l,NOIM 

8 AUX(8,n=0ERYII I 

COMPUTATION OF AUX(2,M 

ISW*I 

GOTO 100 

9 X=X*H 

00 10 I=1,N0IM 

10 AUX[2,n=Y(I ) 

INCREMENT H IS TESTED 8Y MEANS OF BISECTION 

11 1HLF=IHLF*1 
X = X-H 

DO 12 I = 1 , NO I H 

12 AUX(4,II=AUXt2,I) 
H=.500*H 

N^l 
ISW = 2 
GOTO 100 



CALL FCT( K, Y,D£Rri 
N = 2 

00 14 I=t.NDIM 
AUXI2. I )=y( I ) 
14 AUX19,I )=0£RYII I 
ISWS3 
GOTO 100 



TEST VALUE O&LT 



COMPUTATION OF 

15 0El_T=0.D{ 
00 16 1=1. NOIH 

16 0£LT=DELT*AUX(15.II*DAaSIY( I1-AUX(4,1)) 
OELT^ ■ 6666 666666 66 6666 7 DO «-OELr 
IF(0eLr-PRtiT(4))19. 19,17 

17 IF( IHLF- 10) 11, 18, 18 

NO SATISFACTORY ACCURACY AFTER 10 BISECTIONS. ERROR MESSAGE. 



C THERE IS SATISFACTORY ACCURACY AFTER LESS THAN 11 BISECTIONS. 

CALL FCT( X.Y.DERY) 
DO 20 I=1,N0IM 
AUX(>, I 1 = Y( I 1 

20 AUXI 10, I I^0£«YI I ) 
N = 3 

ISW=4 
GOTO 100 
C 

21 N = l 

X = X*H 

CALL FCKX.Y.OERY) 

X=PRMT( 1 i 

00 2Z I=l,NDIM 
AUXIU,I)=OERY( II 
220Y(It=AUK(l.lI*M»I.3 75O0*AUX(6,I)».79l666666666666700*AUXI9,II 
t-.20833333333333333DQ*AUX(10,Ilf.04l666666666666667D0»otRY(Il) 

N = N<-1 

CALL FCTIX.Y.OERV) 

CALL 0UTP(X,Y,DERY,IHLF,ND1M,PRMT) 

IF(PRMT( 5) 16,24,6 

24 IF(N-4)25,200,200 

25 DO 26 I=1,N0IM 
AUXtN, I 1 = YU I 

26 AUX(N*7,U=0ERY(I I 
IF(N-31 27,29,200 

2 7 00 2a I^l.NDlM 

DeLT=AUX(9, I 1*AUK(9,I 1 
OeLT=OELT»DELT 

28 Yin=AUX(UIIt.333J333 33333333 33O0*H*{AUX(8,IltOELT«AUX(10,I)I 

29 00 30 I=1,NDIM 
DELI=AUX(9.I 1*AUX(10,I I 
DEL T=DELT*OELr ♦CELT 

30 Y(I)=AUXll,n*.37500*H*IAUX(S,n+DeLr*AUXlll,II) 
GOTO 2 3 

THE FOLLOWING PART OF SUBROUTINE OHPCG COMPUTES BY MEANS QF 
RUNGE-KUTTA METHOD STARTING VALUES FOR THE NOT SELF-STARTING 
PREOICTOR-CQRRECTOfl METHOD. 

100 DO 101 I=1,N0IM 
Z-H«AUX(N»7. I I 
AUX(5. 1 I=Z 

101 Y{ I )=AUX(Nt I )*.<.00>Z 

I IS AN AUXILIARY STORAGE LOCATION 



DHCG1300 
0HCGl3ia 
OHCG 1 320 
OHCC1330 

OHCG1340 

0MCG1350 

0HCGt360 

DHCG1370 

DHCG1380 

DHCG1390 

OHCGUOO 

DHCG1410 

0HCG1420 

0HCG1430 

DHCG1440 

OHCG 1450 

OHCG 1460 

DHCG1470 

OHCG14S0 

DHCG1490 

DHCG1500 

OHCG1510 

OHC61520 

DHCCI530 

DHCGI540 

DHCG 1550 

0HCG1S60 

DHCG1S70 

DHCG1580 

DHCG1590 

OHCG1600 

DHCG1610 

0HCC1620 

0HCG1630 

DHCG1640 

OHCG1650 

OHCG 1660 

DHCCI6 70 

DKCGI6aO 

OHCG1690 

DHCG1700 

OHCG 17 10 

OtiCGl7 20 

DHCC1730 

DHCGI740 

DHCG1750 

DHCG1760 

OHCG1770 

DHCG1780 

0HCG1790 

OHCG18C0 

OHCG 18 10 

OHCG1820 

DHCGI830 

OHCG1840 

DHCG 1 6 50 

DHCG1S60 

DHCG 18 70 

OHCG 1890 

0HCG1390 

DHCG1900 

0HCG1910 

DHCG1920 

DHCG1930 

OHCG1940 

OHCG1950 

0HCG1960 

DHCG1970 

0HCG19a0 

OHCG 1990 

OHCG2000 

OHCG2010 

0HCC2020 

0HCG20 30 

OHCC2040 

DHCG2050 

DHCG2060 

DHCG2070 

DHCG2080 

OHC 02090 

DHCC2I00 

0HCG2U0 

OHCC2120 

DHCG2130 

DHCG2140 

0HCG2150 

DHCG2t60 

OHC 02170 

0HCG2180 

OHCG2i90 

OHCG2200 

OHCC2210 

0HCG2220 

OHCG22 30 

OHCG2240 

DHCC2250 

0HCG2260 

DHCG22 70 

0HCG2280 

DHCG22 90 

OHCG23O0 

OHCG2310 

DHCG2 320 

DHCG23 30 

0HCG2340 

OHCG2 350 



Z^x*-.(.OC*H 

CALL FC T( Z, V.DERV i 

DO 102 1=1. NOIH 

;-H»oEftY(n 

AUX(6, I ) = Z 
102 Y(II=AUX(N,I )*.2969 7760924 7 7536000*AUXI5,( I.. 158 75964497 10358300*ZOHCG2360 
, ,, , DHCG2370 

Z=X*.4557372542ie7e94300*H DHCG2 3aO 

CALL FCTU.Y.OERYl OHCG2390 

DO 103 I=l.NDIM DHCG2400 

Z=H*OE«Y(II nHfr?Zin 



CALL FCTIZ. Y.OERV) 
DO 104 I=I,NDIM 



'^''?Iui!:*l;'f 'My •'"'*"^"''26903 700*AUX(5, 11-. 5514806629787329 
C0T0(9, 13,15,21 I.ISW 
PPSSIBLE BREAK-POINT FOR LINKAGE 
STARTING VALUES ARE COMPUTED. 
ZOO J^JEplt" "*'"^"^" MODIFIED PREO ICTUR-CORRECTOR METHOD. 



0HCC2440 
OHCG2450 
DHCG2460 
0HCG2470 
DHCG 24 80 
DHCG2490 
DHCG2500 
0HCG2510 
0HCG2520 
OHCG25 30 
DHCG254(: 
0HCG255C 
0HCC2560 
DHCG25 70 
DNCG25B0 



342 Mathematics— Ordinary Differential Equations 



201 IFiU-iiZO'*', 202,20'* 

N=8 CAUSES THE ROWS Of *UX TO CHANGE TH£IR STOAAGE LOCATIONS 

202 00 203 N=2,7 

00 203 l>l,N01*1 
AUX(N-1.I I'AUXCN.I ) 

203 AUX(N*6,I tsAUX(N*^7t I ) 

N=7 ^ 

N LESS THAN S CAUSES N*l TQ G6 T N 
20*. N=N*1 

COMPUTATION OF NEXT VECTOR Y 
00 205 I^l.NOIM 
AUX(N-lfII=Y(II 

205 AUXIN4'6*I l=0&RY(I I 
X=X*H 

206 ISTEP=ISTep*l 
DO 20T l>lfNOIM 

CDELT = AUX(N-4, I 1 + 1.33333333333333 33Da*H»lAUX(N»6, II +AUX1N+6, I I- 
IAUX(N*5, I»+AUX(N»4, I l*AUXIN*<>.I } I 
V< I l=0ELT-.9256l983-*710T<V3e00*AJX(l6.l I 

207 AUXI 16, It=DELT 

PREDICTOR IS NOW GENERATED IN ROW 16 OF AUX, MODIFIED PREDICTOR 
IS GENERATED IN V. OELT MEANS AM AJXlLIARV STORAGE. 

CALL FCTt Xf V.DERVl 

DERIVATIVE OF MODIFIED PREDICTOR IS GENERATED IN DERY 

00 20B l=ltNOIM 
ODEL T = . 1 25D0* ( 9. DO*A UX I N- 1 
1*AUX(N>6,I |-AUX<N«3.I )l) 

AUXI 16, ll=AUX(16.I)-DELT 

20a Y( I ).DELIt.07'i380l652fl92562000*AUX{ 16. I) 

TEST WHETHER H MUST 6E HALVED OR OOU8LtO 
DEL I «0- 00 
Oa 209 I=t,N0IM 
209 DELT=OELT*AUXI 15. I 1 •DA8S I AUXI 16 . I ) I 
JF(0£LT-PRMTI41 t 210 ,222, 222 

H MUST NOT BE HALVED. THAT MEANS Ylll ARE GOOD. 
21C CALL FCTI XtY.OERVt 

CALL OUTPU.T.OERV, IMLF,NOIHtP«Hrt 
IF(PRMT(5l)2l2.2ll.2l2 

211 IF) IHLF-1 11213,212. 212 

212 RETURN 

213 IF(H*(X-PRMTI 2M)21'.,^12.212 

21A IFIOAeSIX-PRMri2)»-.100»OABSIH))212,2l5.215 
215 IF[OeLI~.02DQ»PRMr( «t))216.216.201 



-*UX(N-3,I 1*3. DC* 



•<DERY(I 1* AUX(N*6 



(JRECEEOING VALUES ARE 



M COULD BE DGUBLEO If ALL NECESSARY 
AVAILABLE 

216 IFI IHLF 1201. 201,217 

217 lF(N-7l20l,218,2ie 

218 IF(ISTEP-*I2Cl,2i9,219 

219 IK00=!STEP/2 

lei I STEP- I MOO- 1 MOD I 201 ,22 0,201 

220 H=H*H 
IHLF=!HLF-1 
ISTEP*0 

00 221 I=l,NDIM 
AUXlN-l,II=AUX(N-2, [I 
AuxlN-2rt I^AUXIN-4, II 
AUXIN-3,II=AUX|N-6,II 
AUXIN*6,H=AUXIN«-5.n 
AUXIN+5, 11=AUX<N*3, [1 
AUX(N«4,I 1=AUX(N+L, I I 
OELT = AUX(N+6,n*AUKtN+5,H 
DELT=DELT«-OELT»DELT 
22tOAUX(16, I)*8.9629629 62962963[>0*Un>-AUX(N-3,n> 
1-3. 3511 lllUl nil llO0*H*(D€RYm*OELT*AUX(NtA,I )) 
GOTO 20 1 



H MUST BE HALVED 

222 IHLF=IHLF*1 
IFI IHLF-10)223,223,210 

223 H=.500«H 
ISTEP'O 
DO 22'«. I = 1,N0IM 

O¥tII = .390625D-2*(8.Dl»AUX(N-l,nt-135.D0*AUXlN-2,IU«.0l*AUX(N-3 
l*AUX{N-4,in-.11718 75D0*(AUXlNt6,I)-6.D0*AUXlN*5,I)-AUX(N*4,m 
OAUX{N-*, 1 1-. 3906250-2*1 12.00*AUX(N-1. 1 l*l35.O0*AUX(N-2, 1 I* 
1 108. D0*AUX(N-3,M*AUX(N-4,m-.0234375DO*( AUXI N*6,n* 
2l8.00*AUX(N*5,r 1-9. DO* AUX IN**, I 11 'H 

AUX(N-3. I J=AUXIN-2, 1» 
22A AUX(N»4.I)-^AUX(N+5, IJ 

X = X-H 

DELT-X-(H*H) 

CALL FCTIOELT, Y.DERVt 

DO 225 I=1,NDIM 

AUX(N-2,I) = Y( [ 1 

AUX(Nt^5,n=DERY(I) 

225 ym"AuxiN-*,n 

OELr=OELT-(H+Hl 

CALL FCTIOELT.Y.DERYl 

DO 22 6 I=1,N0IM 

DELT=AUXIN*5, I (+AUX<N*«.l ) 

DeLT=DELr*OELT*OELT 
OAUX (16, 11 =8. 96296 296296296300*1 AUXI N-1. D-YdJI 
1-3.3611111111U111100*H*IAUX(N«-6,IUOELT*DERY(I II 

226 AUXIN*3,I l=DERYn ) 
GOTO 206 
END 



OHC 02590 
OHCC26C0 
0HCC2610 
OHCG26 20 
DHCC2ft3C 
0HCC264C 
0HCG2650 
DHCC2&60 
DHCG26 70 
0HCGZ680 
DHCG2690 
OMC&2700 
DHCGznO 
0HCG2720 
DHCG2TJ0 
0HCG27'.0 
0HCG275C 
DHCG2760 
OHCG2 7 70 
DHCG2780 
OHCG2 7VO 
OHCG2800 
DHCG2B10 
OHCG2a20 
DHCG28 3a 
0HCG28*0 
DHCG2850 
0HCG2S60 
0HCG2B70 
OHCGZaSO 

, [tOHCG2a90 
0HCG2<)C0 
DHCG2910 
OHCC29 20 
0HCG29 3O 
OHCC29*0 
0HCG29S0 
OHCG2960 
DHCC29 70 
DHCG29a0 
DHCG2990 
OHCG3000 
0HCG301O 
DHCG3020 
DHCG30 3O 
OHCG30*0 
OHCG3050 
OHCG3060 
DHCG3070 
0HCG3090 
OHCG30 90 
DHCG3100 
DHCG3110 
DHCG312C 
0HCG313O 
DHCG3K.0 
OHCG3150 
0HC&316C 
OHCG3170 
DHCG3180 
OHCG3190 
DHCG320O 
DHCG3210 
OHCG3220 
DHCG32 3D 
0NCG3240 
DNCG3250 
0HCC3260 
DHCG3270 
0HCG3280 
DHCG3290 
DHCG33C0 
DHCG3310 
DHCG33 20 
DHC&33 30 
OHCG3340 
DHCG3350 
DHCG3360 
OHCG33 70 
DHCG3380 
DHCG3390 
OHCGSAOO 
IIDHCG3410 

*H DHC63'i20 
DHCG34 30 
0HCG3'i'*0 
DHCGS-iSO 
DHCG3'i60 
OHCG3470 
0HCG3't8C 
DHCG3490 
DHCG3500 
DHCG3510 
0HCG35Z0 
OHCG35 30 
0HCG3540 
OHCG3550 
DHCG3560 
DHCG3570 
DHCG3580 
0HCG3590 
OHCG3600 
OHCG3610 
0HCG362O 
0HCG36 30 
OHCG36'tO 



Subroutines HPCL and DHPCL 

These subroutines use Hamming's modified 
predictor -corrector method for the solution of 
linear initial - value problems. The purpose of 
this version of Hamming's modified predictor- 
corrector method is to obtain an approximate solu- 
tion of a linear system of first-order ordinary 
differential equations with given initial values J It is 
a stable fourth-order integration procedure, re- 
quiring the evaluation of the right-hand side of the 
system only two times per step. This is a great 
advantage compared with other methods of the same 
order of accuracy , especially the Runge-Kutta 
method, which requires the evaluation of the right- 
hand side four times per step. Another advantage 
is that at each step the calculation procedure gives 
an estimate for the local truncation error; thus the 
procedure is able — without a significant amount of 
calculation time — to choose and chaise the step 
size h. On the other hand, Hamming's predictor- 
corrector method is not self- starting; that is, the 
functional values at a single previous point are not 
enough to obtain the functional values ahead. There- 
fore, to get the starting values, a special Runge- 
Kutta procedure followed by one iteration step is 
added to the predictor-corrector method. 

Given the linear system of first-order ordinary 
differential equations: 

y'i=-sr = ^i<^>yi"^2<^)y2^--'"^n 



(X) y^ + f^ (X) 



dy 
y'2=-d^=^2l(^)yi^^22<^>y2-^"-^^2n 



(X) y + f (X) 
n £, 



dy. 



y' 



= a , (x)y, +a „ (x)y +...+ a 



n dx nl 



(X) y + f (x) 
^ ' •'n n ^ 



n2 



nn 



t Solution can be done with subroutines HPCG and 
DHPCG too . The main reason for this special 
version, suitable to systems of linear differential 
equations, is that external subroutines furnished 
by the user for the solution of linear boundary- 
value problems can be used without changes by 
subroutine HPCL or DHPCL for the solution of 
corresponding linear initial -value problems. 
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and the initial values: 



and using the following vector and matrix notations: 



Y(x) = 



y^Cx) 



.^n <"V 



f(x) 



f\ (X) \ 
f2(x) 



f^(x) 



A(x) 



'a^^(x) a^2 (X) 



,V"^\2« 



^2n (^) 



a (X), 
rrn ' 




and Y = 




where Y, F and Yq are column vectors and A is an 
n by n square matrix, the given problem appears as 
follows : 



dY 

^' "IT = ^(''^ *^ ^ ^(""^ '^"•^ ''^(''o^ " ^0 

For stability purposes, the modification by 
Hamming of Milne's classical modified predictor- 
corrector method is preferred. Thus, knowing the 
results at the equidistant points xj-3, xj_2, xj_i 
and xj , the results at point x; _,_ j = x; + h are com- 
puted by the formulas given below. 



4 h 



Predictor: P =Y + (2Y'-Y' 

j+1 j-3 3 ^ j j-1 



. 2 Y._^) 



112 



Modifier: M = P - ^^— (P - C ) 
j + 1 j + 1 121 ^ j j' 



M.' = A(x. J 'M. + r(x. ) 
J + 1 J + r J + 1 ^ j + i' 

Corrector: C. =-5-19 Y. - Y. „ + 3h 
J+1 8 L J J-2 

(MJ , + 2 Y' - Y' )1 
J+1 J j-rj 



(1) 

(2) 
(3) 



(4) 



Final Value: Y 

J + 1 



C + (P 

j+1 121 ^ j+1 



^J + 1^ 



(5) 



where Y, Y', P, M, M' and C are all columri vectors 
with n components , and A is an n by n square matrix. 
Formulas (1) and (4) have local truncation errors: 



^1 =i|-^' ^^'^ ( « 1) ^"h e^ .(XX. 



j-3' j + 1' 



and 



^2=-i-^'Y^°^<« 2>^"^ f ,*(x. .,X,,) 



j-2' j + 1' 



respectively such that 



S + l-^j + l=W^'^^'^(«>-"^^'<V3'Vl) 

(5) 
Assuming that Y^ (x) does not vary to any great 

extent in the interval (x. „, x. J, it follows that: 
J-3 J+1" 



"^2- 121 ^^j + 1 ~ *^j + l^ 



This formula shows that the components of column 
vector Pj + i- Cj + i are measures for the local 
truncation errors in the components of column 
vector Yj + i. Therefore, control of accuracy and 
adjustment of step size h can be done by generating 
the following test value: 



n 
Y] a. . If . - c. , . 

i= 1 ^ I J*^'^ •'+^'^ 



(6) 



where, the coefficients aj (i = 1 , 2 , . . . , n) are error- 
weights specified in the input of the procedure. 

If 5 is greater than a given tolerance e', incre- 
ment h is halved and the procedure computes Y. j^ — 

h ^"2 

that is, Y (x. +-^)— after having interpolated 

Yj 4 = Y <^j -T^ ^'^^ Yj -|= Y (Xj -^), with 
previous increment h, using the following sixth- 
order interpolation formulas: 



'ws (-y;^«^j-i-v^ 



(7) 



t Numerical experience seems to show that the 
procedure does not exceed a global relative 
error approximately equal to e. 
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^j - ^ " 256 



(12 Y. 4 135 Y. , + 108 Y. ,^ + Y, ) 



If 6 is less than e, the result Yj + jis assumed to 
be correct and is handed, together with Xj + j and the 
vector of derivatives Y'j + i, to a user-supplied output 
subroutine. 

If 6 is less than e/50 , the next step is carried 
out with the doubled increment. However, care is 
taken in the procedure, so that the increment never 
becomes greater than the increment h specified as 
an input parameter, and further that among the out- 
put are all points xq + j • h (where j = 0,l,2,..., 
and h is the input step size) which are situated be- 
tween the lower and the upper bound of the integration 
interval. 

Changing the step size by halving or doubling 
requires changing of Pj - Cj or Pj + 2. " C j + 1 
respectively. Using the following interpolation 
formula: 



Y. = Y. + 

J J-3 



h (Y'. ^ + 3Y' + 3Y'. + Y ) 
^ J-3 J-2 j-1 J 



80 ^ * 3' 



with 



{se(^i-.v ^) 



■3-3 



.(5) 



and assuming that Y^ ' (x) does not vary to any great 
extent in this interval, Pj - Cj can be written in the 
following form: 



242 



121 



^rS'-^^'^rVa^-^'^^'r'^'M 



starting Hamming's modified predictor-corrector 
method requires the functional and derivative values 
at four preceding equidistant points: xq, x^, X2 and 
X3. The values Yq and Y'q = A(xo) » Yq 4^ F{xq) are 
specified by input. For computation of Yi, Y'l, 
Y2) Y'2, Y3 and Y'3 and for adjustment of step size 
h to accuracy requirements, a special Runge-Kutta 
procedure suggested by Ralston is used. Starting at 
xj , result values at point xj + i = Xj + h are computed 

using the following formulas: 



K, = h • Y'. 
1 J 



(11) 



K^ 



S = ^ 



= h • [a (x. + 0.4 h) * (Y. + 0.4 K ) 

+ F(x. + 0.4 h)1 (12) 

h • Fa (X. + 0.45573725421878943 h)« 
(Y. + 0.29697760924775360 K 



+ 0.15875964497103583 K ) 

+ F(x. + 0.45573725421878943 h)l (13) 

K = h • [a (x. + h) » (Y. +0. 21810038822592047 K 

- 3.0509651486929308 K 

+ 3.8328647604670103 K ) + F (x. + h)l (14) 



Y = Y + 0.17476028226269037 K, 
J + 1 J 1 

- 0.55148066287873294 K„ 



+ 1.2055355993965235 K„ 



+ 0. 17118478121951903 K, 



(15) 



When halving increment h, this formula becomes: 

P.-C.«^(Y.-Y 3)-^.-^ (Y- +3Y: 3) 
J J 27 ' J J-2 36 2 ] ]-2 



+ 3Y'. , 
]-l 

and when doubling: 



Y! 3) 

••"2 



242 
3 - C "- (Y - Y \ 

■j+1 j + l~ 27 ^ j + 1 j-5' 



121 
36 



2 h 



(9) 



(Y'. , + 3Y'. , + 3Y'. ^+Y'. J (10) 
J + 1 J-1 J-3 J-5' 



where Yj, Yj + j, Y'j , K^, K2, Kg and K4 are aU 
column vectors with n components , and A is an n by 
n square matrix. These formulas are not very 
stable, but this does not matter because they are 
used only in three successive steps (j = 0,1,2). 
On the other hand, they have the smallest bound of 
truncation errors of all fourth-order Runge-Kutta 
procedures. Therefore they are best suited to start 
other integration methods which are not self-startii^. 

For initial control of accuracy and adjustment of 
step size h , in starting the procedure an approxi- 
mation for Y = Y (x + h) called Y^ is computed 

using the step size h, and then an approximation 

(2) 
called Y2 , using the step size h/2 twice. From 

these two approximations, a test value h for ac- 
curacy is generated in the following way: 
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1 



(1) 



(2) I 



i=l 



'2,i 



'2,i 



(16) 



If S is greater than G, increment h is halved and 
the procedure starts anew at point Xq . 

If 6 is less than e, the results Y ^^^ = Y (xn ^) 



and Y 



(2) 



Y (x^ + h) are assumed to be correct 



and a third step follows which computes the results 
at point Xq +^ - that is, Y^ = Y (x^ +~h). 

The step size h/2 of these three steps is used as 
initial step size h in the predictor-corrector method. 

It is very important that the starting values be 
as accurate as possible, because errors in these 
starting values may increase during the following 
predictor-corrector procedure. Therefore the 
starting values computed by the Runge-Kutta method 
are refined by one iteration step using the following 
fourth -order interpolation formulas: 

^l = Yo^^(9Y-Q + 19Y'^-5Y-2 + Y'3) (17) 



^2 = Yo.^(Y'^ + 4Y'^.Yy 



3h 



^3 = ^0"^<Y' .3Y' .3Y' .Y') 



(18) 



(19) 



which must be considered as an iteration procedure. 
That is, first the result values of the Runge-Kutta 
method are handed to the right-hand side of formula 
(17) to compute a refined Yj. After having com- 
puted the refined Y'l , the refined vector Y2 is 
generated using formula (18). Finally, refined Y'g 
is used, together with the other values, in the 
right-hand side of formula (19) to compute the 
refined vector Y3. During this iteration, the re- 
fined data sets Xj, Yj, Y'j are handed, together 
with the number of bisections of the initial step size 
(specified by input), to the output subroutine. 

It can be shown that, using this iterative pro- 
cedure, the initial column vector P3 - C3 used in 
formula (2) for j = 3 is equal to zero. 

The entire input of the procedure is : 

1. Lower and upper bound of the integration 
interval, initial step size h of the independent vari- 
able, and upper bound £ of the local truncation 
error 

2. Initial values Yo of the dependent variables 
and weights ai (i = 1, 2, . . . , n) for the local trunca- 
tion errors in each component of the dependent 
variables 

3. The number n of differential equations in the 
system 



4. As external subroutine subprograms, the 
computation of the right-hand side matrix A of the 
system of linear differential equations and of the 
inhomogeneous vector F; for flexibility in output, an 
output subroutine 

5. An auxiliary storage array with 16 rows and 
n columns 

6. An n by n matrix as auxiliary storage array 
Output is done In the following way. If a set of 

approximations to the dependent variables Y (x) is 
found to be of sufficient accuracy, it is handed — 
together with x, the derivative YV(x), the number of 
bisections of the initial increment, the number of 
differential equations, the lower and upper bound of 
the interval, the initial step size, error bound e, 
and a parameter for terminating subroutine HPCL 
or DHPCL — to the output subroutine. By means 
of this output subroutine, the user has the opportunity 
to choose his own output format, to handle the output 
values as he wants, to change the upper error bound 
and to terminate subroutine HPCL or DHPCL at any 
output point. In particular, the user is able to drop 
the output of some intermediate points, printing only 
the result values at the special points xq + j • h, 
where j = 0, 1, 2, . . . . , and he is the initial step 
size specified by input. The user may also perform 
intermediate computation using the integration re- 
sults before continuing the process. For better 
understanding of the flowchart and of the FORTRAN 
program, see the allocation of special intermediate 
result vectors within the storage array AUX, shown 
previously in Figure 12. 
For reference see: 

(1) A. Ralston/ H.S, Wilf, Mathematical 
Methods for Digital Computers , Wiley, 
New York/ London, 1960, pp. 95 - 109. 

(2) A. Ralston, "Runge-Kutta Methods with 
Minimum Error Bounds", MTAC, vol. 16, 
no. 80 (1962), pp. 431 - 437. 
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HCCL 


10 




HPCL 


20 




HPCL 


30 




m>cL 


40 




HPCL 


50 




HPCL 


60 




HPCL 


70 


C 


HPCL 


80 


C 


HPCL 


90 


C 


HPCL 


100 




HPCL 


uo 




HPCL 


L20 




HPCL 


L30 




HPCL 


1^ 





suenourlHE hpcl 

PUKPOSE ..,.. 

10 SOLVE A SrSTCll OF FIKSI 0«OER OKOIWHV LIK£*« 
OlFFEKEMTUL EOUHIOKS UITM CIVEN IN1TI4L y»LU£S. ^ 

C»LL HPCL (P«Mt,».OE«Y.NOm,IMLftl»CItFCI,OUTP.»UX.«l 
PMJBETEHS «FCT,FCI «N0 OUTP «e«UI«£ »N E«TE«ll*l SUTEBEHT. 

"' mMT - •» INPUT «ND OUrPUI »ECTO« »ITH DIMENSION 6«e«IEIl HPCL 150 
OB EQU»L TO 5, "HICH SPECIFIES THE P*«»«£TE(lS OF HPCL l»0 
THE INTERVAL *N0 OF »CCU«»CY «N0 KHICH SERVES F0« MPCL ITO 
C0IWUNIC«TION BETNEEN OUTPUT SO»«OUTIN£ IFU«NISMEO HPCL ISO 
«r TW US£«i «N0 SU««OUTI«E HPCL. ElCEPT P«MTHI HPCL HO 
THE COHPONENTS Utt NOT OtSTHOYEO BY SUBMWTINE 
HPCL «M0 THEY »«E 

LOWEfl BOUND OF THE INTERVAL IINPUTI, 
UPPER BOUND OF THE INTERVAL IINPUTI, 
INITIAL INCRENCNT OF THE INDEPENDENT VARIABLE 
tINPUT) . 
PRNTI4I- UPPER ERROR BOUND IIMPUTI. IF ABSOLUTE ERROR IS 
GREATER THAN PRMTI4I. INCREREHT GETS HALVED. 
NCRENENT IS LESS THAN PRNTUl AND ABSOLUTE 



PRNTdl 
PRNTI2I 
PRHTU) 



HPCL 200 
HPCL 210 
HPCL 220 
H^CL 230 
HPCL 2A0 
HPCL 250 
HPCL 260 
HPCL 2 TO 
HPCL 210 



ERROR LESS THAN PRKIHUSO, INCRE"£HT WIS DOUBLED. MPCL 2« 
THE USER "AY CHAWJE PRNTIAI BY NEANS Of HIS — " 

OUTPUT SUBROUTINE. 
PRNTI5I- NO INPUT PARANET6R. SU«OOTINt HPCL INITIALIZES 
PRNTCSI'O. IF THE USER WANTS TO TERNINATE 
SUBROUTINE HPCL AT ANY OUTPUT POINT, HE HAS TO 
CHANCE PRHTISl TO NON-JERO BY NEAHS OF SUBROUTINE HPCL 350 
OUTP. FURTHER CONPONENTS OF VECTOR PART ARE HPCL 360 

FEASIBLE If ITS OINENSION IS DEFINED GREATER HPCL 3T0 

THAN 5. HOWEVER SUBROUTINE BPCt DOCS NOT REQUIRE HPCL 3B0 
>ND CHANGE THEN. NEVERTHELESS THEY HAY BE USEFUL HPCL 390 
FOR HANDING RESULT VALUES TO THE NAIN PROGRAN HPCL AOO 

ICALLING HPCLI NHICH ARE OBTAINED BY SPECIAL HPCL 410 

MANIPULATIONS HUH OUTPUT DATA IN SUBROUTINE OUTP. HPCL A20 

, - INPUT VECTOR OF INITIAL VALUES. (DESTROYEOI —'.->-. 

LATERON Y IS THE RESULTING VECTOR Of OEPENOENT 
VARIABLES COMPUTED AT INTERNEDIATE POINTS I. 

DERY - INPUT VECTOR Of ERROR WEIGHTS. IDESTROYEOl 

THE SUN OF ITS CONPOHENIS NUST BE EQUAL TO 1. 
LATERON OERY IS THE VECTOR OF DERIVATIVES, WHICH 
BELONG TO FUNCTION VALUES Y AT A POINT K. 

NOIN - AH INPUT VALUE. WHICH SPECIFIES THE NUMBER OF 
EQUATIONS IN THE SYSTEM. 

I«.F - AN OUTPUT VALUE, WHICH SPECIFIES THE NUMBER OF 

BISECTIONS OF THE INITIAL INCREMENT. If IHLf GETS 

GREATER THAN 10, SUBROUTINE HPCL RETURNS WITH 

ERROR MESSAGE IHlf-Il INTO MAIN PROGRAM. 

ERROR MESSAGE IHlF.12 OR IHLF- 13 APPEARS IN CASE 

PRMTI31-0 OR IN CASE SIGNIPRMT 131 I.NE.SIONIPRMTI 2)-HPCl 5T0 

PRMnill RESPECTIVELY. "'"■ "? 

AFCT - THE NAME OF AN EKIERNAL SUBROUTINE USED. IT HPCL 5«0 

COMPUTES MATRI. A IFACTOR OF VECTOR Y 0« THE HPCL 600 

RIGHT HAND SIDE OF THE SYSTEMI FOR A GIVEN A-VALUE.HPCL 610 
ITS PARANEIER LIST HUSI BE «,A. THE SUBROUTINE HPCL 620 

SHOULD NOT DESTROY I. , ,, *'^ "? 

FCI - THE NAME Of AN EXTERNAL SUBROUTINE USED. IT HPCL 6*0 

COMPUTES VECTOR F | I NHOMDCE NEOUS PART OF THE HPCL 650 

l^ZVulm SIDE Of THE SYSTENI FOR «»'»!," «:»*l-'''-""t JtS 
ITS PARAMETER LIST NUST BE X,F. THE SUBROUTINE HPCL "" 

SHOULD NOT DESTROY X. 

OUTP - THE NAME Of AN EXTERNAL OUTPUT S<««"V''« "f'"' „ „„, ... 
ITS PARAMETER LIST MOST BE X,Y, DERY . IHLF, NOI M, PRMT. MPCL 700 
NONE Of THESE PARAMETERS lEXCEPT, IF NECESSARY, HPCL 710 

PRMTIAI,P»«TI5I....I SHOULD BE CHANGED BY HPCL 720 

SUBROUTINE OUTP. IF PRMTISI IS CHANGED TO NON-2 6R0 , HPCL 730 
SUBROUTINE HPCL IS TERNINATEO. "''I- '*" 

AUX - AN AUXILIARY STORAGE ARRAY WITH 16 ROWS AND NOIM HPCL 750 

COLUNNS. ""■■ "° 

A - AN NOIM BY NOIM MATRIX. WHICH 

STORAGE ARRAY. 



HPCL 300 
HPCL 110 
HPCL 320 
HPCL 330 
HPCL 3A0 



HPCL 630 
HPCL *4Q 
HPCL 450 
HPCL 460 
HPCL 470 
HPCL 480 
HPCL 4S0 
HPCL 500 
HPCL 510 
HPCL 520 
HPCL 530 
MPCL 540 
HPCL 550 
HPCL 560 



HPCL 680 
HPCL 690 



S USED AS AUXILIARY HPCL 7T0 
HPCL TBO 



"^"thIE PROCEDURE TERMINATES AND RETURNS TO CALLING PROGRAM. 
Ill MORE THAN 10 BISECTIONS Of THE INITIAL INCRENENT ARE 
H^ESSARY TO GET SATISFACTORY ACCURACY (ERROR MESSAGE 



IHLF'llI 
121 INITIAL 



_ .NCRENENT IS EQUAL TO OR HAS WRONG SIGN 

lERROR MESSAGES IHLf-12 OR IHLf-13), 

131 THE WHOLE INTEGRATION INTERVAL IS WORRED THROUGH, 
(41 SUBROUTINE OUTP HAS CHANGED PRNTI5I TO N0N-2ER0. 



HPCL 790 
HPCL 800 
IF HPCL BIO 
HPCL 820 
HPCL 830 
HPCL 840 
HPCL 850 
HPCL 860 
MPCL 870 

HPCL eso 

HPCL 890 
HPCL 900 
HPCL 910 



HPCL 980 
HPCL 990 
HPCL 1000 
HPCL 10 10 
HPCL 1020 
HPCL 10 30 
HPCL 1040 
HPCL1050 
HPCL 1060 
HPCLIOTO 
HPCL 10 80 



SUBROUTINES AMD FUNCTION SUBPROGRAMS REQUIRED 

r,« EXTERNAL SUBROUTINES AFCTIX.AI, FCTIX,fl AND 
;WptJ;Y'MRr.lHLf.NOIH.PR«T, HUSf •£ FWNISHeO 8V THE U^-^-HPCL «0 

HPCL 9*0 

""ESLUAflOH IS DONE ii M€iNS Of HAMMINGS HOOIflEO PRtOICTOR- HPCL 950 

cS^«J[Sr45HSo. IT IS A FOWTH OftOER ^^HOO. USING J HPCL 960 

PReceeoiNG points fm compotation of a n£u vector y of the hpcl jro 

DEPENDENT VARIABLES* ._^ ,, 

FOURTH ORDCR RUNGE-KUITA HETHOO SUGGESTED BV *«;SfON IS 
USED FOR ADJUSTMENT OF THE INITIAL INCREMENT AND FOR 
COMPUTATION 3F STARTING VALUES. ,^„M,:»8t n,«iwr 

SUBROUTINE HPCL 4UTOMATICALL V ADJUSTS THE INCREHEMT DURING 
Tt€ WHOLE COMPUTATION BY HALVING OR DOUBLING. 
TO GET FULL FLEXIBILITY IN OUTPUT. AN OUTPUT SUBROUTINE 
NUST BE COOED BV THE USER. 

FOR REFERENCE, SEE „,^.,.. 

II) RALSTON/WlLF, MATHEMATICAL METHODS FOR DIGITAL 

COMPUTERS WILEY. NEM YORH/LONOON, I96C, PP.95-I0S. .,. .^^^ 

12. SJuV^? wSii-KUTTA METHODS NITH MINIMUM ERROR BOUNDS, HPCL 09O 

MTAC. V0t.l6. ISS.80 (19621. PP. -.31-457, hJcLUIC 

HPCL 1 120 

HPCLllW 
HPCL 11 40 
HPCL 11 SO 
HPCL1L60 
HPCL 1170 
HPCL USD 
HPCL 11 90 
HPCL 1200 
HPCL W 10 
HPCL 1220 
HPCL12>0 
HPCL 12*0 
HPCL 12 SO 
HPCL 1260 
HPCL12T0 
HPCL 1280 
HPCL 1290 



SUBROUTINE NPCL (PRMT, Y.OERY.NOlM, IHLF, AFCF ,f CT,0UTP,A0X, A) 

THE FOLLOWING FIRST PART OF SUBROUTINE HPCL lONTiL FIRST BREAK- 
POINT F« LINKAGE I HAS TO STAY IN CORt OWING THE HHOLE 
COMPUTATION 

DIMENSION PRNTlll,Y41l,OERTai«AUXn6,lliA(ll 
GOTO 100 

THIS PART OF SUBROUTINE HPCL COMPUTES THE RIGHT HAND SIDE OERY OF 
THE GIVEN SYSTEM OF LINEAR DIFFERENTIAL EQUATIONS. 
1 CALL AFCTIX.AI 
CALL FCT(X,0£RYI 
DD 3 H>1,NDIM 
LL-M-NOIM 



HS-O. 

DO 2 L-l.MDIM 

LL-LL*MDIM 
2 HS-HS*A(LL1*YIL» 
i OERYlMt-MS*DtRVlMI 

GOTO! 105,202,204,204,115. 122, 1 2 5. JOB, 312. 52 7. J29, 128 t,ISW2 

POSSIBLE BREAK-POINT FOR LINKAGE ^ 

100 N'l 
IHLF*0 
X-PRNTI 1) 
H«PRHTOI 
PRMT(5t*0. 
00 101 I-1,ND1M 
AUXa6,[>>0. 
AUX(15,II-D£RYIII 

101 AUXIl.n-YIII 
IF(H«(PRMr(2l-XniO),102,104 

ERROR RETURNS 

102 IHLF-12 
GOTO 104 

103 lHLF>t3 

COMPUTATION OF OERY FOR STARTING VALUES 

104 1SU2'1 
GOTO 1 

RECORDING OF STARTING VALUES 

105 CALL OOTPIXfY, OERY, IHLF, NOIM, PRMTI 
|F< PRHTISl I 107.106, IC 7 

106 IF(IHLF)1C8.10B.107 

107 RETURN 

108 DO 109 I-l.HDlH 

109 AUXIS.D-OERVIII 

COMPUTATION OF AUX(2.I> 
ISMl*! 

GOTO 200 

110 X-X*H 

DO 111 I-l.HOIH 

111 AUX(2.I t<V(I I 

INCREMENT H IS TESTED BY MEANS OF BISECTION 

112 IHLF-IHLF+1 
X-X-H 

DO 113 I-l.NDIM 

113 AUXI4.I)-AUX(2.I) 
M»,5«H 

N-t 

ISUl-2 
GOTO 230 

114 X-X*H 
ISW2-5 
GOTO 1 

115 N«2 

DO 116 1-1,N01H 
AUX<2,I l-YI it 

116 AUX(9,I)>0ERY(1) 
ISH1>3 

GOTO 200 

COMPUTATION OF TEST VALUE CELT 

117 OELT"0, 

00 118 I-1*N0IM 
lie 0eLT-OELT*AUX( 15, 11**8 SI Yt I I -AUX (4, II t 
DEL T*. 0666666 7* DELT 
IF(0ELT-PRMT<4n 121 ,121,119 

119 IFI IMLF-|0tll2,120, 120 

NO SATISFACTORY ACCURACY AFTER 10 BISfCTIONS. ERROR MESSAGE. 

120 IHLF-11 

x»x*+t 

GOTO 1D4 

SATISFACTORY ACCURACY AFTER LESS THAN 11 6IJECTI0NS 

121 X-X»H 
ISW2-6 
GOTO 1 

122 00 123 I"1,NDIN 
AUX(3,I l-Y(l) 

123 AUXIIO. n-OERYU) 
N-3 

15W1-4 
GOTO 200 

124 N>1 
X«X#H 
ISH2>7 
GOTO 1 

125 X-PRMTUI 

DO 126 ]«I,NDIM 

AUXIll,n>DERY(l> ^ ,^ 

i260Y(l.-AUXIl,n+H*<.3 75*AUXie,ll*.79l6667*AUXC9,II 
l-.20B333J«AUX( 10,1 I ♦.04I66667*0ERYII 1 1 

127 X«X*H 
N*N*1 
ISW2-12 
GOTO 1 

128 CALL OOTPI X.Y.OERY, IMLF,HDIM,P11MTI 
IF(PRMT(5ni07,129, 107 

129 IF(N-4I 130,300,300 

130 DO 131 I-1,N0IN 
AUXIN. I )-¥(I> 

131 AUX<N«7,II>DERVII) 
IF(N-3I 132,134,300 

132 00 133 I-1»N0IM 
DELT"AUXI9,II*AUX(9,n 
0£LT»OELT*DELT 

133 YU>«*UXn,ll».333333J*H*(AUX(8,il»OeLT*AOXI10,III 

COrO 127 

134 00 135 1*1. NOIM 
DELr-AUXI9*ll*AUX(10,ll 
OELT-OELT+OELT+OELT 

135 VII )-AUX[l,II«.375*H*<AUX(8,I)«0ELT«-AUX(ll,IM 
GOTO 127 

THE FOLLOWING PART OF SUBROUTINE HPCL COMPUTES BY MEANS OF 
; RUNGE-KUTTA METHOD STARTING VALUES FOR THE MOT SELF-STARTING 

PREDICTOR-CORRECTOR METHOD. 
200 l-K 

00 20L 1^1. NOIM 
X=H*AUX(N*7, I I 
AUXI^. I ):X 



HPCL 1300 
HPCL 1 3 to 
HPCL 1320 
HPCL 1330 
HPCL 1340 
HPCL 1350 
HPCL 1360 
HPCL1370 
HPCL 1380 
HPCL 1590 
HPCL 1400 
HPCL 14 to 
HPCL 1*20 
HPCL 1430 
HPCL 1440 
HPCL 1450 
HPCL 1460 
HPCL 1470 
HPCL 1480 
HPCL 1490 
HPCLISOO 
HPCL 15 10 
HPCL 1520 
HPCL 1530 
HPCL 1540 
HPCL IS 5C 
HPCLlSbO 
HPCL 1570 
HPCL 1580 
HPCL 1590 
HPCL1600 
HPCL 16 10 
HPCL 1620 
HPCL 1630 
HPCL 1640 
HPCL 1650 
HPCL 1660 
HPCL 1670 
HPCL 1680 
HPCL 1690 
HPCL 1700 
HPCL 1710 
HPCL 1720 
HPCL 1730 
HPCL 1740 
HPCL 1750 
HPCL 1760 
HPCL 1770 
HPCL 1780 
HPCL 1790 
HPCL 1800 
HPCLIBIO 
HPCL 1820 
HPCL 18 30 
HPCL 1840 
HPCL 1850 
HPCL 1860 
HPCH870 
HPCL 1860 
HPCL1S90 
HPCL 1900 
HPCL1910 
HPCL 19 20 
HPCL1930 
HPCL 1940 
HPCL 1950 
HPCL I960 
HPCL 1970 
HPCL 1980 
HPCL 1990 
HPCL2000 
HPCL 20 10 
MPCL 2020 
HPCL 20 30 
HPCL 2040 
HPCL 2050 
HPCL 2060 
HPCL2070 
HPCL2080 
HPCL 2090 
HPCL 2 100 
HPCL 2 110 
HPCL 2 1 20 
HPCL 2 130 
MPCL2140 
HPCL2150 
HPCL 2 160 
HPCL 2 1 70 
HPCL2180 
HPCL 2 190 
HPCL2200 
HPCL2210 
HPCL 2220 
HPCL2230 
HPCL 2240 
HPCL2250 
HPCL 2260 
HPCL 2270 
HPCL22aO 
HPCL 2290 
HPCL2300 
HPCL2310 
HPCL2320 
HPCL 2330 
HPCL 2 340 
HPCL 2350 
HPCL 2360 
MPCL2370 
HPCL2380 
HPCL 2390 
HPCL2400 
HPCL2410 
HPCL 2*20 
HPCL2430 

HKLIM 

HPCL2450 
HPCL2460 
HPCL2470 
HPCL 2480 
HPCL 2*90 
HPCL 25 00 
HPCL2510 
HPCL2520 
HPCL2530 
HPCL2540 
HPCL2550 
MPCL 2560 
HPCL25T0 
HPCL2580 
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201 ri I )=AUX(N,[ l«.MK 
C X [S AN AUKILIARY STORAGE LOCATION 

X=l*.U*H 
I5*<2=2 
GOTO 1 
102 00 203 t=l,NOIM 
)(=H*D£RY(n 
AUXI6, I l-X * 

203 Yd J=ALJX(M,I)*.2q6')776*AUX(5,II*.15aT596*X 

X=;*-4557372*H 

ISW2=3 

GOTO i 

204 00 205 I=l,NOIM 
X=H*DERY{n 
AtJXI 7, [ ) = x 

205 vm=AUX(N.t )».3i 61 004»AUX(5, 11-3. O50965.AUX(6. 1 I 0.832865. X 
K~l*H 

iSUI2 = 4 
GOTO 1 

206 00 207 i=l,NDIM 

2070V< l)=AUX(N.I K.1747603*AUX(5,II-.5514807*AUX(6,[» 
l*l.?05536*AUX(7,II*.17ll8<iB*HtOEftYir) 

GOTO! II0.1U,U7,12AI,ISW1 

POSSIBLE BREAK-POINT FOR LINKAGE 

STARTING VALUES ARE COMPUTED. 

^e** ^^***^ HAMMINGS MODIFIED P«EO IC TOR-CORftEC T OR METHOD. 
301 If (N-8) 304,302i 3CA 



N=a CAUSES THE ROWS OF AUX TO CHANGE 

302 00 303 N=2,7 

00 333 I=l,N0IM 
AUXlN-l,n=AUX(N,n 

303 AUXIN*6, n=AUX(N»7, I) 



THEIR STORAGE LOCATIONS 



N LESS THAN 
304 N=N*1 



CAUSES N*l TO GE r N 



C COMPUTATION QF NEXT VECTOR Y 

00 305 I^I.NOIM 
AUX(N-l, I)=Y[n 

305 AUX(Mt6. 1 )=OERY( I 1 
X = X*H 

306 lSTEP = i SrEP*l 
00 307 l^l.NDlM 

00£Lr=AUX(N-4,[l + l.333333»H*(AUX(N*6.n*AUX(N*6,II-Aux(N»5,U* 
|AUX(Nt4, I tMUX[N*4, I)) 
Yl I 1=DELT-.92 56 198*AUX( 16,11 

307 AUKi 16, I l=0£LT 

C PREDICTOR IS NOW GENERATED IN ROW 16 OF AUX, MODIFIEO PREDICTOR 

C IS GENeRATEO IN Y. OELT MEANS AN AUXILIARY STORAGE. 

ISH2=a 

GOTO I 
C DERIVATIVE OF MOOIFItO PREDICTOR IS GENERATED IN OERY 

308 DO 309 I=l,NDIM 

00ELT=.125*i9.*AUX(N-l,Il-AUX(N-3,l»»3,«H«{DERY(n#AUX(N + 6,n* 
1AUX(N*6,IJ-AUX{N*5, III) 
AUX( 16, n-AUX{ 16,n-0ELT 
30-) Yd )=OELTt. 0743801 7"AUXU6, I) 
C 

C TEST WHETHER H MUST BE HALVED OR DOUBLED 

DELT-0. 
DO 3IC 1=1,NDIM 

310 DEL r =DELT*AUX I I 5, 11 *ABS ( AUX( lb . I H 
IF(DELT-PRMT{4J ) 31 1,324, 32*. 

C 

C H MUST NOT SE HALVED. THAT MEANS Yd) ARE GOOD. 

311 ISW2=9 
GOTO I 

312 CALL OUTP( X.YtOERY, IHLF.NDIM.PRMTI 
IFIPRMTfSI) 314,313. 314 

313 IFUHLF-111315,314, 314 

314 RETURN 

315 IF(H»(X-PRMT(2) 1 1 316,314,314 

316 IFU6S{X-PRMri2IJ-.i»AeS(H)) 314, 317,317 

317 IF(D6LT-.02«PRMT14) 1319,316,301 

c 

C 

C H COULO BE OOUeLED IF ALL NECESSARY PRECEEDING VALUES ARE 

C AVAILABLE 

318 IFI IHLF 1301,301,319 

319 IF(N-7) 301, 320, 320 

320 IF( ISrEP-4l3Cl,321, 321 

321 I«00=ISrEP/2 

IF! IST6P-1M0D-IH00) 301,322,301 

322 H=H*H 
IHLF=IHLF-1 
ISTEP-0 

DO 323 I-1,N0IH 

AUX(N-l,I )-AUX(N-2, 1) 

AUX(N-2,1 )^AUX(N-4, II 

AUX{N-3,n=AUX(N-6, I] 

AUX1N*6, n=AUX(N*5, 1 1 

AUX(N»5, I l=AUX(N*3, I ) 

AUX(N*^4, I]=AUXIN*1, I I 

DELT=AUX(N*6. I ) tAUXlNtS, ! ( 

DEL T=0eLT*06LT ♦DELI 
3230AUX1 16, I )=d. 962963* (Y( I ) -AUX( l«-3 , 1) J-3. 361 1 1 1 *H*( DER Y( I) *OELr 
1*AUXIN«-4,I ] ) 

GOTO 301 
C 
C 
C H MUST BE HALVED 

324 lHLF=IHLFtl 

IFI JHLP-10>32^, 32 5, 311 

325 H=.5«H 
ISTEP=0 

DO 326 I=i,NOIH 
0Y(II». 00390625*180. •4UX(N-l, 11*135. •AUXtN-2,I)»40 .AUXIN-I D* 
OAUX(N-4.I)=.00390625*(12.»AUX{N-1,I1*135.*AUX{N-2,I1* 

AUX(N-3,I)=AUX(N-2, II 

326 AUX(M»4,n=AUX(N*5,I) 
DEL T=X-H 
X=OELr-(H+H) 
ISW2=10 

GOTO I 

327 00 326 f-l,NOIM 
AUX(N-2,ri=YII| 



HPCL2590 

HPCL2600 

HPCL2610 

HPCL262Q 

HPCL2630 

HPCLZ640 

HPCL2650 

HPCL2460 

HPCL26 70 

HPCI.26aO 

HPCL26 90 

HPCL2700 

HPCL2710 

HPCL2720 

HPCL2730 

HPCL2740 

HPCL2750 

HPCL2760 

HPCL2770 

HPCL2780 

HPCL2790 

HPCL2aOO 

HPCL2810 

HPCL2820 

HPCL28 30 

NPCL2840 

HPCL2B5Q 

HPCL2a60 

HPCL2a70 

HPCL2880 

HPCL2a90 

MPCL2900 

HPCL2910 

HPCL2920 

HPCL2930 

HPCL2940 

HPCL2950 

HPCL296C 

HPCL2970 

HPCL2980 

HPCL2990 

HPCL3000 

HPCL3010 

HPCL30ZC 

HPCL3030 

HPCL3040 

HPCL3050 

HPCL3060 

HPCL30 70 

HPCL30aO 

HPCL3090 

HPCL3100 

HPCL31i0 

HPCL3120 

HPCL3130 

HPCL3140 

HPCL3150 

HPCL3160 

HPCL3170 

HPCL3180 

HPCL3190 

HPCL32O0 

HPCL 32 10 

HPCL3220 

HPCL3230 

HPCL 3240 

HPCL325C 

HPCL3260 

HPCL32 70 

HPCL3280 

HPCL 32 90 

HPCL33O0 

HPCL3310 

HPCL 3320 

MPCL333() 

HPCL3340 

HPCL3350 

MPCL3360 

HPCL3370 

HPCL 3380 

HPCL 3390 

HPCL3400 

HPCL 34 10 

MPCL34Z0 

HPCL 3430 

HPCL 3440 

HPCL3450 

HPCL3-V60 

HPCL 3470 

HPCL3480 

HPCL3490 

HPCL3500 

HPCL35I0 

HPCL 3520 

HPCL 35 30 

HPCL 3540 

HPCL 3550 

HPCL3560 

HPCL357C 

HPCL3580 

HPCL3590 

HPCL3600 

HPCL36L0 

HPCL 3620 

HPCL 3630 

HPCL 3640 

HPCL 3650 

HPCL3660 

HPCL 3670 

HPCL 3680 

HPCL 3690 

HPCL3 700 

HPCLsao 

HPCL3720 

HPCL3730 

HPCL 3740 

HPCL3750 

HPCL 3760 

HPCL 3 7 TO 

HPCL3780 

HPCL3790 

HPCL3900 

HPCL3810 
HPCL 3820 
HPCL 3830 
HPCL 3940 
HPCLSeSO 
HPCL 3 860 
HPCL3a70 



AUX{N»5, I)=OERY(I I 
328 Y(II<AUX(N~4,I) 

X=X-(H»H) 

ISW2«11 

GOTO 1 
32S X'DeLT 

DO 330 I-l,NDIM 

0£LT-AUX(N*5,n+AUX(N*4,n ' 

o£LT=OELr*oELr+Deir 
?tolJY?lM"'''"''"*'*""''"''""^""-*-^'»i^*"*'*^'''N»6'n.OELr 

330 *UX(Nt},l)=OERY(II 
GOTO 306 
END 



HPCL 3 880 
HPCL 3890 
HPCL 3900 
HPCL 39 10 
HPCL 3920 

HPCL 3930 

HPCL3940 
HPCL395C 
HPCL 3960 
HPCL 3970 
HPCL 3980 
HPCU3990 
HPCL 4000 
HPCL4010 



SUBROUTINE OHPCL 
PURPOSE 

ro SOLVE A SYsren of first order ordinary linear 

OIFFERENTIAL EQUATIONS WITH GIVEN INITIAL VALUES. 
USAGE 

CALL OHPCL (PRMT,Y,OeRY,NDIM,IHLF,AFCr,FCr,aUTP,AJX,AI 
PARAMETERS AFCT.FCI ANO QUTP XEQUIRE AN EXTERNAL STATEMEN 



DESCRIPTION OF PARAMETERS 

PRMF - DOUBLE PRECISION INPUT ANO OUTPUT VECTOR WITH 
DIMENSION GREATER THAN OR EQUAL TO 5, WHICH 
SPECIFIES THE PARAMETERS OF THE INTERVAL AND OF „,.»,^ . 

ACCURACY ANO WHICH SERVES FOR COMMUNICATION BETWEENDHCL U^ 
OUTPUT SUBROUTINE IFURNISHEO BY IHF USER) ANO OHCL 190 

SUBROUTINE DhocL. EXCEPT PRMT(5| THE CD>1P0N£NTS OHCL 200 

ARE NOTDESTRGYEO BY SU9R0UTINE OHPCL ANJ THEY ARE OHCL 210 



OHCL 10 
, OHCL 20 
DHCL 30 
OHCL 40 
OHCL 50 
OHCL 60 
DHCL 70 
OHCL 80 
OHCL 90 
OHCL 100 
OHCL HO 
OHCL 120 
OHCL 130 
OHCL 140 
DHCL 150 
OHCL 160 
OHCL 170 



PRMTdl- LOWER 80UN0 OF THE INTERVAL (INPUT), 
PRMT(2I- UPPER BOUND OF THE INTERVAL I 1 NPUT ) , 
PRMT(3)- INITIAL INCREMENT OF THE INDEPENOENT VARIABLE 

<INPUT) , 
PRMT(4)- UPPER ERROR BOUND IINPUTI. IF ABSOLUTE ERROR IS 

Greater than PRMr(4], increment gets halved, 

IF INCREMENT IS LESS THAN PRMT(3I AND ABSOLUTE 



OHCL 220 

OHCL 230 

OHCL 240 

DHCL 250 

OHCL 260 

OHCL 2 70 
OHCL 



ERR3R LESS THAN PRMT(4l/50, INCREMENT GETS DOUBLED. OHCL 290 



THE USER MAY CHANGE PRMTI4) 8Y NEANS _ .,.„ 
OUTPUT SUBROUTINE. 
PRHT(5)- NO INPUT PARAMETER. SUBROUTINE OHPCL INITIALIZES 
PRHT(5)=0. IF THE USER WANTS TO TERMINATE 
SUBROUTINE OHPCL AT ANY OUTPUT POINT, HE HAS TO 
CHANGE PRMTISI TO NON-ZERO BY MEANS OF SUBROUTINE 
OUTP. FURTHER COMPONENTS OF VECTOR PRHT ARE 
FEASIBLE IF ITS DIMENSION IS DEFINED GREATER 
THAN 5. HOWEVER SUBROUTINE DHPCL DOES NOT REQUIRE 
ANO CHANGE THEM. NEVERTHELESS THEY MAY BE USEFUL 
FOR HANDING RESULT VALUES TO THE MAIN PROGRAM 
(CALLING OHPCL) WHICH ARE OBTAINED BY SPECIAL 



DHCL 300 
OHCL 310 
DHCL 320 
OHCL 330 
DHCL 340 
OHCL 350 
OHCL 360 
DHCL 370 
OHCL 380 
OHCL 390 
OHCL 400 
OHCL 4 10 



DHCL 430 
OHCL 440 
OHCL 450 
OHCL 460 
DHCL 470 
DHCL 480 
DHCL 490 
DHCL 500 
OHCL 510 
OHCL 520 
OHCL 5 30 
OHCL 540 
DHCL 5 50 
DHCL 560 
DHCL 5 7C 
DHCL 



MANIPULATIONS WITH OUTPUT DATA IN SU8R0UTINE OUTP. DHCL 420 

- DOUBLE PRECISION INPUT VECTOR OF INITIAL VALUES 
lOESTROYEO). LATERON Y IS THE RESULTING VECTOR OF 
DEPENDENT VARIABLES COMPUTED AT INTERMEDIATE 
POINTS X. 

- 00U8LE PRECISION INPUT VECTOR OF ERROR WEIGHTS 
(DESTROYED). THE SUM OF ITS COMPONENTS ■'^UST BE 
eOUAL TO 1. LATERON DERY IS THE VECTOR OF 
DERIVATIVES, WHICH BELONG TO FUNCTION VALUES Y AT 
INTERMEDIATE POINTS X. 

- AN INPUT VALUE, WHICH SPECIFIES THE NUMdSR OF 
EQUATIONS IN THE SYSTEM. 

- AN OUTPUT VALUE, WHICH SPECIFIES THE NUMBER OF 
BISECTIONS OF THE INITIAL INCREMENT. If IHLF GETS 
GREATER THAN 10, SUBROUTINE DHPCL RETURNS WITH 
ERROR MESSAGE IHLF=ll INTO MAIN PROGRAM. 
ERROR MESSAGE IHLF»12 OR 1HLF=13 APPEARS IN CASE 
PRMT(31=0 OR IN CASE SIGNIPRMT (31 1 .NE.SIGM PRMTI 21-DHCL 590 
PRMTIll) RESPECTIVELY. DHCL 600 

- THE NAME OF AN EXTERNAL SUBROUTIME USED. IT OHCL 610 
COMPUTES MATRIX A (FACTOR OF VECTOR Y ON THE OHCL 620 
RIGHT HAND SIDE OF THE SYSTEM) FOR A GIVEN X-VALUE.DHCL 630 
ITS PARAMETER LIST MUST BE X.A. THE SUBROUTINE DHCL 640 
SHOULD NOT DESTROY X. OHCL 650 

- THE NAME Of AN EXTERNAL SUBROUTINE USED. IT DHCL 660 
COMPUTES VECTOR F I IMHOMOGENEOUS PART OF THE DHCL 670 
RIGHT HAND SIDE OF THE SYSTEM) FOK A GIVEN X-VALUE.DHCL 680 
ITS PARAMETER LIST MUSI BE X,F. THE SUBROUTINE OHCL 690 
SHOULD NOT DESTROY X. qhCL 700 

- THE NAME OF AN EXTERNAL OUTPUT SUBROUTINE USED. DHCL 710 
ITS PARAMETER LIST MUST BE X ,Y,oeRv , [HLF, NDIM, PRMT .OHCL 720 
NONE OF THESE PARAMETERS (EXCEPT. If NECESSARY, DHCL 730 
PRMT(4),P«MT(5),...) SHOULD BE CHANGED BY DHCL 740 
SUBROUTINE OUTP. IF PRHT(51 IS CHANGED TO NON-Z ERD, OHCL 750 
SUBROUTINE DHPCL IS TERMINATED. DHCL 760 

- DOUBLE PRECISION AUXILIARY STORAGE ARRAY WITH 16 OHCL 770 
ROWS ANO NDIM COLUMNS. DHCL 780 
DOUBLE PRECISION NOIM BY NDIM MATRIX. WHICH IS USEOOHCL 790 



AS AUXILIARY STORAGE ARRAY. 

REMARKS 

THE PROCEDURE TERMINATES ANO RETURNS TO CALLING PROGRAM, I 
(I) MORE THAM 10 BISECTIONS Of THE INITIAL INCREMENT ARE 

NECESSARY TO GET SATISFACTORY ACCURACY lERROR MESSAGE 

IHLF =111, 
12) INITIAL INCREMENT IS EQUAL TO OR HAS WRONG SIGN 

(ERROR MESSAGES IHLF=12 OR IHLF=I3). 

(3/ rne «Hou rNr£6Mr/o« mmm /5 mm mmm, 

(4) SUBROUTINE OUTP HAS CHANGED PRMT{5I TO NON-ZERO. 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

THE EXTERNAL SUBROUTINES AfCT(X,A), FCTIX.FI AND „„, , 

OUrP(X,Y, DERY. IHLF, NOIM. PRMT) MUST BE FURNISHED BY THE USER. OHCL 

METHOD 

EVALUATION IS DONE BY MEANS OF HAMMINGS MODIFIED PREDICTOR 

CORRECTOR METHOD. IT IS A FOURTH ORDER METHOD, USING 4 

SepENO?;? vSruJlES?" "'^^^^^"'^'^ °' * ^'^ ""^"^ ^ Of .HE 

r.^c^'^o?'*"^'* '^"GE-KUTTA METHao SUGGESTED BT RALSTON IS 

r™n-»??.«°-'^^'''"^ °'' '^^ INITIAL INCREMENT AND FOR 

COMPUTATION OF STARTING VALUES. ,,Hr. in,n 

rZircSJ^SlAM^r;:'^*'-'-' *°-'"=^^== ^^^ increment during ZcLllll 
THE WHOLE COMPUTATION BY HALVING OR DOUBLING. OHCL 1050 



DHCL a 00 

OHCL 810 

DHCL 820 

= DHCL 830 

DHCL 840 

DHCL 650 

DHCL 860 

OHCL 870 

OHCL 8 80 

mi m 

DHCL 900 
DHCL 910 
DHCL 920 
DHCL 930 
940 
DHCL 950 
OHCL 960 
DHCL 970 
DHCL 980 
DHCL 990 
OHCL 1000 
DHCLIOIO 
OHCL 1020 
DHCL 1030 
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ro GET FULL FLEXIBILITr IN OUTPUT, AN OUTPUT SUfiAOUTIME OHCl.1060 

HUSI ae CDOEQ BV THE USER. OHCLlOfO 

FOR REfERENCE, SEE DHCL1080 

(1) RALSTON/WILF . MATHEMATICAL HETHOOS FOR DIGITAL OHCL 1040 

COMPurEHS, NlLEY, NEW YORK/LONDON, 1960, PP. 95-109. OHCL I LOO 

t2) RALSTON, RUNGE-KUTTA METHODS HITH HINIHUMEAROR SOUNOSiOHCll ILO 
MTAC , VOL, 16. [ SS.BO ( 1962 I , PP.* 3 1-4 37. DHCt 1 120 

V OHCL 1 1 30 

( OHCLIUO 

OHCL L 150 
DHCLll&O 
DHCLlirO 
OHCL 1 ISO 
- OHCL 1 190 
OHCL 1200 
OHCL 12 10 
OHCL 1220 
OHCLtZSO 
OHCL 12*^0 
OHCL1250 
DHCH260 
OFOHCL12 70 
OHCL 12 80 
0HCL1290 
OHCL 1300 
OHCL n 10 
OHCL1320 
OHCL 1330 
OHCL L 3 40 
OHCL 1350 
OHCL 1360 
DHCLU70 
OHCL1360 
OHCL 1390 
OHCL 1*00 
.DHCCI^IO 
OHCLU20 
OMCLl-tSO 
OHCLl^-iO 
0HCLU50 
0HCLl'»60 
0HCLi470 
OHCLUaO 
OHCL 1*90 
OHCL 1500 
DHCL1510 
OHCL 15 20 
OHCL1530 
DHCL154r) 
OHCLibSO 
UHCL1560 
OHCLiSTO 
DHCLLtiSO 
OHCL1590 
OHCL 1600 
OHCL1610 
OHCL 1620 
OHCL16J0 
OhCL Ib-iO 
OHCL 1650 
OHCL 1660 
OHCL 1670 
DHCL16B0 
OHCL 1690 
OHCL 17C0 
OHCL 17 10 
OHCL I 720 
OHCL 1730 
OHCL I 740 
OHCL I 750 
OHCL 1760 
OHCL 17 70 
OHCL I 7 80 
OHCL 1790 
OHCL 1800 
OHCL 1810 
OHCL 1820 
OHCL 1830 
OHCLIB'.O 
0HCLld50 
DHCL1860 
OHCL 18 70 

OHCL laao 

OHCL 1890 
OHCL 1900 
DHCL 1910 
OHCL 1920 
OHCL l')30 
OHCL 1940 
OHCL 1950 
DHCL 1960 
DHCL 19 70 
DHCL 1930 
DHCL 1990 
DhC 1.2000 
0HCL2010 
DHCL2020 
0HCL2D30 
OHCL2040 
DHCL 2050 
OHCL 2060 
OHCL2070 
DHCL308n 
DHCL2090 
DHCL2 lOQ 
DHCL 2 110 
DHCL 2 120 
DHCL 2 130 
DHCL2t*0 
DHCL 2 150 
OHCL 2 160 
DHCL 2 I 70 
DHCL 2 180 
OHCL2190 
DHCL 2200 
DHCL2210 
DHCL 2 2 20 
DHCL22J0 
0HCL2240 
OHCL2250 
OHCL 2260 
DHCL22 70 
OHCL22aO 
DHCL2290 
OHCL 2300 
DHCL 2 3 10 
0HCL2J20 
OHCL 2 3 30 
OhCL21<.0 



SUBROUTINE DHPCH PR MT, Y.OERY.NOI M, IHLF . AFCT ,FCT ,OUTP, AUX , A» 



THE FOLLOWING FIRST PART OF SUaROJTINE OHPCt (UNTIL FIRST BREAK 
POINT FOR LINKAGE! HAS TO STAY IN CORE DURING THE WHOLE 
COMPUTATION 

OIHENSION PRHT( lltY(l),DERYIl),AUXlI6,II,A{ll 
DOUBLE PRECI SION PftHI, Y .OER Y , AUX , X, H , Z , DEL T , A,HS 
GOTO 100 

THIS PART OF SUBROUTINE OHPCL CQHPUTES THf RIGHT HAND SIDE OERY 
THc GIVEN SYSTEM OF LINEAR DIFFERENTIAL EQUATIONS. 
t CALL AFCKX.A) 
CALL fCTIX.OERVI 
00 3 M=l.NOIM 

LL^M-NOIM 

HS=0.00 

DO 2 L=1.ND1H 

LL=LL*NDIM 

2 HS = HS*A(LH«YlL I 

3 0ERYIM1=HS*-0ERYIM) 
GOTO! 105. 202,204.206, 11 5( 122,125,308,312,327, 329,1281 ,ISM2 

POSSIBLE BREAK-POINT FOR LINKAGE 

100 N=l 
lHLF-0 
X-PRMTI II 
H=PRMTI 3J 
PRMT(5l=0.D0 
00 101 I=1.N01M 
ALIXI16. II-O.OO 
AUXl 15, n=DERYl I 1 

101 AUXI I, I I=Y( T I 
IF(H»(PRMT(2)-X») 10 3.102, 104 

ERROR RETURNS 

102 IHLF-12 
GOTO 104 

103 !HLF=13 

COMPUTATtON OF DERV FOR STARTING VALUES 

104 1SW2-1 
GOTO I 

RECQrtOING OF STARTING VALUES 

105 CALL OUTPl X, Y.OERY, IHLF.NOIH.PRMT) 
IFiPRMT) 5) \ IC7. 106. 107 

106 IF( IHLF (108, 108, 107 

107 RETURN 

108 DO 109 1= 1,N0 IN 

109 AUXie, 1 )=OERr( I I 
COrtPUTAriON OF AUXl2,lt 
I SWl=l 

GOTO 20C 

110 X=X*H 

DO 111 1= UNOIM 
HI AUX(2,I J-ri n 

INCREMENT H IS TESTED BY MEANS OF BISECTION 

112 IHLF^If^LF* 1 

X:X-H 

DO 113 1 = UN0IM 

113 AUX(4, I )^ALiX(2. I I 

H^ .500*H 

N=l 

I SH1=2 

GOTO 20C 

114 X=Xt-H 
ISk2=5 
GOTO 1 

115 N-2 
DO 116 I ^ L,ND1 H 
AUX{2,I l = Yn I 

116 AUX( q, 1 I =OERY( I ) 
I SW1=3 
GOTO 200 

COMPUTATION QF TEST VALUE OELT 

117 DELr=O.DO 
03 118 I = L,NDI M 

118 DELT-0£LT*AUX(15,I1 *0A9S( Yl II-AUXI4,in 
DEL T^. 06666666 6 66 66 6666 700* DEL T 
[ F( OcL f-Pit»1T(4 )ll21tl21,ll9 

[ 19 IF( IHLF-lCl I 12, t20, 120 

Md SAIISFACfORY 4CCURACY AFTER 10 BISECTIONS. ERROR MESSAGE. 

120 IHLF =11 

X = X*H 
GOTn 104 

SATISFACTORY ACCURACY AFTER LESS 

121 X=X*M 

1SW?=6 
GOTO 1 

122 03 123 I = I,ND1M 
AUX( 3, I 1 = Y( I ) 

123 AUX( 10, 1 I =DEHY( I I 
N = 3 

ISWl--. 
GOTO 200 



IL BISECTIONS 



IF(PRMTI5) H07, 129, lOT 

129 IF(N-4I 130,300, 300 

130 00 m I=1,N0IM 
AUXIN,! ) = Y( I I 

131 AUXIN4-7,I UDERYII > 
IF(N-3I 132,134,300 

132 DO 133 I«1.N0IH \ 
0ELT=AUKI9,I }tAUX(9tl ) 

DELT=OElT*DELT 

133 Yd l=AUX( l.t ) 4^. 3333 333 33333 333 33D0*H«(AUX( 8,1 }*-OeLT«Aux< 10, I ) I 
GOTO 127 

134 00 135 I=1,NDIM 
0ELT=AJXI9,IH-AUX(10,II 

OELT=oeLr*OELT*OELr 

135 Yll)=AUKI l.lU.3r500*H*(AUX(8,II«DELr«^AUX(ll,|}} 
GOTO 127 

THE FOLLOWING PART OF SUBROUTINE DHPCL COMPUTES BV MEANS OF 
RUNGE-KUTFA METHOO STARTING VALUES FQR THE NOT SELF-STARTING 
PREDICTOR-CORRECTOR METHOD. 

200 Z=X 

00 201 I^1,N0IM 
X=H*AUXIN»7, I 1 
AUX(5,I )=X 

201 Y( 1 l-AUX(N,l )».400*X 

X IS AN AUXILIARY STORAGE LOCATION 

X=Z*.400*H 
ISH2=2 
GOTO 1 

202 00 203 l=l.NOIH 
X=H*OERYI I » 
AUXI6, I )=X 

203 Y( I )=AUK( 



2969T760924775360D0*AUX(5,I1*. 158 7595449710 35 8 300* 



X=i*.455 7 3T2 5421878 94 3DC«H 

ISW2=5 

GOTO I 
2C4 DO 205 [=1,N0IM 

X=H*DERYII1 

AUX(7,I )=X 
20 5 YI n=AJX(N,I I *. 2181 0038822592C4700*AUX(5,i 1-3.050965148692930800 
1AUX(6, t I ♦3. 8 32 864 76046 70 1 0300* X 

X=ZtH 
ISW2=4 
GOTO 1 
206 00 207 1= l.NOIM 

207CrlI)-AUXIN,n*. 1747 60282 2 62 69C3 700* AUXl 5, I )-. 5 514806623797329400' 
1 AUXI 6, I 1* 1.2055 3559 939652 3 5DO*ALrX( 7, I )♦. I 7 1 18478 1 2 I 951 90300* 
2H«0ERY( I) 
X = 2 
GOTO! 110,114, 117, 124), ISWI 

POSSIBLE 6REAK-P0IMT FOR LINKAGE 

STARTING VALUES ARE CUMPUIEO. 

NOW START HAMMINGS MDOIFIEO PREDICTOR-CORRECTOR METHOD. 

300 ISTEP=3 

301 IF(N-e I 304, 30 2. 304 

N=8 CAUSES THE ROWS OF AUK TO CHANGE THEIR STORAGE LOCATIONS 

302 DO 303 N=2.7 

00 303 I=1,N0I« 
AUX(N-1, 1)^AUX(N,I ) 

303 AUXtN«5, I 1=AUX1N»T, I I 
N = 7 



CAUSES M*I TO GET N 



124 N=l 

ISW2=7 

00 ro 1 

125 X=PRMT( n 

00 126 IM.NOIM 

AUX( 11,1 l=DEfiY( [ ) 
t260vl I 1 ^AJXI 1. n ♦H*! .3 7500*AUXI3. I 1 * . T916666666666667D0«AUX 19 , I I 
I-.2C83 3333 3 3333 3 J3)D0»AUX( 10,1 I * .041666 66666666666 7D0*0E RY ( I I 1 

127 X=XtH 

N=N*1 

ISW2-12 

cor a I 

128 CALL OUTP( X. Y, OERY, IHLF, NOIM,PRMn 



: N LESS THAN 

304 N^N*l 

: COMPUTATION OF NEXT VECTOR Y 

03 305 I-1,N01M 
AUX(N-1 . 1 )=Y( 1 ) 

305 AUX(N»6, 1 >=OERYII ) 
X = X+H 

306 ISTEP=I STEP*1 
DO 307 l = UNDIM 

0D£LI=AUX(N-4,I Ul . 3 333 3333333333 33DO*H* I AUXI N»6 , H "-AUX I Nt6. T 1- 

IAUX(N«^5, I)t-AUK(N*4, I I^AUXINi-*, t I ) 

Y( 1 )=0eLT-.9256l98 3 47I0 74 3 800*AJX(i6,I ) 

307 AUXI 16, I l=DELT 

: PREDICTOR IS NOW GENERATED IN ROW 16 OF AUX . MOOIFIEO PREDICTOR 

: IS GENERATED IN Y. OELT MEANS AN AUXILIARY STORAGE. 

ISW2=8 

GOTO 1 

OERlVATtVE OF MODIFIED PREDICTOR IS GENERATED IN OERY 

308 DO 309 I=1,ND1M 

0DeLT = .125D0*(9.00*AUXIN-l,t l-AUX(N-3,l )t3.D0*H*) DERY( I )*-AUX{N*6, 
l*AUX(N*6, n-AUXlN*5.,l I i ) 
AUXI 16. I l^AUXf 16, I I -OELT 

309 Yd )=DELT*. 74 3801 652892 562 000* AUXI 16,1 I 

: TEST WHETHER H MUST BE HALVED OR DOUBLED 

DELT=O.DO 
DO 3 to 1= l.NOIM 
3 10 DEL T=0€LT 'AUXI 15, II 'OABS I AUXI 16 , I 1 I 
! FIDEL T-PRMT( 411 311,324,324 

H MUST NOT BE HALVED. THAT MEANS YI I 1 ARE GOOD. 

311 ISW2=9 
GOTO 1 

312 CALL OUTPI X,Y. OERY, IHLF, NOIM.PRMT) 
IFIPRMr(5) ) 314, 313, 314 

313 IFIIHLF-llt315.3t4,314 

314 RETURN 

315 IF|H»I X-PRMTI2I I I 316, 314, 314 

316 IFIOABSIX-PRHII 21 1 -. 100*0 AS SI Hi (314,317, 317 
31 7 IFIDELT-.O2O0*PRMII4n3l9,3l8,30I 

H couLo ae oouaLeo if au necessarv pfiECf£0(NC values aac 

AVAILABLE 

318 IFl IHLF 1301, 301,319 

319 IF1N-7)301, 320, 320 

320 I F ( I S TE P-4 ) 30 1 . 32 1 . 32 1 

321 IM00=ISTEP/2 

1F( ISTEP-IMOO-IMOOI 301 ,322, 30 1 

322 H=HtH 
IHLF=1HLF- I 
1STEP=0 

DO 323 I- l.NOIM 
AUX(N-l, 1 l=AUXIN-2, n 

AUXI N- 2, I I =AUXI N-4, I ( 

AUKIN-3, I I =AUXlN-6. I I 
AUX(N*6, |1=AUX(N*5, 1 1 
AJX(N*5, I I=AUXI N»3, I ( 



OHCL2350 
DHCL2360 
DHCL 2 3 70 
DHCL 2 3 60 
OHCL 2 390 
OHCL2400 
OHCL 24 10 
OHCL 2420 
OHCL2430 
DHCL2440 
0HCL2450 
OHCL2460 
0HCL24r0 
DHCL 2480 
DHCL2490 
OHCL 2500 
OHCL2510 
DHCL 2520 
OHCL25 30 
0HCL2540 
DHCL2550 
0HCL2S60 
OHCL2570 
0HCL25B0 
OHCL2590 
OHCL 2600 
DHCL26 10 
DHCL2620 
OHCL 26 30 
0HCL2640 
DHCL2650 
OHCL 2660 
OHCL2670 
DHCL2680 
OHCL 2690 
XDHCL2 700 
OHCL2710 
OHCL2720 
DHCL2T30 
0HCL2740 
0HCL2750 
OHCL2760 
DHCl-2 7 70 
■ OHCL2780 
DHCL2790 
OHCL 2800 
DHCL2810 
DMCL2e20 
DHCL2630 
DHCL2840 
DHCL2850 
OHCL2660 
0HCI.2870 
DHCL2BaO 
DHCL2890 
DHCL2900 
0HCL2910 
OHCL 2 9 20 
DHCL2 9 30 
OHCL2940 
0HCL2950 
0HCL2960 
OHCL2970 
0HCL2980 
0HCL2990 
OHCL 3000 
DHCL 30 10 
DHCL3020 
OHCL 3030 
OHCL3040 
OHCL 3050 
OHCL 3060 
DHCL30rC 
DHCL3080 
OHCL 3090 
DHCL310D 
OHCL 3110 
OHCL3120 
DHCL 3130 
DHCL3140 
DHCL 3 150 
DHCL3160 
DHCL3170 
OHCL3iaO 
DHCL 3 190 
OHCL 3200 
DMCL3210 
DHCL 3220 
DHCL32 30 
DHCL3240 
OHCL 3250 
IDMCL3260 
DHCL32 70 
OHCL3280 
OHCL3290 
DHCC33O0 
DHCL3310 
OHCL3320 
OHCL 3330 
OHCL 3340 
DHCL3350 
DHCL 3360 
OHCL 3370 
OHCL3380 
0HCL339:i 
DHCL3400 
OHCL 34 10 
OHCL 3420 
DHCL 34 30 
0HCL3440 
0HCL3450 
OHCL3460 
DHCL 3470 

DHCL 3490 
OHCL 3500 
OHCL 35 10 
DHCL3520 
OHCL3530 
DHCL 3540 
OHCL3550 
ONCL3560 
DHCL 35 70 
OHCL 3580 
OHCL 3590 
OHCL 3600 
DHCL3610 
OHCL 3620 
OHCL 36 30 
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AUX(N«4*ll-AUX(N+l.n 
Oe4.T-AUXIN«6f II+AUXIN^S.II 
HLT-OELr*0£Lr»OELr 
a230AUX<16, II-8.46296n6296296300*(rll)-*UK(N-3fIII 
t-3.3611111IlLllllLt00*H*lt>CRVIl)*^D£LT«AUKfN*4*l II 
GOTO Ml 

H HUSr BE HALVED 

324 [HLF>IHLF+1 
IF(IMLF-I0»>25.325.311 

325 H-.SOOVH 
ISTEP-0 

00 326 I'ltNOIN 
OVf [)-.3906Z9O-2*(a.Ol*AUX(N-l.ll«13S.O0«*UX(M'-2*ll*4.OL*AUX(N 
1»AUX(N-4«II)-.L1T18 7500«(AUXIN»6.I)-6.00*AUX(N«S*II-AUX(N*4,I 
OAUX(N-4tII-.390625D-Z»(12,DO«AUK(N-ltI)«t33.00*AUXIN-Zt[l+ 
110e.O0*AUX(N-». ll«^AUX(l*-4,f M-. 023437900*1 AUX(N«6, II*- 
2l8.D0*AUX(N+9«I l-q.O0*AUX(N«4.ll )«H 

AUXlN-3tll-AUX(N-2*I) 
32« AUXIN«4.II«AUXIN*5« II 

OElT-X-M 

X>DELT-IH^| 

ISU2-10 

GOTO 1 
327 00 328 I-t.NDIH 

AUX(N-2,I>-VII1 

AUX(N*StI)>OEKY(I) 

326 YU)-AUX(M-4,II 
K-X--IH'*HI 
ISUZ'U 

GO 70 1 
324 X-OELT 

00 330 l-liNOIN 

0ELr-AUKCN4^9tll»AUX(N*4tll 

OEiT-0£LT*06I.T*oei.T 
0AUXU6<n«8. 9629629 62 962 963D0*(AUX|lt-l.Il'VIIM 
l-3.3«llIltlllllLlllOO*H«f AUK(f««^«,l)»OELr*OCftTan 
330 AUX(N«^3.II*0ERV(t) 

COTQ 306 

END 



0Ha3640 
DHCL3650 
0HCL3660 
0HC1.3670 
OHa.3680 
DHCL3690 
0HCL3700 
>< DHCL3710 

0HCL3 720 
OHCL3730 
0HCL3740 
aNCL3 750 
OHCL3760 
-3. IIDHCL3770 
l)*H OHCL3780 
OHCL3790 
OHCL 3800 
0HCL3810 
OHCL 3820 
OHCL3S30 
DHCL3840 
OHCL 3090 
OHCL 38«0 
OHCL 3870 
OHCL 3080 
OHCL 3890 
OHCL 3900 
OHCL 39 10 
OHCL 3920 
OHCL 3930 
OHCL3V4D 
OHCL3950 
OHCL 3960 
OHCL 3970 
OHCL3980 
OHCL 3990 
0HCL4000 
OHCL 40 10 
OHCL 40 20 
OHCL4030 



Subroutines LBVP and DLBVP 

These subroutines generate an approximate solution 
of a given linear boundary-value problem coiisisting 
of a system of linear first-order ordinary differen- 
tial equations with linear boundary conditions. 
Solution is done by the method of adjoint equations , 
which generates successively adjoint initial-value 
problems. By means of the solutions of these ad- 
joint initial-value problems (done by Hamming's 
modified predictor-corrector method) it is possible 
to generate missing boundary conditions, which are 
necessary to compute initial values suitable to the 
given boundary -value problem (done by subroutine 
GELG or DGELG: solution of simultaneous linear 
equations by means of Gauss elimination). Thus 
the boundary-value problem is reduced to a linear 
initial -value problem, which is finally solved by 
Hamming's modified predictor-corrector method 
also. 

Given the system of n linear first-order ordinary 
differential equations: 






+ a, (x)y + f, (x) 
In ^ '•'n 1 ^ ' 



^2- 



^ = ^21 (^^^1 ^ ^22 ^''^^2 ■" 



+ a„ (x)y + f„ (x) 
2n ^ '^•'n 2 ^ ' 



dy 

^ n ~ dx 



\i (^>yi ■" V <^>y2 ^ 



+ a (x)y + f (x) 
nn ^ "n n ^ ' 



together with n boundary conditions: 

VyA)"^2y2(^i^""-^Vn(^i^^^iW 

+'=12y2('^u)+---+Cinyn(Xu) = ri 



»^2iyi<^l)^'^22y2<^l)^ • • • ^'^2nyn<^l>*Siyi<V 
■^"22y2(V^-"^'=2nyn(V = ^2 



Vl(^l>"^n2y2<^l>" • • • ■^'^nnyn^^l)^^/ A) 
^'=n2y2<V+---+'=""y>J = ^^ 



nn n' u n 



350 Mathematics— Ordinary Differential Equations 



where x ^ and x^ are the lower and upper bound re- 
spectively of the integration interval, and using the 
following vector and matrix notations: 



Y(x) = 



Y, = 



/y,(x)\ 
/ y2(x) 

\ ^n^'^V 



.V^> 



, F(x) = 









^\Kh 



The first problem is to generate new boundary 
conditions. Assuming that B has fewer zero-columns 
than C'^, the procedure eliminates Yy from the 
boundary conditions and generates a system of simul- 
taneous linear equations for the unknown initial values 
yi(xi), yzi^i), .. . , yn(Xj). This is done in the 
following way. 

Assuming that the k*-'^ column of matrix C (k = 1, 

2 n) contains at least one nonzero element 

(that is , yk(xu) appears in the boundary conditions) , 
the following adjoint linear initial-value problem is 
generated and solved by Hamming's modified 
predictor-corrector method: 



dz 

^'i ('^J = dF 



-a^^(x)z^-a2^(x)z2- 



- a . (x)z 
nl n 



R = 



^^2 
^'2(^) = ^ = -^2("^- ^22(^)^2 



a „ (x)z 
n2 ^ n 



A(x)= / a2^(x)a22(x)...a2jx) 



a ,(x)a „(x). ..a (x) 
nl^ ' n2^ nn^ / 



dz 



^'n<^) = d^ = -^n('')^-''2n(^>^2 



a (x)z 
nn n 



with initial values: 



Vl2"'^n 



b ,b „. . .b 
nl n2 nn 



^<V = 0, z^tx^) = Zj^_^(x^) = 0, z^(x^) 

or in vector and matrix notations 1 1; 



re c . . .c 
11 12 In 

^ " ' *^2l'^22---^2n 



c .c .. .c 
nl n2 nn 



Z' = ^= - aT(x) * Z 
~ dx 



with initial values Z(x ) = E, 
^ u k 



(3) 
(4) 



where Y(x), F(x), Yj , Yu and R are column vectors 
with n components, and A(x), and B and C are n by 
n square matrices, the given problem appears as 
follows: 



with 



Y' = 



dY 
dx 



A(x) * Y + F(x) 



B*Yi + C*Yu=R 



(1) 
(2) 



t If this is not the case , the procedure inter- 
changes At With xy and B with C, in order to get 
a minimum number of adjoint initial -value 
problems . 

1 1 As vectors Z and Z ' are actually stored in the 
same storage arrays as Yand Y', in the flowchart 
and the FORTRAN program they are also named 
Y and DERY. 
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where aT(x) is the transpose of A(x) , and Ek is the 
column vector with only one nonzero element; that 
is , las kth element. 

Assuming that Zk(x) is the solution of this k^^ 
adjoint initial-value problem, and using equations 
(1) and (3) , then; 



■[g.«<x,.,,w] = ^[zJ<„.V«] 



= zj (K) *y'(x) tZ-V) * Y(x) 



Z * (A * Y+F) + (-A^ * Z )^ * Y 



= Z, * A * Y+ z"^ * F - zj =(= A * Y 
k k k 

T 

= z, * r 

k 



Elimination of y^^ (x^) in the boundary conditions 
can be done by the following transformation formulas, 
which transform matrix By^_i and column vector 
\_l into matrix Bj^ and column vector R^ (with Bo = 
B and R^ = R) on the storage locations of B and R: 



, (k) , (k^l) (k) 



(k) (k-1) 
r: ' = r: ' + c, . sum, (x,) 
1 1 ik k M' 



(7) 

.(i-1,2, 
..,n) 

(8) 



If the k*" column of matrix C contains only zero- 
elements (that is, yk(Xu) does not appear in the 
boundary conditions) , elimination of yk(Xy) is not 
necessary, and k can at once be increased by one. 

If at least all yk(Xu) (k = 1, 2, n) in the 

boundary conditions are eliminated, the remaining 
system of simultaneous linear equations 



B * Y = R 
n 1 n 



(9) 



from which it follows that: 



d_ 
dx 



[t ^/'^x).y^(x)]=[gz/'^)(x).f^(x,j 



Integrating this equation from Xj up to Xu the result 
is: 



E ^/"^V ^i^V - 2 ^^"^^i) yi(V 



i=l 



i=l 



/"[g./^'<x,.rw] 



or: 



\^V = £ ^i (^1^ • ^i^^i) - ^""^k ^''i^ 



i=l 



with: 



sumj^ (X,) = 






dx 



(5) 



(6) 



is solved by Gauss elimination (subroutine GELG or 
DGELG). However, this is only possible if matrix 
Bjj is not singular. In case of a singular matrix B^ 
(that is, the pivot element at any elimination step is 
exactly equal to zero), the procedure is bypassed, 
giving an error message which shows that the given 
boundary-value problem has no or more than one 
solution, or that the method of adjoint equations was 
not able to find a solution because one or more of 
the generated new boundary conditions were linear 
combinations of the given boundary conditions . 

There is another critical case in the solution of 
equation (9), indicated by a warning given by sub- 
routine GELG or DGELG which means possible loss 
of significance in the Gauss elimination of at least 
as many significant digits as specified by the upper 
bound e of the local truncation error in the integra- 
tion procedures. If this warning appears, it is 
highly probable that matrix Bjj is singular too. But 
as this may not necessarily be the case, the proce- 
dure goes on after having given a warning to the 
user's output subroutine in the form of a negative 
number of bisections of the initial step size together 
with the resulting initial values of the finally gen- 
erated initial-value problem (first set of output 

values). The absolute value Of tills "warning' para- 
meter" indicates the step of the Gauss algorithm 
immediately preceding the detection of the loss of 
significance. 

After the vector of initial values Yj is computed 
(that is after the boundary-value problem is reduced 
to an initial-value problem), the final step to solve 
the generated initial-value problem is done by 
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Hamming's modified predictor-corrector method, 
incorporated in subroutines LBVP and DLBVP. 

Both the solution of adjoint linear initial-value 
problems described above and the solution of the 
finally generated linear initial-value problem equiv- 
alent to the given boundary-value problem are done 
by means of Hamming's modified predictor- 
corrector method for systems of linear differential 
equations. An extensive description of this method 
can be found in the mathematical description of sub- 
routines HPCL and DHPCL (except that control of 
accuracy and adjustment of step size is done dif- 
ferently) . Therefore it will be sufficient to give a 
short description of this method in the form of a 
notation of the formulas used. 

1. Problem to be solved — 
System of linear differential equations Y' = L(x, Y) 
with initial values Y(xq) = Yq, Y' (xq) = L(xq, Yq) 

= Y'o 

For adjoint initial-value problems, this is: 

Y' = L(x, Y) = - aT(x) * Y 



^o = \'Y(V = \'^'(V 



16 <^1 - \> 



■A (x^) * Ej^, h 



and for the finally generated initial-value problem: 
Y' = L(x, Y) = A(x) * Y + F(x) 



^o = ^r^o = ^i'n = ^(^i)*^i"^<"i) 



- %i' 



(14) 



3. Test value for control of accuracy and ad- 
justment of step size h in predictor-corrector part 
('local truncation error ")t: 



5 = 



mp.x 



a. . p. , .-c. , . 

I I j + 1, 1 .1 + 1, 1 

r- rnaxd. |y.^^_ . |) 



(15) 



with error weights ai = 1 (i=l,2, . . . ,n) for the 
adjoint initial-value problems, and given by input 
for the finally generated initial-value problem. 
Adjustment of step size h: halving, if 5 > e 

doubling, if J ^ e /50 
with the upper bound e for the local truncation error 
given by input. 

4. Formulas for interpolating intermediate 
points in case of halving the step size h: 



]-l/2 



h 1 

= Y(x --) = -— - (SOY. + 135Y. , 
3 2 256 J j-1 

+ 40 Y. „ + Y ) -— ,J:L. 
j-2 j-3' 2 128 



V3/2-Y(^j-f) = 2^6(^2 Yj ^ l^^Vl 

+ 108Y. „ + Y ) -— .— ^ . 
j-2 j-3' 2 128 



(16) 



2. Hamming's modified predictor-corrector 

formulas — (h represents the step size adjusted to 

accuracy requirements) for j = 3 , 4 , 5 , ... (that 

means at points x. = x , x , x , ...) 
J 3 4 5 



Predictor: 



Modifier: 



Corrector: 



P. , = Y. „ +-h(2 Y'. - Y'. ^ 
3 + 1 j-3 3 ' J j-1 



^ 2 ^'j-2> 



M = P - — (P - C ) 
j + 1 j + 1 121 ^ j j' 



M'. , = L(x. ,, M. J 
J + 1 ^ J + 1' j + l' 



+ 3 h. 



9 

Final value: Y = C + (P 

j + 1 3 + 1 121 ^ j+1 



(10) 

(11) 
(12) 



(13) 



(Y*. + 18Y'. , - 9Y'. \ 
i J-1 3-2' 



(17) 



5. Changing vectors Pj - Cj in case of halving, 
or Pj + i - C j^^^iii case of doubling the step size h: 

P-C=— (Y-Y ) - — . — ^Y' + SY' 

j j 27 ^^j ^j-3/2> 36 2(^j^^^j-l/2 



+ 3Y'. , + Y'. „,„) 
3-1 J -3/2' 



(18) 



Vi-Vi^^<Vi-V5>-^-^'^<^j+i 



+ 3Y'. , + 3Y'. „ + Y' ) 
J-1 j-3 j-5' 



(19) 



t The terms from which S is generated by search- 
ing for the maximum are weighted relative errors 
if the absolute values of yj + i^ix) are greater than 
1, and weighted absolute errors if the absolute 
values are not greater than 1. 
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6. Starting Hamming's modified predictor- 
corrector method by means of three Rui^e-Kutta 
^teps: 

For j = 0, 1, 2 



K, = h . Y'. 
1 J 



(20) 



K^ = h . L(x. + 0.4h, Y. + 0.4K ) (21) 

K = h • L(x. + 0.45573725421878943 h,Y. 
+ 0,29697760924775360 K. 

(22) 



+ 0.15875964497103583 K ) 



K = h • L(x. + h, Y. + 0.21810038822592047 K 
4 ' J 3 1 

- 3.0509651486929308 K 



+ 3.8328647604670103 K) 



Y. , = Y. + 0.17476028226269037 K 
J+1 J 1 

- 0.55148066287873294 K„ 



+ 1.2055355993965235 K 



+ 0,17118478121951903 K, 



(23) 



(24) 



7. Test value for control of accuracy and ad- 
justment of step size h in the Runge-Kutta part 
("local truncation error ")t : 



S = 



— • max 
15 1 



•^2,1 



(2) 
4.i 



max (1, y, 



(2) 
2,i 



(25) 



8. Iteration formulas for refinement of Runge- 
Kutta results: 



^1 = ^0 ^ 24 (^ Y'^ . 19 Y'^ - 5 Y'2 . Y'g)' 



^2 = ^o^-T(n^^^'i-^V 



^3 = ^0 -^ ^ ('^'O ^ ^Y'l + ^Y'2 ^ Y'g) 



(26) 



(27) 



(28) 



As transformation formulas (7) and (8) show, the 
output of Hamming's modified predictor-corrector 
method for the solution of any adjoint initial-value 
problem must contain only the vector Zk(Xj ) of 
function values at the lower bound x, (actually stored 
in vector Y) and the integral value sum, (x,). With 
respect to the predictor-corrector method, which is 
a fourth-order integration procedure generating 
function vectors Zk(x) (in storage array Y) and 
derivative vectors Z\(x) (in storage array DERY) 
at intermediate (not necessarily equidistant) points 
X, the following fourth-order Hermitian integration 
formula — using the function and the first derivative 
values of the fiinction to be integrated — is suitable 
to accumulate integral values sumk(x) and finally 
sumk(xi): 

sumj^ (x+h) = sumj^ (x) +— |gj^(x)+gj^(x+h) 



(29) 



using the instantaneous step size h of the predictor- 
corrector method, and with: 



i=l 



z.^ (X) f. (X) = Z^ (X) + F (X) (30) 



with error weights aj = 1 (i = 1 , 2 , .... n) for 
adjoint initial-value problems and given by input 
for the finally generated initial-value problem. 
Step size h is adjusted by halving if 5 > e , with the 
upper bound e of the local truncation error given 
by input. 



t The terms from which 5 is generated by search- 
ing for the maximum are weighted relative errors 
if the absolute values of yl2). are greater than 1 , 
and weighted absolute erroi-s if the absolute 
values are not greater than 1. 



and: 



n f-dz/'^) 
1=1 L 



(k) 
f. (x) + z.(x) 



dZ 



df. 
1 

"dx 



k T d P 



(31) 
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Therefore, generation of sumk (x+h) is done by 
means of the following formulas: 



(k) 



gf^ = gk(x+l^) =X^^ (""^^^^i 



(x+h) 



i=l 



Z (x+h) * F (x+h) 



(32) 



dgj"^ = g'k(x+h) 



Eh 

1=1 

(k) ] 

+ z. (x+h) f! (x+h) 1 = 



+ Z (x+h) * F' (x+h) 



(k) 
;. (x+h) f. (x+h) 



Z' (x+h) * F(x+h) 



(33) 



sum (x+h) = sum^ 






(k) ^ „ (k) 
u 



(34) 



After these three formulas have been evaluated, 
g^ ' becomes g, ' , and dg' ' becomes dg, '. Initial 
values of gj and dg} ' are generated, using for- 
mulas (30) and (31) at point x = Xq, leading to: 



^r = ^k <\> = ^ <v 



(35) 



and: 



dgf > = g- (x^) = ^ (xj - ^ a^,(x^) -^x,) (36) 



i=l 



The entire input of subroutines LBVP and DLBVP 
is: 

1. Lower and upper bound x, and Xy of the inte- 
gration interval, initial step size h of the independent 
variable and upper bound e (^ 1) of the local 
"relative" truncation error in integration procedures 

2 . Coefficient matrices B and C of vectors Y^ 
and Yu in boundary conditions and right-hand side 
vector R 

3. Vector of error weights aj (i = 1, 2, . . . , n) 
for the local "relative" truncation error in each 
component of the dependent variables (a^ 4 1 for all 
i) 



4. The number n of differential equations and 
boundary conditions 

5. As external subroutine subprograms, the 
computation of the right-hand side matrix^ A(x) of 
the system of linear differential equations , and the 
computation of the inhomogeneous vector F(x) and of 
its derivative F'(x); for flexibility in output, an 
output subroutine 

6. A one-dimensional auxiliary storage array 
with n storage locations , an n by n auxiliary storage 
array, and a two-dimensional auxiliary storage 
array (named AUX in flowchart, FORTRAN subrou- 
tine, and mathematical description) with 20 rows 
and n columns 

Output is done in the following way. K a set of 
approximations to the dependent variables Y(x) is 
found to be of sufficient accuracy (that is 5 4 e) . it 
is handed — together with x, the vector of deriva- 
tives Y' (x) , the number of bisections of the initial 
increment, the number of differential equations, 
the lower and upper bound of the integration interval, 
the initial step size, error bound E, and a para- 
meter for terminating subroutine LBVP or DLBVP — 
to the output subroutine. By means of this output 
subroutine, the user has the opportunity to choose 
his own output format, to handle the output values 
as he wants , to change the upper error bound and to 
terminate subroutine LBVP or DLBVP at any output 
point (for example, in case of possible loss of 
accuracy in Gauss elimination). In particular, the 
user is able to drop the output of some intermediate 
points , printing only the result values at the special 
points Xq + 3 • h, where j = , 1, 2, .... and h is 
the initial step size specified by input. The user 
may also perform intermediate computations using 
the integration results before continuing the process. 

For better understanding of the flowchart and of 
the FORTRAN program, Figure 34 shows the allo- 
cation of special intermediate result vectors within 
the storage array AUX. 

For reference see: 

(1) G.N. Lance, Numerical Methods for High 
Speed Computers , Iliffe, London, 1960, 
pp. 64 - 67. 

(2) A. Ralston/ H.S. Wilf, Mathematical Methods 
for Digital Computers , Wiley, New York/ 
London, 1960, pp. 95 - 109. 

(3) A. Ralston, "Runge-Kutta Methods with 
Minimum Error Bounds", MTAC, vol. 16, 

no. 80 (1962), pp. 431 - 437. 

(4) R. Zurmijhl, Praktische Mathematik fiir 
Ingenieure und Physlker , Springer, Berlin/ 
Gottir^en/Heidelberg, 1963. pp. 227 - 232, 
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function vector 




^(XiJ 


function vector 


V = 


Y(x..5) 


function vector 


v = 


Y(Xj.4) 


function vector 


v^ 


Y(x..3) 


function vector 




Y(x..2) 


function vector 




Y(x._,) 


function vector 


Y. = 

J 


Y(x.) 


derivative vector 


^1-6- 


Y'(Xj-6) 


derivative vector 


'r^ - 


Y'(x..,) 


derivative vector 


"1-4 = 


Y' (X..,) 


derivative vector 


1-3 ^ 


Y' (X..3) 


derivative vector 


1-2 - 


Y' (...2) 


derivative vector 


1-' ^ 


Y' (X..,) 


derivative vector 


y: = 

J 


Y' (x.) 


vector of error weights 


vector P. - C. 
J J 


decision vector for zero- 
columns in Matrix C 


vector F(x ) 


vector F (x ) 


right-hand side vector R 



1. row(AUX (1) in flowchart) 

2. row (AUX (2) In flowchart) 

3. row (AUX (3) in flowchart) 

4. row (AUX (4) in flowchart) 

5. row (AUX (5) in flowchart) 

6. row (AUX (6) in flowchart) 

7. row (AUX (7) in flowchart) 

8. row (AUX (8) In flowchart) 

9. row (AUX (9) in flowchart) 

10. row (AUX (10) In flowchart) 

11. row (AUX (11) in flowchart) 

12. row (AUX (12) in flowchart) 

13. row (AUX (13) in flowchart) 

14. row (AUX (14) in flowchart) 

15. row (AUX (15) in flowchart) 

16. row (AUX (16) in flowchart) 

17. row (AUX (17) in flowchart) 

18. row (AUX (18) In flowchart) 

19. row (AUX (19) in flowchart) 

20. row (AUX (20) in flowchort) 



Figure 34. Storage allocation in auxiliary storage array AUX 
(LBVP-DLBVP) 



10 

20 



SUBROUTINE LBVP 

PJRPOSE 

rO SOLVE 4 LINEAR BOUNDARY ^ALUE PROBLEHt WHICH CONSISTS OF 
A SrSTEfi OF NDin LIN6AR fIRST ORDER DIFFERENTIAL EQUATIONS 

OY/OX=Ar X)»Y(xH-F(xl 
AND NDIH LINEAR BOUNOARr CONDITIONS 
8«Y( Ht )+C*Y(XUl=R. 

USAGE 

CALL LBVP i PRMT,6,C,R,V,0ERY,N0iHt IHLF,AFCTtFCT,DFCT,OUTP, 

AJX.A) 
PARAMETERS AFCT.FCT ,OFCT» OJTP REQUIRE AN EXTERNAL STATEMENT, 

OESCRIPriON OF PARAMETERS 

PRMT - AN INPUT AND OUTPUT VECTOR WITH DIMENSION GREATER 
OR EQUAL TO 5, WHICH SPECIFIES THE PARAMETERS OF 
THE INTERVAL ANO OF ACCURACY AND WHICH SERVES FOR 
COMMUNICATION BETWEEN OUTPUT SUBROUTINE IFURNISHEO 
BY The USER) ANO SUBROUTINE LBVP. 
THE COMPONENTS ARE 
PRMTtD- LOWER BOUND XL OF THE INTERVAL II NPUT J , 
PRMTtll- UPPER BOUND XU OF THE INTERVAL (INPUTI. 
PRMTI3)- INITIAL INCREMENT OF THE INOEPENOENT VARIABLE 

( r NPUT) , 
PRMTIAI- UPPER ERROR BOUND (INPUT). IF RELATIVE ERROR IS 
GREATER THAN PRMTi4), INCREMENT GETS HALVED. 
IF INCREMENT IS LESS THAN PRMTOI AND RELATIVE 
ERROR LESS THAN PRHT(^)/^0. INCREMENT GETS DOUBLED 
THE USER MAY CHANGE PRMT(4» BY MEANS OF HIS 
OUTPUT SUBROUTINE. 
PRMKSI- NO INPUT PARAMETER. SUBROUTINE LBVP INITIALIZES 
PRMr(5l=0. IF THE USER WANTS TO TERMlNArE 
SUBROUTINE LBVP AT ANY OUTPUT POINT, HE HAS TO 
CHANGE PRMTCSI TO NON-ZERO BY MEANS OF SUBROUTINE 
OUTP, FURTHER COMPONENTS OF VECTOR PRMT ARE 
FEASIBLE IF ITS DIMENSION IS DEFINED GREATER 
THAN 5. HOWEVER SUBROUTINE LBVP DOES NOT REQUIRE 
ANO CHANGE THEH, NEVERTHeCESS THEY MAY BE USEFUL 
FOR HANDING RESULT VALUES TO THE MAIN PROGRAM 
ICALLING LBVPI WHICH ARE OBTAINED BY SPECIAL 
MANIPULATIONS WITH OUTPUT DATA IN SUBROUTINE OUTP. 
B - AN NO[M BY NOlM INPUT MATRIX. (OESTROYEOI 

IT IS THE COEFFICIENT MATRIX OF YIXLl (N 
THE BOUNDARY CONDITIONS. 
C - AN NDIM BY NOIM INPUT MATRIX (POSSIBLY DESTROYED). 

IT IS THi COEFFICIENT MATRIX OF Y(KUl IN 
THE BOUNDARY CONDITIONS. 



LBVP 
.LBVP 
L6VP 
LBVP 
LBVP 

LBVP 6D 
LBVP 70 
LBVP BO 
LBVP 90 
L8VP 100 
LBVP HO 
L6VP 120 
LBVP 130 
LBVP 140 
LBVP 150 
LfiVP 160 
LBVP I TO 
LBVP 180 
LBVP 190 
LBVP 200 
LBVP ZIO 
L9VP ZZO 
L6VP 230 
LBVP 2*0 
LBVP 250 
LBVP 260 
LBVP 270 
LSVP 280 
LBVP 2<>0 
LBVP 30C 
LBVP 310 
.LBVP J20 
LBVP 330 
LBVP 3*0 
LflVP 350 
LBVP 360 
LBVP 370 
LBVP 380 
LBVP 3S0 
LBVP *00 
LBVP 410 
LBVP itZO 
LBVP 430 
LBVP 440 
LBVP 450 
LBVP 460 
LBVP 470 
LBVP 4 80 
LBVP 490 
LBVP 500 
LBVP 510 



AN INPUT VECTOR WITH DIMENSION NOIM. (DESTROYED) L8VP 520 

IT SPECIFIES THE RIGHT HAND SIDE OF THE lBVP 530 

BOUNDARY CONDITIONS. LBVP 540 

AN AUXILIARY VECTOR WITH DIMENSION NOIM. LBVP 550 

IT IS USED AS STORAGE LOCATION FOR THE RESULTING LBVP 560 

VALUES OF OEPENOCNT VARIABLES COMPUTED AT LBVP 570 

INTERMEDIATE POINTS. LBVP 580 

INPUT VECTOR OF ERROR WEIGHTS. (OESTROYEDI ' L8VP 590 

ITS MAXIMAL COMPONENT SHOULD BE EQUAL TO 1. LBVP 600 

LATERON DERY IS THE VECTOR OF DEHIVATIVES, WHICH LBVP 610 
BELONG TO FUNCTION VALUES V AT IKTERMEOI ATE POINTS. LBVP 620 



INPUT VALUE, WHICH SPECIFIES THE NUMBER OF 
DIFFERENTIAL EQUATIONS IN THE SYSTEM. 

- AN OUTPUT VALUE. WHICH SPECIFIES THE NUMBER OF 
BISECTIONS OF THE INITIAL INCREMCNT. IF IHLF GETS 
GREATER THAN 10, SUBROUTINE LBVP RETURNS WITH 
ERROR MESSAGE IHLF-H INTO MAIN PROGRAM. 
ERROR MESSAGE IHLF=12 OR IHLF*I3 APPEARS IN CASE 
PRMT(3)=0 OR IN CASE SIGNIPRNTI 3) I -NE.SIGNI PRMT (2) -LBVP 700 
PRMTdl) RESPECTIVELY. FINALLY ERROR MESSAGE LBVP 710 
IMLF=14 INDICATES, THAT THERE IS NO SOLUTION OR L 8VP T20 
THAT THERE ARE MORE THAN ONE SOLUTION OF THE LBVP 730 
PROBLEM. ^_Q^p jt,Q 
A NEGATIVE VALUE OF IHLF HANDED TO SUBROUTINE OUTP L6VP T50 
rOGETHER WITH INITIAL VALUES OF FINALLY GENERATED LBVP 760 
INITIAL VALUE PROBLEM INDICATES, THAT THERE WAS 
POSSIBLE LOSS OF SIGNIFICANCE IN THE SOLUTION OF 
THE SYSTEM OF SIMULTANEOUS LINEAR EQUATIONS FOR 
THESE INITIAL VALUES. THE ABSOLUTE VALUE OF [MLF 
SHOWS, AFTER WHICH ELIMINATION STEP OF GAUSS 
ALGORITHM POSSIBLE LOSS OF SIGNIflCANCE WAS 
DETECTED. 

- THE NAME OF AN EXTERNAL SUBROUTINE USED. IT 
COMPUTES THE COEFFICIENT MATRIX A OF VECTOR Y ON 
THE RIGHT HAND SIDE OF THE SYSTEM OF DIFFERENTIAL 
EQUATIONS FOR A GIVEN X-VALUE. IfS PARAMETER LIST 
MUST BE X,A. SUBROUTINE AFCT SHOULD NOT DESTROY X 

- THE NAHE OF AN EXTERNAL SUBROUTINE USED. IT 
COMPUTES VECTOR F I IMHOMQGENEOUS PART OF THE 
RIG-iT HAND SIDE OF THE SYSTEM OF DIFFERENTIAL 
EQUATIONS) FOR A GIVEN X-VALUE. ITS PARAMETER LIST LBVP 920 
MUST BE X,F. SUBROUTINE FCT SHOULD NOT DESTROY X. LBVP 930 

- THE NAME OF AN EXTERNAL SUBROUTINE USED. IT LBVP 940 
COMPUTES VECTOR OF (DERIVATIVE OF THE INHOMOGENEOUSL BVP 950 
PART ON THE RIGHT HAND SIDE OF THE SYSTEM OF LBVP 960 
DIFFERENTIAL EQUATIONS) FOR A GIVEN X-VALUE. ITS LSVP 970 
PARAMETER LIST MUST BE X ,0F . SUaHOUTINE OFCT LSVP 980 
SHOULD NOT DESTROY X. LBVP 990 

- THE NAME OF AN EXTERNAL OUTPUT SUBROUTINE USED. LBVPIOOO 
ITS PARAMETER LIST MUST BE X , Y.DERY , IHLF, NO I M, PRMT.L 8VP 1010 
NONE OF THESE PARAMETERS (EXCEPT, IF NECESSARY, LaVPl020 

PRMT(4) .PRMT(5», I SHOULD BE CHANGED BY LevPlC30 

SUBROUTINE OUTP. IF PRMT(5) IS CHANGED TO NON-2 ER0.L8VPI040 
SUBROUTINE LBVP IS TERMINATED. L6VP1050 

- AN AUXILIARY STORAGE ARRAY MIRH ZC ROWS AND LBVP1060 
NOIM COLUMNS. LBVPIC70 

- AN '(DIM BY NOIM MATRIX, NHICH IS USED AS AUXILIARY L8VP1080 

LevPl090 
LBVPllOO 
LBVPIUO 

IF LBVPH20 
L8VPU30 
LBVPIUO 



LBVP 630 
LSVP 640 
LBVP 650 
LBVP 660 
LBVP 670 
LBVP 680 
LBVP 690 



LBVP 770 
LBVP 780 
LBVP 790 
LBVP 800 
LSVP 810 
LBVP 820 
LBVP 830 
LBVP 840 
LBVP 850 
LBVP 860 
LBVP 870 
LBVP 880 
LBVP 890 
LBVP 900 
LSVP 910 



STORAGE ARRAY. 

REMARKS 

THE PROCEDURE TERMINATES AND RETURNS TO CALLING PROGRAM, 

111 MORE THAN 10 BISECTIONS OF THE INITIAL INCREMENT ARE 

NECESSARY TO GET SATISFACTORY ACCURACY (ERROR MESSAGE 



IHLF=in , LBVP1150 

(2) INITIAL INCREMENT IS EQUAL TO C OR IF IT HAS WRONG SIGN LBVPU60 



(ERROR MESSAGES IHLF=I2 OR |HLF=13), 

(3) THERE IS NO OR MORE THAN DNE SOLUTION OF THE PROBLEM 
(ERROR MESSAGE IHLF=14I, 

(4) THE WHOLE INTEGRATION INTERVAL IS WORKED THROUGH, 

(5) SUBROUTINE OUTP HAS CHANCED PRHT(6I TO NON-ZERO. 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 

SUBROUTINE CELG SYSTEM OF LINEAR EQUATIONS. 

THE EXTERNAL SUBROUTINES AFCI(X,AJ, FCTIX.f). OFCTIX.OFI, 

AND OUTP( X, Y.OERY,IHLF,NOI MtPRMTI MUST BE FURNISHED 

SY THE USER. 

METHOD 

EVALUATION IS DONE USING THE METHOD OF ADJOINT EQUATIONS. 
HAMMINGS FOURTH ORDER MODIFIED PREDICTOR-CORRECTOR METHOD 
IS USED TO SOLVE THE ADJOINT INITIAL VALUE PROBLEMS ANO Fl- 



THE INITIAL INCREMENT PRMT(3I IS AUTOMATICALLY ADJUSTED. 

FOR COMPUTATION OF INTEGRAL SUM, A FOURTH OROER HERMITEAN 

INTEGRATION FORMULA IS USED. 

FOR REFERENCE, SEC 

(II LANCE, NJMERICAL METHODS FOR HIGH SPEED COMPUTERS, 

ILIFFE, LONDON. 1960, PP. 64-67. 
(21 RALSTON/WILF. MATHEMATICAL METHODS FOR DIGITAL 

COMPUTERS, WILEY, NEW YORK/LONDON. 1960. PP. 95-109. 
(3) RALSTON, RUNGE-KUTTA METHODS WITH MINIMUM ERROR BOUNDS, 

MrAC, VOL. 16, ISS.90 (I962I, PP.431-43T. 
(41 ZURMUEHL. PRAKTISCHE MATHEHAriK FUER INGENIEURE UNO 

PHYSIKER, SPRINGER, BERL I N/GOETTINGEN/HEI OELBERG, 196 3, 

PP. 22 7-232. 



DIMENSION PRMT( U,3 I L ) iC( 1 1 tR( 1 1 . YU) tOERYtl) ,AUXI20, II , A( 1 1 



ERROR TEST 

IF(PRMTHJ*(PRMT(21 -PRMTI 1) ) )2,1 ,3 

1 1 HL F - 1 2 
RETURN 

2 IHLF=13 
RETURN 

SEARCH FOR ZERO-COLUMNS IN MATRICES B ANO C 

3 KK — NOIM 
16=0 
IC=0 

00 7 K=1,NDIM 

AUXI 15,KJ=DERY(K) 

AUXI t,K)=I. 

AUX( 17,KI=l. 

KK'KK»NDIM 

00 4 Is 1. NOIM 

II = XK»-I 

IF(8( 11 ))S.4,5 
> CONTINUE 

IB=IB*l 

AUXI 1,KI=0. 
i 00 6 I=1.NDIM 

I I=KK»I 

IFtCI n M7,6.T 
I CONTINUE 



LBVP 1340 
LBVP1350 
LBVPI360 
LaVPi370 
LBVP1380 
LBVP1390 

LevPi*oo 

LBVP1410 

LBVPL42C 
LSVP1430 

LBVP 1440 
L8VP1450 
LBVP 1460 
L8VP1470 
..LBVP14aO 
LaVPI490 
LBVP1500 
LaVPl510 
LBVP1520 
LaVPl530 
LBVP154C 
LBVP1550 
L8VP1560 
LBVP 15 TC 
LSVP158G 
LBVP1590 
LdVP1600 
LBVP 1610 
L8VP1620 
LBVP1630 

LeVPi640 

LflVP165C 
LBVP 1660 
LBVP1670 
LBVP1680 
LeVPl690 
LBVP17D0 
LBVP1710 
LSVP17Z0 
LBVP1730 
L8VP1740 
LBVPI 750 
LflVP 1760 
LeVPt770 
LSVP 1 780 
LBVP 1790 
LBVP1800 
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7 COKIINU€ 

OETERHlNAnON OF L3WeR *N0 UPPER BOUND 
IFI IC-IBIB. 11.11 

8 H=PRMr(2t 

PRMI(2I=PRMT{ 11 , 

PftMT( ll=H 

PRMTl 3)=-PRNini 

00 9 1= IfNOlM 

9 *UX< t7. D^AUXl Itl ) 

00 10 1=1.11 
H=6l I) 
BIIl=Ct It 

10 CI [ »=H 

PREPSRATIONS FOR CONSTRUCTION Of ADJOINT INITIAL VALUt PROBLEMS 

11 X-PRMTIZ) 
CALL FCKX.Vl 
CALL Of CTU.DERYI 
00 12 l^l.NOIH 
AUX( 18. I)=Y< f I 

12 AUX) 19,II=0ERYI II 

POSSIBLE BREAK-POINT FOR LINKAGE 

THE FOLLOWING PART OF SUBROUTINE LBVP UNTIL NEXT BREAK-POINT FOR 
LINKAGE HAS TO REHAIN IN CORE DURING THE WHOLE REST OF THE 
COMPUTATIONS 

START LOOP FOR GENERATING ADJOINT INITIAL VALUE PROBLEMS 

K=0 

K(t = 

100 K=K*l 

IFIAUKI IT, Ktll08f 108,101 

INITIALIZATION OF ADJOINT INITIAL VALUE PROBLEM 

101 X=PRMH 21 
CALL AFCr(K.A) 
SUM=0. 

GL=AUK( le.K) 
DGL=AUK1 19, K) 

f 1=K 

DO 104 i=l,NDIH 

H--A( I I I 

DERYI n=H 

AUXI20, l»=Rt M 

Y 1 n =0 . 

IFt I-KJ 103.102,103 

102 Y(n = l. 

103 DGL = DGL+H*AUXl 18. I ) 

104 II=II*NDIM 
XENO=PRMTl If 
H=.0625*(XEND-KI 
ISW = 

GOTO 400 

THIS IS BRANCH TO ADJOINT LINEAR INITIAL VALUE PROBLEM 

THIS IS RETURN FROM AOJOINT LINEAR INITIAL VALUE PROflLEM 

105 IFI IHLF-10) 106. 106. 117 

UPDATING OF COEFFICIENT MATRIX 6 ANO VECTOR ft 

106 00 lOT !=1,N0IM 
KK=KK*I 

R( H=AUX(20,n*H»SUM 

11=1 

DO 107 J=1.ND1M 

61 I I ) = B( II l*H*Y(J) 

107 II=I1*NDIM 
GOTO 109 

ice KK=KK+NDIM 

lO*) lflK-NOIHll00,ll0,llO 

GENERATION Of LAST INITIAL VALUE PROBLEM 

110 K^PRMTI-il 

CALL GELGfR.B.NDIM, l.X.n 
IFI 1)111.112.112 

111 1HLF»14 
RETURN 

112 PRMTI5»=0. 
IHLF=-I 
X=PRMTl U 
XENO-PRMTI 21 
H=PRMr( 31 

DO 1L3 l=l.ND[M 

113 Y(II='R(I) 

ISH'I 

lU ISW2=12 
GOTO 200 

115 IStf3«-l 

GOTO 300 

116 IP( IHLF >400,400,ll7 

THIS WAS BRANCH INTO INITIAL VALUE PROBLEM 

THIS IS RETURN FROM INITIAL VALUE PROBLEM 

117 RETURN 

' THIS PARI OF LINEAR BOUNDARY VALUE PROBLEM COMPUTES THE RIGHT 

' HAND SIOE OERY OF THE SYSTEM OF ADJOINT LINEAR DIFFERENTIAL 

; EQUATIONS UN CASE ISW=0) OR OF THE GIVEN SYSTEM UN CASE ISW = i> 

200 CALL AfCT(X,A) 

1F( ISWI 201.2Cl,205 

; ADJOINT SYSTEM 

201 LL^O 

00 203 H=1.N0IM 

HS=0. 

00 202 L»1.NDIM 

LL=LL*t 

202 HS«HS-A(LLI*Y<LI 

203 DERYIM1=HS 

204 GOTO! 502, 504, 506,407.4 15, 41 8, 508, 61 7. 632, 634.42 1.115 I . ISW2 

GIVEN SYSTEM 

205 CALL FCT(X,D£RY» 
00 20T M=1*N01H 
LL-M-NOIM 
HS=0. 

DO 206 L=1.NDIH 
LL=LL*NOIM 

206 HS=HS*AILL1*Y(LI 

207 OCRYIMIsHS+DERYIM) 
GOTO 204 

THIS PART OF LINEAR BOUNDARY VALUE PROBLEM COMPUTES THE VALUE Of 



L8VP18I0 
LBVP1820 
LBVPiaSO 
L6VP1840 

L8VP1850 

LBVP1B60 
L8VPIS70 
LBVP1B80 
LBVPlfl90 
LBVP1900 
LBVP19I0 
LBVP1920 
LeVPl930 
LBVP1940 
LBVPI950 
L8VP1960 
LBVP1970 
L9VPI980 
LSVP1990 
LBVP2000 
LBVP2Q10 
LBVP2020 
LBVP2030 
LBVP2040 
L6VP2050 
L6VP2060 
LBVP2070 
LBVP2080 
L6VP2090 
LBVP2100 
LBVP2U0 
LBVP2120 
LBVP2130 
L6VP2140 
LBVP2150 
L9VP2160 
LBVP2170 
LBVP 2 1 BO 
L6VP2190 
LBVP22 00 
LBVP2210 
LBVP2220 
LBVP22 30 
LBVP2240 
L9VP2250 
LavP2260 
LBVP2270 
L3VP22aC 
LSVP2290 
LBVP2300 
LBVP2310 
LBVPZ320 
L6VP2330 
LBVP2340 
LBVP2350 
LBVP2360 
L8VP2370 
L BVP2380 
LBVP2390 
LBVP2400 
LBVP24 10 
L6VP2420 
L8VP2430 
LavP2440 
LaVP2450 
L8VP2460 
LBVP 24 70 
L6VP2480 
LBVP2490 
L6VP2500 
LBVP2510 
LBVP2520 
LBVP25 30 
LflVP254C 
LBVP2550 
LBVP2560 
LBVP2570 
L8VP2580 
LBVP2590 
LBVP2600 
LBVP2610 
LBVP2620 
LBVP2630 
LBVP2640 
L6VP2650 
L8VP2660 
LBVP2670 
I.BVP2680 
L6VP2690 
LavP2700 
LBVP2710 
L8VP2720 
LBVP2730 
LBVP2740 
L8VP2750 
LflVP2 760 
LBVP2770 
LBVP278t 
LBVP2790 
LBVP2800 
LBVP2B10 
L8VP2820 
LBVP2B30 
. LBVP2840 
LBVP28S0 
LaVP2860 
LBVP28T0 
LBVP2B80 
LBVP2B90 
LBVP2900 
LBVP2910 
LBVP2920 
LBVP2930 

L8VP2950 
LBVP2960 
L6VP2970 
L6VP29B0 
LBVP2990 
LBVP 3000 
LBVP3010 
LBVP3020 
LBVP3030 
LBVP3040 
LBVP3050 
LBVP3060 
L8VP3O70 
L8VP30aO 
LaVP3090 



INTEGRAL SUM, UHIC4 IS A PART OF THE OUTPUT OF ADJOINT INITIAL 
VALUE PROBLEM I IN CASE 1 SW=OI OR RECORDS RESULT VALUES OF THE 
FINAL INtriAL VALUE PftOBLeN (IN CASE ISU^ll. 

300 Iff ISM)301.301,305 

ADJOINT PROBLEM 

301 CALL FCTIX.H) 

GU=0. \ 

DGU=0. 

00 302 L=I>NDIM 

GU=GU*Y(L1*RILI 

302 OCU=DGU*0ERY(L)»R(L( 
CALL OfCTIX.RI 

00 303 L«1.N0IM 

303 0GU>DGU4^Y(L)*RIL) 

SUM-SUM+.5*H«( IGL'GUl*. 1666667«H" ( OGL-DGU) ) 

GL=GU 

DGL'DGU 

304 IFI ISM3) 116, 422.61 B 

GIVEN PROBLEM 

305 CALL QUTPIX.Y.OERY, IHLF.NOIM.PRMTI 
IFIPRMTI S) 1117.304. LIT 

POSSIBLE BREAK-POINT FOR LINKAGE 

THE FOLLOWING PARI QF SUBROUTINE LBVP SOLVES IN CASE ISW=0 THE 
ADJOINT INITIAL VALUE PROBLEM. IT COMPUTES INTEGRAL SUM AND 
THE VECTOR Y OF DEPENDENT VARIABLES AT THE LOWER BOUND PRMTIll. 
IN CASE ISM=1 IT SOLVES FINALLY GENERATED INITIAL VALUE PROBLEM, 

400 N=l 
XST = X 
IHLF=0 

00 401 I'l.NOIM 
AUX( 16, 11=0. 
AUXt 1,1 }>Ytl ) 

401 AUX(8. I )=OERY( I } 

rsMi=i 

GOTO 500 

402 X=XtH 

00 403 1-l.NOIM 

403 AUXt2.I ) = Y( I 1 

INCREMENT H IS TESTED BY MEANS OF BISECTION 

404 1HLF=IHLF*1 
X = X-H 

00 405 I=I.NDIM 

405 AUXI4,I t=AUX(2,I ) 
H=.5*H 

N=l 

ISW1=2 
GOTO 500 

406 K=X*H 
ISH2=4 
GOTO 200 

407 N=2 

DO 408 I^t.NOlM 
AUXI 2, I l = YI 1 I 

408 AUX(9, I l^OERVI I I 
ISW1=3 

GOTO 500 

TEST ON SATISFACTORY ACCURACY 
4C9 00 414 I-l.NOIM 
Z=A6S(Y(II) 
IF IZ-1. 1410t4ll.411 

410 Z=l. 

411 DELr = ,0666666 7*ABSI Yd I -AUK 1 4. It I 
If I iSH»4l3,4I3.4l2 

412 DELTsAUXI 15. I 1»DELT 

413 IFI 0ELT-/*PRMT( 411414,414,429 

414 CONTINUE 

SATISFACTORY ACCURACY AFTER LESS THAN 11 BISECTIONS 

X=X*H 

ISW2=5 

GOTO 200 

415 00 416 I"1,NDIM 
AUX(3, I l = Y(I ) 

416 AUXI ICn^DERVIl) 
N = 3 

1SWI=4 

GOTO 500 

417 N=l 

X = X*H 
ISH2=6 
GOTO 200 

418 X»XST 

00 419 I=1,N0IM 
AUXI 11, I1=0ERY(I) 
419CY(I I = AUXt l,II*H*I .3 75*AUX(8,II».7916667**UX(9,I) 
l-.20e3 3 33«AUXI 10, I )*,0416666T»DtRYII I ) 

420 X*X+H 
N=N«^1 
ISH2=IL 
GOTO 200 

421 ISW3=0 
GOTO 300 

422 IF (N-4 1423, 600. 600 

423 DO 424 I=l.NOIM 
AUXIN, I l = YII ) 

424 AUX(N*7,I )iOERYI I 1 
1F(N-3U25,'V27,600 

425 DO 426 I=1,NDIM 
0eLT=AtJXI9,I I* AUXI 9, 1 I 
0£LT=OELT+OELT 

426 Y(M=AUXI1,I I* . 3333 333*H* I AUXt B , I ) *OELT*AUX I 10 , IH 
GOTO 420 

427 DO 42fl I=I,NOIM 

DELT=AUX(9,I )*AUXI 10,1 > 
0ELI=0ELT*0ELT*0ELT 

428 Y|[)=AJX(l,llt.37S*H«IAUXI8.I)fDELr«AUXai,in 

GOTO 420 

NO SATISFACTORY ACCURACY, H MUST 8£ HALVED. 

429 IFI IHLF-101404,430,430 

NO SATISFACTORY ACCURACY AFTER 10 BISECTIONS. ERROR MESSAGE. 

430 IHLF=ll 
X=X*H 

IFI ISH) 105,105,114 

THIS PART OF LINEAR INITIAL VALUE PROBLEM COMPUTES 
STARTING VALUES BY MEANS OF RUNGE-KUTTA HEThQO. 



LBVP3100 
LBVP3110 
LBVP3120 
LBVP3I30 
LBVP3140 
LBVP3150 
L6VP3160 
LBVP3170 
L9VP3180 
L6VP3190 
LBVP3200 
L8VP3210 
LBVP3Z20 
LBVP3230 
LBVP32M 
L6VP3250 
L6VP3260 
LevP32 70 
L8VP3290 
L9VP3290 
LBVP3300 
L9VP3310 
L8VP3320 
L8VP3330 
LBVP3340 
LBVP3350 
LBVP3360 
LBVP33TO 
LBVP33SO 
LBVP3390 
LBVP3400 
LBVP34iO 
LBVP3420 
LBVP3430 
LBVP3440 
LBVP3450 
L6VP3460 
LBVP 3470 
LBVP34 80 
LBVP3490 
LBVP 3500 
L6VP3510 
LBVP3520 
LBVP3530 
LBVP3540 
LSVP3550 
L8VP356C 
LBVP3570 
LBVP3580 
LBVP3590 
LBVPlbOO 
L8VP3610 
LBVP3620 
LBVP3630 
L6VP3640 
LBVP3650 
LBVP3660 
LBVP 36 70 
LBVP3680 
LBVP 3690 
L6VP3700 
LBVP3T10 
L6VP3720 
LBVP3730 
LSVP3740 
LBVP3750 
L8VP3760 
LBVP3770 
LaVP3780 
L8VP3790 
L8VP1800 
L8VP3810 
L6VP3820 
LBVP3830 
LBVP 3840 
LBVP3850 
LBVP3a60 
L8VP3e70 
L8VP3880 
L6VP3890 
LBVP390C 
LBVP3910 
LBVP3920 
LBVP3930 
L8VP3940 
L6VP3950 
LBVP3960 
LBVP 39 70 
LBVP39B0 
LBVP3990 
LBVP4000 
L6VP4010 
L8VP4020 
LBVP4030 
LBVP4040 
LBVP4050 
LBVP4060 
LBVP4070 
LBVP4080 
LflVP409C 
L8VP4100 
LavP4llO 
LBVP4120 
LBVP4130 
LflVP4L40 
LBVP4150 
L6VP4160 
LflVP4I70 
LBVP4180 
L8VP4190 
LBVP420C 
LBVP4210 
LBVP4220 

Limm 

LBVP4240 
LBVP42 50 
LBVP4260 
LBVP4^/0 
LBVP4280 
L6VP4290 
LBVP4300 
L6VP4310 
LaVP4320 
LBVP4330 
L6VP4340 
LBVP4350 
LaVP4360 
LBVP4370 
LBVP43flO 
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00 SOI 1-I,N0IN 

X-H*AUX(N+7.II 

AUXIS.I)-K 

501 VfII-AUX(N,t)».«*)( 
I 

X-Z*.*«H 
■tSU2«l 
GOTO 200 

502 DO 503 I-1,N0IM 
X*H*OERVt [> 
AUXI61I )*X 

503 Vt I l-AUX(N,II + .2969TT6*AUXf S.f )«.I5Sr59b*K 

X"Z*.*55T372«H 

[SU2-2 

GOTO 200 

504 00 $05 [-l.NOIN 
X-H*OERYII ) 
AUX(7«II-X 

505 »(I>-AUXIN,M*.2l8lOO«*AUX(5,II-3.050965*AUX(6,II*3.832e65*X 

X«£*H 
ISU2-3 
GOTO 200 

506 DO 507 [sl.NOIH 
5070Y(I|>ttUX(N.lM,ir47603*AUX(St[)-.5SI4aar*AUX(6tIl 

l«-l.20553«*AUX(7,ll«.1711«48*H*0£RV(Il 
X"Z 
GOTO(40 2tM6(409,417} ,1 SHI 



C POSSIBLE BREAX-POINF FOR LINKAGE 

C 

C STARTING VALUCS ARE COMPUTED. 

C NOW START HANMIMG5 HOOIFlEO PREOKTOR-CORRECTOR METHOD. 

600 I STEP'S 

60L IF(N-8t604.6a2.60'4 
C 
C N-B CAUSES THE ROWS Of AUX TO CHANGE THEIR STORAGE LOCATIONS 

602 00 603 N-2.7 

00 603 I-l.NOtM 
AUXCN-l,It>AUK(N, II 

603 AUX(Ni-6,t>>AUX<N«7,II 
N«7 

C 

C N LESS THAN 8 CAUSES N*l TO GET N 

604 N«N*1 
C 

I COMPUTATION OF NEXT VECTOR IT 

00 605 [-ItNDIM 
AUX (N- 1,1 )<Y(I) 

605 AUX(N*6.ll>0ERr(I} 
X = X+H 

606 tSTEP-ISTEP+l 
00 607 l-l,N0IM 

0OELT>AUX(N-4tI|4^1.333333*H*IAUX(N4^6,ll»AUX(N«-6.II-AUX(N«^5,l)«^ 
lAUX(N«4rI)+AUX<N*4. It> 
r|[)>D£LT-.92$6I98*AUK(16.f) 

607 AUK(16,I)-DELr 

PREDICTOR IS NOW GENERATED IN ROM 16 OF AUX, MODIFIED PREDICTOR 
IS GENERATED IN T. OELT MEANS AN AUXILIARY STORAGE. 

ISM2-7 

GOTO 200 

DERIVATIVE OF MODIFIED PREDICTOR 

606 00 609 I-UNOIN 

ODEL r> . 1 ZS*( 9.*AUX( N~l , 1 1 - AUXI N- 

1AUX(N*6,I )-AUXIN4^5. Ill I 
AUX( 16. I ) >AUX( 16. ll-OELT 
609 Yl I ) -OELT 4^. 074380 L7«AUX( 16,1) 



S GENERATED IN DERY. 



3.1 l<-3.«H*(DERr{ I)**UX(N«^6.I }* 



I TEST WHETHER H MUST BE HALVED OR OOUBLED 

OELT-0, 

00 616 I-1,N0IM 
Z«ABS(Y(I1I 
IFIZ-1. 1610,611,611 

610 Z*I. 

611 Z>ASSUUX(16,IM/Z 
IFI ISl0613,613,612 

612 Z*AUX(L5.I)«Z 

613 IFtZ-PRMT(4)l616. 614,626 

614 IF(0ELT-ZI615,616,6t6 

615 DELT-Z 

616 CONTINUE 

H MUST NOT BE HALVED. THAT MEANS Ytt) ARE GOOD. 

isw2>e 

GOTO 200 

617 ISH3*1 
GOTO 300 

618 IF(H*(X-XEN0)I619.621,621 

619 IF(ABS(X-XEN01-.L«AaSfH) I 621,620,620 

620 IF( DEL T-.02*PRMT( 41 1622,622,601 

621 IFI ISUI 105.105,117 



VALUES ARE 



C H COULD BE OOUBLED IF ALL NECESSARY PRECEEDINC 
C AVAILABLE. 

622 IFMHLFI60l,601,623 

623 IF(N-7I601. 624.624 

624 IFI tSTEP-4)601,625.625 

625 INaO>IS7£P/2 
IFdSTEP-IMOO-IMOO) 601.626.601 

6Z6 H»H*H 

IHLF-IHLF-1 

ISTEP-0 

00 627 1-1,N0IM 

AUX(N-l,l)-AUXIN-2, I) 

AUX(N-2.II-AUXIM-4, II 

AUX(N-3tI)*«UX(tt-6,I) 

AUXIN4^6,n-AUXf N«^5. f t 

AUXtN*9,tl-AUXtH*3, If 
AUX(N»4.II-AUX(N«1.I> 
0ELT-AUX(N>6,[ )«AUXIN*5,I ) 
OELT-OELT^OELT+OELT 
6270AUX1 16. 1 1-8.962963*( Y( I l-AUXIN-3 . I I (-3. 36UU*H»(0ERY( 1 1 ♦OELT 
1«^AUX(N«^4. II) 
GOTO 601 

H MUST BE HALVED 

628 1HLF«IHLF*1 

IFI IHLF- 10)630. 630. 629 

629 IF(lSHIL05,105.a4 

630 H-.5«H 

I STEP -O 

DO 631 I*I,NDIN 
OY<I)-.00 390625*I«0.*AUXIN-l,I> + l35.*AUX(N-2.I)»40.*AUX(N-3, n* 



LBVP4)90 

L8VP4400 

L8VP4410 

LBVP4420 

LBVP44 30 

LBVP4440 

L8VP4450 

LBVP4460 

LBVP4470 

L6VP44B0 

LBVP4490 

LBVP4500 

LBVP4S10 

L8VP4520 

LBVP4530 

LBVP4S40 

LBVP45S0 

LBVP4560 

LBVP45 70 

LBVP4580 

LBVP4590 

LBVP4600 

LBVP4610 

LBVP4620 

LBVP4630 

LBVP4640 

(.BVP4650 

LBVP4660 

LeVP46 70 

LBVP468C 

L6VP4690 

L6VP4700 

LBVP4710 

LBVP47Z0 

LBVP4730 

LBVP4740 

LflVP4750 

L8VP4760 

LBVP4770 

LeVP*780 

LBVP4790 

L8VP4600 

LBVP4ai0 

LBVP4B20 

LBVP403O 

LBVP4840 

LBVP4eS0 

LBVP4860 

LBVP4870 

LBVP4880 

LBVP4a90 

LflVP4900 

LflVP49lO 

L6VP4920 

LBVP4930 

LBVP4940 

LBVP4950 

LSVP4960 

L8VP4970 

LBVP4980 

LaVP4990 

LBVPSOOO 

LBVPSOIO 

LBVP5O20 

LBVP5030 

LavP5040 

LBVPSOSO 

LBVPS060 

L8VP5070 

LBVPSOSO 

LaVP5090 

LBVP5100 

LBVPSllO 

LBVP5120 

L8VP5130 

LBVP5140 

L8VP5150 

LBVP5160 

LBVP5170 

LBVP5180 

L6VP5190 

L8VP5200 

LBVP5Z10 

LBVP5220 

LBVP5230 

LavP5240 

L8VPS2S0 

LBVPS260 

LBVP5270 

LBVPS28a 

LBVP5290 

LBVPS300 

LBVP5310 

LBVP5320 

LBVP5330 

LBVPS340 

L8VP5350 

LeVP5360 

LBVP5370 

LBVP53aa 

LBVP5390 

LflVP540D 

L9VP5410 

LBVP5420 

LBVP5430 

L avP5440 

LBVP5450 

LaVP5460 

L8VP5470 

LavP54ao 

LeVP$490 
LBVP5500 
L8^P55I0 
LBVP5520 
LBVP5530 
LBVP5540 
LBVP5550 
LaVPS560 
L8VP5570 
L8VP55B0 
L8VP5590 
LevP5600 
LBVPS610 
LBVP5620 
LaVP5630 
LBVP5640 
LBVP5650 
L8VP5660 
LeVP56 70 



IAUXfN-4,III-.1171875*(AUK(N«6«II-6.*AUK(N»5,ll-AUX(M»4,l 
0AUX(N>4.ll-.0039062»*(12.*AUX<N-l«t)*13S.«AUX(N-2,ll* 
tl08.*AUX(N-3,f >«-AUX(N-4,i) l-.023437S«UUXI N«^6 , ll*L8 .'AUX 
29.*AUX(N«4. in*H 
AUX(lt-3,Il-A(IXIN-2. 1) 

631 AUX(N*4*I)*AUXCN«S,I) 
DELT«X-H 
X-0ELT-IH«H) 

ISU2>9 
GOTO 200 

632 00 633 I-1,N0IH 
AUX(N-2.n-V<ll 
AUX<N«StM«OERY(I) 

633 Y( I)-AUX<N-4.II 
X-X-lH^Ht 
ISM2-10 

GOTO 200 

634 X-OELT 

00 635 I-L»NOIH 

0ELT>AUX<N*5.II«^AUXIN»4.I I 

DELT-DELT*DELT*D€LT 
0AUXU6. I)-B.962963*(AUX(N-l.n-T<I)l-3.361111*H*UUXll4+6 
l+0£RYt II) 

635 AUX(N*3,I)-0ERriIl 
GOTO 606 

END OF INITIAL VALUE PROBLEM 
ENO 



»»*H L8VP5680 

LavP3690 

1N*S.II- LBVPS700 
IBVP5710 
LBVP5720 
iavP9T30 
LavrS740 
> LeVP9750 
LaVf5T60 
18VP5770 
LBVP57B0 
LBVP5T90 
LBVfSaOO 
LBVP98L0 
LBVPS820 
LfiVPSBlO 
LBVP5840 
LBVPSaSO 
L0VP5S6O 
L8VP5a70 
L&VP5880 
II+OCLT LBVP5890 
LBVP5900 
LBVP5910 
LeVP5920 
LBVPS930 
LBVPS940 
LaVPS950 
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SUBROUTINE OLBVP 



OLBV 

OLBV 

OLBV 30 
DL6V 40 
OLBV 50 

PWI^OSE DL6V 60 

TO SOLVE A LINEAR BOUNDARY VALUE PROBLEM, WHICH CONSISTS OF DLBV 70 

A SYSTEM OF NOIM LINEAR FIRST ORDER DIFFERENTIAL EQUATIONS OLBV SO 

0Y/0X<AIX)*YIX)«-FIX> OLBV 90 

AND NOIM LINEAR BOUNDARY CONDITIONS OLBV 100 

e*Y(XLJ«C«YIXUI-R. DLBV 110 

OLBV 120 

USAGE DLBV 130 

CALL OLBVP IPRHT.B,C.R.Y. DERY. NOIH, IHLF. AFCT.FCT.OFCT.OUTP, DLBV 140 

AUX.AI OLBV 150 

PARAMETERS AFCT.FCT.DFCT.OUTP REQUIRE AN EXTERNAL ST ATEMENT.OLBV 160 

DLBV 170 
DESCRIPTION OF PARAMETERS 



PRMT 



PRHTCn- 
PRHTIll- 
PRMTI3)- 



DL8V 180 
DLBV 190 
OLBV 200 
OLBV 210 



DOUBLE PRECISION INPUT AND OUTPUT VECTOR WITH 
DIMENSION GREATER THAN OR EQUAL TO 5. WHICH 
SPECIFIES THE PARAMETERS OF THE INTERVAL AND OF 
ACCURACY ANO WHICH SERVES FOR CONNUNICAIION BETUEEN0L8V 220 

OUTPUT SUBROUTINE 4FURN1SHE0 BY THE USER) ANO OLBV 230 

SUBROUTINE DLBVP. EXCEPT PRHTI5I THE COMPONENTS OLBV 240 
ARE NOT DESTROYED BY SUBROUTINE OLSVP ANO THEY ARE DLBV 250 

LOWER BOUND XL OF THE INTERVAL (INTUT). DLBV 260 

UPPER BOUND XU OF THE INTERVAL (INPUT), OLBV 270 

INITIAL INCREMENT OF THE INDEPENDENT VARIABLE OLBV 280 

(INPUT), OLBV 290 

- UPPER ERROR BOUND (INPUT). IF RELATIVE ERROR IS DLBV 300 
GREATER THAN PRHT(4), INCREMENT GETS HALVED. DLBV 310 
IF INCREMENT IS LESS THAN PMTI3) AND RELATIVE DLBV 320 
ERROR LESS THAN PRMT(4)/50, INCREHENT GETS DOUBLED. OLBV 330 
THE USER MAY CHANGE PRMT(4) BY HEAItS OF HIS DLBV 340 
OUTPUT SUBRQUriNE. OLBV 350 

- NO INPUT PARAMETER. SUBROUTINE DLBVP INITIALIZES DLBV 360 
PRHT(5I>0. IF THE USER WANTS TO TERMINATE OLBV 370 
SUBROUTINE DLBVP AT ANY OUTPUT POINT, HE HAS TO OLBV 3B0 
CHANGE PRMT(5) TO NON-ZERO BY MEANS OF SUeROUTINE -OLBV 390 
OUTP. FURTHER COMPONENTS OF VECTOR PRMT ARE DLBV 400 
FEASIBLE IF ITS DIMENSION IS DEFINED GREATER OLBV 410 
THAN 5. HOWEVER SUBROUTINE DLBVP DOES NOT REQUIRE OLBV 420 
ANO CHANGE THEM. NEVERTHELESS THEY MAY BE USEFUL OLBV 430 
FOR HANDING RESULT VALUES TO THE MIN PROGRAM DLBV 440 
(CALLING OLBVP) WHICH ARE OBTAINED BY SPECIAL OLBV 450 
MANIPULATIONS WITH OUTPUT DATA IN SUBROUTINE OUTP. OLSV 460 
DOUBLE PRECISION NOIH BY NOIM INPUT MATRIX OLBV 470 
(OESTRavED), IT IS THE COEFFICIENT MATRIX OF Y(XL) DLBV 460 
IN THE BOUNDARY CONDITIONS. OLBV 490 
DOUBLE PRECISION NOIM BY NOIM INPUT MATRIX DLBV 500 
(POSSIBLY OESTROYEOt. IT IS THE COEFFICIENT MATRIX DLBV 510 



OLBV 520 
OLBV 530 
OLBV S40 
XeV 550 
OLBV 560 
OLBV 570 
0L8V 580 
OLBV 590 
OLBV 600 
DLBV 610 
OLBV 620 
OLBV 630 
DLBV 640 
OLBV 650 
OLBV 660 
OLBV 670 
DLBV 680 
OLBV 690 
DLBV 700 
OLBV 710 



OF Y(XUI IN THE BOUNDARY CONDITIONS. 

- DOUBLE PRECISION INPUT VECTOR HITH DIMENSION NOIH 
(DESTROYED). IT SPECIFIES THE RIGHT HAND SIDE OF 
THE BOUNDARY CONDITIONS. 

- DOUBLE PRECISION AUXILIARY VECTOR WITH 
DIMENSION NOIM. IT IS USED AS STORAGE LOCATION 
FOR THE RESULTING VALUES OF DEPENDENT VARIABLES 
COftPUTEO AT INTERMEDIATE POINTS K. 

- DOUBLE PRECISION INPUT VECTOR OF ERItOR WEIGHTS 
(OESTROYEOI. ITS MAXIMAL COMPONENT SHOULD BE 
EQUAL TO 1. LATERON OERY IS THE VECTOR OF 
DERIVATIVES* WHICH BELONG TO FUNCTION VALUES Y AT 
INTERMEDIATE POINTS X. 

- AN INPUT VALUE. WHICH SPECIFIES THE NUMBER OF 
DIFFERENTIAL EQUATIONS IN THE SYSTEM. 

- AN OUTPUT VALUE. WHICH SPECIFIES THE NUH8ER OF 
BISECTIONS OF THE INITIAL INCREMENT. IF JHLF GETS 
GREATER THAN 10. SUBROUTINE OLSVP RETURNS HITH 
ERROR MESSAGE IHLF-ll INTO MAIN PROGRAM. 
ERROR MESSAGE IHLF>12 OR IHLF- 13 APPEARS IN CASE 
PRHr(3l-0 OR IN CASE SIGNIPRNTO) I .NE.SIGN(PRMT(2)-0LBV 720 
PRMTIll) RESPECTIVELY. FINALLY ERROR MESSAGE OLBV 730 
IHLF>14 INDICATES, THAT THERE IS NO SOLUTION OR OLBV 740 
THAT THERE ARE MORE THAN ONE SOLUTION OF THE OLBV 750 
PROBLEM. OLBV 760 

A mAUit nm Of itaf mweo jq mmiiUHi om otw lU 

TOGETHER WITH INITIAL VALUES OF FINALLY GENERATED OLBV 780 
INITIAL VALUE PROBLEM INDICATES. THAT THERE WAS DLBV 790 

POSSIBLE LOSS OF SIGNIFICANCE IN THE SOLUTION OF W.BV 800 
THE SYSTEM OF SIMULTANEOUS LINEAR EQUATIONS FOR 
THESE INITIAL VALUES. THE ABSOLUTE VALUE OF IHLF 
SHOWS. AFTER WHICH ELIMINATION STEP OF GAUSS 
ALGORITHM POSSIBLE LOSS OF SIGNIFICANCE WAS 
DETECTED, 

- THE NAME OF AN EXTERNAL SUBROUTINE USED. IT 
COMPUTES THE COEFFICIENT MATRIX A OF VECTOR Y DN 
THE RIGHT HAND SIDE OF THE SYSTEM OF DIFFERENTIAL 

EQUATIONS FOR A GIVEN X-VALUE. ITS PARAMETER LIST ,,, 

MUST BE X.A. SUflRQUTINE AFCT SHOULD MOT DESTROY X. OLBV 900 

- THE NAME OF AN EXTERNAL SUBROUTINE USED. IT OLBV 910 
COMPUTES VECTOR F ( I NHOMOGENEOUS PART OF THE DLBV 920 
RIGHT HANO SIDE OF THE SYSTEM OF DIFFERENTIAL DLBV 930 



OLBV BIO 
DLBV 820 
DLBV B30 
DLBV 840 
OLBV 850 
OLBV B60 
OLBV 870 
OLBV 880 
OLBV 690 
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0L8VL000 
DteviOLO 
0LBV102O 



EQiMTIONSI FOR * GIVEN X-V4LUE. MS PARAMETER LIST DLBV 9*0 
MUST BE X.F- SUBROUTINe FCT SHOULD NOT DESTROY X. OCBV 950 

OFCI - TH€ N*HE Of= AN EXIERHAL SUBROUTINE USED. IT OLBV 960 

COMPUTES VECTOR OF lOERIVATIVE OF THE INHOMOGEKEOUSOLBV 9T0 
PART ON THE RIGHT HANO SIDE OF THE SYSTEM Of 0L8V 990 

DIFFERENTIAL EQUATIONS! FOR A GIVEN X-VALUC. ITS OLOV •»« 
PARAMETER LIST MUST BE X.DF. SUBROUTINE OFCT 
SHOULD NOT DESTROY X. ^ 

OUTP - THE NAHE OF AN EXTERNAL OUTPUT SUBROUTINE USED 

ITS PARAMETER LIST HUST BE X.y ,OERY , IHLF, NOIN. PRMT.OLflVlOaO 
NONE OF THESE PARAMETERS (EXCEPT, IF NECESSARY. DLBVIO^O 

PRHTKI.PRMTISI,...! SHOULD BE CHANGED BY DLBV1050 

SUBROUTINE OUTP. If PRMTI5) IS CHANGED TO N0N-2ER0,0LBV1060 
SUflROOTINE DL8VP IS T6RN1NATE0, DLBVIOTO 

AUX - OOUSLE PRECISION AUXILIARY STORAGE ARRAV MITH 20 OLBV1080 

ROWS AND NDIH COLUMNS. OLBV1090 

A - OOUSLE PRECISION HOIM BY NOIH MATRIX, MHICH IS USEOOLBVllOO 

AS AUXILIARY STORAGE ARRAY. DLBVlllO 

DLeviizo 

HARKS DLBVliaO 

THE PROCEOURE TERMIMATES AND RETURNS TO CALLING PROGRAM, IF 0LBV1140 
111 MORE THAN 10 BISECTIONS OF THE INITIAL INCREHENT ARE OLBVllSO 

NECESSARY TO GET SATISFACTORY ACCURACY (ERROR MESSAGE OLBY1160 

IHLF.llI, 0LBVU70 

(2) INITIAL INCREMENT IS EQUAL TO OR IF IT HAS MRONC SIGN OLBVUBO 

(ERROR MESSAGES IHLF-12 OR IHLP-131. «.»-..-« 

131 THERE IS M3 OR MORE THAN ONE SOLUTION OF THE PROBLEM 

(ERROR MESSAGE IHLF-14), 
Ml THE WHOLE INTEGRATION INTERVAL IS MORKEO THROUGH, 
($1 SUBROUTINE OUTP MAS CHANGED PBMTtSI TO NON-ZEHO. 



SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

SUBROUTINE OGELG SYSTEM OF LINEAR EQUATIONS. 

THE EXTERNAL SUBROUTINES AFCTU,A>, FCT|X,FI. OFCr(XtOFI. 

AND OUTPlX,Y,0eRY,IHLF,NOIM,PKMTl MUST BE FURNISHED 

BY THE USER. 



0L6V1190 
OLBV1200 
0LBVi210 
0Levi220 
OLBVL230 
OLBV1240 
0LBV12S0 
0LBVL260 
DLBV 12 TO 
OLBV12B0 
OLSyi290 
DLBV 1300 
DL6VL310 
OLaV1320 
OLBV1330 



methoo 

evaluation is done using the method of adjoint equations. 

HAMMINGS FOURTH OROEH MODIFIED PREOICTOR-CORRECTOR METHOD 

IS USED TO SOLVE THE AOJDINT INITIAL VALUE PROBLEMS ANO Fl- DLeV13*0 

NALLY TO SOLVE THE GENERArfO INITIAL VALUE PROBLEM FOR Y< XI , DLBVUSO 

THE INITIAL INCREMENT PRMTOI IS AUTOMATICALLY ADJUSTED. 0LeVi360 

FOR COMPUTATION OF INTEGRAL SUM. A FOURTH ORDER HERMITEAN DL8V1370 

INTEGRATION FORMULA IS USED. 

FOR REFERENCE, SEE 

I I> LANCE, NUMERICAL METHODS FOR HIGH SPEED COMPUTERS. 

ILIFFE. LQNOON, I960, PP. 64-67. 
(2) RALSTON/WltF, MATHEMATICAL METHCOS FOR DIGITAL 

COMPUTERS, MILEV, NE« YORK/LONDON. I960, PP. 95-109. 
131 RALSTON, RUNGE-KOTTA METHOaS WITH MINIMUM ERROR BOUNDS, 

MTAC, VOL.16, ISS.80 (19621, PP. 431-437. 
141 ZURMUEHL, PR4RTISCHE MATHEMATIK FUER INGENIEJRE UNO 

PHYSIKER. SPRINGER. BERL IN/GOETT INGEN/HEIDEIBERG, 1963, 

PP. 227-232. 



CSUBROUTI 
IAUX,A) 



4t OLBWPIPRMT.B.CR.Y.DERY.NOtM.IHLF.AFCI.FCT.OFCf .OUTP, 



DIMENSION PRMTIll,B(ll,Cll>,R(ll,YUI,DERY(ll,AUX(20.Il,A{l) 
DOUBLE PRECISION PRHT,B,C,R,Y,0£RY,AUX,A.M,x,7,Gl ,HS.GU,SUn, 
1 OGL , OGU , XS T , XE NO , DE LT 

ERROR TEST 
IF(P«MT«3l»lPRMri2l-PRMTt 11 H2.1 .3 

1 IHLf=l2 
RETURN 

2 IHLF = H 
RETURN 

SEARCH FOR ZERO-COLUMNS IN MATRICES B ANO C 

3 KK—NDIM 
IB-0 



IC-0 

00 7 K»l,NOin 
AUX( 15,K>-0ERV(Kt 
AUX(1,K)>I.00 
AUX(17,KI=I.D0 
KK=KK*N01M 
00 4 1-1, NOIH 
II»KH*I 

IFIBIK IIS,4.S 
* CONTINUE 

ie-iB*i 

AUK< 1, ((1-0. 00 

5 00 6 I'l.NOIH 
II>KK*I 

IF(C( 11117,6,7 

6 CONTINUE 
IC"IC*1 

AUXI 17,K>-0.00 

7 CONTINUE 

DETERMINATION OF L3WER AND UPPER BOUND 
IFtIC-IBI6, 11,11 

8 H^PRMTI 21 
PRMT(2I=PRMT( I) 
PRMH l»=H 
PRMT(3)=-PRMTI3I 
DO 9 I-l.NDIM 

9 AUK<1T,I)='AUXI 1,1 ) 
I I'NDIM*NOIM 

00 10 I'l.II 
H=BI II 
BlI )=C( I) 
10 C(I)*H 

PREPARATIONS FOR CONSTRUCTION OF ADJOINT INITIAL VALUE PROBLEMS 
H X-PRMTI2I 

CALL Fcr(x,r) 

CALL DFCT(X,0£RY) 
00 12 I>1,N01H 
AUXtlB*Il>YII> 
12 AUX( 19, ItOERYII I 

POSSIBLE BREAK-POINT FOR LINKAGE 

THE FOLLOWING PART OF SUBROUTINE 0L6VP UNTIL NEXT BR£A^-POINT FOR 
LINKAGE HAS TO REMAIN IN CORE DURING THE WHOLE REST OF THE 
COMPUTATIONS 

START LOOP FOR GENERATING ADJOINT INITIAL VALUE PROBLEMS 
K-0 
K.K-0 
100 K»K*l 

IFIAUXI 17.KI I 108, 108.101 



0L8V1380 

DLBVt390 

DLBVI400 

OLBVI410 

0LBVI420 

OLevi430 

DL6V1440 

0CBV1450 

DLBV1460 

DLBVI4T0 

0LBVI480 

DLBV1490 

0LBV1500 

OLBVISIO 

0LBV1520 

0LBV1530 

DL6VI540 

DLBV1S50 

DLBV1S60 

DLBV I 5 70 

OLBVlSaO 

DLBV 1 590 

OLBV1600 

DLeV1610 

DLBVt620 

DLBV1630 

DLBVt640 

0L6V1650 

DLBV 1660 

OL6VI670 

0L6V16B0 

DLBV 1690 

DLBVITOO 

DLBVITIO 

DLBV1720 

OL6V1T30 

0LB¥i7<.0 

DLflVlTSO 

DLfiV1760 

OLBV1770 

DL6V17aO 

DLBV 1790 

OLBV1800 

OLBVIBIO 

OLBV1320 

DLBVia30 

OL8V1840 

DLBV I 8 50 

OLBV 1860 

DLBVlSrO 

DLBVISaO 

DLBVie90 

OLBV1900 

DLBV1910 

DLBV 1920 

DLBV1930 

DLBV 19*0 

DLBV1950 

DLBV 1960 

0LBV1970 

DLBV 1980 

0L6V1990 

OLBV2000 

DLeV2010 

OLBV2020 

OLBV2O30 

OLBV2040 

DL8VZ050 

0LBV2060 

OtBV2070 

OLBV2080 
OLBV209O 
0LBV210a 
DL6V2110 
0LBV2120 
0LBV213O 
DLBV214a 
OLBV2150 
0LBV2160 
DLBV2170 
OLBV2iaO 
DL8V2190 
DL6V2200 
0LBV2210 
OLBV2220 



INITIALUATIQN OF ADJOINT INITIAL VALUE PROBLEM 

101 X-PRHT(21 
CALL AFCTIX.A) 
SUH-O.OO 
CL-AUX< 18, Kl 
OGL -AUXI 19, Kl 

II'K ^ 

OO 10* I-l,NOIM 

H>-A(III 

DERYI ll*H 

AUX(20,II«RI1I 

YIH-O.DO 

IFU-KM0 3, I02tI03 

102 Y(I)-l.O0 

103 DGL'0GL4^*AUX( 18, I) 
10* II-II+NOIH 

XENO^PRMTt I) 

H«.O625D0«(XEN0-X) 

ISN-0 

GOTO *00 

THIS IS BRANCH TO ADJOINT LINEAR INITIAL VALUE PROBLEM 

THIS IS RETURN FROM ADJOINT LINEAR INITIAL VALUE PROBLEM 

105 1FI1HLF-10)106, 106.117 

UPDATING OF COEFFICIENT MATRIX B AND VECTOtt R 

106 00 107 l*l,NDIM 
KK-KK*'! 
H-C(KKI 

RII1-AUX(20,II*H*SUM 
II-I 

00 107 J-l,NOtM 
6(II)>B(III«H*Y(JI 

107 ll-II+NOIM 
GOTO 109 

108 KK>KK4^NDIM 

109 IF(K-NDIM)100,1L0.1 10 

GENERATION OF LAST INITIAL VALUE PROaLEH 

110 EPS-PRMT(4l 

CALL 0GELG(R,B,N0IM,1,EPS.II 
IF( I I 111, 112,112 

111 IHLF=14 
RETURN 

112 PRNT(5I=0.00 
IHLF=-I 
X-PRHT( 1) 
XEN0>PRMri2l 
H«PRMT( 31 

DO 113 I-1,NDIM 

113 Y(l»-R( 1) 
ISU^l 

11* ISH2-12 
GOTO 200 

115 ISW3— 1 
GOTO 300 

116 IFdHLF 1*00,400,117 

THIS MAS BRANCH INTO INITIAL VALUE PROBLEM 

THIS IS RETURN FROM INITIAL VALUE PROBLEM 

117 RETURN 

THIS PART OF LINEAR BOUNDARY VALUE PROBLEM COMPUTES THE RIGHT 
HAND SIDE OERY OF THE SYSTEM OF ADJOINT LINEAR DIFFERENTIAL 
EQUATIONS (IN CASE ISW»OI OR OF THE GIVEN SYSTEM (IN CASE ISM-11. 
ZOO CALL AFCT(X,AI 

IF< l$W)20l,20l,2OS 

ADJOINT SYSTEM 

201 LL«0 

00 203 H-1,NDIM 

HS>O.DO 

DO 202 L-1,N0IM 

LL=LL*1 

202 HS-HS-A(LLI*Y(L I 

203 0£RY(M)-HS 

204 GOTO (50 2, 504, 506, 40 7, 41 5, 4 1 8,608, 61 7, 632 ,634, 42 1,1 15 1, I SN2 

: GIVEN SYSTEM 

205 CALL FCTIX.DERY) 
00 207 M-1,N0IM 
LL^'N-NDIH 
HS>0.00 

DO 206 L-1,N0IM 
LL>LL*NDIM 

206 HS>HS«^A(LL)*Y(LI 

207 OERV(MI-HS*DERY<M) 
GOTO 20* 

- THIS PART OF LINEAR BOUNDARY VALUE PROBLEM COMPUTES THE VALUE Of 

INTEGRAL SUM, WHICH IS A PART Of THE OUTPUT OF ADJOINT INITIAL 
: VALUE PROBLEM MN CASE ISW-O) OR RECORDS RESULT VALUES OF THE 

; FINAL INITIAL VALUE PROBLEM (IN CASE ISM-ll, 

300 IF(ISW)301,301,3D5 

: ADJOINT PROBLEM 

301 CALL FCT(X,R) 
GU-O.DO 
DGU-O.DO 

00 302 L-1,N0IM 
GU-GU*Y(LI*RILI 

302 0GU«DGU*DERY(L1*R(LI 
CALL DFCT(K,R) 

00 303 L-1,N0IM 

303 DGU-OGU*YlL)*RlL» 

5UM-SUH*.500»H» I (GL*GUI». 1 666666666666666 700«H*( OGL -DGU) I 

GL-GU 
OGL *DGU 
30* IFI ISH3)116,*22,61B 

C 

C GIVEN PROSLfM 

305 CALL OUTPIX, Y, OERY, IHLF, NDIH, PRMTI 
IF(PRHT<9I»11T,30*, 117 

: POSSIBLE BREAK-POINT FOR LINKAGE 

: THE FOLLOWING PART OF SUBROUTINE DL6VP SOLVES IN CASE ISW«0 THE 

ADJOINT INITIAL VALUE PROBLEM. IT COMPUTES INTEGRAL SUM ANO 
: The VECTOR Y OF DEPENDENT VARIABLES AT THE LOWER BOUND PRMTIl). 

IN CASE ISU-I IT SOLVES FINALLY GENERATED INITIAL VALUE PROBLEM. 
*00 N>1 

XST-X 

IHLF-0 

00 401 I-1,N0IM 

AUX( 16, 11=0.00 

AUXd.I l-YIII 



OLBV2230 

0LBV2240 

0LBV22 50 

0LBV2260 

OLBV2270 

DLBV22 80 

OL6V2290 

OLBV23DO 

OLBV2310 

OLeV2320 

DLBV2330 

DLBV2340 

0LBV23S0 

0LBV2360 

DL8V2370 

DL6V2380 

0LBV2390 

DLBV2*00 

OLBV2410 

DL8V2*20 

DLBV2*10 

DL6V2440 

0LBV24S0 

DLBV2460 

XBV24T0 

0L6V2480 

DL&V2490 

DLBV2500 

0L6V2S10 

DLBV2520 

OLeV2530 

DLBV25*0 

0LBV2550 

0LBV2960 

0LBV2ST0 

0L8V2580 

DL6V2590 

OLBV2600 

OLBV2610 

DLBV2620 

0LBV2630 

0LBV2640 

0LBV265a 

0LBV266a 

0LBV2670 

0LBV26a0 

DLBV 2690 

OLBV2T00 

0LeV2TL0 

OLBV2720 

DLBV2T30 

DLBV27*0 

DL6V2T50 

DLBV2760 

DLeV2770 

DLBV27S0 

DLBV2790 

0L8V28OO 

OLBV2810 

OLav2B20 

0LaV2830 

OLBV2840 

0LBV2850 

OLBV2860 

0LBV2fiT0 

O1.BVZ880 

OLBV2890 

DLeV2900 

0LBVZ9L0 

DLBV2920 

0LeV2930 

0L8V2940 

0LBV2950 

0LBV2960 

0LBV2970 

DLBV2980 

OLBV2990 

0L6V3000 

OLBV3010 

DLBV3020 

DLBV3030 

0L6V30*0 

DI.BV3050 

DLBV 30 60 

OLBV3070 

0LBV3080 

0LBV3a90 

0LBV3100 

OLBV3110 

OLBV3120 

OLBV3130 

OLBV3140 

DL6V3150 

OLBV3160 

DLBV3170 

OLBV31B0 

OLBV3190 

OLBV3200 

0LBV3210 

0L6V3220 

DLBV 32 30 

OL6V3240 

0LBV3250 

0LBV3260 

OL8V32 70 

0LBV3280 

DLBV 3290 

0LBV3300 

DLBV3310 

0LBV332Q 

0L8V3330 

0L6V3340 

OLBV3350 

QLmm 

Dt8V33r0 
OLBV3380 
DLaV3390 
OL6V3400 
0LaV3410 
0LBV3420 
OLBV3430 
0LBV3440 
DLBV3450 
DLBV 34 60 
0LBV34 70 
0L6V3*8a 
DLBV 3*90 
0LBV3S00 
OLBV3510 
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401 AUX(8. II«OEftY(l) 
ISMl-1 

GDTO 500 

c 

♦02 X»X*H 

00 403 I'^l.NOIH 
' 403 AUX(2rI}-Yfll 

c • ^ 

C INCRENENr H IS TESTED BV MEANS OF SISECTION 

404 lHLf>IHLF*l 
K«X-H 

00 405 I-LiNOIN 

405 AUXI4, [)-AUX(2,[) 
H-.500*H 

N-l 

GOTO 500 

c 

406 X»X*H 
ISU2-4 
GOTO 200 

407 H'Z 

OO 40e I'l.NOIN 
AUXIZ.II'Ydl 
4Ca *UX(9, I )>OERY(I I 
ISHl-J 
GOrO 500 

c 

C TEST ON SATISFACTORV ACCURACY 

409 00 414 I>L|NOIH 
2-OAB5( V( I) ) 
tF(Z-l. 001410. 411. 411 

410 Z>1.00 

411 0ELT-.0666666666A66fr«66r00*0AB5( Yd l-AUXI4tl | ) 
lFIISWI4n.413.4L2 

412 DeLT-AUXU5.n*0ELr 

415 IF(0ELT-2*PRNT(4I 1414,414.429 

414 CONTINUE 
C 

C SATISFACTORY ACCURACY AFTER LESS THAN II BISECTIONS 

X»X»H 
1SW2"5 
GOTO 200 

415 00 4U I-l.NOIM 
AUXt3,I}-rUI 

416 AUXI to. I)>OERY(I ) 

ISWl-4 
GOTO SQO 

c 

417 N*l 
X-X+H 
ISU2=6 
GOTO 200 

416 X-XST 

00 419 I-l.NDIH 

AUXdl, I)>OERY(l I 
4t90V(f }>AUX(t.I l*H*t . 3 7S00* AUK < a, II +. 791666666666664 700*AUX (9, II 
l-.20e3333333333333300*AUX(tO.[)«.04L66666666666666700*OEity(n) 

420 X»X*H 

ISM2>11 
GOTO 200 

421 ISU3«0 
GOTO 300 

422 IF(N-4)423.600.600 

423 00 424 I>l.NOlH 
AUK(Nt t )>YCM 

424 AUX(N*7tI)-0ERV(l) 
IFIN-31425. 427*600 

C 

425 00 426 I-1,N0IM 
0ELr'AUX(9.[l«AUX(9,[» 
D£tT-OEtT*OELT 

426 Yd l*AUX(l,l I + . 3333 33333333 3333300*H*(AUX(S, I )>OEt.r«AUK( 10. n I 
GOTO 420 

C 

427 00 428 I*1.N0[H 
0£Lr*AUX19tII*^AUXI10.n 
OeLT-DELT^OELT+OELT 

428 Y( I)^AUX( 1. IU.3r50 0*H*(AUX(9, II »OELT*AUX< 1 1 , I ) I 
GOTO 420 



NO SATISFACTORY ACCURACY. 
429 ir([HLF-tOI404,430,430 



H MUST BE HALVED. 



C NO SATISFACTORV ACCURACY AFTER 10 BISECTIONS. ERROR MESSAGE. 

430 IHLF-11 
X^X+H 

IFIISU) 105.105*114 
C 

C THIS PART OF LINEAR INITIAL VALUE PROBLEH COMPUTES 

C STARTING VALUES 8Y MEANS OF RUNGE-KUTTA HETHOO. 

500 I'K 

DO 501 I>1*N0IN 
X>H*AUX1N»7.[I 
AUK (5. I )>X 

501 YI M-AUXf N, I )4-.400«X 
C 

X«Z».4D0*H 
ISM2-1 
GOTO 200 

502 00 503 I'l.NOIH 
X=H*OERY( I 1 
AUXI6,[)>=X 

503 Yd I ■AUXIN. I !«-. 2969 776092477536000* AUX( 5.1 1*. 15875964497 103583D0* 
C 

X-^Z + .45 573725421 878 943D0*H 

ISMZ-2 

GOTO 200 

504 00 505 I*1,N0IN 
X=H*DERY1 n 
AUX(7,I )-X 

505 Y( I |. AUXIN, I J».2l«l 003882259204 7OO»AUX(5,[»-3,05096514849293OflO0* 
1AUX[6, I U3. 832 864 76046 r010300*X 

C 

X = Z*-H 
1SU2-3 
GOTO 200 

506 DO 507 I-l,NOin 

50 TOVm-AUXC N.I >*.! 747602 8226269037OO*AUKI5,n-.S5148O66287873294O0* 

UUXI6,II+l.2055355993965235OO*AUXl7,Il*.17U84781219519O3D0* 
2H«0ERr( I) 

X"Z 

GOTO! 402,406,409,41 71 ,IS**I 
C 
C POSSIBLE BREAK-POINT FOR LINKAGE 

C STARTING VALUES ARE COMPUTED. 



OL6V3520 

0(.8V35 30 
DLBV3540 
OLBV3S50 
0LBV3560 
OLBV3570 
0LBV3580 
0L6V3590 
0LBV3600 
DLBV3610 
OLBV3620 
0L8V3630 
0L6V3640 
DLBV3650 
OCBV3660 
0L8V36T0 
OLBV3680 
0LBV3690 
DL8V3700 
0LBV3T10 
0LBV3720 
OLBV3730 
0LBV3T40 
0LeV3 750 
0(.BV3r60 
DLBV3770 
OL8V3780 
OLBV3790 
OLBV38O0 
0LeV3610 
0LBY3aZ0 
OLBVSeSO 
0LBV3840 
OCBV3850 
OLBV3860 
OCeV3ST0 
0L6V3860 
0LBV3a90 
DLeV3900 
OL8V3910 
0L6V3920 
0LBV3930 
0LeV3940 
OLaV5950 
OLBV3960 
OLBV39T0 
DL8I/3980 
OL6V3990 
0L8V4000 
DL6V4010 
D16V4020 
DI.BV4030 
OLBV4040 
OLBV4050 
OLBV4060 
OLBV40T0 
OLBV4080 
OLBV4090 
DLeV4L00 
DLBV4110 
0LBV412D 
0LBV4130 
OLBV4140 
DLBV4I50 
OL6V4160 
OC6V4170 
DLflV4iaO 
OLe¥4190 
DLBV4200 
OC8V4210 
IM.BV4220 
OLBV4230 
0L6V4240 
0L6V4250 
OLBV4260 
OLBV4270 
OLBV4280 
OLBV4290 
Dt8V4300 
0LBV4310 
0L8V4320 
OL8V4330 
DLev4340 
0LBV4350 
0LBV4360 
DLBV4370 
OLBV43aO 
DLBV4390 
0LBV4400 
0L8V4410 
OLBV4420 
0LBV4430 
OL8V4440 
0LeV4450 
OL6V44&0 
0LBV447a 
0LBV44B0 
OL 8V4490 
DLBV4500 
DLBV4510 
DLBV4S20 
0L8V45 30 
0LBV4540 
OLBV4550 
DLBV4560 
XOL6V45 70 
01.SV4580 
DLBV4590 
OL8V4600 
0LSV4610 
DLBV4&20 
0LaV4630 
OL BV4640 
0L8V4650 
0LBV4660 
0LBV*6T0 
0LBV4680 
OL8V4690 
0LBV4T00 
OL8V4710 
OL6V4720 
OL8V4730 
DLBV4740 
OL6V4750 
OLBV4760 
OL8Y4770 
OLBV4780 
Di6V4790 
OLBV4a00 



: NOW START HAMMINGS MOOIFIEO PREOICTOR-CORHECTOR MeTHOO. 

600 ISTEP-3 

601 tF(N~8l604,602.604 

N=8 CAUSES THE ROWS OF AUX TO CHANGE THEIR STORAGE LOCATIONS 

602 00 603 N=2,7 

00 603 I*1,N0IH 
AUX(N-l*l)MUX(N,n 

603 AUX{N«-6.I)>AUXIN*7, I I 
N»7 

N LESS THAN 8 CAUSES N+l TO GET N 

604 N>N»1 

COMPUTATION OF NEXT VECTOR Y 
00 605 l*l,NOIH 
AUX(N-UII-YII) 

605 AUX(H«'6,I)<0ERY(I ) 
X>X*H 

606 ISrEP"ISTEP*l 
DO 607 I-UNOIM 

ODELT-AUXIN-4, 1 )*1. 3 3333333333333330 0*H*( AUXI N*6, It* AUXI N*6, 1 1- 
lAUX(N>5,l)*-AUKIN«-4.I|4-AUXIN+4,ni 
VI Il-0ELT-.92S619a3 471O743a0O*AUX(16.( I 

607 AUX(16, ll'OELT 
PREOICrOR IS MOW GENERATED IN ROW 16 OF AUX, NODIFIEO PREOICTOA 

06LT MEANS AN AUXILIARY STORAGE. 



IS GENERATED IN 



ISW2«7 

GOTO 200 

DERIVATIVE OF NOOIFIEO PREDICTOR IS GENERATED IN 0£«V. 

608 00 609 [>L.N0IH 



OLBV4S10 
OL6Vt,A20 
OL8V4830 
OLBV4840 
OLBV4650 
0LBV4860 
O(.6V4e70 
0L8V4880 
0LBV4890 
OLBV4900 
OLBV49iO 
OLBV4920 
0l.ev*9 30 
DLBV4940 
OL6V4950 
0L6V4960 
0LBV49r0 
0LeV4980 
OLBV4990 
0LBV5000 
OLBVSOIO 
OLBVS020 
OLev5030 
OLBV5040 
OLBV5050 
0LBV5060 
OL6V5O70 
OLeV5080 
OL6V5090 
OL6V5100 
0LBV5110 
DLBV5120 
1M.6V5130 



OD£LT-,125OO*(9,00*AUXIN-l,II-AUX(N-3,ll*3.D0»H*(D£Ryd»*AUX(N+6,I)0LeV5l4O 



l<-AUX<N»6t I)-AUXIN+5.I ) )) 
AUXI 16. n>AUX< 16. I ) -DELT 
609 r(I}-0ELT*,0743S016528925620D0*AUX(16,I I 

c 

C TEST WHETHER H MUST BE HALVED OR DOUBLED 

OELr=0.00 
00 616 I-l.NOIM 
2*DABS( Villi 
IF(2-1. 00)610, 611, 611 
6L0 Z^l.DO 

611 2=0AeS(AUXn6.I ll/Z 
IFI ISHI613, 613,612 

612 Z-AUXI L5. I )*Z 

613 IFlZ-PRHr(4))614,614,628 

614 IF(0ELr-ZI615*6L6,6L6 

615 OELT-Z 

616 CONTINUE 
C 
: H MUST NOT ae halved, that means Yd) ARE GOOD. 

ISW2>8 
GOTO 200 

617 ISW3=1 
GOTO 300 

618 IF(H«{X-XEN0))619,&21,621 

619 IF(DA8S(X-XEN0I-.190*DABS(H} 1621.620.620 

620 IF(0£LT-.0200*PRMr(4ll622,622t601 

621 IFI ISWI 105*105.117 

: H COULO BE DOUBLED IF ALL NECESSARY PRECEEDIHG VALUES ARE 
AVAILABLE. 

622 IFI IHLF 1601*601,623 

623 IFIN-71601,624,624 

624 IFI ISTEP-41601,625,625 

625 IHOD-I STEP/2 
IFI I STEP- IMOD- 1 HOD) 601, 626, 601 

626 H*H»H 
IHLF=IHLF-1 
ISTEP'O 

00 627 I=1,N0IM 
AUXIN- It I)>AUXIN-2. I) 
AUXI N-2 , 1 1 >AUXI N-4, 1 ) 
AUX(N-3,I)'=AUX(N-6,I) 
AUX { N+6 , 1 1 =AUXI N*5. n 
AUX(N4-5,I)^AUX(N*-3.II 
AUX(N*'4.n-AUX<N*l* It 
0ELT>AUXIN«6,I|4-AUX(N4-5,I) 
0£LT=OELT*DELT*DeLr 

6270AUXI 16* I)>B.962962962962963D0«(Y(I|-AUX(N-3,[ I I 
l-3.36Ullllllllllll00*H«(0€RY(n+OELr»AUXlN*4,IM 
GOTO 601 



C H MUST BE HALVED 

628 IHLF-IHLF+1 
IF1IHLF-10I630.630.62 9 

629 IF(ISW}105, 105,114 

630 H='.500*H 
rSTEP-0 
00 631 I>1,ND1N 

OYI I I -.390 6250-2*18. 01* AUX (N-l, 1 1 «-135.00*AUX(N-2 , 
l+ALIXIN-4,I 1 1-. 11718 7500*1 AUXIN+6, I 1-6. DD*AUX(N+5 
OAUX1N-4,I)*.3906250-2*(12.DO«AUX(N-l.I)«t35.00*AUXIN-2.I>+ 
1 108. 00* AUX(N-3,1>«-A UX( N-4. 1U-. 02343 7500*( AUXI N+6, II «- 
218.00*AUX(N+5*I>-9.00*AUX(N«4,IM*H 
AUX{N-3.I)=AUX(N-2, I) 

631 AUX(N+4,I l=AUX(N+5. I ) 
DELT-X-H 
X-0£LT-(H+H) 

ISW2=9 
GOTO 200 

632 00 633 I=1*N0IN 
AUX<N-2,I)-Yd) 
AUX(N«-5,I)-0ERYd) 

633 Y( I)>AUXfN-4,l) 
X=X-IH*HI 
ISW2*t0 

GOTO 200 

634 X-DELT 

DO 635 I-1*N0IH 

OELT'OELTt-OELI+OELT 
OAUXI 16, 1 1-8. 9629629 62 96296300* UUXIN-l. I l-Y (Id 
l-3.361111Ullimil00*H*(AUXIN*5,I»*0ELT*0ERV(in 
635 AUX(N4'3*d->0ERY([l 
GOTO 606 

END OF INITIAL VALUE PROBLEM 
END 



0L6VS15Q 
OLBVS160 
OLBVSITO 
0L8V5180 
0LBV5190 
DLeV5200 
0LBV5210 
0L8V5220 
DLeVS230 
OL6V5240 
0LBV52 50 
OLBV5260 
DLBV52rO 
OLBV5280 
DLBV5290 
0LBV5300 
OL8V5310 
OLBV5320 
OLBV5330 
0LBV5340 
0LBV5350 
0LBV5360 
DLBV5370 
DLSV53aO 
0LBVS390 
0LeV5400 
DL6V5410 
DLBVS420 
DLBV5430 
0LBV5440 
OLBV54S0 
OLBVS460 
0LBV5470 
0L6VS480 
0L6VS490 
OL6V5500 
0L8V5510 
0LBVS520 
OLeV5530 
DLBV5540 
OL8V5550 
0LBV5560 
DLBV5570 
0LBVSS80 
0LBV559O 
0LeV5600 
DLBV5610 
0LBV5620 
0LevS630 
OLBV5640 
0LBV5650 
DLBV5660 
OLBV56 70 
0L6V56a0 
0L8V5690 
0LBV570O 
0LBV5710 
OLBV5720 
4.01*AUX(N-3* tlOLav5730 
1-AUXIN4-4*II|*K OLBV5740 
OLBV57S0 



DLBV5 760 
0LBV5770 
OLSV5780 
DLBV5 790 
0LBV5a00 
0L8V5810 
0LaV582a 
DLBV5830 
DLBV5840 
DL8V5850 
0LBV5860 
0LBV5870 
0LeV5ad0 
DLBV5a90 
0LBV5900 
OLBV5910 
OLeV5920 

0LSV5930 
OLSV5940 
0LBV59S0 
0LBVS960 
0L8V5970 
DLBV59aO 
0LBV5990 
0LBV6OO0 
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Siaecial Functions 

Subroutine GMMMA 

This subroutine computes the value of the gamma 
function for a given argument x. 
The calculation of the gamma function, r (x) is de- 
fined for X > by: 



r(x) 



= J t • e 





dt 



(1) 



This function satisfies the recurrence relation: 

r(x) = (x-1) • r(x-l) (2) 

which defines r(x) for any x not a negative integer. 

Note that when x is a positive integer, r(x) = (x-1)! 

To compute r(x) for x > 1, apply the recurrence (2), 
r times until l<x-r=y£ 2. Thus, for x > 1: 

r(x) = (x-1) (x-2) . . . (x-r) r(y) (3) 

r(y) is computed from the following formula: 

r(y) « 1 - 0, 57710166(y-l) + 0, 98585399(y-l)^ 

3 4 

- 0. 87642182(y-l) + 0. 83282120(y-l) 

- 0.56847290(y-l)^ + 0.25482049(y-l) 

- 0. 05149930(y-l)'^ 

(4) 



SUBROUTINE CIMNA 

PURPOSE 

COMPUTES THE GAHMA FUNCTION FOR A GIVEN ARGUMENT 

> 

USAGE 

CALL GMHHAIXX.GXtICRI 

DESCRIPTION Of PARAMETERS 

XX -TH£ ARGUMENT FOR THE GAMMA FUNCTION 

GX -THE RESULTANT GAMMA FUNCTION VALUE 

lER-RESULTANT ERROR CODE WHERE 
I€R-0 NO ERROR 

1ER>1 XX IS WITHIN .000001 OF BEING A NEGATIVE INTEGER 
IER>Z XX GT STt OVERFLOW, GX SET TO 1.0E7$ 

REMARKS 
NONE 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

THE RECURSION RELATION AND POLYNOMIAL APPROXIMATION 

BY C.HASTINGStJR. • ■ APPftOXIHATIDNS FOR DIGITAL COMPUTERS*. 

PRINCETON UNIVERSITY PRESS, 1995 



SUBROUTINE GMMHA( XX tGX, lERI 

IFIXX-57. 16.6*^ 
4 1ER=2 

GX"l.eT5 

RETURN 
6 X>XK 

ERR-L.OE-6 

IER=0 

GX-l.O 

IFtK-2.0l50,5a, 15 
10 IF{K-2.0U10,I10,15 
15 X=X-1.0 

GX=GX*X 

GD TO 10 
50 If (X-1. 0160,120, 110 

SEE IF X IS NEAR NEGATIVE INTEGER OR ZERO 

60 IF (X-ERRI 62,62.60 
62 Y=FL0AT<IMT1XH-K 

IF(ABS(Y)-ERRI130.130,64 
64 IF( l.0-Y-ERR)130,130,70 

X NOT NEAR A NEGATIVE INTEGER OR ZERO 

TO IF(X-1.0)80,B0*110 
BO GX=6X/^X 

GO TO 70 
110 V-X-l.O 

CY*l.O+Y*l-0.57T10l7*Y*l*0.9a5S540*V*(-0,«T642ia*Y***0.8J2a212* 
lV«l-0.5684729+Y*(*0. 294 8205*r*(-0. 051499301 DIM) 

GX*GX*GY 
120 RETURN 
130 IER>1 

RETURN 

END 



10 



♦c 



GHHM 

. GMMH 
GMMM 
GMMH 
GMHM 
GMMM 
GHHM 
GMMM 
GMMM 9D 
GMMM 100 
GMMH 110 
GHHM L20 
GMMM 1}0 
GHHM 140 
GHHM ISO 
GHHH 160 
GMHM 170 
GNHH 180 
GHHM IIO 
GMMH 200 
GHHM 210 
GMMM 220 
GMHM 2)0 
GHHM 240 
GMHH 250 
GMMM 260 
GHHM 270 
GHHM 280 
GHHM 240 
GMHH 300 

.GMHH 310 
GNHH 320 
GHHM 330 
GMMM 340 
GMHM 350 
GMHH 360 
GMMM 370 
GMMH 380 
GMMM 390 
GMHM 400 
GMHM 410 
GMHH 420 
GMHH 430 
GMMH 440 
GMMH 4S0 
GMHH 460 
GMMH 470 
GMMH 48C 
GMHH 490 
GMMM 500 
GMHM 510 
GMMM 520 
GMMH 5 30 
GMMM S40 
GMMM 550 
GMMH 560 
GMHH 5 70 
GMMH 580 
GMMM 590 
GMMH 600 
GMHH 610 
GMMM 620 
GHMM 630 
GMHH 640 
GMMM 6S0 
GMHM 660 
GMMH 670 
GHHM 680 
GMHH 690 



For X < 1, the recurrence (2) is taken in the direc- 
tion of decreasing n, giving: 



r(x) = 



r (y) 



x(x+l) (x+2) . . . (x+r-1) 
where l<x + r=y^ 2, 
As before, r(y) is computed using equation (4), 



(5) 
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Subroutine DLGAM 

This subroutine computes the double-precision 
natural logarithm of the gamma function of a^iven 
double-precision argument, x, where 10"9 ^ x 
< 10^0. The Euler-McLaurin expansion, to the 
seventh derivative term, is used. For x > 0; 

log r (x) - (x - 1/2) log X 

+ 1/2 log 27r - X + 1/12 X - 1/360 x^ 

+ 1/1260 x5 - 1/1680 X 7 (1) 

This expression is very accurate for x > 18, If 
X < 18, X is replaced by z = k + x, where k is an 
integer such that z > 18. Logr(z) is then evaluated 
by (1), and log x + log (x + 1) + . . • + log 
(x + k - 1) is subtracted to obtain the desired 
result. 

If X is between lOlO and 10^0^ terms of lowest 
order in (1) are neglected, and logr(x) is computed 
as: 



log r(x) = X (log (X) - 1) 



(2) 



Subroutine DLGAM is available in a double- 
precision format only. If the single-precision value 
of the log gamma function of a given single-precision 
argument is desired, subroutine GMMMA should be 
used along with the FORTRAN-supplied natural 
logarithm function. 

For reference see M. Abramowitz and 
I. A. Stegun, Handbook of Mathematical Functions. 
U.S. Department of Commerce, National Bureau of 
Standards Applied Mathematics Series, 1966, 
equation 6. 1.41. 



SUfifOUTINE DLGAM 
PURPOSE 

ccMPures the jouble pbecisicn natural logafith** bF the 
GAMHi FUNCTION Of 6 GIVEN COJBLE PitECISION iflGUMENT. ' 

USAGE 

CALL [}LGAi>1IXjr,DLNr.,IEq} 

DeSCBIPriJ\ OF PARA**tT£RS 

KX - THE noUSLE PRECISION ARGUMENT FOR THf LCG GAMMA 

FUNCTIO**. 
OLNC - "^HC CESULTftNT rJOUPLE ""ECISION LOG GAWMfi FU^C^ID^■ 

VALUE. 
ie« - RESULTANT FRROR CQDE ^HERE 

16*= NO ER^DR. 

I^^ = -l NX IS WITHIN 10*»(-<)) Of BEING 7EFD OP XX 

IS NEGATIVE. DLNG IS SET TD -1.0075. 

ICH = *I XX IS GREATER THAN 10**70. DLN"; IS SET TO 

♦ 1.0I3T5. 



SUBRf^UII^IES AND FU^CTIJN SUBPROGRAMS REQUIRED 

NONE 

METHQO 

THc EULER-f'CLAURlN EXPANSICN Tp THE SEVENTH 5cR!V4TIVE TERI 
IS j;tD. ^S GIVEN 1Y M. AaRAM,:;HlTZ AND I. A. STLiGU^, 
'HA'JU^OJK, rjF MATHEMATICAL FUNCTIONS', U. S. n>'.P4RTM£NT Of 
CCIHtKCS. NATIONAL <iUHiAU OF ^tanqacDS AoPLiFO M,^THEHATICS 
ScflifS. niSfi, EOUflTlLlN /.. I.-iL. 



60 



SUBftOUTIh'f OLGA^t KX.nLNG. lE'.l 

DOUBLE PRECl^IGN Kl.ZZ.TfcftM.fZi.OLNC 

!ER=C 

IF (XX- i .Ol'T t .'.,2. I 

I IFax-1.070J 3,q,<= 



SEE IF 



IS NEAfc ZEKC CH NEGATIV 



2 IFiXX-l.r-'JI 3, It-^ 

3 IEB=-l 
DLNGs-LDTS 
GO TQ 10 

XX GfiEATEi* THAN lERD AND LESi THAN OH EQUAL TC I.O+IO 

<. TEfiM=l.aO 

!> IFtll-ia.OO) 6,6t7 

f, TFPH-TE<:m,77 

II=ZZ*1. 00 

GO in 5 

DLNG -IZ !-r.5001*ljt.CG(Z2 t-?Z +C.9 1693B53 320<.fe727 -OtrG(TEHM)* 
I (1. DO /ZZ lt( .8 33333 3333333333(3-1 -( R?2« (. 277777 77T7T777770-2 *iRl2 
2(.793660 7 936507<»56D-3 -(RZ?e( .59523.309523809520-33 H ) 1 U 

GO TO 10 

XX GKEfTEP THft'J 1.0*10 &'^D LEiS THSN 1.0*70 

8 OLNG=ZZ" lULCGUZ l-l.DO> 

GD TO 10 

XX GSEATtP IHaM CIR £6UAL IL 1.0*70 

<) ltR=*l 

DLNG=1.')75 
10 PJ^TURN 
ENC 



DLGA 
.OLGA 
OLGA 
OLGA 
OLGA 
DLGA 
OL&A 
DLGA 
DLGA 90 
OLGA 100 
DLGA lit) 
OLGA 120 
DLGA 130 
OLGA 140 
DLGA 150 
DLGA 1^0 
DLGA I TO 
OLGA lao 
DLGA 110 
DLGA 200 
OLGA 210 
OLGA 220 
DLGA 230 
DLGA 2<.0 
DLGA 250 
DLGA 261 
DLGA 270 
OLGA 280 
DLGA 2Q0 
OLGA 300 
OLGA 310 
DLGA 320 
DLGA 330 
OLGA 340 
DLGA 3^0 
OLGA 3«0 
OLGA 370 
.OLGA ?eo 
OLGA 390 
OLGA 400 
OLGA <>10 
DLSA 420 
DLGA 430 
DLGA 4'.0 
DLGA 450 
OLGA 460 
DLGA 'tTO 
DLGA 4R0 
DLGA 490 
OLGA SCO 
OLGA 510 
OLGA 520 
OLGA 530 
OLGA 540 
DLGA 550 
OLGA 560 
DLGA 570 
OLGA SHO 
CLGA 590 
OLGA 600 
OLGA 610 
OLGA 620 
'OLGA 630 
OLGA 6^0 
OLGA 650 
DLGA 660 
DLGA 670 
OLGA 600 
DLGA 690 
OLGA 700 
OLGA 710 
DLGA 720 
DLGA 730 
OLGA 740 
OLGA 7-iO 
DLGA -760 
CLGA 770 
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Subroutine BESJ 

This subroutine computes the J Bessel function for 
a given argument and integer order by using the re- 
currence relationship: 



Vl<^^ " Vl(^) = (t) ^n<^' 



The desired Bessel function is: 



(1) 



J (X) 

n 



where: 



a 



(2) 



a = F^(x) + 2 



M-2 



F„ (X) 
2m 



(3) 



m = l 

M is initialized at Mq. 
Mq is the greater of M^ and Mg where; 
[x+6] if X < 5 



M, 






[1.4x+60/x] if X s 5 



M = [n+x/4+2] 
B 

^M-2' ^M-3» ■••» ^2« ^1' Fq ^^ ^^^^^^^^'^ "®^"^ 
equation (1) with Fjyj = and Fjyj.i = 10-30. Values 

of a and Jii(x) are then computed using equations 

(3) and (2) respectively. 

The computation is repeated for M+3, 

The values of J^{x) for M and M+3 are compared: 



^ Kn^M-V'^Ws ^MV^Ws 



this value is accepted as Jn(x); if not, the computa- 
tion is repeated by adding 3 to M and using this as a 
new value for M, If M reaches Mjyj^jj before the 
desired accuracy is obtained, execution is termi- 
nated. MmAX is defined as: 



M 



MAX 



^20 + lOx-fj 

([90 + x/2] 



for x< 15 



(4) 







BESJ 10 






.....BESJ 20 






BESJ 90 


suBKOuriNE eesj 




BESJ «0 
BESJ 50 


PUDPOSE 




BESJ 60 


COWUrE THE J BESSEC fUNCTlOK FOR A CI»EN «MUnENT UNO 


OROERBCSJ 10 






BESJ ac 


USiGE > 




BESJ TO 


CALL SESJIX,N,9J,0,IERI 




BESJ 100 
BESJ ILO 


OESCBIPTION OF FMJMETEIS 




BESJ 120 


IC -THE ARCUIENT OF THE J SE&SEL FUMCTJON OESIREtl 




BESJ 130 


N -THE ORDER OF THE J SESSEL FUNCTION DESIRED 




BESJ 140 


9J -THE RESULTANT J BESSEL FUNCTION 




BESJ 150 


D -REQUIRED ACCURACY 




BESJ 160 


I ER-RESUt TANT ERROR CODE MHERE 




BESJ 170 


IER>0 NO ERROR 




BESJ IBO 


lER"! N IS NEGATIVE 




BESJ 190 


IER-2 K IS NEGATIVE OR lERO 




BESJ 200 


IER.3 REQUIRED ACCURACY NOT OBTAINED 




BESJ 210 


IER«* RANGE OF N CONPARCD TO X NOT CORRECT tSEE 


REHARKStBESJ 220 






BESJ 230 


REMARKS 




BESJ 240 


N HUST BE GREATER THAN OR EQUAL TO ZERO, BUT IT MUST 


BE 


BESJ 250 


LESS THAN 




BESJ 260 


20*10*X-X»» zn FOR X LESS THAN OR EQUAL TO 15 




BESJ 2T0 


90. x/2 FOR K GREATER THAN 15 




BESJ 280 



SUBROUTINES AND FUNCTION SUSf>KOGRAH$ REQUIRED 
NONE 



ftESJ 290 

BESJ 900 

BESJ 310 

BESJ 320 

METHOD BESJ 310 

RECURRENCE RELATION TEC>1N(QUE DESCRIBED BY H. GOLDSTEIN ANO 8ESJ 340 

R.N. rHALER**RECURRENC£ TECHNIQUES fOR THE CALCULATION OF BESJ }50 
BESSEL FUNCTIONS' «H.T.A.C..V.l3fPP.lCZ-10e ANO I. A. STEGUN 
ANO M. AaftAHOUirZt'GENERAriON OF BESSEL FUNCTIONS ON HIGH 
SPEED COHPUTERS'.H.T. A. C.tV.ll»U5T, PP. 255-257 



SUBROUTINE BESJ<XrN ,BJt0T lERI 

8J«.0 

If INI10,20.20 
\ lER'l 

RETURN 
I IF(X 130.30, 31 
I IEft>2 

RETURN 

IF(K-15.l32,32.i4 
: NT£$T*20.»10.*X-X** 2/3 

GO TO 36 
. NrEST-90.*X/2. 
. IF<N-NTESTI40.3d,38 
I IER-* 

RETURN 
t IER-0 

Nl-N+l 

BPAEV=.0 

COMPUTE STARTING VALUE OF M 

IF(X-5. 150(60*60 
> HA-Xt-d. 

GO TO TO 
) HA=l.**K+60./X 
I Na-N»IF IX(Xt/«*Z 

H2€RO>NAX0(NA.N8) 

SET UPPER LIMIT Of M 



SET F(H»,f<M-ll 

FMl'l.OE-28 

FM-.O 

ALPHA=.0 

IF(H-IK/2>«2I 120.1 1 Of 120 
llO JT--I 

GO TO 130 
120 JT»1 
HO M2-M-2 

00 160 K>1,N2 

NK««-K 

BM(t = 2."FLOAT(MKl*FHl/X-FM 

FM-FHl 

FMl^BHK 

IFIMK-N-II 150,140,150 
lAO BJ>fiHK 
150 JT--JT 

S-1*JT 
160 ALPHA>ALPHA«^BnK«S 

6MK«2.*FMl/X-FM 

IFINI1B0.170. 100 
170 BJ-BHK 
180 ALPHA-ALPHA*BNK 

BJ=ftJ/ALPHA 

IFI ABS(BJ-8PREV1-ABSID*BJI 1200*200,190 
190 BPREV-8J 

IER'3 
200 RETURN 

END 



BESJ 360 
BESJ 370 
BESJ 360 
BESJ 390 
.8ESJ 400 
BESJ 410 
BESJ 420 
BESJ 430 
BESJ 440 
BESJ 450 
BESJ 460 
BESJ 470 
BESJ 4B0 
BESJ 490 
BESJ 500 
eESJ 51C 
8ESJ 520 
BESJ 530 
BESJ 540 
BESJ 550 
BESJ 560 
BESJ 5 70 
BESJ 580 
BESJ 590 
BESJ 600 
BESJ 610 
BESJ 620 
BESJ 630 
BESJ 640 
BESJ 650 
BESJ 660 
BESJ 6ro 
BESJ 680 
BESJ 69C 
BESJ TOO 
BESJ 710 
BESJ 720 
BESJ 730 
BESJ 740 
8ESJ 750 
BESJ 760 
BESJ 770 
BESJ 780 
BESJ 790 
BESJ 800 
BESJ 8 10 
&ESJ 820 
BESJ 830 
BESJ 840 
BESJ 850 
BESJ 860 
BESJ 870 
BESJ 880 
BESJ 890 
8ESJ 900 
BESJ 910 
BESJ 920 
BESJ 930 
BESJ 940 
BESJ 950 
BESJ 960 
BESJ 970 
8ESJ 980 
BESJ 990 
BESJIOOO 
BESJIQIO 
BESJ1020 
BESJIOSO 
0ESJ1O4O 
BESJ1050 



for X > 15 
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Subroutine BESY 

This subroutine computes the Y Bessel function for 
a given argument x and order n. The recurrence 
relation: 



\.1<-^ 



(^) 



Y^(x)- Y (X) 
n n-l 



(1) 



is used for this evaluation, 
For X > 4 

Y 



+ Qq(x) cos \^x-— j 



(2) 



Q^(x) sin I X ^ 



Pq(x), Qq(x), P^(x), andQ^(x) are: 



(3) 



^ 



-n Po(t-)= 0- 



3989422793 - 0. 0017530620t 



+0. 0001734300t^ - 0. 0000487613t^ 



10 



+0. 0000173565t - 0. 0000037043t 

(4) 






^ 



H^ 



0. 0124669441 + 0. 0004564324t 



-0. 0000869791t^ + 0. 0000342468t^ 



-0. 0000142078t^ + 0. 0000032312tl0 

(5) 

0.3989422819 + 0. 0029218256t^ 



-0. 0002232030t^ + 0. 0000580759t^ 



-0.0000200920t^ + 0. 0000042414f 



10 



(6) 



ti^^i(7) 



0.0374008364 - 0.0006390400t 

4 6 

-0.0001064741t - 0.0000398708t 



-0.0000162200t - 0. 0Q0OO42414t 



10 



(7) 



where t =■ 



For X ^ 4 



r , . ^ -T^ f i>in/x\ 1 



•+ y - H 



(8) 



where: 



m 



y -^ if m 5= 1 



(9) 



if m = 

and r = Euler's constant = 0.5772156649 

l' ' TTX IT ^, ^ ' \ 2/ 

m=l ^ ' 



, X 1 

• loe — + v - H H 

m: (m-1): ^2 m 2m 



(10) 



SUSAOUriNE BESY 



PURPOSE 

COHPUTE rH€ 



B£SV 

BCSY 

BESY 
B€SY 
BESY 
BESY 
^BESSEL FUNCTION FOR A GIVEN AdSUHENf AND OADERBESY 

BESY 



USAGE 

CALL a£$T<X, 



*I.BY.IER) 



OESCfllPnON OF PARAMETERS 

X -THE ARGUMENT OF THE V BESSEL FUNCTION DESIRED 
N -THE ORDER OF THE V BESSEL FUNCTION OESIREO 
BY -THE RESULTANT Y BESSEL FUNCTION 
lER-RESULTANT ERROR CODE WHERE 

lER'O NO EAROA 

IER-1 N I S NEGATIVE 

IER>2 X IS NEGATIVE OR ZERO 

IER*3 BY HAS EXCEEOEO MAGnITUOE OF 10**70 

REMARKS 

VERY SMALL VALUES OF X NAY CAUSE THE RANGE OF THE LIBRARY 

FUNCTION ALOS TO BE EXCEEOEO 

X MUST ae. GRE ATER THAN ZERO 

N MUST BE GREATER THAN OR EQUAL TO 2ER0 

SUBROUTINES AND FUNCTION SUBPROGRANS REQUIRED 

HONi 

METHOD 

RECURRENCE RELATION AND POLYNOMIAL APPRGXINATION TECHNIQUE 
AS DESCRIBED BY A. J.N.HI TCHCOCK. ■POLYNOMIAL APPROXIMATIONS 
TO BESSEL FU-HCTIONS OF ORDER ZERO AND ONE AND TO RELATED 
FUNCTIONS*. M.T.A.C. V, 11 ,I95T»PP.a6-88« ANO G.N. WATSON, 
•A ntEATISE ON THE THEORY OF BESSEL FUNCTIONS*, CAMBAIOGE 
UNIVERSITY PRESS, 1958. P. 62 



40 
50 
60 
70 
80 

BESY 90 
SESY 100 
BESY 110 
BESY 120 
BESY 130 
SESY 140 
BESY ISO 
BESY 160 
BESY ITO 
SESY 180 
BESY 190 
8ESV 200 
BESY 210 
BESY 220 
BESY 230 
BEST 240 
BESY 250 
BESY 260 
BESY 270 
BESY ZBO 

BESY 300 
BESY 310 
BESY 320 
BESY 330 
BESY 3«0 
BESY 350 
BESY 360 
SESY 370 
BESY 380 
.BESY 390 
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SUBKOUTlNf ftEST(X«NtfiY«IEn) 

CHECK flK ERROAS IN N ANO X 

IFINI 180* lOtlO 
10 lER-O 

IF(KU90. 190,20 

SRANCH IF X LESS THAN OR EQUAL 4 

20 IF<X-«.0140,40,30 

COMPUTE YO ANO Yl FOR X GREATER THAN h 

30 ri>4.0/X 

T2«Tl»Tl 

P0-l((l-.000003T043«T24-.00001T356SI*r2-.000048T613l«r2 
1 «.0001T343}*T2-.001TS3062I*T2«.3989A23 

QO-(((l .0O00032>12*T2-.O000l42OT8l«r2«-.000034246St*r2 
I -.O00C86979lt«T2». 000456*32* I 'TZ-. 012*669* 

P !«((((. 00000*2*14*12-. 0000200920 1 *T2t. 00005807591 tri 
I -, 00022320 3»*T2*.0029218261*r2+- 3989*23 

QI-I(( (-.00000365 9**T2*^.O00OI&221*r2-.OOO0398T08)*T2 
I ♦.003l06*T*n»T2-. 0006390*001 •r2*, 037*008* 

A"2.0/SQRT(X) 

B>A*T1 

C-II-. 7853982 

VOoA^PO'SINICI^BAQO^COSIC) 

Y l«-**P 1»C0S I C I •B^O 1*S INI C I 

CO TO 90 

COMPUTE YO ANO Yl FOR X LESS THAN OR EQUAL TO A 

*0 XX*X/2. 

X2-XX*XX 

T-AL0G(XXI*.577215T 

SUH-0. 

TERM'T 

TO-T 

DO TO 1.-1,15 

IFIL-U50.60,50 
SO SUM = SUn*l./FI,OATIL-ll 
60 FL«L 

TS-T-SUN 

T£RN«treRM*l-X2I/FL**2)*(l.-l./tFL*TS») 
TO rO-¥0#TERM 

TERN « XX»ir-.5l 

SUM-O. 

Vl=T£RM 

00 80 L'ZtU 

SUI-SUN^l./FLDATIL-ll 

FL*t 

FLl^FL-1. 

TS-T-SUM 

TE«M"(TERM*l-X2t/IFLl*FL»)*((TS-.5/fLl/(TS».5/FLl») 
80 Yl-Yl*TERM 

PI2=. 6366198 

Y0«PI2*Y0 

Yl— PI2/X*PI2*Yl 

CHECK IF ONLY YO OR Yl IS DESIRED 

40 IF(N-tl 100.100,130 

RETURN EITHER YO OR Yl AS REQUIRED 

100 IF(MlllO(120tllO 
110 BY-Yl 

GO TO 170 
120 BY-YO 

GO TO 170 

PERFORM RECURRENCE DPERATIONS TO FIND YNUI 
130 YA*YO 

Ye-Yi 

K-1 
UO T»FL0AT12*M/X 

YC"T*rft-YA 

IF(ABS(YC»-1.0€ 7011*5.1*5,1*1 
1*1 1ER«3 

RETURN 
1*5 K-K+l 

1FIK-N» 150*160,150 
150 YA«YB 

re«YC 

GO TO t*0 
160 BY>VC 
170 RETURN 
180 IER-1 

RETURN 
190 IER>Z 

RETLMN 

END 



BESV *00 
BEST *10 
BEST *20 
BESY *30 
BE$¥ **0 
BESY *S0 
BESY *60 
BESY *70 
BESY *80 
BESY *90 
BESY 500 
BESY 510 
BESY 520 
BESY 530 
BESY 5*0 
SESY 550 
BESY 560 
BESY STO 
BESY 580 
BESY 590 
BESY 600 
BESY 610 
BESY 620 
8ESY 630 
BESY 6*0 
BESY 650 
BESY 660 
BESY 670 
BESY 680 
BESY 690 
BESY 700 
BESY 710 
BESY 720 
BESY 730 
BESY 7*0 
BESY 750 
8ESY 760 
BESY 770 
BESY 780 
BESY 790 

BESY aoo 

BESY 810 
BESY 820 
BESY 83C 
BESY 8*0 
BESY 850 
BESY 860 
BEST 870 
BESY 880 
BESY 890 
BESY 900 
BESY 910 
8ESY 920 
BESY 930 
BESY 9*0 
BEST 950 
BESY 960 
SESY 970 
8ESY 960 
BESY 990 
BESY 1000 
BESYIOIO 
eESYl020 
BESY1030 
BESriO*0 
6ESY1050 
flESYlO60 
BESYIOTO 

aesYioso 

BESYIQ90 
BESYllOO 
BESYlllO 
aES¥1120 
BESYI130 
B£SYH*0 
BESYU50 
aESYiL60 

eesYiiTo 

BESY1180 
BeSYll90 
BESY1200 
BESY1210 
BESYt220 
B€$V1230 
8£SY12*0 
BESY1250 
eESYI260 
BESYIZTO 
BESYI280 
BESY1290 
BESY1300 
BESY1310 
BESY1320 
BESY1330 
a£SY13*0 



Subroutine 10 

This subroutine computes the modified Bessel func- 
tion Io(x) for a given argument (x). 

For- 3.75z.x^3.75; t = x/3. 75 

Iq(x) = 1 + 3.515623t^ + 3.0899421* 

+ 1. 2067491^ + 0. 2659732t^ 

+ 0.0360768t^° + 0.0045 8 13t-^^ +e 

with \(\ < 1.6 • 10"'^ 

For3.75 4|x|<«; t =3.75/ |x| 

-^^Ix] e ~^^h(x) = 0.3989423 +0.01328592t 

+ 0.00225319t^ - 0.00157565t"^ 

+ 0,00916281t^ - 0. 020577061^ 

+ 0.02635537t^ - 0. 01647633t'^ 



with I f|< 1,9 • 10 



+ 0.00392377t +« 

-7 



SLEhCLTIhE IC 

fUPfCSE 

CC^PClt ll-t fCClflEE eEJSEL FUhCUCk I TF CWCEft ZERO 

L£ACi 

CALL ICU.hIC) 

CeSCFIFTKK Cf PiVtflieOS 

t -ClhtK tCCUKCNT LF IFE hESSEL FUhCTICh 1 CF CROEH 

flC -PtHlIAhT vatCE CF IhE BESSEl fL^CTlC^ I Cf GRCtK C 

l*Ki£ VACLES CF IFE ARCfthT PdY CAUSE CVEHFLCl. I^ TFE 
eilLTU CMP-FLhCllCK 

5Le(iCLIir.£S »hC FLKCIICK SLeFBCCHAFS PEClJiREC 

^'ETFCC 

PCLYKCPIAL «PPRCXlf<A1ICKS ElVEh fif L.E. ALLEN APE UStC FCR 

C«LCLLATICK. 

FCP PtfEPtfCt <tE 

P. *eRAPChllZ fhC l.A. SIEGLN.'FAkCECCK CF HtlhCftMCI'L 

FLI^CTIChS*, K.A. CEPIKIPEM Cf CCPPERCE, K«TICNAL 8UKEAt OF 

£1AhC«RCE APPLIEC PAIFEI-lllCS SERIES, lS6t, F.37e. 



tWCLUKE IC(X, 


.FICI 




iC"**;£(it 






(HIC-2,75H.l, 


,i 




K»M7.llUllt- 


2 




;c-nm *.5euE-j»z*i 


i.borteE 


!.Ce9S*<CC}*Z«: 


J.5I5t23 


'ECI»HI 



f .<53 

EILPh 



;i*i ♦2.6*9 7 321-1 I«2«l.?Ct/*9E0l«i 



/file 

>P|PlC)/StHI(«I0l*((((mO.'i23ITE-3»Z-l.t*763 3e-2)»Z 

£37E-i»«2-2.C!17C4E-2)«7«?.lt;81E-3l«i-l.5 756«E-3l*; 

I^t-3)»Z*I.3<e;92E-2l»Z*3.5eS*2iE-ll 



no 

120 

no 

1*T 
150 
160 
170 
ISO 
190 
200 
210 
220 
230 
240 
250 
260 

2 TO 
280 
290 
300 
310 
320 

3 30 
3*0 
350 
360 
3 70 
380 
390 
*00 
*10 
*20 
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Subroutine INUE 

This subroutine computes the modified Bessel 
fiirictions Ii(x), l2(x) In(x) for a given argu- 
ment X, where n is the given maximum order. 



The recurrence relation 
2k 

is used for this evaluation. 

From (1) the values Gj^ = Ik'^^k-l 

1 
satisfy Gk = 2k ^ r 

— + ^k+1 

Therefore, Gu+x may be calculated from the 
continued fraction 

G 1 L—^ 

n+1 2(n+l) 2(n+2) 2(n+3) * ' * ' 

"x ~x "x 

This continued fraction is evaluated using the 
following forward A-B process: 

' k X k-1 k-2 



(1) 

(2) 
(3) 

(4) 



B 



1 
for k 



0. B. 




1,2. 



Then G , = lim 
n+1 u_^ 



Bk 



(5) 



(6) 



From G . the values G , G , , 
n+1 n n-1 



G are 



obtained 

applying (3) successively, with k= n, n-1, . . . , 
Finally the values I , I , ... I are computed 
using L = G • I, _, , where I is the value of 
Bessel function I of order zero, for example, as 
obtained using subroutine 10. 



(7) 



SUnRCUTINE INUfr 

Puopose 

COMPUTE THE MPOrFlFO PFSSEl FUNCTrONS I FPR P«OE)»S 1 TH N 

USAGE ' 

CALL INllE(X,N,II,f)l| 

0€SC«rPTION nf PtRWETe»S 

K -GIVEN »fICtt*teNT Of THI- (tESSEL FUW:T|ri*IS I 

N -GIVEN »i*x!«'U»< rtorjE*! "F ^PS^EL FUNCTIONS I 

Zr -GIVEN VUUE OF PE^SEL FUNCTION I OF OHOER IfPQ 

fVR AUr.UHFNT X 
BI -BFSULTHXT VECTOP of OIMFNSinN N, fflNTAINING THE 

VHUFS OF THE FUNCTIONS I FO"* OPOEPS 1 TR N 

THE VAlUe OF ;i MAY RF CALCIIHTED lISINf. SUSROUTINF 10, 
(JSINr: A IIFFFRKNT VAtUF HAS THE EFFECT THAT ALL VALUES OF 
BESSEL FUNCTinNS I AOF "ULTIPtlEO BV THF FiCTOP 7!/no.«) 
MtiERE IlOfXI 15 THE VALUE OF T F0« rflPE<* AND AfffillMENT t, 
THIS "AV fiF tJSFO rJlSAnvANTAGFOtlSLV IF nwiY TH€ RATIOS OF I 
FCfl DIFFEPFNT CBOEPS ABE PEtXIIPE"). 



WETHCO 

THE VALUES APF OeTAINED USING BACKUARO RFCIJRRENCF RFtATION 

TECHNIQUE. THE RATin I ( N«| , X l/MNt XI IS OBTATNEO FROH A 

CONTINUFO FRAf.TinN. 

FOR BfFEPFNCE SFE 

G. BLANCH, 'NUMERICAL EVALUATION OF CONTINUED FRACTIONS*. 

SIAM REVIEW, VrK.&.Na.4,t964.PP.3ll3-«21. 



^0 



SURPOUTIKE INUE(X*N,ZItRll 
DIMENSION RKll 
IFINIlO.lO.l 

1 FN-N»N 
01*X/Fh 
IF)ABSIX)-5.E-4I«,6,? 

2 AO-I. 
Al-0. 

ei-i. 

Fi«FN 

3 FI«FI«?. 
AN>FI/AeStXI 
A>AN*AlfrAO 
B.AN«B1*S0 
AO-Al 
eo-fii 

Al-A 

B1>B 

00-01 

01«A/B 

[FtABSf lOl-QOI/Qll- 

4 IF(X|$,6.« 

5 Cl—OI 

6 K«N 
T ai>K/|FN*X*Qll 

RI(K)«OI 
FH-FN-2. 
««X-l 
IF<KIB,e*7 

8 FI-ZI 
00 9 1*1. N 
FI-FIPRHII 

9 RICII-FI 
10 RETURN 

END 



|.F-AI4,4,3 



INIIC 

. INIIF 

IWJE 
INU*: 
IWIE 
INUF 
INOF 
I wit nn 
INUF «1 
INIIE 10" 
INLiF 110 
INUF !?n 
INUF no 
INt)F 140 
INUE 110 
IWIE 160 

INUF nn 
!N>tf 11" 

INUE lOO 

INUF -riyn 
INUF 210 
INt'F '^n 
INUE 230 
IN!(E 2*1 
INUf ?50 
INUF 260 
IMUF 2T0 

INIIF ^BO 

INUF ?<I0 

IN1PF ^nr} 

INUF »|0 
INUF ^20 
IN(IF 310 
INtIF ^^^n 
INUE 190 
INUE 160 
INltF ITO 
INUF H*0 
, ItriF l«n 
INUE *00 
INUE 410 
INU* «7A 
INUE MO 
INUF 440 
INUF 410 
INUE 4A0 
INUE 470 
TNII* *«0 
INUE ♦lO 
INUF SOO 
INUF 510 
INUE 5»n 
INtlE 5-*0 
INUF 940 
INUE 550 
INUF 560' 
INUF 5T0 
INUE 5110 
INUF 5*> 
INUE 600 
INUF 610 
IWfE 620 
INUE 4S0 
INUE 640 
INUE 650 
IWfE 6&0 
INUE 6T0 
INUE 6«n 
INUE 690 
INUE 700 
INUE 710 
INOE 720 
INUF 7J0 
INUE 740 
INUf 750 
INUF 760 
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Subroutine BESK 

This subroutine computes the K Bessel function for 
a given argument x and order n. The recurrence 
relation: 



K^(x) = 



2n 



Vi^'^) = -^ V^ ^ \-iW 



(1) 



f) 



Hg - (r+iog 



(7) 



is used for this evaluation. 

The Initial values Kq and Ki are found as 
follows : 



where: 



H 



tl 



(8) 



r=l 



For X > l: 



Kq(x) = e 



/ TT 



v) = «"Vi^^i<-) 



where x = l/t for t < l: 



(2) 
(3) 



8 / v2s-l , 

"" s=iV^/ (s.-: 



I- 



is'.) 



y+iog--H^ 



(9) 



^.(i)-VF-- 



2533141 



+0. 088111281 
+0. 1344-596t^ 
+0.3792410t^ 



+0. 5575368t 



8 



- 0. 1566642t 

- 0.09139095t^ 

- 0.2299850t^ 

- 0.5247277t'^ 

- 0. 42626331^ 



+0.2184518t 



10 



0.06680977t 



11 



+0.009189383t 



12 



^(i)-VI= 



(4) 



1.2533141 



-0. 14685831" 
-0. 17364321* 
-0.45943421^ 
-0.66322951^ 



-0.25813041 



10 



+ 0. 46999271 
+ 0. 12804271^ 
+ 0.28476181^ 
+ 0.6283381t'^ 
+ 0.50502391^ 
+ 0.078800011 



UeFCLIIhE ttSf 



eesK 

* PfcSK 

fi£SK 
B£SK 
BESK 

CCKtIi It-i K €(SStL FL(>CIICN FCtt t GlV£h ARCLf£^T AKC CftOEflBESK 

BESK 
ilCl 

i>LL liE<Kl)r*h.eK.ICRI 



CESCFIFIICft Cr P«F/*-€1ERS 

« -Tl-t ARCLMcfl CF IhE K BESSEL FthCriCN OESIREO 
h -ll-E CRCIl* CF Fl-t tc tESSEL fthCIICh DtSIREC 

EK -xte *en.Li»hi K acssEi FUNCiich 

lEV-RESCltiM ERflCR CCCE kHERE 
fER-C hC ERtiCR 
I£ii-1 h IS t^EC^riVE 
l€fi'? X i: UHC Ctt fECAIIVE 
UH-J t .CI. ITCt rtCt-IKE R«^€E EXCEECEC 
JEB"* EK .Cr. IC»»?C 

h fLST EE £R£illER 1t-AK Cfl ECLAL TC ZEf^C 

SLkt•CLIl^tS ANC FLhCllCK SLGFNCCRAI'S RECLIREC 
hCht 



acsK Ro 

BESK 90 
6£SR lOQ 
BESr 110 
BESK 120 
BESK 130 
BESK 140 
BtSK LSO 
BESK 160 
BESK 170 
BESK IflO 
BESK 190 
flCSK 200 
BESK ZIO 
BESK 220 
BESK 230 
A£SK 240 
BESK 250 
BESK 260 
BESK 270 
BESK 2ao 



CCfFLTES 2£RC CRCER iKC FIftSI CRCEH BESSEL Ftl'CTKKS tSUC BESK 290 
SERIES AFPRCXI^ATJChS *^C IHEh CCfPCTFS h TH CRUfcK FUhCllCX RESK 300 



LSllkC RECLRREKCE R£LATICI>. 

fECCFKEKCE fiEl/TICft JI^C fCLY^CI'IAL *Ff^Cl^t^'A%lZ^> lECHhlCUE 
<S CESCRIEEC ev A. J.M.I- ITCl-CCCK i •FCLY^CN|«L IFPRnx IHATIChS 
IC EESSEL FLKCWCKS CF CFCER ZERC »t^C CkE AKC 1C RELATEC 
Ft^CIICIkS*. H.I.A.C.. V.ll.lS51.PF*E6-tiSt AhC C.h. WATSCN, 
*t IREA1ISE Ct- 1^E Tt-ECF^ CF BESSEi FLKCIICKS*. CACBRICCE 
lAlVERSIIV FRESSt ISSB* F. t2 



11 



-0. 0108242t 



12 



For X ^ V 

y = Euler's constant = 0.5772156649 



(5) 



(6) 



SlGRCLIIhE EESK(»fA.EK«IERI 

Clffcl'SICft T<12l 

EK-.C 

1FIM1C(II«1I 
IC I£R«1 

UlLf-t- 
11 ]F(X)lZ.li.<C 
1^ IER-: 

FEURh 
<C IFO-11C .Ciil,12til 
il IE(<*3 

FfcllFK 
ii lER-C 

it f-EVFI-li) 

KlI'E 

CC it l-i.li 

it tui*ru-i>«E 

£C^ftrE RC liUC fClYKCflAt AFFI)CK|f'ATI^^ 

i? CC*A«(l.^!3iHl-.l<eEe4^«Tlll*.Ce«llU£M(2)-.C«l3«C^5«10l 
^«.IJ**bSt«I M l-.2;ssetO«T(i U.! IS£^ IC*TU»-. 524727 J*TI 71 
J*.;;7«3<£»IU|-,<2t;<J3«T(S H.:iC45ie«ICICI-.C£eaC«77*T(ll) 
««.CCSlcS3€3*l(l2l)«C 
IF(A|2C*«t.2S 
it Eii-CC 
RETLRf 

CC^FLTE Kl LSINC PCL>f.CfIAL AFFRCX If Af | CA, 



BESK 310 
BESK 370 
BESK 330 
BESK 340 
BESK 350 
BESK 360 
BESK 3T0 
BESK 3H0 
..BESK 390 
llESK 400 
BESK 410 
BESK 420 
BESK 430 
BESK 440 
BESK 450 
8ESK 460 
BESK 470 
BESK 4B0 
BESK 490 
BESK 500 
BESK 510 
BESK 320 
RESK 530 
BESK S40 
BESK 550 
eeSK 560 

BESK sro 

BESK 580 
BESK 590 
BESK 600 
BeSK 610 

m^ m 

BESK 630 
8ESK 640 
BESK 650 
BESK 660 
BESK 670 

BESK «ao 

BESK 690 

BESK roo 

BESK TIO 
BESK 720 
BESK 730 
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<S GI><«(lw*2;i41«.4£SSS214T(n-.Me85£3*T(2)«.l2eC421«TI3) 
^-.l7it«;j*ll4)*.2ii<.1C|[|ai($)-.jifS^j'S2«T(£l*.62Si3ei*I<Tt 

3-.6t3i;«*»T(f j*.«c5c;3s»ii<)-.;5ti3C'.«T( ici + .oreaocci«T(iii 

4-.CICt:i4H*1(|<M*C 
lFlf-]|JCtJlC.31 

ff)C^ KC.Kl CCfl^LIt K(v LSIKC RECLAR^KCC f)el«TIC^ 

31 CC 3! J•2.^ 

IF(ej-l.C£7C)33«;3.3< 
3: IEI)-4 

CC IC 34 

33 cc«ei 

2t Cl-CJ 

3< e>)>/2. 
c-t<e 

IF(f.-l)31,«3,31 

ccrFcic KC tsikb SEMies t)ip«^!lc^ 

F«C1«1. 

I-J-.C 

CC 4€ J«l.t 

fiJ-l./F4.C<T(JI 

)i;j>ii3j«c 

f«CT-F«CI«RJ««J 

hj-»ij*f J 

lF{hM3.42.43 

42 eic-cc 

CCffLIt HI L<UC SCRIES EKPAfccICIk 

filCT-l. 
l-J-i. 

CC 5C J'2*a 

ftJ-l./fLC4T<J| 
f«CI>FiC1*IIJ*IIJ 

ej-F-jiRj 
se cj-ci*iiij4F«ct*(.s-»(*-t-ji*FicaT(j>) 

lflK-ll21*52.31 
92 en-Si 

CETL'RIk 
ElkC 



B€SK 7^0 
ft€S« 750 
B£SK 760 
nfSK 770 
DESK TSO 
BESK 790 
HESK HOO 
RESK RIO 

SESK ma 
6ESK aio 
eESK R40 
eCSK 890 
BESK 060 
DESK 870 
6ESK Mao 
8E^K S^O 
BESK 900 
aCSK 910 
SESK 920 
HEStt 930 
HESK 940 
eESK 4«0 
e£SK 960 
»ESK 9T0 
mSK 480 
BESK 990 
etSKlOOO 
aESKtOlO 
eeSKiozQ 

RESKI030 
BESK1040 
BCSKIOSO 
BESt(1060 
BESK1070 
8ESK1080 
BESK1090 
BESKUOO 
BESKlltO 
BESK1120 
8ESKU30 
BESK114C 
BESKllSO 
aESK1160 
SESK1170 
■ESK1180 
BESK1190 

aESKi2ao 

BESKIZIO 
BESIC1220 
8ESK1230 
8ESK1240 
BESK1290 
Be$K12«0 
8ESK1270 
BESKWBO 
BE SK 1290 
8E SKI 300 



Subroutine EXPI 

This subroutine computes the exponential Integral 
for a given value of the argument x. 

The exponential integral is defined as: 



E 



00 

l(x) = -Ei(-x) = J^ dt = J ^;^ 



dt - C -ln(x) 



where C = 0, 57 . . . is Euler's constant. 



The integral 

I —— dt has a logarithmic singularity at x =0. 



Therefore , it must be evaluated in the Cauchy 
Principal Value sense for negative values of x. 

For X = the routine returns -1. E75 as value of 
Ej(x). 

For X ^l: 



AUX = xe Ej^(x) 



4 3 2 

(X + 8.5733287401X + 18. 0590169730x 



+ 8.634 7608925X + 0.2677737343)/ 

4 3 2 

(X +9.5733223454X + 25.6329561486x 



+21.0996530827X + 3.9584969228) +< 
with I t I < 2.E-8. 
For -3z.x^l: 
AUX = (E]^(x) + In I X I + C)/x 

= 9.999999E-1 - 2. 500001E-l"x 

+ 5.555682E-2-x^ - 1. 041576E-2-x'^ 

4 5 

+ 1.664156E-3-X - 2. 335379E-4-X 

/? 7 

+ 2. 928433E-5-X - 1. 766345E-6-X 



+ 7,122452E-7-x +, 
withjt |< 7, 3E-8, 
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For 
AUX 



-9 Z. X 4 -3 : 
X 



= xe E I (x) 

= l-(248.6697 +224.4234x 

+32.43665x2 + 3.061037x3 
+ 0.05176245x'*)/(180.7837 
+22.63818X + 38.93944x^ 
+ S.QgSlGlx*^ +x'^) +j 
with I * |< 1.3E-7. 
For -174 Z.X A-9: 
AUX 



xe E, (x) 



= l-(674. 567029 + 57.4118330x 

2 3 
-6.05529232X - x )/ 

(1699.06552 + 841,654932x 

2 S 

+49.3133893X -8.01957683x 

4 
- 0.999792040X ) + < 

with I < |< 3.8E-7. 



Sl.e(Cl1l^c itn 

CC»F(.1€S JH OFCtiEhTKl IMtGXL -Ell-O 

OIL E>rl(>.aE!l 

CLSCKlFllclk Cf PiPifttEBS 

> - <HCUII€»1 OF EtPCKEkllll. IMECBtl. 

fti - KESLL1 VAICE 

«L» - PESLLTfhl AUXlLliRV VALLE 

J dl lie (« LI -1741 HV C41SE HCEHfLCk lOkCAFlCkl 

kill- ThE EXPCftEKTIAL FUKCIlLfi 

FCfl > • C l^t HeSLLl V*LCI IS Stf TC -I.ET5 

<I.EFEL1I^E! <»C FLKCtlCk SLtmCClKPS aECLIXEC 
||C^E 

fEUCC 

tES.lHEC«»Lie>PI-II/I. 'IfPED C»E« I FdCf X IC IdFINITO. 
EHimiCH . , 

Tt-PtE CIFFEPEM PII1C».«L *f PKCX If*! ICK S *PC LSEC IK tFE 
P»»CtS 1 IE I. X LE -1 »HE -< Lt » l€ -3 Of SPECII»EL», 
< fCL»kCPUL <PPI1C«I"«11CR IS USED Ik -1 LI « LI 1. 



iLe»CLlil>£ L>PIO.PE£.«LXl 
IFO-1.12.1.1 

<L«-1.-V<H ir<3.!llS;£eCI«y«i. C;JlitECI«V»2. 109*796-11/11 I !»• 
ll.C7J5;3EC«S.71t«*!ECt«V»6.S4!2!StCl»>«i.!53««SECI«Y»J.7C94StE-l 

PtS»*CX<»*EXFl-xl 

ptltPh 
i IF (X*'.IE *6«3 
" <l«.l( 111(1 7.1ii«5ie-I>»-l.7t(l«!£-6l«<»i.Sie'i33F-!M«-2.33537'>e 

ll»II*l.tc4 15CE-31»)i-l.C'.157£E-i»««*5.5!j5tEJE-2l»X-2.5fl00CIE-l>*)( 
^•S.SSS4(S£-1 
F£S--I.(15 
1F(X)4.:.<| 
« HS'»"«L>-»LCei<e!l>ll-5.H<lSlE-l 
; FtlLPfc 

I *l.»"l.-nil5.17t<<5E-J««<3.CHt;?ECI»»»;.<43H.5Ell«»<2.2<»23*EZl 
l«i.*£tdS7t2J/(ll{X»3.S'J-Ul€CI»)"*3.e9 3<;4<.Ell«i«*2.2t3B18Ell*X 

2«I.CC7£37£2I 
CCTC « 

' ItI-{'-»«l<l»<I-t5«a-«E-ll»V-1.27101!€-ll«Y-1.0eC6«3ECl/llU» 
l«2."Ul'CEC»l.l22<J7EIH»«5.Sil4C!E0m-«.ttt70JE0)»»-«.7J«216EO 

^ FES-<l»SIPI->l/> 
liEILItti 

EkC 



EXPI 
.EXPl 
fcXPl 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
expi 

EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
CXPl 
EXPI 
EXPI 

,.EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 

I EXPI 
EXPI 
EXPI 
EXPI 

-4EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 
EXPI 

•XEXPI 
EXPI 
EXPI 
CXPl 
EXPI 
EXPI 

I EXPI 
EXPI 
EXPI 
EXPI 



100 
110 
120 
130 
1*0 
ISO 
160 
170 

lao 

190 
200 
210 
220 
230 
2«0 
250 
260 
270 
280 
290 
100 
310 
320 
330 
3*0 
350 
560 
370 
390 
390 
*00 
«10 
*20 
*30 
**0 
*50 
*&0 
*70 
*80 
*90 
SOO 
510 
520 
530 
5*0 
550 
560 
570 
500 
590 
600 



Mathematics — Special Functions 369 



Subroutine SICI 

This subroutine computes the sine and cosine 
integrals for a given value of the argument jf. 



where: 



These integrals are defined as: 

X 

si 

'0 

X 

ci ■ 



i(x) = Si(x) - f/2 = f ^i^ dt - V2 
(X) = C + In(x) + J ^2smzL dt 



f < i . 2.3E-8 and 

X 



P(x) = 2.500000E-1 - 6.646441E-7-t 

-3.122418E-2-t^ - 3. 764000E-4-t^ 

+ 2.601293E-2-t - 7. 945556E-3-t^ 

- 4. 400416E-2- 1^ + 7. 902034E-2- 1'^ 



where C is Euler's constant 0. 57 . . . , 

/cos(t) 
— p-^ dt has a logarithmic singularity 

at X = 0. Therefore, it must be evaluated in the 

Cauchy Principal Value sense for negative values 

of X. 

For X = the routine returns -1. E75 as value of 
ci(x). 

For X -C 4 and t = 16-x^: 

(si(x) + 
ir/2)/x = 4.395509E-1 + 1. 964882E-2- 1 

2 3 

+ 6.939889E-4-t + 1. 374168E-5-t 

+ 1.568988E-7-t'^ + 1. 753141E-9- 1^ 



with| I |^8.2E-8 

-(ci(x) - C - 
ln|x|)/x2 = 1.315308E-1 + 4,990920E-3-t 

2 3 

+ 1.185999E-4-t + 1. 725752E-6- 1 

4 5 

+ 1.584996E-8-t + 1. 386985E-10- t 



with I I I ^5.6E-9. 



For X > 4 and t = 4/x: 



si(x) = - (f) (cos(x) • P(x) + sin(x) • Q(x)) +« 

4 
ci(x) = (-) (sin(x) • P(x) - cos(x) • Q(x)) + « 



-6.537283E-2.t + 2. 819179E-2-t 
-5.108699E-3-t^^ 

Q(x) = 2.583989E-10 + 6. 2500nE-2- 1 

-1.134958E-5-t^ - 2, 314617E-2- 1^ 

-3.332519E-3-t* + 4. 987716E-2- 1^ 

_7.261642E-2-t^ + 5. 515070E-2- 1''^ 

-2.279143E-2-t^ + 4. 048069E-3-t^ 



SLeFCLIlKC SKI 



CC^fLIES Il-E SIhC the CCSIkt IhTECOii 

cm sicKsi.ci.m 

$1 - ff-E REStLTAKT V«LL£ SIfXI 

CI - ^H RC!LLI>M \Hli CIOI 

M - IfE «f(CUfE^r CF SIIK) AftC CllXt 

It-E ^RCLfEM V'LUE Htftlt-i LKCKthCEC 

tiet^CLlINt! /M: Fl^CT|C^ SiePHCCK^fS f)£CUlREC 
f)Cf£ 

^'€1^CC 

CEf IhlllCfc 

SIU)-]kfEC(l>L(SU(TI/I) 

C1I»I-IM£CK«LICCS(T)/I) 

fitllCJlCK CF f)lhG£ USIhC S^fCEIPV. 

ClfFtKEM «PPRCI(|»'«nCf £ #HE (JSEC FCK ABS(X| CKb«1ER 

If^ft 4 «KC FCR «eSUI LES5 iHifk 4. 

HftHthCt 

Llfl *^L ttlfP) *PCLV^Cfl«l. AFPRCXICATIChS TC IMEGRAL 

IP4hSFCRI<S'. fATl-EHailCll T«ei£S <hO CIMEB ilCS TC 

CCPPtT#IIC»t WCL. 13. ISil) ISSCt 14. fP. 17^-176. 



SLtftCLIlKE SICKSI.Ci.SI 

IFC2-4.ll.lt4 

1 V<l«.-il«l4.*Jl 

SI>-l.;iC1%7EC 

i Cl — l.EIS 

«EILfl^ 

i SI*X*(li ni.7S2HlE-S«T«l.S£aseEE-71«V*|.?T4U££-5Mr*6.43«069£ 
l*V«l.«<4EE2E-2t*1«4.!«55C9£-l4<l/)i) 

Cl-(M.17<t-e£-l«ALCCUtl/2-24IM((l.Jd««e5E-lC*V*l.^E4']9bE-«l* 
l«I.Ti£7;2E~£MV«l.lE5^«<E-41«t«4.«<iO<2CE-3)«V*l.]t53CeE-tl I *Z 

4 !I«<U(JI 
t-CCSIil 

L«(l (ni((4.C <6C««E- 3*2-2. 2 7414 3E-2i*2«£.S t5070E-2l*2-7. 261 642E' 
l«2»4.SEI7Kt-2l»J-3,;2251«-2l«i-2.3i46i7£-i)»2-l.l34958C-5l«J 
i«£.25QCIlE-2l*Z«<.9e3«««E-lC 

V«(M (lll(l-;.lCE««t£'3*2*i.ei^ll«E-2l«j-t.«>72e!E-2)«2 
l«7.9C2C34E-2J*2'4.4CC4l£E-2l*i-r.««9S;6E-3MZt2.£ai2S3E-2)*2 
i-3.1C4CCCE-4l*2-3.li241CC-2J*2--<.£^64 41E-7l«2*2.5CCCC[:E-l 

Cl*/«ISMV-V«l.| 

;i--7«ISI«l***VI 

iFims.e.c 

! SI>3.14ISf3EC'Sl 
< fETtfh 
EKC 



.SICI 
SICI 
SICI 
SKI 
SICI 
SICI 
SICI 



no 



SICI 
SICI lOO 

SICI lin 

SICI 120 
SICI 130 
SICt 140 
SICI 130 
SICI 160 
StCI 170 
SICI ISO 
SICI l<33 
SICI 200 
SICI 210 
SfCI 220 
SICI 230 
SICI 240 
SICI 2S0 
SICI 260 
SICI 270 
SICI 240 
SICI 290 
SICI 300 
SICI 110 
SICI 320 
SICI 330 
SICI 940 
SIC] 350 
SICI 360 
SICI 370 
SICI 3B0 
SICI 390 
SICI 400 
SICt «10 
SICI 420 
SICI 430 
SICI 440 
SICI 4S0 
-4tSICI 460 
SICI 470 
' StCI 400 
SICI 490 

wcr m 

SICI SIO 
SICI S20 
SICI 930 
2ISIC1 S40 
SICI 9S0 
SICI 560 
SICI 970 
SICI $80 
SICI 390 
SICI 600 
SICI 610 
SICI 620 
SICI 630 
SICI 640 
SICI 690 
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Subroutine CS 

This subroutine computes the Fresnel integrals for 
a given value of the argument x. 

The Fresnel integrals are defined as: 



C(x) 






# 



X 



22^ dt^ f cos(^uVu 




and \j2 

\ ttx 

sin(t) 



S(x) = -^r^dt= f sin(|uVu 
27r^ Vt J 



The subroutine CS calculates both C(x) and S(x) 
simultaneously. 

If X is negative, I x I is used in CS. 

2 
For /.x ^-4 and t = 16 - x : 

C(x)/^= 1.840962E-1 



+1.102544E-2-t 



+ 1.020418E-3-t^ +3.273308E-5-t^ 
+ 5.451182E-7-t'^ + 5. 244297E-9- 1^ 



+ 5.100785E-ll-t + 
with I « |< 8,5E-9 

S(x)/J~5= 8.026490E-2 + 6. 121300E-3- 1 

+ 2.441816E-4-t^ + 5. 051141E-e- 1^ 

+ 5.883158E-8-t^ + 6. 677681E-10- 1^ 
+ t 



with I ( |<3.5E-8. 

For X > 4 and t = 4/x: 



C(x) = J +/— (sin(x) • P(x) + cos(x) • Q(x)) + « 



where | «|< 1.3E-8 and 

P(x) = 1.994712E-1 - 1.207998E-6't 

-9.314911E-3-t^ - 4. 027145E-4-t 

4 5 

+ 7.428246E-3't - 7. 271690E-3't 

6 7 

+ 3.401409E-3-t - 6. 633926E-4- 1 

and 



Q(x) = 4.444091E-9 - 2. 493322E-2- 1 

-1.606428E-5-t^ + 5.972151E-3-t^ 

-3. 095341 E-4-t'^ - 6. 792801E-3- 1^ 

+ 7.970943E-3-t^ - 4. 169289E-3- 1'^ 



+ 8.768258E-4-t 



siefCtilNE CS 
n.fnii 

CCPfUICS ll-E F|)tSh€l IhlECRALS. 

met 

cm CS (C.s.si 

CESCtlFTICIS Cf HXfEIEBS 

C - 1)-C flC!(.LT«N1 ViLLE ClXt. 

S - in HEillTlM klllE SKI. 

Jl - I»-E ARCtKEKT CF EREShCL IMEGP^LS 

IF » IS KECOIIVE. IFE iSSCltlE VALUE IS I.SED. 

PCf IPKS 

IFE ARCLI'EkT VALUE X REFAIhS UhChAfcCEC. 

SLGACLIUES ANC FLftCIlCfc SLEFBCCBAfS AiCLIREC 
UK 

l-tlFCC 

CEEIMIlCk 

ClAl-lllieCiXLlCCSIII/SCBIlJ'LKll StFtEC CV£( I f«C>' C TO » 

SI»|.lHEC«ALCSlHlII/SCPIII»tI«ll SUill'EO CVEK I FKOK C 10 « 

EVilLAIICK 

ISIhG CIFFEIIEM APPRCKIBAIICKS FCR A LESS TFAK * AhD A 

CREA1EA TFAh 4. 

FEfEREkCE 

■CCrPUIATICh CF FRES^El IMECRALS' «» BOCRSHA, 

PAIFEPAIICAl IIBLCS AI.L CIFER AlCS K CCITLI Al ICk. VOL. I*. 

l«tC. kC. 12. F. 3tO. 



SLERCLTIAE CSIC.S.AI 

2.AtlSIAI 

IFI2-4.II.1.2 

1 C-SCRIUI 
i'Z*C 

2.M.-2MU.42I 
C-C«<ll(M5.lCCI85E-ll*i«5.2**iS?E-*l»2*5.*5ll82£-7Mi 

l«--.2133CeE-i|AZ.I.02C*lEE-3IAJ<l.l02S««E-JlA2»l.»4C5t5t-ll 
'•S«ll(CU.eI7tElE-lC»i<5.<tJI!Ee-ei»2«5.C51l«lE-6l'i 

l*2.4Al«l<E-*l»Z.t.lil32CC-3l*2*€.C2ftAS0E-2l 
FETLRh 

2 C*CCSI2I 
S - S I A ( 2 1 

AMi((((lt.Jte<StE-A«J-<.lt<2ESE-3l»2«J.5?C'i43e-3l»!-6.H2BClt-5l 
l.l-2.C5!3«l6-«l«2.5.572 1ilC-3 1«2-l.«Ct«2te-;i«2-2.«^3322E-2 1"i 

'e-illlll-t.e33!2<£-4«2«3.«0l«C'iE-3l«2-J.2Ilf>E-3l«l'7.«Je2*6E-31 
l«2-«.Cill«5E-«l>I-«.31A«IOE-3|A2-l.2C75S«£-t|Ai«l.«4'IIE-l 

i'SCRTUI 

C.C.5«i«lC»»«S»el 

s-c.s*2*(S*A-c*ei 

FE1LIIA 
EhC 



CS 


too 


CS 


110 


CS 


120 


CS 


130 


CS 


140 


CS 


ISO 


CS 


uo 


CS 


170 


CS 


ISO 


CS 


no 


CS 


200 


CS 


210 


CS 


220 


CS 


230 


CS 


2M 


CS 


250 


ICS 


260 


ICS 


270 


CS 


2§0 


CS 


2^0 


CS 


300 


CS 


310 


CS 


320 


CS 


330 


CS 


340 


CS 


350 


.CS 


360 


CS 


370 


CS 


380 


CS 


3<>a 


CS 


400 


CS 


410 


CS 


420 


CS 


430 


CS 


440 


CS 


4S0 


CS 


460 


CS 


470 


CS 


460 


CS 


4 90 


CS 


500 


<;s 


510 


CS 


520 


rs 


5M 


CS 


540 


CS 


550 


r.s 


560 


CS 


5 70 


CS 


560 


CS 


590 


CS 


600 


CS 


610 



1 /4 
S(x) = J +1— (-cos(x) . P(x) + sin(x) • Q(x)) + « 
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Subroutines CELl and DCELl 

These subroutines compute the complete elliptic 
Integral of the first kind. This is defined as: 



V2 
K(k) = f 



dt 



, 0<k<l 



«' yi:^^:^ 



An equivalent definition is: 



K(k)= / 



dx 



. / 2 2~2~ 

\/(l4-x ) (1+k X ) 



where k is the complementary modulus: 



2 2 
k +k 
c 



1, 0<k < 1 
c 



The subroutines CELl, DCELl calculate K(k) for 
given modulus k. The calculation of RES = K(k) is 
based on the process of the arithmetic-geometric 
mean. 

Starting with the pair of numbers: 



*0 



2, g^ = 2 



the sequences of numbers (a ), (g ) are generated 
using the definition: 



^ =(a +g J, g =2 fa 
n n-1 *^n-r' ^n yj n- 



1 ^n-1 
,th 



This iterative process is stopped at the N step, 
when a^^ = g^. 

If D is the number of decimal digits in the man- 
tissa of floating-point numbers, then the equality 

^xT = SvT must be interpreted as la - gJis less 
N N I N N| 

than a^,. 10 . 

N 

Since the sequences (2 ^ a ) , (2 'g ) 

n n 

converge quadratlcally to the same limit (arithme- 
tic-geometric mean) the test for the end of itera- 
tion may be replaced by comparing: I a - s I 
-D/2 I ^-^ N-1 1 

against a^^ , • 10 ^ 
N-1 

of the geometric mean 
The value of K(k) — 



, thus saving one calculation 



SlEliCtlUE CELl 

C«lCCl#*E CCfFlETf ElllfTIC IMEGHAL Cf FIHST KUC 

cm CELKRESt'H.lERI 

CESCHIPIICK CF Pfti^KETEitS 
PES - PESCir VALUE 
«K - MCCLLL: ( IhPLT) 

IS* - AESLLT/KT EBflCft CCC£ WHtflE 

lEA'C fC ERHCI) 

ICf)-l «K KC? It. f>«tiCE -I TC •! 

fEf«F|(£ 

!»■£ ffESLLI IS StI 10 1.C75 If *e!(«KI CC 1 
FCB fCCOLlS *(t AhC CCt-PLEfEMAflV fCCULLS CK. 
tCL«TlCK iti««(('iCK*CK>l.C IS LSEC. 
iK fbSr eC IN 1»-E ftlfcCE -1 IG *1 



CEFIMTtOK 

CELl MKI«IME€R*L(1/SC»<IMI*T*II»( 1*1 CK«fl««2l), SUMmEC 

C%Cfl I FRCP C IC INFIMTtl. 

ECCIViLEKT tni IhE CEFUItlCNS 

CEll(Al>l«iMECfl«LIl/(CCSIT)SCflT(l4(CK*r«Kni)*42II.SUP»E0 

C*Efi T fftC^- C fC PI/21, 

CELlf«Kl-lhrECIliLll/SCi)1f|-(«K*<Ih(1})**2|.St.^*>E0 CVED r 

fflCF C TC Fi/2), hF€RE li-<Cilf n.-CK*C(() . 

EVJLL^tlCk 

L4kCtKS IRJhSFCRKJTICfc IS tSEC FCH C*LCULiTICK. 

fiEFEt4EhCE 

i>.Ct.LI«SCF. 'M^ERICAt. C<LCLL«1IC^ Cf CLLIFIIC INTEGRALS 

JfcC ELLIFIIC fLhCTICKS*. HKCeCCK SEfllES SPfCUL FtKCIICNS 

M.^EKlSCFt r<«TFEPATlK %Cl, T, ISei, PP. TB-SC. 



£LtFCL1IKi CELl IDES. itc.lER) 
lEfl-C 

c(c-(c.;-*Ki«c,; 
CK«CeC*CEC*«K 
FES-C .5 
UICECIl.2.4 

1 IEf)«l 

2 FES*1.E1S 
F£Ufl^ 

3 CEC'GEC****! 
* CEC-:Cf 1 IGECI 

CEC>C€C«CEC 

ill|>4R|4CEC 
I>ES«DES4IE$ 

lF(CEC/««F|-C.SS9St3t5.5 
S flES>RES/aii|*«.<l3lf!E0 
fEILAlk 
EftC 



20 



BO 



100 
LIO 



CELt 

..CEH 

CELl 

CELl 

CELl 

CELL 

CELl 

CELl 

CELl 

CELl 

CELl 

CELl 120 

CFLl 130 

CELl UO 

ceil 150 

CELl 160 

CELl ITO 

CELl ISO 

CELL 190 

CELl 200 

C£LI 210 

CELl 220 

CELl 210 

CELl 240 

CELl 250 

CELl 260 

CELt 270 

CELl 280 

CELl Z-#0 

CELL 300 

CELl 310 

CELl 320 

CELl 330 

CELl 340 

CELl 350 

CELl 360 

CELl 3/0 

CELl 380 

CeLl 390 

CELl 400 

CELl 410 

CELl "iZO 

CELL 4)0 

-CELl 440 

CELl 440 

CELl 4«0 

CELl 470 

CElt 4«0 

CELl 490 

CELl 500 

CELl 510 

CELl 520 

CELt 530 

CELl 540 

CELl 550 

CELl 560 

CELl 570 

CELl 580 

CELl 590 

CELl 600 

CELl 610 

CELl 620 

CELl 630 

CELl 640 

CELl 650 



SLCFCLflkE CCCll 

PlOfCJC 

CilCtL'lE CCPFLETE ELLIFTIC I^TECflAL CF FIRST KlMO 

LS#C€ 

C/LL CCELIIRES,«ie,IERI 

CESCVIFTJCh CF PiUJfETERS 

FES - RtSLLI >«ILE |fc CCLBLE FRECISICN 
AK • FCCLLL! lIKPtTJ Ih CGUHLE PRECISICN 
ICR - RESCLT'M ERRCR CCCE hhERE 

lER-C AC EABCP 

lEfl>l AK h(J1 If. FihGE -1 K «1 

FEPAF|t< 

TFE BESLLI IS £ET 10 1.E75 IF AeEIAKl GE 1 
FCR HCCLLLS «K >KC Cd-PLEfEKrARY PCCUltS CK, 
ECL«TlClt At<**K4C((*Ci(>l.CC 1$ tSEC. 
AK PL5I EE U TFE ftAhCE -1 IC «1 

Sl.eKLTlKES ikC FLhCIICh SLEFMCGRA^S AECIjIREC 
kCAE 

^ETFCE 

CEFIhillCh 

CCLI(«|i|-l».TtG»'«Lll/SC»^l(ll«I*T)«(14ICK«l)«*2M. SUMHfC 

CVtF ? FRCP C TC IkFUIlt}. 

ECLJV^LEM tut Tl-E CLFIMIKhS 

CcLKAKI-IKTECRaLU/KCS-dlSCRTdtlCK'TAMTt l**2llrSU>'PEC: 

CVEF 1 FRCP C TC FI/2I, 

CELl<«lt)<IKT£CI(AL(l/bCPI(l-(«K*£tMIt )««2I.SUP'«'eC CvEP T 

fHCP C TC Pl/il, fcFERE K-SCR T tl .-CK*CK I . 

EhALtfllCft 

L«fC£^£ Tt»*hSfC(*f ailCh 15 t<S£C FC« CALCUL«TIC^. 

9lftfttt,U 

F.CLLIRSO-, 'hCPERICAL C'lCLLATKN CF FLLIPIIC (hTECR'LS 

thC ifLLIPriC FtkCTICAS*. ♦■«M;aCCK !EPICS special PLNCTIdS 

hLPCRISC^E PATFEPAIIK VCL . 7. \^ti, PP. 7e-SC. 



10 
20 

30 



60 



2N. 



a^ 
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SLCfiCLTUE [CELllPEStiK.IER) 

caen (HKnich RH^iiccfc/cijAAi 

lER-C 

AfI-2.CC 

C£C-tC,;tC-*lt)«C,5CC 

CEC>C£C4CEC««K 

F£S>c.;c;c 

IF(CEC1U2.4 
I IEfi-1 
i f€5«l,C15 

PETLPh 
I (:Et>CEC*A«PI 
> CEC'CSCRTICtC) 

CEt<CEC«CCC 

/Pl>«P|4CEC 

PES-tiE<«PES 

IFIC£€/*«H-C.^«SSSSS^5CC13,5,; 

PES-RtS/«FI««.:E3ie;KT17«5et*CC 

PETtPf 



CCEI 
..OCEl 
UCEl 
OCEl 
OCEl 
OCEl 

OCEl 70 
OCEl 80 
OCEl 90 
OCEl 100 
OCEl 110 
OCEL 120 
OCEl 130 
OCEl 140 
OCEl 150 
OCEl 160 
OCEl 170 
OCEl IflO 
OCEl 190 
OCEl 200 
OCEl 210 
DC El 220 
DCEl 230 
OCEl 240 
OCEl 250 
OCEl 260 
OCEl 270 
DCEl 280 
OCEl 290 
DCEl 300 
OCEl 310 
DCEl 120 
DCEl 330 
DCEl 340 
OCEl 350 
OCEl 360 
DCEl 370 
OCEl 380 
OCEl 390 
OCEl 400 
OCEl 410 
OCEl 420 
OCEl 430 
..OCEl 440 
OCEl 450 

ocei ^60 

OCEl *70 
OCEl 4«n 

OCEl 490 

ocei 500 

OCEl 510 
UCEl 520 
CCEl 533 
OCEl 540 
OCEl 550 
CCEl Sao 
DCEl 570 
OCEL 580 
OCEt 590 
OCEl 600 
UCEl 610 
OCEl 620 
OCEl 610 
OCEl 640 
OCEl 050 
OCEl 660 
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Subroutines CEL2 and DCEL 2 

These subroutines compute the generalized complete 
elliptic integral of the second kind. This is, defined 
as: 



V2 2 

A + (B- A) Sin t 



eel 2 (k; A, B) = f A +(B-A)sii 
Vl - k sin t 



At 



Since (2~("+l a_^ /?-(n+i)n. x 
iealivf^fK ^>- (^ ' ■'gn) f^onverge quadrat- 

ically to the same limit (arithmetic-geometric 
mean), this implies that (a^ - g^) is less than 



The value of eel 2 (k, A, B) = - 



N + 1 



a 



N 



Equivalent is the definition: 



00 

eel 2 (k; A, B) = yi 



A + Bx 



° (l+x^)V(l+x^)(l+k^x^ 



where k is the complementary modulus: 



:dx 



,2,2 2 

k + k = 1, 0<k <1 
c c - 



The subroutines CEL2, DCEL2 calculate eel 2 
(k; A, B) for given modulus k and constants A, B. 
The calculation of RES = eel 2 (k; A, B) is based on 
the process of the arithmetic-geometric mean. 

Starting with the pair of numbers: 



^0 = ^' h^'-K 



the sequences of numbers (a ), (g ) are generated 
using for definition: ^ " 



a=(a +ff ).e:-2 fa e 
n ^ n-1 Vr* ^n V n-1 Vl 



,th 



This iteration process is stopped at the N step 
when a = e . 

Further needed are the sequences (A.), (B.), 
defined by means of: ^ ^ 



^^ ^ A. B^ = B 




FLFfCSC 

upfiiis in GtktRitizec cccpitie elliptic imcgral cf 

SCCCfcC KllkC. 

C'LL CCL2lftES.«K.«,B,IEfil 

CEK^IFIICK CF PntPlJiKS 
S£S - ReSLLT *«H,E 
»* - ^-CCCLtf lUPUTJ 

' - CChSUM TER'> Il> ht^ERiTCA 

t - FiCICR CF CU«C(l^1IC ^tr^P Ik NtfERATCO 

]£( - «E<l.L1«M ERRCD CCCE hhERC 

1CII>C hi. eKMCR 

IEI)*1 «IC KQJ ir> f«hCE -1 TC «1 

HECICKS 

FCF >£SI«K) Ct J \¥t BESUll IS SEl TC I.E7S IF e IS 
FCSnibf. TC -1.E7S IF E IS hECITIbE. 
SFCCUl CASES «flE 

KiKi cer«iKEc kiTf A - t, e - I 

fU) CETAIhEC kUf- A ■ I, £ - CK*CK tthERE C« I! 

CCfFLEPEMARY »'CCCIUS. 

eO) CETAUEC hITl- * - 1, e - C 

cm) CETII^EC hlTt- A > C. B - 1 

WfE*E K« C# B. C Ctflht SPECIAL CASES CF THE CE^ERALI2E0 

CCPFLETE ELLIFTIC INTEGRAL CF SECChC KIKO Ifc IhE USUAL 

KlltlCf. AhC T^E AHGIJ'EM K CF T^£Se FliNCTICHS Plt,h% 

IFE fCCLLCS. 

SLEKLTIfES AhC FLKCTIOK SteFRCGRAfS RECLIREC 
fCkC 

"Elt-CC 

CEFIkUICK 

«E<-IhlEeRiLI (i«fl*T*1)/ISCRtl(l«T 

Sl^FEC CV€R I FNCM TO IKFINtTTI 

Ck^lOAIlCK 

LihCEKS TRAtkSFCf"<AT[Cf( IS LSEC FCR CALCULAIICh. 

^EFEREKCE 

A.CLLIRSCI-. •hCr'ERIC«L C'LCCIATIOK CF ELLIPIIC INFECRtLS 

AkC ELLIFIIC FlInCIIOKS*. FAIi.CBCCK SERIES SPECIAL FUhCTICNS 

MPERISCFE IfATt-EPAIIK VCL, 1, lf«*t PP. 7e-VC. 



20 



80 



I*I1«KK«T1**2I !•( l*T«T 



SLeFClllAE CEL2(«ES,«K.«,B. lEfi) 

lER-C 

«f>l-2. 

CEC-K.!-«(CI«C.> 

CEC-CECHEC*Af 

fE£-« 

il-A«e 

ec-e<E 

tf ICECIl,i.« 
I IER-1 
i IF(eii.£.4 
! fCS— I.E75 

FETLRIk 
I FCS-I.E)* 

FETLAk 
i CEC-CEC*AARI 

CEC-SCFIICEC) 

CEC-CEC«CEC 

AARI>ift| 

A«i«AAI«CEC 

£C-EC«liES«GEC 

RES-Al 

Ec«cc*ec 

«l-eC/AR|4«l 

IFI€EC/AAI)I-C.SSS«l!,T.l 

«ES-J|/AR1 

FES>«ES«C.97C1««3EC*RCS 

FETtRh 



CEL2 
>.CELi> 
CEL2 
CE12 
CeL2 
CEL2 
CEL2 
CEL2 
CEL2 
CEL2 100 
CE12 110 
CEL2 120 
CEl? 130 
CE12 UO 
CEL2 ISO 
CEL2 160 
CEL2 ITO 
CEL2 liO 
CEL2 190 
CEL2 200 
CEL2 210 
CEL2 220 
CEL2 230 
CEL2 240 
CEL2 250 
CCL2 260 
CE12 270 
CEL2 2S0 
CEL2 290 
CEL2 300 
CEL2 310 
CEL2 tZO 
CEL2 330 
C€L2 340 
CEL2 950 
CeL2 360 
CeL2 970 
CEL2 9«0 
CEL2 390 
CEL2 400 
MCEL2 410 
CEL2 420 
CEL2 430 
CEL2 440 
CEL2 450 
CEL2 460 
CEL2 470 
CEI.2 460 
CEL2 490 
.CEL2 500 
CEL2 510 
C£L2 520 
CEL2 S90 
CEL2 540 
CEL2 550 
CEt.2 560 
CEL2 570 
CEL 2 5*0 
CEL2 590 
CEL2 600 
CEL2 6L0 
CEL2 620 
CEL2 630 
CEL2 640 
CE12 650 
CEL2 660 
CEL2 670 
CEL2 680 
CEL2 640 
CEL2 700 
CEL2 TIO 
CE12 720 
CEL2 730 
CCL2 740 
CEL 2 750 
CEI.2 760 
CEL2 770 
CEL2 780 
CEL2 790 
CEL2 BOO 



A = B /a + A , 
n n-1 n-1 n-1 



B = 2(B + g _ A J 
n n-1 n-1 n-1 



If D is the number of decimal digits in the man- 
tissa of floating-point numbers, the iteration process 
is stopped as soon as (a - g ) is less than 

-D/2 ^'^ ^~'- 

Vl-10 • 
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10 



•en hKtRt CR IS 



SLMClIIkE CCEL2 

"■"tJpi-us UE tt^£«nlZEC ccfPifiE tiiipiic imecr«i of 

SElChC KlkC. 

ISICE 

C/li CCEL2l«tS>*K««<atlEf)| 

cEScmnick cf mhii-eieos 

re: - "CSiii vJLtt Ik cci-aiE mtcisicn 

« - fCCljLLS llfcPUIl Ik CCU81.E fUfCISICK 

< - CCteiE PHECISlt* CCfSHM IE"' ■•• M-rEBMCK 

e - CCtELE FBECISlEfc F*C1G« Cf CV<*C«*IIC lEBM 

Itk kU^EHilCfl 
lEO - KtSlLUM tK«CS CCCE fcCEBE 

lEP'C kC EfttlCR 

lEB-l iK l-0\ Ik t«kCE -1 IC •• 

""fll'inin> CE I IK ofiLii IS :ti 10 i.tis if b is 

ECSIIItE. tC -1.C1S If e IS KECHHE. 

SFECliL CASES iHE 

«l>l CCKIktC klTI- • • If 

EM) Cei*IkEC Ulti * ■ I. 

CCkFiEI<Ekt««« rCCLLUS. 

ciKi ceuikEC nu » • ii e • c 

-fcJe « t. e. C CEUkE SPECUl CASES ff THE GEMUHWEO 
CCKlkIt ElUfllC IMEtm Cf StCCM: «lkC Ik HE USUAl 
kCUIICk, <kC IfE ABCtrtM « Cf IfESE fLkCflCkS l-EiNS 
1f£ tiCCLLLS. 

siePCiiikCS <kc fiKcuck sief«ccii««s «Etui«Ec 

kCkE 

ktltCt 

jri.lkI£cIlK<l<fe.r.II/ISC»IMl.I.IlMI.lC«M)..211.(l>l. 

SLkfEt C*EI* I fOCi' a IC Ikflklltl. 

iJkClkS III»kSPCIIP»Iltk IS l.SeO fC CAlCULkllCk. 

"""Jscf. .kc-EPICl CnCULATICk Cf EILIPIIC Ik'ECJ'lS ^ 
m EUlPIIC flkCTICkS'. HktSCCK SEklES SPECIAL fukCllCkS. 

■.(.kEKiscrc FAinrAim vet. I. 'tf- "• "i-<c. 



<LeACi.1lkE CCEL/tHES.AK.A.e. lEP I 

ItP-C 

/DI-±.CC 

CtC»(C.!CC-*t(l*C.5CC 

CtC-C£C*CEC«»t> 

|F(CECIl,2.t 

2 tftt t2.E.« 

* fttS — l.C?5 

4 fCS-l.C15 

* tEt.-CCC««'Rl 

e C£C-CSCf>1iCECI 
CeC*CEC4CEC 

EC>eC««ES«CEC 

£c-ec«ec 

|ilS«|ICS«C.5?C7«t326"*8««2CC«»iS 
C J<C1L«f 



30 
40 
50 
60 
70 
SO 
90 



CCt2 
.0CE2 
0CE2 
OCEZ 
0CE2 
0CE2 
UCCZ 
0C€2 

ocez 

0CC2 100 
0CE2 tlO 

aciz 120 

UCE2 lao 
OC62 1*0 

ocf2 no 

□CEZ 160 

oce? 170 
DCE2 lao 

CC€2 1<»0 
OCE? ?00 
DCE2 ^10 
0CE2 220 
DCe2 230 
0CE2 2*0 
DCC7 ZSO 
0CE2 260 
OCEZ 270 
0CE2 2 BO 
0CE2 290 
DCE2 300 
DCe2 310 
0CE2 320 
0CE2 J30 
0Ce2 J«0 
0CE2 350 
0Ct2 360 
OCCZ 370 

0CE2 sao 

CCE2 T»0 
0C62 *00 
DCE2 *10 
IQCE2 420 
DCE2 *30 
0CE2 MhO 
0CE2 *50 
0CE2 460 
0CE2 *70 

ocEZ 4ao 

0CE2 490 
0Ce2 500 
.0CE2 SIO 
0CE2 ^20 
CCE2 530 
0CE2 i40 
0C€2 550 
0CE2 560 
0Ce2 570 
0CE2 580 
DCEZ 590 
DCE2 600 
DCEZ 610 
0CE2 b20 
0CE2 630 
DCE2 £40 
0CE2 650 
0CE2 660 
0C£2 6T0 
OCEZ 6iO 
0CE2 690 
0C€2 700 
0CE2 710 
0CE2 720 
0CE2 730 
0CE2 740 
0CE2 750 
0CE2 760 
0CE2 7T0 
0Ce2 780 
0CE2 790 
0CE2 flOO 
0CE2 fllO 
DCEZ flZO 
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Subroutines ELIl and DELIl 

These subroutines compute the elliptic integral of the 
first kind, where: 



eli 1 (x, ok) = f I 2 2 2 

\(1 + t ) (1 + ck7t 



The iteration process begins with arig = l, 
geoo = l<^k| , and the sequences (ari ), (geo ) are 
generated using for definition: " ^ 



ari _ = ari + geo 
n+ 1 n ^ n 



geo = 2-i/ari • geo 

n + 1 V n ^ n 



Equivalent definitions are: 

arc tan x 
eli 1 (x, ck) = f 




dt 



costvl + ck tan t 



The Iteration process is stopped at the N step when 
arij^ = geoj^. 

Further needed is an Iteration scheme for trans- 
formation of the argument x. 



arc tan x 



/ 



-dt_ 



2 2~ 

1 - k sin t 



where k is the modulus and ck the complementary 
modulus . 

For reason of numerical stability, ck is chosen 
as input parameter instead of modulus k: 

2 2 2 

0^ ck < 00 and k + ck =1. 

This allows k to be any pure imaginary or real 
number such that k^ ^ 1 . hi standard notation: 

F (<p, k) = eli 1 (tan v, ck) 

Computation is based on the process of the 
arithmetic-geometric mean together with Landen's 
transformation: 



an. 



iSettlng ang. 



1 X. 

1 



then ang = 1/ |x| 



ari • geo 
n '' n 



ang , = ang - 

n + 1 ^n ang 



n 



th 



Doing the Iteration up to the N step (characterized 



by ari^ = geo^) 



an 







eli 1 (X, ck) = ^-j- eli 1 (Xj^. ck^) 

N 



ari 



with sin A = 



N 



.2 



N J 2" . 
±V ang^^+ ari^ 



'N 



eli 1 (X, ck) =^-^-^ eli 1 (x^, ck^) 



where: 



The sign determination of sin<^ must be done so that 
'^ = arc tan x. is continuously increasing with index i. 

With ariN = geoj^, then ckjr =1, kj^ = and 
therefore: 



ck. = 



2ySk" 



1 1 + ck 



X = (1 + ck) X 



1 - ck • X 



<ft = arc tan x 



sin^ 



1 r 2" 

n/1 + X 



<t> 



N 



eli 







N 



and the final result is: 



eli 1 (x, ck) 



N 



an 



N 



Degenerate cases of argument and modulus: 
x = gives result eli 1 = 



ck = gives result eli 1 = sgn x hi (|x| +v 1 + x ) 
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SUBKDUTINe €L1L 

PURPOSE 

COMPUTES THE ELLIPTIC INTEGKAL OF FIRST KINO 

USAGE ^ 

CALL ELlKREStXiCKI 

OESCftlPTlON OF PARAHETERS 
dES - REStXT VALUE 
X - UPPER INTEGRATION 6OUN0 (ARGUMENT OF ELLIPTIC 

INTEGRAL OF FIRST KiNOI 
CK - COMPLEMENTARY HOOULUS 



SUBROUTINES AND FUNCTION SUflPROGRAMS REQUIRED 
NONE 

METHOD 

DEFINITION 

RES* INTEGRAL! 1/SORTI I I't-T^TI*! 1» (CK«T )««2) I , SUMHcO 

OVER T FROH TO X), 

EQUIVALENT ARE THE DEFINITIONS 

RES-INTECRALl 1/ICOSI T>*S0RT1I«^ (CK*TAN<TI ) •*2) I . SUHHEO 

OVER T FROH TO ATANt XM t 

RES-INTEGRALi l/SQRT(l-(<»SIN(Tn**2I, SUHNEO OVER 

T FROH TO ATAN(XI). 

EVALUATION 

LANDENS TRANSFORMATION IS USED FOR CALCULATION. 

REFERENCE 

R. BULIRSCH, NUMERICAL CALCULATION OF ELLIPTIC INTEGRALS 
tLLIPTIC FUNCTIONS. 

HANOBOOR SERIES OF SPECIAL FUNCTIONS 
NUMERISCME HATHEMATIK VOL. 7. L965* PP. 78-90. 



10 

20 



40 



TO 



SuaRQUriNE ELIllREStX.CKl 



IF(Xt2» Lt2 
I RES-0. 

RETURN 
Z IFtCKI4«3,4 

3 RES-ALQGIASSd 
GOTO U 

4 AMGLE>AeS(l./J 
CEQ-ABS(CKI 

"1. 



I*S0RTI 1.4^X*X)) 



PIM"0. 

5 SQGEa-ARI*GEQ 
AARI-ARI 
*RI-GEO«-AftI 

ANGLE>-50GEa/ANGLEt ANGLE 
SQG£0-SQRT{SQGEO) 
IF(ANGLE)7,6.7 
REPLACE ar SMALL VALUE 

(> ANGLE'S0GE0«l.E-e 
7 TEST-AARI*l.E-4 

IFIABSUARI-GEOI-TE ST) 10.10*8 

6 C£a*SQG£0*SOGEO 
PIM-PIN4PIM 
IF{ANGLE}9f5»5 

9 PIM«PIN*3. 1415927 
GOTO 5 

10 IF(ANGLEUltl2«l2 

11 PIH*PIH«a. 1415927 

12 RES*(ArAN(ARI/ANGLE I*PIM1/ARI 

13 IFIXIL4tl5tl5 
I* RES— RES 

IS RETURN 
ENO 



ELII 
....EL II 

EL II 
ELII 
ELI I 
ELII 
ELII 
ELIL 
£L 1 1 90 
ELII 100 
ELII 110 
EL 11 120 
ELU 130 
ELII 140 
ELII ISO 
ELII 160 
ELII 170 
ELII ISO 
ELII 190 
ELU 200 
ELII 210 
ELII 220 
ELII 2 30 
ELII 240 
ELU 250 
ELII 260 
ELU 270 
ELII ZSO 
ELU 290 
ELU 300 
ELU 3L0 
ELU 320 
ELU 330 
ELII 340 
ELU 350 
ANOELIl 360 
ELU 370 
ELU 3BC 
ELU 390 
ELU 400 
,...ELU 410 
ELU 420 
ELU 430 
ELU 440 
ELU 450 
ELU 460 
ELU 470 
ELU 480 
ELU 490 
ELU 500 
ELU 510 
ELU 520 
ELU 530 
ELU 5*0 
ELU 550 
ELU 560 
ELU 570 
ELU 580 
ELU 590 
ELU 6C0 
ELU 610 
ELU 620 
ELU 630 
ELU 640 
ELU 650 
ELU 660 
ELU 670 
ELU 680 
ELU 690 
ELU 700 
ELU 710 
ELU 720 
ELU 730 
ELU 740 
ELU 750 
ELU 760 



IF(XI2«I.Z 
1 RES-0. 00 
RETURN 

Z tF(CKI4.3,4 

a RES-Ot.0G(0ABS(XI*0SQRTll.DO*X*K)l 
GOTO f3 

4 ANGLE-0ABS<1.00/X1 
GEO-DABS(CKI 
ARI-L.DO 
PIH>0.00 

5 SQGEO«ARi*GE0 
AARI-ARI 
ARI'CEO-fARI 

ANGLE— SQ GEO/ ANGLE* ANGLE 

SQGEO-OSORTISQGEOI 

IF(ANGL£)7,6,7 

REPLACE ev SMALL VALUE 

6 ANGLE'S0GE0*L.0-17 

7 TEST-AARMl.0-9 

IF( DABS (AARI-GEOI-TEST 1 10.10,6 

8 G£0>SQG£0«^S0GEO 
P IH-PIN-tFIH 
IF(AN6LEI9,5«5 

9 PIH«PIN*3. 1419926939697932 
GOTO 5 

10 IF(AN6LEIUtl2tl2 

11 PIM-PIN+3.141592693S69T932 

12 RES*IOATAN(AftI/ANGLEI»PIHI/ARl 

13 !F(X)14(15,15 

14 RES— RES 

15 RETURN 
ENO 



OELl 4 70 

OELl 480 

OELl 490 

OELl 500 

OELl 510 

OELL 520 

OELl S)0 

OELl 940 

OELl 550 

OELl 560 

OELl 5 TO 

DELI 580 

DELI 590 

DELI 600 

OELl 610 

DELI 620 

DELI 630 

OELl 640 

OELl 650 

OELl 660 

DELI 670 

OELl 680 

OELl 690 

OELl 700 

DEL! 710 

OELl 720 

DELI 730 

DCLt 740 

DELI TSO 

Oai 760 

OELl rro 

OELl T80 
OELt 790 

OELl eoo 

OELL 810 
OELl 820 



C SUBROUTINE OELU 

C 

C PURPOSE . „ 

C COMPUTES THE ELLIPTIC INTEGRAL OF FIRST (tINO 

C 

C USAGE 

C CALL OELIIIRES. X.CXI 

C 

C DESCRIPTION OF PARAMETERS 

C RES - RESULT VALUE IN DOUBLE PRECISION 

C X - UPPER INTEGRATION BOUND (ARGUMENT OF ELLIPTIC 

C INTEGRAL OF FIRST KINOl IN DOUBLE PRECISION 

C CX - COHPLEHENTARt MODULUS IN DOUBLE PRECISION 



SUBROUTINES AND FUNCTION SU6PR0GRAMS REOUIRED 
NONE 

METHOD 

DEF INiriON 

RES=INTEGRAL( 1/SQRTI (UT«n*U*ICX*T)«2U . SUMMED 

OVER T FROH TO XI . 

EQUIVALENT ARE THE DEFINITIONS 

RES-INTEGRALI 1/IC0S(TI*SQRTI1*ICX*TAN1T n«*2n, SUMMED 

OVER T FROM TO ATANIXI). 

RES-INTeCRALl t/S0Rru-)K«SIN<TII**2». SUMMED OVER 

r FROM rO ATANlXt). 

EVALUATION 

LANDENS TRANSFORMATION IS USED FOR CALCULATION. 

REFERENCE 

R. BULIRSCH, NUMERICAL CALCULATION OF ELLIPTIC INTEGRALS 
ELLIPTIC FUNCTIONS. 

HANDBOOK SERIES OF SPECIAL FUNCTIONS 
NUHERISCHE MATHEMATIX VOL. 7, 1965t PP. 78-90. 



SUBROUTINE DEL I 1( RES.X.CK t 

DOUBLE PRECISION RES, X.CK, ANGLE. GEO. ARI ,PIM, SQGEO. AARI , TEST 



LOO 



DELL 
. . . . DEL 1 

OELl 
DELI 
DELI 
OELl 
OELl 
OELl 
DELI 
DELI 

OELl UO 

OELl 120 

OELl 130 

DELI 140 

DELi 150 

OELl 160 

OELL 170 

DELL IBO 

DELL 190 

OELL 200 

OELL 210 

OELl 220 

DELL 2 30 

DELL 240 

DELL 250 

OELL 260 

OELl 270 

DELL 280 
OELl 290 
OELl 300 
OELL 310 

OELl no 

OELL 3 30 

OELl 340 

OELL 350 

ANOOELL 360 

OELL 370 

DELI 380 

OELL 390 

DELL 400 

,...OELl 410 

OELl 420 

OELl 430 

OELl 440 

OELL 450 

DELI 460 
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Subroutines EL12 and DELI2 

These subroutines compute the generalized elliptic 
integral of the second kind, where: 



eli 2 (X, ck, a, b) = f (a + bt ) dt 



° (l + t^)V(l+t^)(l + ckV) 
Equivalent are the definitions: 



a^-b^ = -(a-b) — 



ck 



_ (1 + ck)x 
1 - ck • X 



k = 



1 - ck 



1 1 + ck 



arc tan x , , 2 
eli2(x. ck. a. b) = /. (a + b tan t) dt 



° \(1 + tan^t) (1 + ck^tan^t) 



arc tan x , „ 2 , 

f (a + (b-a)sin t) dt 



V 1 - k^sin^t 



<p = arc tan x 



sin<* = 



\^ 



The iteration process begins with arig = 1, 
geog = |ck|, and the sequences (ari^^), (geo^) are 
generated, using for definition: 



where k is the modulus and ck the complementary 
modulus. 

For reasons of numerical stability, ck is chosen 
as input parameter instead of modulus k: 

2 2 2 

S ck <oo and k + ck =1 

This allows k to be any pure imaginary or real num- 
ber such that k^^l. 
In standard notation; 



an , = an + geo 
n + 1 n " n 



geo^^^=2Vari^.geo^ 



,th 



The iteration process is stopped at the N step when 
ari^ = geoN- 

Further needed are the sequences {AA, (Bf), de- 
fined by means of: 



E (v,k) = eli 2 (tan*> ck, 1, ck ) 
F {<p, k) == eli 2 (tanV', ck, 1, 1) 

Computation is based on the process of the 
arithmetic-geometric mean together with Landen's 
trans formation: 

' / 

eli 2 (X. ck, a, b) = j-7^|eli 2 (x^, ck^, a^, b^ + 



A. = a., B. = b. • ari.; that is, by the 
1111 1 ■' 



iteration scheme 



\ = ^' ^0 = ^ 



B 



n + 1 2 ^ n ari ' 



-(a - b) ^ ^ 

Vl +x^ 



where: 



aj = J (a + b) 
1 



1 1 + ck 



(b + a • ck) 



B , = B + geo . A 
n + 1 n ° n n 



Finally an iteration scheme is needed for trans- 
formation of the argument x. 



Setting ang. 



an 
I 



I X 



gives ang^ = l/|xj 



ck = 



2^^!^ 



1 1 + ck 



an • geo 

ang ^ = ang 2- 

n + 1 n ang 
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fh 

Doing the iteration scheme up to the N step 
(characterized by ari, = geo ): 

ari 

eli 2 (X, ck, a, b) = — — eli 2 (x^^. ck^^, a^,. b J + SUM 
ari„ ^ N N N N 

N 



Where SUM = i^ (J- sin* + J^ ^ " I 

2 an, 1 ari„ ari, 2 



+ . . . + 



ari^-geo„ sin0„ 
'1 - ""2 ""1 

1 ^^^0-S^% ^^'N-2-e«V2 



ari-^ ari, 

N 1 



an 



N-1 



sin0. 



N, 



N-1 



an 



with sin"^ 



n / — 2— 
j^yang + 



an 
n n 



The sign determination of sin^i must be done so that 
^j = arc tan x^ is continuously increasing with index i. 
With arij^ = geoj^, then ckj^j =1, kj^ = 0, and 



therefore 



eli 2 



<^ 



(^N' ''V ^N- V = / [^N ^ ^N - V '^'^ *] 



^N "^ \ A In, . • ^ 

"P - — (b - a ) sin<fr coS(i> 

2 N 2 ^ N n' "^n ^" ^n 



The final result is: 



^N + 1 ^"n 

eli 2 (x, ck, a, b) = -. arc tan + SUM + 

' ' ' an,, ang 



dt 



N 



_1 a - b 



'N 



Degenerate cases of argument and modulus; 



x = gives result eli 2 = 



ck = gives result eli 2 = b • In (|x| + V 1 + x^ ) + 

(a - b) , ^ J sgn x ^ 

Jl + x^^ 



ELI2 10 

20 



EL 12 

EL 12 

ELI2 «C 
EL 12 50 
eL12 60 
en 2 70 
EL 12 80 
ELI2 90 
EL 1 2 100 
eLI2 110 
EL 1 2 120 
ELI2 130 
ELI2 140 
£L12 15C 
ELI2 160 
ELI2 170 
EL 12 18C 
EL 12 190 
t:Ll2 20C 
ELI2 210 
£LI2 220 
ELI2 230 
EL 12 240 
EL 12 250 
EL 12 260 
ELi2 270 
EL 12 280 
EL 12 29C 
EL 12 3C0 
ELI2 31C 

METHOD EL 12 JZO 

DEFINITION eLI2 330 

R-INTEGRAL(U*B«T»TI/(SaRT((l*r»ri*ll*(CK»T)»*2l)*<l*r*TJ), EL 1 2 340 

SUMMED OVER T FROM TO Xi , EL 12 350 

EQUIVALENT IS THE OEFINITION 6LI2 360 

R-INTEGRAH {*+( 6-A)*( SIN( D )**2}/SQRJl l-(K»SIN(II )**2I, EtI2 3 70 

SUMMED OVER T FROM TO ATAN(XII. ELI2 3S0 

EVALUATION ELI2 390 

LANDENS TRANSFORMATION IS USEO FOR CALCULATION. EL12 400 

REFERENCE ELI2 410 

R. BULIRSCH, NUMERICAL CALCULATION OF ELLIPTIC INTEGRALS AN0ELI2 420 

ELLIPTIC FUNCTIONS EL12 430 

HANDBOOK SERIES OF SPECIAL FUNCTIONS EL12 440 

NUNERISCHE MATHEHATIK tfOL . 7, I965t PP. 78-90. ELI2 45C 

EL 12 460 
EL 12 4 70 



SUBROUTINE FLI2 

PURPOSE 

COMPUTES THE GENERALIZED ELLIPTIC INTEGRAL OF SECOND KlND 

USAGE 

CALL ELI2(R.X.CK,A.a> 

DESCRIPTION OF PARAMETERS 
R - RESULT VALUE 

X - UPPER INTEGRATION BOUNO (ARGUMENT OF ELLIPTIC 

INTEGRAL OF SECOND KINO) 
CK - CDMPLEMENrAftV MODULUS 

A - CONSTANT TERM IN NUMERATOR 

a - QUADKATIC TERM IN NUMERATOR 

REMARKS 

(MODULUS K = SORT! l.-CK«CK) . 

SPECIAL CASES OF THE GENERALIZED ELLIPTIC INTEGRAL OF 

SECOND KINO ARE 

F(ATAN(XI.K) OBTAINEO MI fH A=l., 6=1. 

E(ATAN(XltK) OBTAINED UITH A=l.t e=CK*CK. 

SUrANiXUK) OBTAINED MI TH A'l.t 6=0. 

OUTANIXI.K) OBTAINED UITH A=0. . B=l. 



SUBROUTINE ELl 2(R ,K ,CK. A, S| 

TEST ARGUMENT 
IF(XI2, lt2 

1 R=0. 
RETURN 

TEST MODULUS 

2 C=0. 
0=0.5 
IF(CKI7,3t T 

3 R = SQRT( l.*X*X) 

R = (A-BI*ABS(X)/R«^S*ALOG<ABSIX}+RI 
TEST SIGN OF ARGUMENT 

4 R=R*C*tA-3| 
IF(XI5.6,& 

5 R^-R 

6 RETURN 

INITIALI2ATI0N 

7 AM=(B*At*0.5 
AA=A 

R=6 

ANG=ABS( l./XI 

PIH=0. 

ISI=0 

ARI= I. 

6E0=A6S(CKI 

LANOEN TRANSFORMATION 

8 R=AA*GEO*R 
SGEOsARKGEO 
AA'AN 
AARI'ARI 

ARITHHETIC MEAN 

ARI=G£a»ARI 

SUM OF SINE VALUES 

AN=(R/ARI*AA)*0.5 

AANG=ABS(ANG) 

ANG=-SGEO/ANG*ANG 

PIMA=PIM 

IFI ANG110,9t1L 
? ANG=-1.E-9*AANG 
:^ PIM = PIM*3. 1415927 

ISI=ISI+l 
I AANG'ARI*ARI«-ANG«AN& 

P=D/S0RT(AANG1 

IF( ISI-4) 13,12,12 

Z ISI":ISI-4 

3 IF( ISI-21 15, 14,14 
V P = -P 
i C=C*P 

= 0*( AARI-GE0»*0.5/ARI 
1F( ABSI AARI-GE0)-I.E-4*AAftl ) 17. I 7, 16 
!> SGEO^SQRTISGEO) 

GEOMETRIC MEAN 

C£0=SGEOtSCEO 

PIH=PIH*PIMA 

ISI=ISI*[S1 

GOTO a 

ACCURACY HAS SUFFICIENT 

R-l ATAN(ARI/ANGI*PIM>»AN/ARI 

C=C+D*ANG/AANG 

GOTO 4 

END 



ELI2 


480 


EL 1 2 


490 


EL 12 


son 


ELI2 


510 


ELI2 


•>7ft 


ELI? 


530 


ELI2 


540 


EL 12 


550 


ELI2 


560 


ELI2 


^70 


EL 12 


580 


EL 12 


590 


ELI2 


6C0 


ELI2 


610 


ELI2 


620 


EL 12 


630 


EL 12 


640 


ELI2 


650 


EL 12 


660 


ELI2 


6 70 


EL 12 


680 


EL 1 2 


690 


ELI2 


700 


ELJ2 


710 


EL 1 2 


720 


EL 12 


710 


ELI2 


74C 


ELI2 


750 


ELI2 


760 


eLI2 


770 


EL 1 2 


TBO 


FLT? 


790 


ELI2 


600 


ELI2 


eio 


ELI2 


820 


ELI2 


8 30 


ELI2 


840 


EL 12 


B50 


ELI2 


660 


EL 12 


B70 


EL 12 


880 


EL 12 


890 


ELI2 


90r 


EL I 2 


910 


EL I 2 


920 


EL 12 


9iO 


eLi2 


940 


FLI? 


9W 


ELI2 


960 


ELI2 


970 


ELI2 


980 


EL 12 


990 


ELI21000 


tiumo 


EL 121020 


ELI21030 


ELI21040 


ELI21050 


ELI21060 


£LI2i070 


ELI21080 


EL 12 1090 
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the final result is the iteration scheme: 



^N+l = ^"N.l^°'<y'^"N.l> 



Vl = ^ 



c = d , • c , 

n n+1 n+1 



c / ari „ + geo 
n+1 n + 2 ^ n+ 1 

c yarl + ari 
n+1 n+2 n+1 



for 



n= N, N - 1, ..., 1. 



Then c = cotv>, and: 



sn (x, k) = 



Vl + c, V 1 + cot^ 



= sin^ 



en (X, k) = sn . c = sin<P • cot^= cos^p 

2 2~ 
-. ,-, -^, J 1 - k sin^p 



SUBROUTINE JELf 
" COMPUTES THE THREE JAC06IAN ELLIPTIC FUNCTIONS SN, CN, 

USAGE 

CALL JELF<SN,CN,DN.X.SCKI 

OESCftlPTION OF PARAMETERS 

SN - RESULT VALUE SN( X) 

CN - RESULT VALUE CN(XI 

ON - RESULT VALUE 0N(X| 

X - AftCUHENT OF JACOBIAN ELLIPTIC FUNCTIONS 

SCR - SQUARE OF COHPLEMENTARV HOOULUS 

REMARKS 
NONE 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
NONE 

HETHOO 

OEFINITION ^^ „ _„ 

X-lNTEG«ALH/SQRT(U-T«ri*U-(MTl**2)», SUMtlED OVER 
T FROM TO SNI, WHERE K-SQRT t l-SCKI . 
SN^SN * CN*CN * 1 
(K*SNI«*2 ♦ 0N*«2 • I. 

CALCULATION IS DONE USING THE PROCESS OF ^♦^E^^^^ "^f !,'^, 



JELF 
.JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
jELf 
JELF 
JELF 
JELF 
JEi-F 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 



GEOMETRIC MEAN TOGETHER MITH GAUSS DESCENDING TRANSFORMAT lONJELF 

8EF0RE INVERSION OF THE INTEGRAL TAKES PLACE. JELP 

REFERENCE ■'^'■t 

R. SULIRSCH, NUMERICAL CALCULATION OF ELLIPTIC INTEGRALS ANOJELF 

ELLIPTIC FUNCTIONS. -*£»-•= 

HANDBOOK SERIES OF SPECIAL FUNCTIONS JELF 

NUMERISCHE NATHEMATIK VOL. 7. 1^65, PP. 78-90. JELF 

JELF 
JELF 



SUBROUTINE J£LF(SN,CN,ON.X,SCK) 



DIMENSION ARK 12I.GEO( 12) 

TEST MODULUS 

CM-SCK 

Y"K 

IF(SCK)3t 1.4 



JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 
JELF 



100 
110 
120 
130 
1*0 
150 
160 
170 
180 
190 
200 
210 
Z20 
230 
240 

2 50 
260 
ZTO 
280 
290 
300 
310 
320 

3 30 
340 

350 

160 
370 
360 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 



0-EXPIX) 
A-l./O 

e-A«^o 

CN>2./8 

ON«CN 

SN-TANH(XI 

DEGENERATE CASE SCK-0 GIVES RESULTS 
CN X - ON X - 1/COSH X 
SN X « TANH X 

RETURN 

JACQBIS MODULUS TRANSFORMATION 

D*1.-SCK 

CM"- SCR /D 

0>SQRTIDI 

Y-D*X 

A«l. 

DN-1. 

DO 6 I « 1.12 

L-I 

ARni) = A 

CM-SQRT(CM) 

CEOt I I -CM 

C*U«CNI*.5 

IFIABS(A-CH)- 
. CM-A*CM 
, A*C 



l.E-4«AI 7.7,5 



START BACKWARD RECURSION 

7 ir«c»r 

SN'SINf Y) 

CN>COSI Yt 

IFISNlB.13tB 
B A-CN/SN 

C-A*C 

00 9 I-UL 

K.L-I*1 

B-ARIIKI 

A'C*A 

C»OM*C 

aN><GEOIKlM)/(B«A) 
9 A-C/6 

A«I./SQRTIC*C*l.l 

IFISNIIO.II.IL 
10 SN--A 

GOTO 12 
U SN-A 

12 CN-C*SN 

13 IFISCKI 14,2.2 

14 A'ON 
ON-CN 
CN>A 
SN'SN/D 
RETURN 
END 



JELF 910 
JELF 520 
JELF S30 
JELF S40 
JELF SSO 
JELF S60 
JELF S70 
JELR SBO 
JELF 590 
JELF 600 
JELF 610 
JELF 620 
JELF 630 
JELF 640 
JELF 650 
JELF 660 
JELF 6T0 
JELF 660 
JELF 690 
JELF 700 

JELF no 

JELF 720 

JELF 730 

JELF T40 

JELF 750 

JELF 760 

JELF 770 

JELF rao 

JELF 790 

JELF BOO 

JELF 8L0 

JELF 820 

JELF 830 

JELF B40 

JELF 850 

JELF S60 

JELF 870 

JELF aao 

JELF B90 
JELF 900 
JELF 910 
JELF 920 
JELF 930 
JELF 940 
JELF 950 
JELF 960 
JELF 970 
JELF 980 
JELF 990 
J ELF 1000 
JELFIOLO 
JELF1020 
JELF1030 
J ELF 1040 



SUBROUTINE OJELF 

PURPOSE 

COMPUTES THE THREE JACOBIAN ELLIPTIC FUNCTIONS SN, CN, ON. 



CALL DJ6LF(SM,CN,0N,X,SCM 



OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 



OJEL 
OJEL 
OJEL 



DESCRIPTION OF PARAMETERS 

SN - RESULT VALUE SN(XI IN DOUBLE PRECISION 

CN - RESULT VALUE CN(KI IN DOUBLE PRECISION 

ON - RESULT VALUE ON(X) IN DOUBLE PRECISION 

X - DOUBLE PRECISION ARGUMENT OF JACOBIAN ELLIPTIC 

FUNCTIONS 
SCK - SQUARE Of COMPLEMENTARY MODULUS IN DOUBLE PRECISION OJEL 

REMARKS 
NONE 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

NONE 



METHOD 

[JEFINITION ^,^„ 

X = INTEGRAL(l/SQRTIIl-T«n»(l-(K*TI**2II, SUMMED OVER 

r FROM TO SN) , WHERE K=SQftT( l-SCK) . 

SN»5N ♦ CN*CN - I 

(K*SN)*»2 ♦ 0N*»2 = I. 

EVALUATION ,,^ 

CALCULATION IS DONE USING THE PROCESS OF THE ARITHMETIC 

GEOMETRIC MEAN TOGETHER WITH GAUSS DESCENDING TRANSFORMAT lONOJEL 

BEFORE INVERSION OF THE INTEGRAL TAKES PLACE. OJEL 

R. BULIRSCH. NUMERICAL CALCULAflUN OF ELLIPTIC INTEGRALS ANDDJEL 
ELLIPTIC FUNCTIOMS. 

HAN0B30K SERIES OF SPECIAL FUNCTIONS 
NUMERISCHE MATHEMATIK VOL, 7, 1965. PP. 73-90. 



OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 



SUBROUTINE OJELF( SN ,CN,DN. X , SCKI 

DIMENSION ARI(12) .GEQ( 12) 

DOUBLE PRECISION SH .CN.ON, X , SCK , ARI .GEQ.CM , Y , fl.6,C .0 

TEST HOOULUS 

C«=SCK 
Y = X 

IFISCK) 3. 1,4 
I 0=DBXP(XI 
4=1.00/0 
8 = A*0 
CN =2.00/8 
DN=CN 

A-(0-A)/2.00 
SN=A«CN 

DEGENERATE CASE SCK=0 GIVES RESULTS 

CN X = ON X - 1/COSH X 

SN K ^ TANH K 

2 RETURN 

JACOBIS HOOULUS TRANSFORMATION 

3 0= I, 00- SCK 
CM=-SCK/0 
D=OS0Rr(O) 
Y=0*X 



DJEL 
DJEL 
DJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
DJEL 
DJEL 
OJEL 
DJEL 
OJEL 
OJEL 
DJEL 
OJEL 
OJEL 
OJEL 
OJEL 

OJR 

DJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
OJEL 
DJEL 
OJEL 



100 
ILO 
120 
130 

140 
150 
160 
170 
IBO 
190 
200 
210 
220 
230 
240 
250 
260 
2 70 
2 SO 
290 
300 
310 
320 
330 
34C 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
4B0 

4 90 
500 
510 
520 

5 30 
540 
550 
560 

570 

580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
&B0 
690 
700 
710 
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« *=1.00 
ON=t.O0 
DO 6 I<1. 1^ 
L-I 

CM=0SORT(CHI 

GEO( It':CH 

C = U*CHI«.5D0 
IF) OABS(A-CH|- 

5 CH=**CM 

6 A=C 



I .0-9*AI 7,7,5 



START BACKUARO RECURSION 



SN=DSIN(¥I 
CN=DCOS)YI 
IF(SN)8,13. 
4=CM/SN 



C = A»C 



OJ£L 720 
OJEL 7 30 
DJEL 740 
0J€L 750 
OJEL 760 
OJEL 770 
OJEL 780 
OJEL 790 
OJEL 800 
OJtL 810 
OJEL 820 
OJEL 830 
OJEL 840 
OJEL 8$0 
OJEL S60 
OJEL 870 
OJEL 880 
OJEL 890 
OJEL 900 
OJEL 910 



DO 9 I-UL 

K=L-I*l 

S^ARKKI 

A = C*A 
C=OH*C 

0N = ICE0(Kl+AI/<e4-A) 
9 A=C/e 

A=1.00/DS0Rr(C*C*i-O0) 
IF($NI10, U,ll 
10 SN=-A 

GOTO U 
J I SN = A 

12 CN=C*SN 

13 [F(SCKIK,2.2 

14 A -ON 
ON-CN 
CN-A 
SN-SN/O 
RETURN 
END 



OJEL 920 
OJEL 930 
OJEL 940 
OJEL 950 
OJEL 960 
OJEL 970 
OJEL 980 
OJEL 990 
OJEL 1000 
OJELIOIQ 
OJEL 1020 
0JEL1030 
0JEL1040 
0JEL1050 
OJEL 1060 
DJCL1070 
OJEL1080 

OJEL1090 

OJEL 1100 
OJELlllO 
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APPENDIX A: ACCURACY OF SUBROUTINES 



The subroutines in SSP can be broken down into three 
major categories from the standpoint of accuracy. 
They are (1) subroutines having little or no effect 
on accuracy, (2) subroutines whose accuracy is de- 
pendent on the characteristics of the Input data, and 
(3) subroutines in which definite statements on accu- 
racy can be made. 

SUBROUTINES HAVING LITTLE OR NO EFFECT 
ON ACCURACY 

The following subroutines do not materially affect 
the accuracy of the results, either because of the 
simple nature of the computation or because they do 
not modify the data: 

ABSNT — detection of missing data 

ARRAY — vector storage/double-dimensioned 
conversion 

ATSE, — table selection out of an equidistant 
DATSE table 

ATSG, — table selection out of a general table 
DATSG 

ATSM, — table selection out of a monotonic table 
DATSM 

AVDAT ~ data storage allocation 

BISER — biserial correlation coefficient 

BOUND — selection of observations within bounds 

CADD — add column of one matrix to column of 
another matrix 

CCPY — copy column of matrix into vector 

CCUT — partition by column 

CHISQ ~ X^ test for a contingency table 

CINT — interchange two columns 

CONVT — single-precision/double-precision 
conversion 

CSRT ~ sort matrix columns 

CSUM — sum the columns of a matrix 

CTAB — tabulate the columns of a matrix 

CTIE — adjoin two matrices by colunrn 

DCLA — replace diagonal with scalar 

DCPY — copy diagonal of matrix into vector 

FRAT, — used with ARAT 
DFHAT used with DARAT 



GAUSS — normal random numbers 

GMADD — add two general matrices 

GMSUB — subtract two general matrices 

GMTRA — transpose of a general matrix 

KOLM2 — Kolmogorov - Smirnov two-sample test 

KRANK — Kendall rank correlation 

LOC — location in compressed-stored matrix 

MADD — add two matrices 

MCPY — matrix copy 

MFUN — matrix transformation by a function 

MOMEN — first four moments 

MP AIR ~ Wilcoxin's signed rank test 

MPRC, — permutations of rows or columns of a 
DMPRC matrix 

MSTR — storage conversion 

MSUB — subtract two matrices 

MTRA — transpose a matrix 

ORDER — rearrangement of intercorrelations 

PADD — add two pol5momials 

PADDM — multiply polynomial by constant and add 
to another polynomial 

PCLA — replace one polynomial by another 

PERM — inverse of permutation - transposition 

PHI — i*i coefficient 

PMPY — multiply two polynomials 

PNORM — normalize coefficient vector of 
polynomial 

PPRCN — operations with permutations 

PSUB ~ subtract one polsmomial from another 

PVSUB — substitute variable of polynomial by 
another polynomial 

QTEST — Cochran Q-test 

RADD — add row of one matrix to row of another 
matrix 

RANDU — uniform random numbers 

RANK — rank observations 

RCPY — copy row of matrix into vector 

RCUT — partition by row 
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RECP ~ reciprocal function for MFUN 

RINT — interchange two rows 

RSRT — sort matrix rows » 

RSUM — sum the rows of a miatrix 

RTAB — tabulate the rows of a matrix 

RTIE — adjoin two matrices by row 

SADD — add scalar to matrix 

SCLA — matrix clear and add scalar 

SCMA — scalar-multiply column and add to 
another column 

SDIV — matrix divided by a scalar 

SIGNT — sign test 

SMPY — matrix multiplied by a scalar 

SRANK — Spearman rank correlation 

SRATE — survival rate 

SRMA — scalar-multiply row and add to another 
row 

SSUB — subtract scalar from a matrix 

SUBMX — build subset matrix 

SUBST — subset selection from observation 
matrix 

TABl — tabulation of data (one variable) 

TAB2 — tabulation of data (two variables) 

TIE — calculation of ties in ranked observations 

TRACE — cumulative percentage of eigenvalues 

TTEST — tests on population means 

TWOAV — Friedman two-way analysis of variance 

UTEST ~ Mann- Whitney U-test 

WTEST — Kendall coefficient of concordance 

XCPY — copy submatrlx from given matrix 



SUBROUTINES WHOSE ACCURACY IS DATA- 
DEPENDENT 

The accuracy of the following subroutine/^ cannot be 
predicted because it is dependent on the character- 
istics of the input data and on the size of the prob- 
lem. The programmer using these subroutines must 
be aware of the limitations dictated by numerical 
analyses considerations. It cannot be assumed that 
tlie results are accurate simply because subroutine 
execution is completed. Subroutines in this category 
are: 



ACPI, 
DACri 

AHI, 
DAHI 

ALI, 
DALI 

APCH, 
DAPCH 



APFS, 
DAPFS 

APLL, 
DAPLL 

APMM, 
DAPMM 

ARAT, 
DARAT 

ATEICJ 

AUTO 

AVCAL 

CANOR 

CNPS, 
DCNPS 



— continued fraction interpolation 

— Aitken-Hermite interpolation 

— Aitken-Lagrange interpolation 

— construction of normal equations for a 
polynomial least-squares fit to a tabu- 
lated function 

— solution of normal equations for least- 
squares fit 

— construction of normal equations for 
least-squares fit to tabulated function 

— Chebyshev approximation of tabulated 
functions 

■ least-squares rational approximation of 
tabulated functions 

eigenvalues of a real Hessenberg matrix 

autocovariances 

E and A operation 

canonical correlation 

value of series expansion in Chebyshev 
polynomials 



CORRE — means, standard deviations, and 
correlations 

CROSS — cross covariances 

CSPS, ~ value of series expansion in shifted 
DCSPS Chebyshev polynomials 

DEAR, ~ first derivative of a function at the 
DDBAR border of the definition Interval 

DCAR, — first derivative of a fimction at the 
DDCAR center of the definition interval 

DET3, — differentiation of equidistantly tabulated 
DDET3 functions using three points interpolation 



Appendix A— Accuracy of Subroutines 387 



DET5, ~ differentiation of equidistantly tabulated 
DDET5 functions using five points interpolation 

DGT3, — differentiation of tabulated functions 
DDGT3 using three points interpolation 

DISCR — discriminant functions 

DM ATX ~ means and dispersion matrix 

EIGEN — eigenvalues and eigenvectors of a real, 
symmetric matrix 

EXSMO — triple exponential smoothii^ 

FACTR — factorization of a matrix into a product 
of triangular matrices 

FMCG, — unconstrained minimum of a function of 
DFMCG several variables — conjugate gradient 
method 

FMFP, — unconstrained minimum of a function of 
DFMFP several variables—Davidon method 

FORIF ~ Fourier analysis of a given function 

FORIT ~ Fourier analysis of a tabulated function 

GDATA — data generation 

GELB, ~ system of general simultaneous linear 
DGELB equations with band-structured 
coefficients 

GELG, ~ system of general simultaneous linear 
DGELG equations by Gauss elimination 

GELS, ~ system of general simultaneous linear 
DGELS equations with symmetric coefficients 

GMPRD ~ product of two general matrices 

GTPRD — transpose product, general matrices 

HARM, ~ complex three-dimensional analysis 
DHARM 

HEPS, — value of series expansion in Hermite 
DHEPS polynomials 

HPCG, ~ solution of general system of first-order 
DHPCG ordinary differential equations with 
given initial values by Hamming' s 
modified predictor-corrector method 

HPCL, — solution of linear system of first- 
DHPCL order ordinary differential equations 
with given initial values by Hammii^'s 
modified predictor-corrector method 

HSBG — reduction of a real matrix to 
Hessenberg form 

KOLMO — Kolmogorov-Smirnov one-sample test 

LAPS, — value of series expansion in Laguerre 
DLAPS 



LBVP, ~ solution of system of linear first-order 
DLBVP ordinary differential equations with 

linear boundary conditions by method 

of adjoint equations 

LEPS, — value of series expansion in Legendre 
DLEPS polynomials 

LLSQ, — solution of linear least-stpiares 
DLLSQ problems 

LOAD ~ factor loading 

MCHB, — factorization of a symmetric positive 
DMCHB definite band matrix 

MATA ~ transpose product of a matrix 
MEANQ — mean square operation 

MFGR, — matrix factorization and rank determina- 
DMFGR tion 

MFSD, — factorizes a symmetric positive definite 
DMFSD matrix (square root method) 

MFSS, — rank determination and factorization of 
DMFSS symmetric positive semidefinite matrix 

MINV ~ matrix inversion 

MISR — missing value correlations 

MLSS, ~ solve a system of linear equations with 
DMLSS symmetric positive semidefinite matrix 

MPRD ~ matrix product 

MTDS, — division of a matrix by a triangular matrix 

DMTDS 

MULTR ~ multiple regression and correlation 

NROOT — eigenvalues and e^envectors of a special 
nonsymmetric matrix 

PCLD ~ complete linear division 

PDER — derivative of a polynomial 

PDIV — divide polynomials 

PEON, ~ economization of a polynomial for 
DPECN symmetric range 

PECS, — economization of a polsmomial for 
DP ECS unsymmetric range 

PFQB, — determination of a quadratic factor of a 
DPFQB polynomial 

PGCD — greatest common divisor of two poly- 
nomials 

PILD — evaluate polynomial and its first deriva- 
tive 

PINT — integral of a polynomial 

POINT — point biserial correlation 
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POLRT — real and complex roots of a real 
polynomial 

PQSD — quadratic synthetic division of a 
polynomial 

PRBM, — roots of a polynomial with real 
DPRBM coefficients — Bairstow's method 

PROBT ~ probit analysis 



PRQD, 
DPRQD 

PVAL 

QA2- 
QAIO, 
DQA4- 
E)QA32 

QATR, 
DQATR 

QG2- 
QGIO, 
DQG4- 
DQG32 

QH2 
QHIO, 
DQH8- 
DQH64 

QHFE, 
DQHFE 

QHFG. 
DQHFG 

QHSG, 
DQHSG 

QHSE, 
DQHSE 

QL2- 
QLIO, 
DQL4- 
r)QL32 

QSF, ■ 
DQSF 

QTFE, 
DQTFE 

QTFG, - 
DQTFG 

RHARM,- 
DRHARM 



roots of a real polynomial by QD algo- 
rithm with displacement 

evaluate polynomial 

integration of a given function by asso- 
ciated Gaussian-Laguerre quadrature 
formulas 



• integration of a given function by trape- 
zoidal rule together with Romberg's 
extrap)olation method 

■ integration of a given function by Gaussian 
quadrature formulas 



integration of a given function by 
Gaussian - Hermite quadrature formulas 



■ integration of equidistantly tabulated 
function with first derivative by Hermltian 
formula of first order 

■ integration of monotonically tabulated 
function with first derivative by Hermitian 
formula of first order 

■ integration of monotonically tabulated 
function with first and second derivatives 
by Hermitian formula of first order 

integration of equidistantly tabulated 
function with first and second derivatives 
by Hermitian formula of second order 

integration of a given function by 
Gaussian-Laguerre quadrature formulas 



- integration of equidistantly tabulated 
function by Simpson's rule 

integration of equidistantly tabulated 
function by trapezoidal rule 

integration of monotonically tabulated 
function by trapezoidal rule 

real one-dimensional analysis 



Ria — solution of first-order differential equa- 
tion by Runge-Kutta method 

RK2 — tabulated solution of first-order differen- 

tial equation by Runge-Kutta method 

RKGS, — solution of system of first-order ordinary 
DRKGS differential equations with given initial 
values by the Runge-Kutta method 

RSLMC — solution of a system of linear equations 

RTMI, — determine root within a range by 
DRTMI Mueller's iteration 

RTNI, — refine estimate of root by Newton's 
DRTNI iteration 

RTWI, — refine estimate of root by Wegstein's 
DRTWI iteration 

SE13, — local least-squares smoothing of 

DSE13 equidistantly tabulated functions 

SE15, local least-squares smoothing of 

DSE15 equidistantly tabulated functions 

SE35, — local least-squares smoothing of 
DSE35 equidistantly tabulated functions 

SG13, — local least-squares smoothing of 

DSG13 tabulated functions 

SIMQ — solution of simultaneous linear, 

algebraic equations 

SINV, — inversion of a symmetric positive defi- 
DSINV nite matrix 

SMO — application of filter coefficients 

(weights) 

STPRG — stepwise regression 

TALLY — totals, means, standard deviations, 
minimums, and maximums 

TCNP, — transform series expansion in 
DTCNP Chebyshev polynomials to a polynomial 

TCSP, — transform series expansion in shifted 
DTCSP Chebyshev polynomials to a polynomial 

TETRA — tetrachoric correlation 



THEP, 
DTHEP 

TLAP, 
DTLAP 

TLEP, 
DTLEP 

TPRD 

VARMX 



— transform series expansion in Hermite 
polynomials to a polynomial 

— transform series expansion in Laguerre 
polynomials to a polynomial 

— transform a series expansion in 
Legendre polynomials to a polynomial 

— transpose product 

— varimax rotation 
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SUBROUTINES WITH DEFINITE ACCURACY 
CHARACTERISTICS 

The subroutines in this section have accuracy char- 
acteristics that can be specified on an individudi 
basis. The mathematical descriptions for many of 
these subroutines contain information on truncation 
error of a strictly theoretical nature. ITie actual 
implementation of these subroutines on System/360 
results in the accuracy noted in Table 1. The 
standard reference for comparing the accuracy of 
these subroutines is M. Abramowitz, I. A. Stegun, 
Handbook of Mathematical Functions , National Bureau 
of Standards, Washington, D. C. , March 1965. How- 
ever, in certain cases, other tables were used, as 
noted below. It should be remembered that in System 



/360 single-precision floating point, there are just 
over six significant figures. 

Maximum differences beTow are given in terms of 
number of decimal places (D. P. ) and/or number of 
significant digits (S. D.) which agree. The number 
of digits tabled should be considered when accuracy 
statements are viewed; that is, certain tables are 
given to only five places, whereas the algorithms 
used may be more accurate. In compiling maximum 
differences, the maximum was taken over the set of 
points indicated in the table. The average difference 
was normally much smaller. 

The notation x = a (b) c implies that a, a + b, 
a + 2b, . . . , c were the arguments (x) used. 



TABLE 1 



Name 


Functions 
calculated 


Functions 

checked 

with reference 


Range 

checked 

with reference 


Maximum 
difference 


BDTR 


p=Ix (a,b) 


Ix"! (a.b) 


p=, 0001, .0005 


correct to 5 






Tables by Leon 


a=l(l) 40 


D.P. 






H. Harter: New 


b=5(5) 40 








Tables of the 










Incomplete 


pF=. 0100, . 0500 








Gamma Function 


a= 2 (2) 10 








Ratio and of 


b=5(5)30 








Percentage 










Points of the 










X ^ and Beta 










Distribution, 










1964 










"t" distribution: 


x= .01, and 
x= .5 (.5) 4 for 


. 5 in 5th D. P. 






t(x.n) = 


n= 1(1)24, and 








[l+Iz(c,d)]/2 


n= 30, 40, 60, 








where 
z=x2/ (X +n) 


120 
















c= 1/2 










d= n/2 










Tables: 










Biometrika 










vol. 1 
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Name 



Functions 
calculated 



Functions 

checked 

with reference 



Range 

checked 

with reference 



Maximum 
difference 



BESJ 
J 

Bessel 
function 



Parameter 
D=l . E -6 



Jn(x) 



BESK 
K 

Bessel 
function 



BESY 
Y 

Bessel 
function 



CDTR 



Kn(x) 



Yn(x) 



y=Pg(x) 
where P is 
the X^ 
distribution 
function 
with para- 
meter g. 



JnW 



eXKn(x) 
eXKn(x) 
Kn(x) 



Yn(x) 



y = Pg (X) 



n= 0(1)2 

x= 0(0. 2)17.4 

n= 3(1)9 
x= 0(0. 2)20 



n= 10(1)11 
x= 10(0.2)20 

n = 0(1)20 

20 (10) 50 

100 
x= 1,2,5,10,50, 

100 



2 in 5th S. D. 

1 in 5th S. D. for 
Jq(x) > 1. exact to 
5 D. P. for Jn(x)< 1. 
(limit of table) 

3 in 5th S. D. 



2 in 5th S. D. 



n= 0(1)2 x= 0.2(0. 2)20 

n= 3(1)9 3F 0.2(0. 2)10 
= 10(1.0) 20 
n=0(l)20 x=l,2,5,10 

20(10)50 50,100 

100 



1 in 6th S. D. 

1 in Stii S. D. 

2 in 5th S. D. 



n= 0(1)2 

x= 0.2(0. 2)17. 4 

n= 3(1)9 

x= 0.2(0. 2)20 



n=10 

x= 10(0. 2)20 

n= 0(1)20 

20(10)50 

100 
x=l, 2, 5, 10, 50, 100 



3 in 5th S, D. 



1 in 5th S. D. for 
Yq (x) > 1. exact to 
5 D. P. for Yji (x) < 1. 
(limit of table) 
3 in 5th S. D. 



1 in 5th S. D. 



x=. 001 (.001). 01; 
.01 (.01) 1.0; 
1.0 (.1)2.0; 
2.0 (.2) 10.0; 
10. 0(.5)20. 0; 
20 (1) 40 
40 (2) 76 

for 

g=l(l)30 



1 in the 5th D. P. 
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Name 



CEH 
Complete 
elliptic 
1st integral 



Functions 
calculated 



K(k) 



Functions 

checked 

with reference 



K(m); k =Jm 
K(a); k=sina 

(a in degrees) 



Range 

checked 

with reference 



m=.01 (.01). 99 
a= 1(1)73 

a= 74(1)86 



Maximum 
difference 



2 in 7th S. D. 

2 in 7th S. D. 

3 in 7th S. D. 



DCELl 

Complete 

elliptic 

1st integral 



K(k) 



CEL2 

Generalized 
complete 
elliptic 2nd 
integral 



K(k) 

with A = B = 1 

E(k) 

with A = 1 

B = 1 -k^ 



K(m); k =J m 



K(a ); k = sin a 
(a in degrees) 



K(m) ; k = */ m 
K(Q! ); k = sin a 

(a in degrees) 

E(m); k=-J m 

E(a); k = sin a 

K'E+ E'K- KK" 

(Legendre's re- 
lation) 



m= .01(.01),86 

m= .87(.01) .96 
m= .97(.01).99 
a = 1(1)75 
a = 76(1)80 
a = 81(1)86 



m= .01(. 01) .99 
a = 1(1)73 

a = 74(1)86 
m = . 01(01) 
a = 1(1)86 
m= .01(.01).99 
a = 1(1) 89 



I in 16th S. D. 

4 in 16th S. D. 

II in 16th S.D. 

1 in 16th S. D. 

2 in 16th S. D. 
11 in 16th S. D. 



2 in 7th S. D. 

2 in 7th S. D. 

3 in 7th S. D. 
2 in 7th S. D. 
2 in 7th S. D. 
7 in 7th S. D, 
1 in 6th S. D. 



DCEL2 
Generalized 
complete 
elliptic 
2nd integral 



K(k) 

with A = B = 1 

E(k) 

with A = 1 

B= 1 -k^ 



K(m); k = yin" 

K(a); k = sin a 
(a in degrees) 

E(a); k = sin a 
K'E+ E'K- KK? 
(Legendre's 
relation) 



m= .01(. 01).99 

a = 1(1)80 

a = 81(1)86 

a = 1(1)89 

m= .01(.01).99 

a = 1(1)89 



2 in 16th S. D. 

2 in 16th S. D. 

11 in 16th S. D. 
2 in 16th S. D. 
9 in 16th S. D. 
9 in 16th S. D. 



CNP 

Chebyshev 

polynomials 



Tn(x) 



TnW 
n= 0(1)12 

Tn(x) 
n = 0(1)50 



x= .0(. 2)1.0 



X = . 00(. 05)1. 00 



1 in 5th D. P. 



6 in 5th D. P. 
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Name 



Functions 
calculated 



Functions 

checked 

with reference 



Range 

checked 

with reference 



Maximum 
difference 



DCNP 

Chebyshev 

polynomials 



Tn(x) 



TnW 
n= 0(1)12 



x= .0(. 2)1.0 



No error in 10th D. P. 



CS 



Fresnel 
integrals 



C2(u) 



S2(u) 



with 



IT 2 
u=-x 



C2(u) 



S2(u) 



x= ,02(. 02).78 

<U < 1 

x= .80(.02)1.58 

1 <u<4 



x= 1.60(.02)5.00 
4 < U < 40 

x= .02(. 02).78 

<u< 1 

x= .80(. 02)1.58 

1 <u<4 

x= 1.60(.02)5.00 
4 < u < 40 



1 in 7th D. P. 



6 in 7th S. D. 



2 in 7th S. D. 



1 in 7th D. P. 



8 in 7th S. D. 



2 in 7th S. D. 



CSP 
Shifted 
Chebyshev 
polynomials 



T*(x) 



Tn (x) = Tn(2x - 1) 
n= 0(1)12 

TnW 
n= 0(1)50 



x= .5(.1)1.0 



x= .00(. 05)1.00 



2 in 5th D. P. 



7 in 5th D. P.+ 



DCSP 
Shifted 
Chebyshev 
polynomials 



TnW 



T* (x) = Tn(2x - 1) 
n= 0(1)12 



x= .5(. 1)1.0 



No error in 10th D. P. 



DLGAM 
(log of 
the gamma 
function) 



Inr(x) 



Inr(x) 



iogior(x) 



x=l 
x=1.005(. 005) 

1.025 
x=1.980(.005) 

1.995 
x=1.03(.01)1.31 
x=1.32(.01)1.67 
x=1.68(.01)1.97 
x=2 
X=3. 0(1. 0)100.0 



6 in 9th D. P. 

9 in 8th D. P. 

9 in 8th S. D. 
8 in 9th S. D. 
8 in 10th S. D. 

7 in 9th S. D. 
6 in 9th S. D. 

No error in 8 pkco 

tables 



+ Differences between results of single- and double-precision routines 
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Name 


Functions 
calculated 


Functions 

checked 

with reference 


Range 

checked 

with reference 


Maximum 
difference 


ELIl 


nz/a) 


F(C/«) 


C 


= 0(5)10 


2 in 7th D. P. 


Incomplete 


with 


(^ , a in degrees) 


a 


= 0(2)90 




elliptic 1st 


X = tan^ 










integral 


k = sin n 
ck :d l-k2 














C 


= 15(5)35 


7 in 7th S. D 








a 


= 0(2)90 










K 


= 40(5)50 


11 in 7th D. P. 








a 


= 0(2)90 










C 


= 55(5)85 


3 in 7th S. D. 








a 


= 0(2)90 




DELIl 


F{(p/a) 


F{cp/a) 


<P 


= 0(5)85 


1 in 9th D. P. (prob- 


Incomplete 


with 


(<p , a in degrees) 


a 


= 0(2)90 


ably due to rounding 


elliptic 1st 


X = tan cp 








errors in table) 


integral 


k = sin a 












ck ^1 - k^ 


F(<p/a) + F(^/a) 


^ 


= 0(5)85 






/ _ \ 






2 in 15th D. P. 






= P|/<. 


a 


= 0(2)80 








(fP, a, $ in degrees) 


f 


= Arctan f 

= l/(cos a -tan (0) 




ELI2 


F(C/a) 


F(C/a) 


c 


= 0(5)10 


2 in 7th D. P. 


Generalized 


with A = B = 1 


(^ , a in degrees) 


a 


= 0(2)90 




incomplete 
2nd integral 


E(C/a) 
with A = 1 
and B = 1 - k^ 




a 


= 15(5)35 
= 0(2)90 


7 in 7th S.D. 




X = tan^ 




Z 


= 40(5)50 


11 in 7th D. P. 




k = sin a 




a 


= 0(2)90 






ck =-/ 1 - k^ 




a 


= 55(5)85 
= 0(2)90 


3 in 7th S.D. 






E(C/a) 


C 


= 0,5 


2 in 7th D. P. 






(^ , a in degrees) 


a 


= 0(2)90 










c 


= 10(5)35 


7 in 7th S. D. 








a 


= 0(2)90 










Z 


= 40(5)55 


12 in 7th D. P. 








a 


= 0(2)90 










C 


= 60(5)85 


36 in 7th D. P. 








a 


= 0(2)90 
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Name 


Functions 
calculated 


Functions 

checked 

with reference 


Range 

checked 

with reference 


Maximum 
difference 


DELI2 


F((p/0!) 


F{<p/a) 


<P 


= 0(5)85 


1 in 9th D. P. (prob- 


Generalized 


with A = B = 1 


{<p,/a in degrees) 


a 


= 0(2)90 


ably due to rounding 


incomplete 


E(<p/q!) 








errors in table) 


elliptic 2nd 


with A = 1 










integral 


B - l-k2 


E{(p/a) 


<P 


= 0(5)85 


1 in 9th D. P. 




and 


(<p , a. in degrees) 


a 


= 0(2)90 


(probably due to 




X = tan <p 








rounding errors in 




k = sin a 








table) 




ck =J l-k2 


E(<p/a) +E(i/'/a) 


<P 


= 0(5)85 


2 in 15th D. P. 






= E(-^/a) + sin^a sin 
^^ ^ sin^ 


a 


= 0(2)90 








(<p , a in degrees) 


4' 
f 


= Arctan f 

= l/(cos a • tan <fi) 








F(<p/a) + F(0/a) 


<P 


= 0(5)85 


3 in 15th D. P. 






-{V") 


a 


= 0(2)82 








{<p , a in degrees) 


4' 
f 


= Arctan f 

= l/(cos a • tan (p) 




EXPI 


-Ei(-x) 
when X < 


(Ei(x) + 
Inx + y)/x 


X 


= ,01(.01).50 


1 in 7th S.D. 


Exponential 












integral 


Ei(x) 
when X > 


Ei(x) 


X 


= .50(. 01)1.00 


4 in 7th S. D. 






xeXEi(x) 


X 


= 1.00(. 01)2.00 


7 in 7th S. D. 








X 


= 2. 0(. 1)4.0 


2 in 4th S.D. 








X 


= 4. 0(. 1)10,0 


2 in 7th S. D. 






(-Ei(-x) + 


X 


= -.01(-.01)-.50 


1 in 7th S, D. 






ln|x| + y)/x 












-Ei(-x) 


X 


= -.50(.01)-1.00 


3 in 7th S. D. 








X 


= -1.00(-.01)-2.00 


4 in 7th S. D. 






-xe^Ei(-x) 


X 


= -2.0(-.l)-4.0 


4 in 6th S.D. 


GMMMA 


T(X) 


T(x) 


X 


= 1.0(0.005)2.0 


3 in 6th S, D. 


Gamma 






X 


= 1.0(1.0)57.0 


6 in 6th S. D. 


function 












HEP 


Hn(x) 


Hn(x) 


X 


= 0.5,1,3,5,10 


Maximum relative 


Hermite 




n = 0(1)12 






error 2,10"*^ 


polynomials 




Hn(x) 


X 


= 0.0(. 1)1,0 


Maximum relative 






n = 0(1)50 


X 


= 1(1)10 


error 3, 10-5+ 
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Name 



DHEP 

Hermite 

polynomials 



10 



INUE 



JELF 
Jacoblan 
elliptic 
functions 



Functions 
calculated 



Hn(x) 



Functions 

checked 

with reference 



Hn(x) 

n = 0(1)12 



Io(x) 



I (X) 

n 
n= 1, 2, ..., 10 



sn u = sin <p 
on u = cos (p 

dnu =\l-k^siT?<p 

with 

(f = am u or 

u = ^{(p/a), 

k = sin a 

sck = 1 - k^ 



sn u = sin <p 

(<p , a in degrees) 

en u = cos (p 

(<p , a in degrees) 

dn u =fl-k^sin^ q) 
{cp , a in degrees) 



en u 



dn u 



J 



sn u - sn(2K-u) 

sn u + sn(2K + u) 

sn u + sn(4K - u) 

en u + cn(2K - u) 

en u + cn(2K + u) 

en u - cn(4K - u) 

dn u - dn(2K - u) 
dn u - dn(2K + u) 

dn u - dn(4K - u) 



Range 

checked 

with reference 



0.5,1,3,5,10 



Maximum 
difference 



No error in 11th 
S.D. 



X =[1(1)20] 

(500 random numbers 

applied per unit 

interval) 



X = [l (1) 20j 
(500 random argu- 
ments per unit 
interval) 



9 

a 

<p 
a 

<P 
a 



= 0(1)89 

= 0(5)85 

= 0(1)89 

= 0(5)85 

= 0(1)89 

= 0(5)85 



k2 = .00(.05).95 
t = 0(1)25 
u = t.K(k)/25 

k2 = .00(.05).95 
t = 0(1)25 
u = t. K(k)/25 

k^ = .00(.05).95 
t = 0(1)25 
u = t.K(k)/25 

k2 = . 00(. 05) . 90 
t = 0(1)25 
u = t.K(k)/25 



k2 = .00(. 05).9O 
t = 0(1)25 
u = t.K(k)/25 



k^= .00(.05).m 

t = 0(1)25 
u = t.K(k)/25 



J 



1.2 in 6th D.P. 



5.5 in 6th D.P. 



1 in 6th D. P. + 

2 in 6th D. P. + 

1 in 6th D. P. + 

1 in 6th D. P. ++ 

2 in 6th D. P. ++ 
1 in 6th D. P. ++ 



6 in 6th D, P. 
6 in 6th D. P. 



10 in 6th D. P. 
4 in 6th D. P. 

4 in 6th D. P. 
6 in 6th D. P. 

3 in 6th D. P. 

3 in 6th D. P. 

5 in 6th D. P. 



+ Calculation of ^ = f(<p/a) with double-precision subroutine 
++ Difference between result of single- and double-precision routines 
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Name 


Functions 
calculated 


Functions 

checked 

with reference 


Range 

checked 

with reference 


Maximum 
difference 


DJELF 


sn u = sin (p 


sn u = sin (p 

((p, a in degrees) 


cp = 5(5)85 
a = 0(2)90 


2 in 15th D. P. + 


Jacobian 

elliptic 

functions 


en u = cos (p 


en u = cos (p 

{<p , a in degrees) 


(p = 5(5)85 
a = 0(2)90 

<p = 5(5)85 
a = 0(2)90 

k^ = .00(.05).90 
t = 0(1)25 


3 in 15th D. P. + 

2 in 15th D. P. + 
5 in 15th D. P. 


dn u =V 1 - k^a 

. 2 
(a = sm {p 

with 

cp = am u 

u - F(<p/a) 

k = sinO! 

sck = 1 - k2 


dn u =Vl-k2sin2<;p 
{<p , a in degrees) 

sn u - sn(2K - u) 






sn u + sn(2K + u) 


u =t.K(k)/25 


5 in 15th D. P. 






sn u + sn(4K - u) 




12 in 15th D. P. 






en u + cn(2K - u) 
en u + cn(2K + u) 


k2 = .00(. 05).90 
t = 0(1)25 
u = t.K(k)/25 


3 in 15th D. P. 
3 in 15th D. P. 






en u - cn(4K - u) 




7 in 15th D. P. 






dn u - dn(2K - u) 


k^ = .00(.05).90 
t = 0(1)25 


3 in 15th D. P. 






dn u - dn(2K + u) 


u = t.K(k)/25 


2 in 15th D. P. 






dn u - dn(4K - u) 




6 in 15th D. P. 


LAP 

Laguerre 

polynomials 


Ln(x) 


Ln(x) 

n = 0(1)12 


X = 0.5,1,3 
X =5,10 


2 in 6th D. P. 
1 in 5th S. D. 






Ln(x) 

n = 0(1)50 


X = 0.0(. 1)1.0 
except arguments 
with Lii(x) < 0. 1 

X = 1(1)10 except 
arguments with 
Ln(x) < 0. 1 


Maximum relative 
error 4.10-6+ + 

Maximum relative 
error 1.10-5+ + 


DLAP 

Laguerre 

polynomials 


Ln(x) 


n = 0(1)12 


X = 0.5,1,3,5,10 


No error in 10th 
D. P. 



+ Calculation of ^ =F ((p/a) with double-precision routine 
++ Difference between results of single- and double-precision routines 
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Name 


Functions 
calculated 


Functions 
checked 
with reference 


Range 
checked 
with reference 


Maximum 
difference 


LEP 

Legendre 

polynomials 


PnW 


P^(x) 

n = 0,1,2,3,9,10 

P„(x) 

n =0(1)50 


x= .00(.05)1.00 
x = .00(.05)1,00 


1 in 6th D. P. 
5 in 6th D. P. + 


DLEP 

Legendre 

Polynomials 


PnW 


n = 0,1,2,3,9,10 


x = .00(.05)1.00 


No error in 8th 
D. P. 


NDTR 


y = P (X) 
P = normal 
pdf. 


y = P (X) 


x = -6(.01)6 


7 in 7th D. P. 


NDTRI 


X = p-1 (y) 

p = normal 

pdf. 


X = P"^(y) 


y =.01(.01).99 


5 in 4th D. P. 


SICI 

SINE 

integral 

and 

cosine 

integral 


Si(x) 

c^(x) 


Si(x)/x 
Si(x) 

-(Ci(x) - 

, 2 
Inx - 7 )/x 

Ci(X) 


x = .01(.01).50 
x = ,50(.01)2.00 
x= 2. 0(. 1)10.0 
X = .01(.01).5O 
x = .50(.01)1.50 
x=1.50(.01)2.00 
x = 2. 0(. 1)4.0 
X = 4. 0(. 1)10.0 


1 in 7th S. D. 
1 in 7th S. D. 
1 in 7th S, D. 

1 in 7th S. D. 

2 in 7tii S. D. 

1 in 6th S. D. 

2 in 6th D. P. 
1 in 7th D. P. 



+Difference between results of single-and double-precision routines. 
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Functions 


Range 






Functions 


checked 


checked 


Maximum 


Name 


calculated 


.with reference 


with reference 


difference 


SMTRN 


L(x) 


L(x); 


x = 0(.01) .61 


1 in 6*^ D. P. 


Kolmogorov- 




Tables by 




(1 in 6*^0. P.) 


Smirnov 
limiting 
distribution 




N. Smirnov, 
reprinted in 
Annals of Math. 
Stat. 19, pp. 
280-281 (6- and 


x = .62 


3 in 5th d. P, 
(see program 
comments) 
(3 in5**^D.P.) 






7- place 


x = . 63 (.01) 1.04 


3 in 6th D. P. 






tables). 




(2 in 6th D. P) 






Double-preci- 
sion version 
differences 


x = 1.05(.01)1.15 


6 in 6th D. P. 
(2 in 6th D. P) 






are given in 


x=l. 16(.01)1.20 


9 in 6th D. P. 






parentheses in 




(2 in 6th D. P) 






the right-hand 
column. 


x = 1.21(.01)1.45 
x = 1.46(.01)1.65 
x=1.66(.01)1.86 

x=1.87 

x= 1.88 (.01) 2. 04 
x= 2. 05 (.01) 2. 50 
X = 2. 51 (. 01) 3. 5 


8 in 6th D. P. 
(3 in 6th D. P) 

6 in 6th D. P. 
(1 in 6th D. P) 

2 in 6th D. P. 
(0 in 6th D. P) 

2 in 5th D. P. 
(2 in 5th D. P) 

2 in 6th D. P. 
(1 in 6th D. P) 

1 in 6th D. P. 
(1 in 6th D. P) 

2 in 7th D. P. 
(1 in 7th D. P) 
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APPENDIX B: SAMPLE PROGRAM DESCRIPTIONS 



DATA SCREENING 

Problem Description 

A set of observations is read along with information 
on propositions to be satisfied and limits on a 
selected variable. From this input a subset is ob- 
tained and a histogram of frequency over given class 
intervals is plotted for the selected variable. Total, 
average, standard deviation, minimum, and maxi- 
mum are calculated for the selected variable. This 
procedure is repeated until all sets of input data 
have been processed. 

Program 

Description 

The data screening sample program consists of a 
main routine, DASCR, and six subroutines; namely, 
SUBST, TABl, LOG, BOOL, HIST, and MATIN. 
Three of these (SUBST, TABl, LOG) are from the 
Scientific Subroutine Package. MATIN is a sample 
input routine. HIST is a program for plotting a his- 
togram. For a description of subroutine BOOL see 
subroutine SUBST. 

Capacity 

The maximum size of matrix of observations has 
been set at 1000 elements , the number of observa- 
tions at 200, and the number of conditions at 21. All 
of these can be increased as described under 
"Program Modification" below. 

Input 

Control Cards 

A parameter card with the following format must 
precede each matrix of observations: 



containing the number of conditions and the variable 
to be selected for analysis: 







For Sample 


Columns 


Contents 


Problem 


1-2 


Blank 




3-6 


Up to four-digit identifi- 
cation code (numeric 






only) 


0001 


7-10 


Number of observations 


0100 


11 - 14 


Number of variables 


0004 



Columns 

1-2 
3-4 



Contents 



Number of conditions 
Variable to be selected 



For Sample 
Problem 

02 
03 



Each matrix of observations must be followed by 
a card with a 9 punch in column 1. The condition 
matrix and bounds data are preceded by a card 



A blank card after the last set of input data 
terminates the run. 

Data Cards 

1. For the ojbservation matrix — data cards have 
seven fields of tjen columns each. The decimal point 
may appear any vhere in a field. If no decimal point 
is included, it ii^ assumed that the decimal point is 
to the right of tlie last digit. The number in each 
field may be preceded by blanks. All values for an 
observation are punched consecutively and may con- 
tinue from card to card. However, a new observa- 
tion must start in the first field of the next card. 

2. For the condition matrix (see description in 
the subroutine ^UBST) — each ten-column field con- 
tains a condition to be satisfied. The first two 
columns contain the variable number (right -justified) , 
the third column the relational code, and the last 
seven columns Of each field a floating-point number. 
This number mfly be punched anywhere in the seven- 
column field but must contain a decimal point. There 
may be as many as seven conditions per card and a 
total of three cajrds or 21 conditions. 

3. For the UBO vector (see description in the 
subroutine TABJ.) — the UBO vector is punched in 
three fields of t^n columns each as a floating-point 
number with decimal point. 

Deck Setup 

The deck setup is shown in Figure 35. 

Sample 

A listing of input cards for the sample problem is 
presented in Figure 36. Card 002 is the parameter 
card for the matrix of observations. It shows that 
there are 100 observations and four variables in 

matrix number 1. Card 003 is the first ohSQWitm, 

card 102 the last. Each observation represents an 
individual with four characteristics (variables). The 
variables are, in the order shown, (1) age In years, 
(2) height in inches, (3) weight in pounds, and 
(4) education in years. 

Card 103 signals the end of the matrix of 
observations. 
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Matrix of observalions 
Condition matrix 



( Blanl< card 
{ UBOdala ■ 



rOata cards 
forC ^ 



irst problem 




Run 
termination 



Last problem 



Subroutines and main program 
ncluding system control cards) 



Figure 35. Deck setup (data screening) 



Card 104 indicates that there are two conditions 
to be satisfied and that variable 3 (weight) is selected 
for analysis. Card 105 shows the condition matrix. 
The first condition states that variable 1 (age) must 
be less than or equal to 65, and therefore observa- 
tions for individuals over 65 will be rejected. The 
second condition states that variable 4 (education) 
must be greater than eight years , and consequently 
observations for individuals with less than eight 
years of education will be rejected. 

Card 106 contains the information on bounds and 
number of intervals for the selected variable. It 
shows that the lower bound is 120 , the upper bound 
is 210, and that there are 20 intervals (including 
one for under lower bound and another for equal to 
or greater than upper bound). 

Card 107 is a blank card for terminating the run. 



(nonzero), summary statistics for the selected 
variable, and a histogram of frequencies versus 
intervals for that variable. 



Sample 

The output listing for the sample problem is shown 
in Figure 37. 



Program Modification 

The size of the maximum problem to be solved can 
be increased or decreased by changing the DIMEN- 
SION statement in DASCR. 

Subroutine BOOL can be replaced if the user 
wishes to use a different boolean expression (see 
description in subroutine SUBST). The boolean ex- 
pression provided in the sample program is for both 
conditions to be satisfied: 



R (1) 



R (2) 



Operating Instructions 

The sample program for data screening is a stand- 
ard FORTRAN program. Special operating instruc- 
tions are not required. Data set 5 is used for input, 
and logical unit 6 is used for output. Data set 13 is 
used for intermediate storage. 



Error Messages 

The following error conditions will result in 
messages: 

1. Reserved storage area is too small for 
matrix—DIMENSIONED AREA TOO SMALL FOR 
INPUT MATRIX. GO ON TO NEXT CASE. 

2. Number of data cards does not correspond to 
that required by parameter card — INCORRECT 
NUMBER OF DATA CARDS FOR MATRIX. EXE- 
CUTION TERMINATED. 

Error condition 1 allows the computer run to 
continue. Error condition 2, however, terminates 
execution and requires another run to process 
succeeding cases. 



Output 



Description 



The output consists of the subset vector showing 
which observations are rejected (zero) and accepted 



Timing 

The execution time of this sample program on a 
System/360, Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as output, 
is 42 seconds. 
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/DATA 








C30101C 


IC0004 






46. 


64. 


173. 


12. 


2'>. 


72. 


170. 


8. 


32. 


71. 


154. 


16. 


41.- 


66. 


129. 


10. 


50. 


65. 


192. 


9. 


63. 


75. 


203. 


12, 


i9. 


7". 


122. 


14. 


28. 


64. 


136. 


13. 


52. 


77. 


147. 


11. 


36. 


67. 


153. 


18. 


31. 


a8. 


165. 


9, 


72. 


7C. 


178. 


10. 


53. 


71. 


205. 


14, 


21. 


65. 


2H. 


12. 


49. 


63. 


IJO. 


6, 


2S. 


62. 


160. 


16. 


53. 


TZ. 


L<Sl. 


13, 


47. 


73. 


142. 


15. 


37. 


67. 


19). 


19. 


^4. 


58. 


156. 


1.*. 


6S. 


6f). 


114. 


10. 


62. 


64. 


153. 


12. 


!•). 


63. 


225. 


9. 


46. 


67. 


15B. 


11. 


33. 


72. 


121. 


4, 


37. 


65. 


132. 


13. 


41. 


76. 


148. 


16. 


52. 


71. 


123. 


16. 


2«. 


&S. 


129. 


14. 


J2. 


65. 


155. 


17. 


24. 


TZ. 


172. 


16. 


56. 


n. 


163. 


10. 


63. 


65. 


156. 


11. 


67. 


69. 


146. 


2. 


59. 


66. 


171. 


9. 


41. 


65. 


153. 


12. 


49. 


66. 


165. 


14, 


52. 


72. 


172. 


16. 


23. 


7S. 


183. 


15. 


56. 


71. 


195. 


16. 


52. 


68. 


U8. 


7. 


40. 


66. 


165. 


14. 


39. 


6a. 


215. 


16. 


23. 


71. 


154. 


12. 


56. 


o5. 


149. 


10, 


25. 


65. 


162. 


16. 


37. 


69. 


152. 


16. 


46. 


71. 


159. 


15. 


41. 


69. 


137. 


14, 


62. 


71. 


163. 


12. 


29. 


72. 


191. 


4. 


19. 


68. 


168. 


10. 


46. 


63. 


158. 


16. 


37. 


64. 


139. 


la. 


34. 


69. 


156. 


10, 


64. 


67. 


153. 


12. 


57. 


67. 


141. 


13. 


32. 


68. 


157. 


17. 


29. 


7C. 


163. 


15. 


53. 


72. 


164. 


18. 


4T. 


72. 


156. 


18. 


56. 


73. 


160. 


16. 


61. 


74. 


l».9. 


12. 


21. 


68. 


161. 


IC. 


25. 


76. 


178. 


U. 


23. 


72. 


157. 


16. 


29. 


68. 


186. 


16. 


39. 


70. 


15^. 


14. 


42. 


7C. 


Ii4. 


10. 


56. 


62. 


159. 


12. 


63. 


7P. 


177. 


12. 


SI. 


71. 


t&l. 


9. 


41. 


66. 


159. 


10. 


33. 


69. 


156. 


16. 


37. 


68. 


157. 


16. 


25. 


7C. 


163. 


15. 


63. 


63. 


159. 


12. 


53. 


71. 


2'J2. 


6. 


51. 


72. 


167. 


14. 


47. 


73. 


164. 


14. 


39. 


75. 


151. 


12. 


29. 


6a. 


166. 


10. 


64. 


a9. 


156. 


16. 


5S. 


67. 


144. 


16. 


51. 


66. 


177. 


10. 


♦6. 


65. 


157. 


12. 


72. 


66. 


125. 


10. 


66. 


65. 


131. 


12. 


26. 


74. 


149. 


IS. 


27. 


71. 


169. 


It. 


23. 


72. 


158. 


12. 


23. 


72. 


163. 


12. 


60. 


68. 


157, 


9. 


30. 


66. 


142. 


10. 


39. 


67. 


162. 


16. 


46. 


74. 


154. 


16. 


5C. 


63. 


159. 


10. 


61. 


66. 


161. 


14. 


36. 


64. 


157. 


15. 


32. 


71. 


156. 


lb. 



DATA SCR£€MIN6 PRODLEH 1 
SUeSET VECTOR 



100 
110 
120 

130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
2^0 
250 
260 

2 70 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 

3 80 
390 
400 
410 
42C 
430 
««0 

4 50 
460 

4 70 
4(10 
490 
500 
510 
520 

5 30 
540 
550 
560 
5 70 
5 90 

5 90 
600 
610 
620 
630 

6 40 

630 
660 

6 70 
680 
690 
700 
710 
720 
730 
740 
750 
760 

7 70 
730 
790 
800 
810 
820 
8)0 

s«c 

650 

660 

B70 

89C 

990 

900 

910 

920 

9 30 

940 

950 

960 

9 70 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 



1 


1. 


2 


0.0 


3 


1. 


A 


1. 


S 


1. 


6 


1. 


7 


1. 


8 


1. 


9 


1. 


10 


1. 


11 


1. 


12 


0.0 


13 


1. 


14 


1. 


15 


CO 


16 


1. 


17 


1. 


IB 


1. 


19 


1. 


20 


1. 


21 


1. 


22 


1. 


23 


1. 


24 


1. 


25 


0.0 


26 


1. 


27 


1. 


28 


1. 


29 


1. 


30 


1. 


31 


1. 


32 


1. 


33 


1. 


34 


0.0 


35 


1. 


3« 


1. 


37 


1. 


38 


1. 


39 


1. 


40 


1. 


41 


0.0 


42 


1. 


43 


1. 


44 


1. 


45 


t. 


46 


1. 


47 


1. 


48 


1. 


49 


1. 


50 


1. 


51 


0.0 


52 


1. 


53 


1. 


54 


1. 


55 


1. 


St 


1. 


57 


1. 


56 


I. 


59 


1. 


60 


I. 


61 


1. 


62 


1. 


63 


1. 


64 


1. 


65 


1. 


66 


1. 


67 


1. 


6« 


1. 


69 


1. 


70 


1. 


71 


1. 


72 


1. 


73 


1. 


74 


1. 


75 


1. 


76 


1. 


77 


1. 


78 


0.0 


79 


1. 


80 


1. 


81 


1. 


82 


1. 


83 


1. 


84 


1. 


65 


1. 


86 


1. 


87 


0.0 


■8 


0.0 


89 


1. 


90 


1. 


91 


1. 


92 


1. 


93 


1. 


94 


1. 


95 


1. 


96 


1. 


97 


1. 


98 


1. 


99 


1. 


100 


1. 



Figure 36. Input cards sample problem (data screening) 
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Figure 37. Output listing (data screening) 



SUMMARY STATISTICS FOR VARIABLE 3 

TOTAL = 1*492.000 AVERAGfe = 161.022 STANDARD DtVIATIUN 



19.329 MINIHUM 



114.000 MAXIMUM 



225.000 



FREQUENCY 



23 
22 
21 

20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 

e 

7 
6 
5 

4 
3 
2 
1 



HISTOGRAM 1 
10 23 14 e 

* 

* 



INTERVAL 
CLASS 



10 



11 



12 



14 



15 



17 



END CF CASE 



Figure 37. Output listing (data saeening) (Continued) 



RAM FOR DATA SCRtPNING - QASCR 

SCReeNING CALCULATIONS ON A SET Of QOSERVATIQN 
FUNCrfON SUeRROGAAMS REQUIRED 



ET OF QnSERVArlONS SATISFYING CERTAIN 
THE VARIABLES. FOR THIS SUBSET, fHt FREQUENCY 
VARIABLE OVER GIVEN CLASS INTERVALS IS 

S IS PLOTTED IN THE FORM QF A HISTOGRAM. 

e, STANOARO DEVIATION, MINIMUM, AND MAXIMUM 

ULATEO. 



SAMPLE MAIN 


3-(03 


PUR "OS E 




^EKFQRi UATA 


SOmOUTINcS 


AH. J ■ 


500 ST 




TABl 




LOC 




9nOL 




Hisr 




MATIN 




METHOD 




DFRIVE A 


SUBSI 


COf4>>ITT0NS DH 


(JF A ScLE 


XTEJ 


OSTAINEO. 


, THi: 


TOTAL, A\ 


'£RAGf 


ARE ALSO 


CALCl 



OASC 
OASC 
OASC 
QASC 
UASC 
UASC 

soasc 

[JASC 
OASC 
OASC 
OASC 
DASC 
OASC 
OASC 
OASC 
OASC 
OASC 
OASC 
DASC 
OASC 
OASC 
OASC 
OASC 
DASC 



ICO 

IIP 

12C 
13C 
14C 
150 
IfrC 
17C 
190 
19C 
20C 
21C 
2 2C 
^30 
2',0 



DIMENSION A( lOTOt .C (6JI ,UB0I3I , S( 2001 »« I 21 t .FREU<20 t, 

iPCT(2')).snrs(5i 

exT!:-tN4L 300L 

f3R'4ATUHl,22H0ATA SCR5ENC.N5 PR03LEM.13t 

1 FK-IATI lH0.**HOHeNSI0h(EO AREA TOO SHALL FDR INPUT MATRIK ,141 

2 FOR-^ATl lH7,20MeJ(eCUTION TERHlNATcDt 

3 F3»MAr( H0.42HINCG*<ECT NUMBER JF 34TA CARDS FO:? :^AT'^IK ,14) 
*t FORMAT! IHO.IBNGQ ON TO NEXT CASEI 

5 FOflHATf IHO.l IHENJ OF CASEl 

6 FORHAT( 7[ F2.0.FI.O.F7. 3M 
T FaRMAT( JFIO.O) 

13 cQ^tH^n l-iO, L3HSU3SET VECTOR. ///I 

9 FQRttATt IH ,I3.FS.0I 

? F3««1AT( imt32HSJi^'1«RY STATISTICS FUR VARlAeLE .131 

1 F3RJ^AT{ IHO.THTDTAL ",F I G . 3, 2 X, 9H AVERAGE =,F IC. 3, 2X,2CHST ANOARD 
IIATDN =,f 10.J.2K,9Hf1INI?1UH =,F 10. 3 .2X , 9HMAXI MUM =,FIC.3( 

2 FOUriAmiZ} 

KC=C 
<t <tC=KC*l 

CALL MdTi!M< lOG.A.lOOO.NO.NV.MSt lER) 
lf(NOt 25.51,25 
! IF(1ER-1> 40,30,35 
: WRlTEIb.ll) ICUD 

WRITEIi.UJ 

GO TO 2"* 
i WRITE (6. 131 

HRITE(6.12I 

GO TO 5C 
I REA!>I5,22H«:,NOVAR 

JC-NC«3 

REA0t5,l&)IC(I>.l=il,JC) 

REA0(S.ITMU60I 11.1*1,3) 

CALL S.I BS T 1 A . C , R . SO.OL . S , NO, :<<V , NC ) 



DASC 250 

DASC 25C 
OASC 2 7C 
OASC 280 
OASC 240 
OASC 30C 
DASC 31C 
OASC 320 
OASC 330 
OASC 340 
OASC 35C 
OASC 360 
DASC 37G 
OASC 3aO 
OASC 39C 
DASC 4C0 
DEvOAiC 4 10 
DASC 420 

0»SC ^3i; 

OASC 44C 
OASC 450 
OASC 46C 
OASC 470 
OASC 4dO 
DASC 49C 
OASC 500 
OASC 510 
OASC 520 
DASC 53C 
UASC 540 
OASC 55C 
OASC 560 
DASC 5 70 
OASC 580 
OASC 590 
OASC 6C0 



MR| TS(6.l3mC 
URITLI6. 191 

HltITEI{>.l9) (I.SCII ,1 = 1. NO) 

CALL TABKA.S.NOVAR .USO.FREQ.PCT. STATS.NO.NV ) 
WRlTe(6.2Cl NOVA* 
MlRITE(4.2I>(STATS(t 1.1 = 1,51 
JZ-U3a( 2) 

CALL HIST(<C,FR£J,JZJ 
MRITE<6,15I 
CO TO 24 
5C RETURN 
5N0 



OASC 610 
DASC 620 
L«ASC &3C 
DASC 640 
OASC 650 
OASC 660 
OASC 67C 
OASC 680 
OASC 69C 
OASC 700 
OASC 710 
OASC 720 
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MULTIPLE LINEAR REGRESSION 



CORRE, ORDER, MINV, and MULTR. 



Problem Description 

Multiple linear regression analysis is performed for 
a set of independent variables and a dependent vari- 
able. Selection of different sets of independent 
variables and designation of a dependent variable 
can be made as many times as desired. 

The sample problem for multiple linear regres- 
sion consists of 30 observations with six variables 
as presented in Table 4. The first five variables 
are independent variables (predictors), and the last 
variable is the dependent variable (criteria). All 
five independent variables are used to predict the 
dependent variable in the first analysis, and only the 
second, third, and fifth variables are used to pre- 
dict the dependent variable in the second analysis. 



Table 4. Sample Data for Multiple Linear Regression 

Variables 

I X^ X4 Ar; Ag 



Observation 


X, 


1 


29 


2 


30 


3 


30 


4 


30 


5 


35 


6 


35 


7 


43 


8 


43 


9 


44 


10 


44 


11 


44 


12 


44 


13 


44 


14 


44 


15 


45 


16 


45 


17 


45 


18 


45 


19 


45 


20 


45 


21 


45 


22 


45 


23 


44 


24 


49 


25 


49 


26 


49 


27 


51 


28 


51 


29 


51 


30 


51 



289 
391 
424 
313 
243 
365 
396 
356 
346 
156 
278 
349 
141 
245 
297 
310 
151 
370 
379 
463 
316 
2 80 
395 
139 
245 
373 
224 
677 
424 
150 



216 
244 
246 
239 
275 
219 
267 
274 
255 
258 
249 
252 
236 
236 
256 
262 
339 
357 
198 
206 
245 
225 
215 
220 
205 
215 
215 
210 
210 
210 



85 

92 

90 

91 

95 

95 

100 

79 

126 

95 

110 

88 

129 

97 

111 

94 

96 

88 

147 

105 

132 

108 

101 

136 

113 

88 

118 

116 

140 

105 



14 
16 
18 
10 
30 
21 
39 
19 
56 
28 
42 
21 
56 
24 
45 
20 
35 
15 
64 
31 
60 
36 
27 
59 
37 
25 
54 
33 
59 
30 



Program 

Description 

The multiple linear regression program consists of 
the main routine named REGRE, a special input sub- 
routine named DATA, and four subroutines from the 
Scientific Subroutine Package: 



Capacity 

The capacity of the sample program and the format 
required for data input have been set up as follows: 

1. Up to 40 variables, including both independent 
and dependent variables 

2. Up to 99,999 observations, if observations 
are read into the computer one at a time by the 
special input subroutine named DATA. If all data 
are to be stored in core prior to the calculation of 
correlation coefficients, the limitation on the num- 
ber of observations depends on the size of core 
storage available for input data 

3. (12F6. 0) format for input data cards. 

Therefore, if a problem satisfies the above con- 
ditions, the sample program need not be modified. 
However, if there are more than 40 variables, 
dimension statements in the sample main pro- 
gram must be modified to handle this particular 
problem. Similarly, if input data cards are pre- 
pared using a different format, the input format in 
the input subroutine, DATA, must be modified. The 
general rules for program modification are de- 
scribed later. 

Input 



Control Card 

One control card is required for each problem and 
is read by the main program, REGRE. This card 
is prepared as follows : 

For Sample 
Columns Contents Problem 



1 - 


- 6 


Problem number (may 








be alphameric) 


SAMPLE 


7 - 


- 11 


Number of observations 


00030 


12 - 


- 13 


Number of variables 


06 


14 - 


- 15 


Number of selection 








cards (see below) 


02 



Leading zeros are not required to be keypunched. 

Data Cards 

Since input data are read into the computer one ob- 
servation at a time, each row of data in Table 4 is 

keypunched on a separate card UiSing the format 

(12F6.0). This format assumes twelve 6-column 
fields per card. 

If there are more than twelve variables in a 
problem, each row of data is continued on the 
second and third cards until the last data point is 
keypunched. However, each row of data must begin 
on a new card. 
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Selection Card 

The selection card is used to specify a dependent 
variable and a set of independent variable's in a 
multiple linear regression analysis. Any variable 
in the set of original variables can be designated as 
a dependent variable, and any number of variables 
can be specified as independent variables. Selection 
of a dependent variable and a set of independent 
variables can be performed over and over again 
using the same set of original variables. 
The selection card is prepared as follows: 



For Sample 
Problem 
Selec- Selec- 
tion 1 tion 2 



^IjelediorT 



Columns 



Contents 



9-10 



11 - 12 



13 - 14 



15 
etc. 



- 16 



Option code for table of 
residuals: 

00 if it is not desired 

01 if it is desired 
Dependent variable des- 
ignated for the forth- 
coming regression 

Number of independent 
variables included in 
the forthcoming re- 
gression (the sub- 
script numbers of 
individual variables 
are specified below) 

1st independent variable 
included 

2nd independent variable 
included 

3rd independent variable 
included 

4th independent variable 
included 

5th independent variable 
included 



01 



01 



06 



05 



06 



03 



01 



02 



03 



04 



05 



02 
03 
05 



The input format of (3612) is used for the selec- 
tion card. 



Deck Setup 

The deck setup is shown in Figure 38. 
Sample 

The listing of input cards for the sample problem is 
presented in Figure 39. 




Subroutines and main program 
(including system control cards) 



Figure 38. Deck setup (multiple linear regression) 



Output 

Description 

The output of the sample program for multiple 
linear regression includes: 

1. Means 

2. Standard deviations 

3. Correlation coefficients between the indepen- 
dent variables and the dependent variable 

4. Regression coefficients 

5. Standard errors of regression coefficients 

6. Computed t-values 

7. Intercept 

8. Multiple correlation coefficients 

9. Standard error of estimate 

10. Analysis of variance for the multiple 
regression 

11. Table of residuals (optional) 

Sample 

The output listing for the sample problem is shown 
in Figure 40. 



Program Modification 

Program capacity can be increased or decreased by 
making changes in dimension statements. Input data 
in a different format can also be handled by providing 
a specific format statement. In order to familiarize 
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/Dim 












SAMf>LEOC0i0O602 








29 


269 


216 


35 


14 




30 


391 


244 


92 


16 




30 


424 


24* 


90 


18 




.30 


313 


239 


91 


10 




35 


243 


2 75 


95 


30 




35 


365 


219 


95 


21 




♦ 3 


39« 


267 


100 


39 




*3 


356 


274 


79 


19 




*4 


346 


255 


126 


56 




44 


156 


258 


95 


28 




44 


279 


249 


110 


42 




44 


349 


252 


80 


21 




44 


141 


236 


129 


56 




44 


245 


236 


97 


24 




45 


297 


256 


111 


45 




45 


31C 


262 


94 


20 




45 


151 


339 


96 


35 




45 


370 


357 


88 


15 




45 


3 79 


19S 


147 


64 




45 


463 


206 


105 


31 




45 


916 


245 


132 


60 




45 


280 


225 


108 


36 




44 


395 


215 


1?1 


27 




49 


139 


220 


136 


59 




49 


245 


205 


113 


37 




49 


373 


215 


88 


25 




51 


224 


215 


118 


54 




51 


677 


210 


116 


33 




51 


424 


210 


140 


59 




51 


150 


21C 


105 


30 





01D6C5C102030405 








010603020 305 











30 
*0 



90 
100 
110 
120 
l»o 
140 
150 
160 
170 

lao 

190 
200 
210 
220 
2iQ 
ZhQ 
250 
260 

2 TO 
260 
290 
300 
310 
320 

3 30 
340 



fULllI'Lt MtfcKtiiIl.h SAMJ'Li. 

SLLtCULK I 



Figure 39. Input listing (multiple regression) 



the user with the program modification, the following 
general rules are supplied in terms of the sample 
problem : 

1. Changes in the dimension statements of the 
main program, REGRE 

a. The dimension of arrays XBAR, STD, D, 
RY, ISAVE, B, SB, T, and W must be 
greater than or equal to the number of 
variables, m. Since there are six vari- 
ables in the sample problem, the value of 
m is 6. 

b. The dimension of array RX must be 
greater than or equal to the product of 
m X m. For the sample problem this 
product is 36 = 6x6. 

c. The dimension of array R must be greater 
than or equal to (m + l)m/2. For the 
sample problem this number is 21 = 

(6+ 1)6/2. 

2. Changes in the input format statement of the 
special input subroutine, DATA: 



ilt.lbbbC 
n't I. 7*V9S 



Z.itttl 



LtVUIIuN 

15.S7471 
1.4L2bS 



CUMKtLAIlC*! 
X VS V 

C.42184 
0. 1 190L 

0.370^^ 

U3M12 



LLCFt-lLltNl 

u.ul)04 
C.041%1 
£.04919 



STU. t(}KUK 

Cf Kit.COtF. 
0.0363^ 
Q.OOltU, 
0.0063^ 

0. 04141 



LUKfUTtD 

t VALUt 
0.^4171 

2.36atll 

U.lMtOO 

1.18782 



fLlTlfLt CmHtlAllLK t.7j^7^ 

:>TL.. tHKCK tF tSTlMAIC 1.051C.2 



ANALYSIS OF VAKlAhCE fVR IHt HEGKtSkltjN 



S(.UKCt UF VARIAIIUK 
ATlHlbUIAbit TL HtGKtSSUh 

CtVIAllLh FRliN MtOHt^SICh 
ICTA4. 



f\jLJlPLt htCHbSSIUh SAHflt 

StLLCIlLN 1 

lAbLb LF kLblLUALb 



sun UF 

StiUAKt S 

31.325C6 
■£b.^'ilbl 



HEAH 

SUUAKtS 

t.24,bLl 
I.ICSVC 



F VALUt 



V VALot 
i.COCOb 
Z.COULU 
2.C0UUO 

o.c 

2.D000C 
2.UUUL0 
3.0UCCb 
2.C0bl.U 

s.cootc 

C.C 

<..ccccc 

l.CCCCC 
i.CCOCC 
l.CObbO 

3.CCUCC 

2.ccom 

3.CO00O 
4.CC0CC 
4.CCU0C 
3.C0UCC 

4.CC0CO 

*.coocc 

I.CUOCC 

c.c 

4.C0UCC 

l.CCOOC 
3.0C^UC 
A.CCCCC 
4.C0UOC 
c.c 



t^IJHAie 
C.^UlJSl 

1. ntTc 

^.14^06 
0.d?fitIC 

i.Ht,'.',! 

i.«02b9 

/. 49)35 
i^VKlObt 

l.l^iUb 

1.83532 

2.54iLC4 

i.b2bbl 
i.becba 
3.t>4EH^ 

2.UV«6 3 
1.97^17 
i.'ilibi 
l.t)«0£7 

^.blObU 
3.957^5 
O.A'jA'jb 



lj.2'j 



d7 



-l.C2C''.2 

l.^Lifbd 

-1.00066 

-l.CtJTJi 

-o.ib3oa 

C.164<i8 

0.^3SS6 
0.b*T71 
U.3T33S 

C. 35115 

-l.L>«d63 

-1.S7217 

2.51)747 

-C.8«C27 
u.7ii6* 

-0.51080 
0.C4255 



Figure 40. Output listing (multiple regression) 



Operating Instructions 

The sample program for multiple linear regression 
is a standard FORTRAN program. Special operating 
instructions are not required. Data set 5 is used for 
input, and data set 6 is used for output. A scratch 
tape (data set 13) is used as intermediate storage. 



Only the format statement for input data may 
be changed. Since sample data are either 
one-, two-, or three-digit numbers , rather 
than using six -column fields as in the sample 
problem, each row of data may be keypimched 
in six 3-columjn fields, and, if so, the format 
is changed to (6F3.0). 

The special input subroutine, DATA, is 
normally written by the user to handle differ- 
ent formats for different problems. The user 
may modify this subroutine to perform testing 
of input data, transformation of data, and so on. 



Error Messages 

The following error conditions will result in 
messages: 

1. The number of selection cards is not specified 
on the control card—NUMBER OF SELECTIONS NOT 
SPECIFIED. JOB TERMINATED. 

2. The matrix of correlation coefficients is 
singular— THE MATRIX IS SINGULAR. TfflS SE- 
LECTION IS SKIPPED. 

Error condition 2 allows the computer run to 
continue; however, error condition 1 terminates 
execution of the job. 
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Timing 

The execution time of this sample program on a 
System/360, Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as output, 
is 42 seconds. 



SAMPLE MAIN PROGRAM FOR MULTIPLE REGRESSION - REGRE 

PURPOSE 

111 R€AO THE PAOeLEH PARAMETER CARD FOR A MULTIPLE REGRES- 
SlONt tZI R€*0 SUBSET SELECTION CAROS, (31 CALL THE SUfi- 
ROUIIHES TO CALCULATE NEANSt STANDARD DEVIATIONS. SIMPLE 
AW) MULTIPLE CORRELATIWI COEFflCIENTSi RECR6SSI0N COEFFI- 
CIENTS* r-VALUES. ANO ANALYSIS OF VARIANCE FOR njLTIPLE 
REGRESSION. AND 14) PRINT THE RESULTS. 

REMARKS 

THE NUH3ER OF OBSERVATIONS, N. MUST BE GREATER THAN H+1. 
UHERE M IS r-4E >«UM8£R OF VARIABLES. IF SUBSET SELECTION 
CARDS ARE NOT PRESENT* THE PRGGRAH CAN NOT PERFOHH NULTtPLE 
REGRESSION. 

AFTER RETURNING FRON S^ftOUTIItf NlNV* THE VALUE OF OETER- 
IINANT lOcTI IS TESTED TO CHECK WHETHER THE CORRELATION 
MATRIX IS SINGULAR, IF OET IS COMPARED AGAINST A SHALL 
CONSTANT, THIS TEST MAV ALSO BE USED TO CHECK NEAR- 
SINGULARITY. 

SUBOUTINES AND FUNCTION SUBPROGRAMS REOUIHEO 

CORRE (riHICHf IN TUPN* CALLS THE SUBROUTINE NAMED DATA) 

OftOER 

HINV 

MULTR 

NET HOD 

REFER TO 9. 3STLE, 'STATISTICS IN RESEARCH* 
COLLEGE PReSS', 195*. CHAPTER 8. 



THE lOMA STATE 



THE FOLLOWING DIMENSIONS MUST 36 liREATER THAN OR EQUAL TO THE 
NUMBER OF VAfttAatESt M.. 



DIMENSION XSAR(^OI»STO(43)fD140>«RT(40)t 
59140) ,TC4OItHI40> 



SAVEUOIf BUOl t 



C REGR 10 

C HEGR 20 

C KE&A 30 

" REGR *0 

REGR 50 
REGR 60 
REGR TO 
REGR 80 
REGR 90 
REGR too 
t<EGB 110 
REGR LZO 
REGR 130 
REGR 140 
REGR ISO 
REGR UO 
REGR ITO 
REGR 180 
REGR 190 
REGR 200 
REGR 210 
REGR 220 
REGR 230 
REGR 240 
REGR 2S0 
REGR 260 
REGR 2 TO 
REGR 280 
REGR 290 
REGR 300 
RcGR 310 
REGR 320 
REGR 3 30 
REGR 340 
..REGR 150 
REGR 360 
REGR 370 
REGR 380 
REGR 390 
REGR 400 
REGR 410 
REGR 420 
REGR 430 
REGR 440 
REGR 450 
REGR 460 
REGR 470 
REGR 480 
REGR 490 
REGR 500 
REGR 510 
REGR SZO 
REGR 530 
REGR 540 
REGR S50 
REGR 560 
.REGR 5 70 
REGR 680 
REGR 590 
REGR 600 
REGR 610 
REGR 620 
REGR 6 30 
REGR 640 
REGR 650 
REGR 660 
REGR 670 
REGR 690 

REGR 690 

REGR 700 

1 F0RNAT(A4.A2tI5«2I2l RECR 710 

2 F0RMAr(25HinULTlPLE REGRESSION A4, A2//6X, 14HSeLECriON I2//RECR 720 

1) REGR 730 

3 FaRNATI 9H0 VARIABLE f5Xt4HNEANi6X.8HSTANOARO(6X.llHCORRELATIONt4XtlOREGR 740 
1HRECRESSION.4X,10HSTO. ERROR«5X, 8HC0MPUTE0/6H NO. .iaX.9HQEVl ATIDREGR 750 
2N.7X.6HX VS V.7XtllHCOEFFICIENr,3X.lZHOF REG.COEF.. 3X. THT VALUEI REGR 760 

4 FOHHATIIH tI4t6FI4.5I REGR 770 

5 FORMAT* lOH OEPENOEMTI REGR 780 

6 FORMAT) IHO/IOH INTERCEPT. 10X,F16 .5//23H MULTIPLE CORRELATION .F13REGR T90 
1.5//23H STO. ERROR OF ESTIMArE»F13.5//l REGR BOO 

7 F0RMATI1H0,2IX.39HANALVSIS OF VARIANCE FOR THE REGRESSI0N//5X, 19HSRECR 810 
lOURCE OF VARIATION. 7X.7HDEGREES,7X*6HSUM 0F.10X.4HMEAN.12X,THF VALREGR B20 
2UE/301C. lOHOF FREEDOM, 4X.7HSQUAR£S.9X,THSaUARES} REGR 830 

8 FORMAT(30H ATTRIBUTABLE TO REGRESSION < I6.3F16.5/30H DEVIATION FREGR 840 
IRON REGRESSION .I6.2F16.5I RECR B50 

9 FORNATIIH .5X,5HTaTAL. 19X. 16. F 16.51 REGR 860 

10 F0RHAT(36l2t REGR 870 

11 FORNATUH , 15K, ISHTABLE OF RESI0UALS^/9H CASE N0..5X.THr VALUE. 5X. REGR 880 
llOHY ESTIMATE*6X,8HRESI0UALI REGR 890 

L2 FORHATtlH . 1 6,F 15.5 .2F14.5) REGR 900 

13 F0RMAT<53HINUMB£A 3F SELECTIONS NOT SRECIFIEO. JOB TERMINATED.! REGR 910 

14 FORMATCSZHOTHE HATRIX IS SINGULAR. THIS SELECTION IS SKIPPED. I REGR 920 

REGR 93C 
..REGR 940 
REGR 950 
REGR 960 
RfGR 970 
KEGR 980 
REGR 99C 
REGRIOCO 
REGRIOIO 
REGR 1020 
ReGR1030 
REGR 1040 
REGR1050 
REGRi060 
BE USED REGR1370 
REGR I 080 
REGR1090 
REGR L too 
REGRiUO 
REGR 11 20 



THE FOLLOWING OI-iEMSION MUST 8£ GREATER THAN OR EQUAL TO THE 
PRODUCT OF M«H.. 

DIMtNSION RXI1603) 

THE FOLLOUINS DIMENSION MUST BE GREATER THAN Oft EQUAL TO 
(M«ll«M/2.. 

DIMENSION RI8Z0) 

THE FOLLOHING DIMENSION MUST BE GREATER THAN OR EQUAL TO 10. . 

DIMENSION ANSIIO) 



IF A DOUBLE PRECISION VERSION OF THIS ROUTINE IS DESIRED. THE 
C IN COLUMN 1 S-10ULD BE REMOVED FROM THE DOUBLE PRECISION 
STATEMENT WHICH FOLLOWS. 

DOUBLE PRECISION X8 AR.STD.RX.R.O .B. T.RY.OET.SB.ANS.SUM 

THE C MUST ALSO BE REMOVED FROM DOUBLE PRECISION STATEMENTS 
APPEARING IN OT-tER ROUTINES USED IN CONJUNCTION WITH THIS 
ROUTINE. 



READ PROBLEM PARAMETER CARD 

100 REAO 15,11 PR.PR1.N«M«NS 

»R PROBLEM NUMBER IHAY BE ALPHAMERIC) 

PRl PROBLEM NUMBER (CONTINUEDI 

N NUMBER 0>' OBSERVATIONS 

N NUMBER OF VARIABLES 

MS NUMBER OF SELECTIONS 

LOGICAL TAPE 13 IS USED AS INTERMEDIATE STORAGE TO HOLD 
DATA. THE INPUT DATA ARE WRITTEN ON LOGICAL TAPE 13 BY 
SPECIAL INPUT SUBROUTINE NAMED DATA. THE STORED DATA MA 
FOR RESIDUAL ANALYSIS. 

RcUiNO 13 



X>0.0 

c 

CALL CORRE I N,H, 10. X.XBAR. STO.RX .R.O.S.Tl 
C 

REWIND 13 
C 

C TEST NUMBER OF SELECTIONS 

C \ 

IflNS) 108* 108, 109 

108 WRITE 16,131 
GO TO 300 

C 

109 00 20C I-l.NS 
WRITE 16.21 PR, PRl. I 

C 

C REAO SUBSET SELECTION CARD 

C 

REAO (5.10) NRESI,IIOef>»K«4IS4VE(J).J«L*KI 

C NRESI OPTION CODE FOR TABLE OF RESIDUALS 

C IF IT IS NOT DESIRED. 

C L IF IT IS DESIRED. 

C NOEP DEPENDENT VARIABLE 

C K NUMBER OF INDEPENDENT VARIABLES INCLUDED 

C ISAVE A VECTOR CONTAINING THE INDEPENDENT VARIABLES 

c Incluoeo 

c 

CALL O^DER (N. RiNOEPiK. I SAVE.RX.RYl 

: 

CALL HINV (RXtK.DET.B.TI 
C 
C TEST SINGULARITY OF THE MATRIX INVERTED 

: 

IFIDETI 112, 110. 112 

110 WRITE 16.141 
GO TO 2C0 

112 CALL MULTR IN.K.XBAR.STO.O .RX.RY. I SAVE.B.S8 .T .ANSI 

: PRINT MEANS. STANDARD 0EVIAT13N&. INTERCORRELATl ONS BETWEEN 

: K AND Y, REGRESSION COEFFICIENTS. STANDARD DEVIATIONS OF 

: REGRESSION COEFFICIENTS. AND COMPUTED T-VALUES 

MM*K+1 
WRITE (6.3) 
00 115 J-l.K 
L-ISAVEUI 
115 WRITE (6,4» L.XBAR(LI.STD(LI.Rr(J».3(JI.SB(J)tT<JI 
WRITE (6*5} 
L*ISAVE(MH) 
WRITE 16,4) LtXBARILItSTDIL) 

PRINT INTERCEPT, MJCTIPLE CORRELATION COEFFICIENT, AND STANDARD 
; ERROR OF ESTIMATE 

WRITE 16.61 ANSIl».ANS(21tANS<3) 

PRINT ANALYSIS OF VARIANCE FOR THE REGRESSION 

WRITE (6.71 

L«ANS(9I 

WRITE ^6.8) K,ANS(41,ANS<6l.ANS(L0l*L,ANS(7ltANS(9) 

L-N-l 

SUM*ANS(4)*ANS(7) 

WRITE I6f9) L,SUM 

IFINRESII 200* 200* 120 

PRINT TABLE OF RESIOUALS 

120 WRITE 16.2) PR.PRKI 
WRITE (6,111 

HH*ISAVE(K+11 

DO 140 II«l,N 

REAO (131 (W(JI.J-1,M) 

$UM>ANSI 11 

DO L30 J*1*K 

L>ISAVE(J) 
130 SUM-SUM4-M(L)«8( J) 

RESI=M(MMI-SUM 
I4C WRIT= (6,12) (l.iflMMI.SUM.RESI 

REMIND 13 
200 CONTINUE 

GO TO ICO 
300 CONTINUE 

END 



REGRU3Q 

REGR1140 

REGRllSO 

AEGR1160 

REGR 1170 

RECR1180 

REGR1190 

REGR1200 

AE6R1210 

REGR1220 

ReGR1230 

REGR1240 

REGR1250 

RECA1260 

REGR 12 70 

REGR12aO 

RcGR1290 

REGR130G 

REGR1310 

REGR1320 

RE6R1330 

RECR1340 

REGR 1350 

REGR136C 

REGR L 3 TO 

REGR1380 

REGR1390 

REGR 1400 

REGR 14 10 

REGR1420 

REGftL430 

REGR1440 

REGR14S0 

REGR 1460 

REGR 14 70 

REGRI48C 

RECR 1490 

REGR 1 SCO 

REGRISIO 

AEGR1520 

REGA1530 

REGR 1940 

REGRISSO 

REGR 1560 

REGR1570 

REGR1580 

REGR1590 

REGR1600 

REGR1610 

REGR 1620 

REGR 16 30 

REGR1640 

REGR1650 

REGR166C 

Ac6R16T0 

REGRt680 

REGR 1690 

REGR1700 

REGR1710 

REGR1720 

REGR1730 

REGRIT40 

REGR17S0 

REGR 1760 

REGR1770 

REGRITBO 

REGR 1790 

REGRIBOO 

REGRISIO 

REGR1B20 

REGR1830 

REGfllB4C 

RECR 1850 

REGR 1860 

REGR1870 

REGR18B0 

REGR1890 

REGR 1900 

REGRL910 

REGR1920 

REGR1930 

REGR 1940 

REGfil950 

REGR 1960 



INPUT 
THE 
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POLYNOMIAL REGRESSION 

Problem Description 

— — ^ 

Powers of an independent variable are generated to 
calculate polj^nomials of successively increasing 
degrees. If there is no reduction in the residual 
sum of squares between two successive degrees of 
polynomials , the program terminates the problem 
before completii^ the analysis for the highest degree 
polynomial specified. 

The sample problem for polynomial regression 
consists of 15 observations, as presented in Table 5. 
The highest degree polynomial specified for this 
problem is 4. 







For Sample 


Columns 


Contents 


Problem 


1-6 


Problem number (may 


• 




be alphameric) 


SAMPLE 


7-11 


Number of observations 


00015 


12 - 13 


Highest degree poly- 






nomial to be fitted 


04 


14 


Option code for plotting 
Y values and Y 






estimates : 


1 




if it is not desired 






1 if it is desired 





Leadii^ zeros are not required to be keypunched. 



Program 

Description 

The polynomial regression program consists of the 
main routine named POLRG, a special plot sub- 
routine named PLOT, and four subroutines from 
the Scientific Subroutine Package: GDATA, ORDER, 
MINV, and MULTR. 



Data Cards 

Since input data are read into the computer one ob- 
servation at a time, each pair of X and Y data in 
Table 5 is keypunched in that order on a separate 
card using the format (2F6. 0). 



Table 5. Sample Data for Poljmomial Regression 



Capacity 

The capacity of the sample program and the format 
required for data input have been set up as follows: 

1. Up to 100 observations 

2. Up to loth degree polynomial 

3. (2F6. 0) format for input data cards 
Therefore, if a problem satisfies the above con- 
ditions it is not necessary to modify the sample pro- 
gram. However, if there are more than 100 
observations or if greater than 10*^ degree poly- 
nomial is desired, dimension statements in the 
sample main program must be modified to handle 
this particular problem. Similarly, if input data 
cards are prepared using a different format, the 
input format in the sample main program must be 
modified. The general rules for program modifica- 
tion are described later. 



Input 



1 
2 



10 
16 



3 


20 


4 


23 


5 


25 


6 


26 


7 


30 


8 


36 


9 


48 


10 


62 


11 


78 


12 


94 


13 


107 


14 


118 


15 


127 



Control Card 



One control card is required for each problem and is 
read by the main program, POLRG. This card is 
prepared as follows: 



Deck Setup 

The deck setup is shown in Figure 41. 
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( 



Data 
cards 



Control 
card 



/Last 
problem 



Sample 

The output listing for the sample problem is shown 
in Figure 43. \ 



First problem 




Second problem 



Subroutines and main program 
(including system control cards) 



Figure 41. Deck setup (polynomial regression) 



Sample 

The listing of input cards for the sample problem is 
presented in Figure 42. 



Output 



Description 

The output of the sample program for polynomial 
regression includes: 

1. Regression coefficients for successive degree 
polynomials 

2. Analysis-of -variance table for successive 
degree polynomials 

3. Table of residuals for the final degree poly- 
nomial (optional) 

4. Plot of Y values and Y estimates (optional) 



Program Modification 

Program capacity can be increased or decreased by 
making changes in dimension statements. Input data 
in a different format can also be handled by providing 
a specific format statement. In order to familiarize 
the user with the program modification, the follow- 
ing general rules are supplied in terms of the sample 
problem. 

1. Changes in the dimension statements of the 
main program, POLRG: 

a. The dimension of array X must be greater 
than or equal to the product of n (m + 1) , 
where n is the number of observations and 
m is the highest degree polynomial to be 
fitted. Since there are 15 observations and 
the highest degree polynomial specified is 
4, the product is 75 = 15 (4 + 1). 

b. The dimension of array DI must be greater 
than or equal to the product of m x m. For 
the sample problem this product is 

16 =4 x4. 
e. The dimension of array D must be greater 
than or equal to (m + 2) (m + l)/2. For the 
sample problem this number is 15 = (4 + 2) 
(4+ l)/2, 

d. The dimension of arrays B, E, SB, and T 
must be greater than or^ equal to the highest 
degree polynomial to be fitted, m. For the 
sample problem the value of m is 4. 

e. The dimension of arrays XBAR, STD, COE, 
SUMSQ, and ISAVE must be greater than or 
equal to (m + 1) . For the sample problem 
this value is 5 = (4 + 1). 

f . The dimension of array P must be greater 
than or equal to 3 (n) . For the sample prob- 
lem this value is 45 = 3(15). The array P 
is used when a plot of Y values and Y esti- 
mates is desired. 



/DATA 
SAMPLEOOOISO*! 



to 


62 


11 


79 


12 


9* 


11 


XOT 


IS 


llfl 


15 


127 



Figure 42. Input card listing (polynomial regression) 



10 
20 



50 
60 



100 
110 
120 
130 
IM 
150 
160 
ITO 



2. Changes in the input format statement of the 
main program, POLRG: 

Only the format statement for input data may 
be changed. Since sample data are either one- 
two-, or three-digit numbers, rather than 
using six-column fields as in the sample prob- 
lem, each row of data may be keypunched in 
two 3 -column fields , and if so the format is 
changed to (2F3.0). 
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PClVHOHltL RFCAES^fON SAMPLE 

NumtER OF nB^fftVlTIOMS 15 



pniYNom*! REcsfSSinN of ofghfe i 

INrEBCfPT -15,67611 



ANALVSIS DF VARMNCC FOB I OCGItPF POLYNOMIAL 



SOUffF nf VAKUTION 



OUF TO RfG«FSSH»N 
OFVIATtnK ABOUT nFGRFSStON 
rOTAt 



OFGtEf OF 
fSEEOOH 



SUH Of 
SQUARES 



MEAN 
SQUARE 



20554. Z6IT2 20554,26172 
L971. 011906 191,61038 

2252%.)no?8 



IHPROVEHFNT IN TERNS 
OF SOH OF SQUARES 



2055*.?A172 



PlILVNriMIAL RCGfteSSION OF DeC»E€ 
INTtRCePT 15.075A7 



REGBfSSION CnFFFIClFNTS 



ANALYSI 


IS OF VAHtANCe FOR 2 OFr.REE POLVNOMI 


*L 




SOUHCF (IF VAB UTIO* 




nfCREE OF SUM OF 
FPEEDOM SQUARES 


HCAN 
SOUARF 




F 
VALUF 


DUf rn t»EGRF?;«;iON 
QEVIATIfiN A«nuT atCflESSTON 
TOTAL 


2 22235. J406Z 
12 2B4.9101& 
14 22525.30078 


HUT. 61531 
24.1591R 




*frO. 18506 



i6ei.i?Roi 



PnirNOMFAL REGHESStflN OP DfCREE 
INTtBCFBT ie.4<)4?? 



RFr.BFSSIOM CnCFFICtFNTS 
-■i.8flI07 0. 57684 



ANALVSrS OF VAftUNCE FOR 3 DEGREE POLYNQKtAL 



SOliHCE OF VARIATION 



DUF TO PFGHfSSinN 
CtWIATION AHOUT ReGRtS5inN 
TOTAL 



22256.32812 

2&8.<)7?66 

22525. 300T8 



IMPROVFKFNT IN TfRMS 
OF SirM OF SOilAPf; 



PCLVftCMAl HECRtSSlCk CF CECREE 4 



PCtVf^CPIAL RECRCSSICK SAMPLE 

rCLVkCMAl RECRESSlCh CF CECR(E 



CeSERVillCI^ hC. 



TAeie CF BESICUALS 
f VALtE V VALUE 



y ESTIMATE 



RESIDUAL 



l.CCCCC 
2.CCCCC 

a.coccc 

4.C00CC 
5.CCCCC 

6.ccacc 

7.C0CCC 

e.ccccc 
s.coocc 

IC.CCCCC 

ll.CCOCC 
12.CC0CC 
13.C0CCC 
14.C0CCC 
15.C0CCC 



IC.CCCCO 
16.CC0C0 
2C.CCCC0 
23.CCCC0 
25.CCCC0 

26.ccacc 

3C.CCCC0 

3t .CCCCO 

^e.cccco 

62.CCCC0 

Te.ccccc 

94.CC0CC 
IC7.CCCCC 
118.C0C00 
127.CCCCC 



15.STSe« 
14.526«e 
1».261SI 
17. £9725 
21.747S2 
^7. 32945 
34,35724 
42.74675 
52.4133« 
«3. 27251 
7S.23«7fl 
88.23039 

116.«43£t 
132.4971S 



-5»57see 

1.47334 

4.73803 

5.30275 

3.25208 

-1.32945 

-4.35724 

-6.74675 

-4.41338 

-1.27257 

2.76022 

5.76961 

1.05634 
-5.49719 



Figure 43, Output listing (polynomial regression) 
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142S 



31 






2 I 

i 1 



t.2c;i 



e.i43f 

4. 265) 

11.2E51 

13.265} 
14. 1429 
IS.CCCC 



IC.CCCC 22.5*97 34.*SS* 46.7491 5e.9Se« 7l.2^«6 83,4983 95.7480 107,9977 120,24H 132.4972 



Figure 43. Output listing (polynomial regression) (Continued) 



Operating Instructions 

The sample program for polynomial regression is a 
standard FORTRAN program. Special operatii^ 
instructions are not required. Data set 5 is used for 
input, and data set 6 is used for output. A scratch 
tape (data set 13) is used as intermediate storage 
when Y values and Y estimates are plotted. 

Timing 

The execution time of this sample program on a 
System/360. Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as output, 
is 35 seconds. 



SAMPLE MAIN PROSRAM FOR POLYUOHIAL RCGRESSION - POLRG 

PURPOSE 

(II READ THE PROBLEM PARAMETER CAAO FOR A POLVNOMIAL REGRES- 
SION, (21 CALL SUBROUriNES TO P£RfORM THE ANALYSIS, O) 
PRINT THE AEGRESSIOM COEFFICIENTS AND ANALYSIS OF VARIANCE 
TABLE fOR POLYNOMIALS OF SUCCESSIVELY INCREASING DECREES, 
AW 14} OPflONALLV PRINT THE TABLE Of RESIDUALS AND A HOT 
OF Y VALUES AND Y ESTIMATES. 

REMARKS 

THE NUMBER OF OBSERVATIONS, N. MUST BE GREATER THAN M«l, 
rfHERE M IS THE HIGHEST .3EGREE POLVNOHIAL SPECIflEO. 
IF THERE IS NO REDUCTION IN THE R£SIOUAL SUM OF iQUAKES 
BETWEEN rWO' SUCCESSIVE OECHEES OF THE POLYNOMIALS. THE 
PROGilAH TERMINATES THE PROBLEM BEFORE COHPLcTINC THE ANALY- 
SIS FOR THE rllGHEST DEGREE POLYNOWAL SPELlFIEl>. 

SUatOJFlNES AND FUNCTION SUBPROuHAMS REQUIRED 
GOATA 
QROER 
1INV 
NULTR 

PLOT lA SPECIAL PLOT SUBftOUTINE PROVIDED FOR THE SAMPLE 
PROGRAM. I 



METHOO 

■*eFcR ro iJ, DSTLE, 'STATISTICS IN RESEARCH 
COLLEGE PRESS*, 1954, CHAPTER 6. 



THE IOWA STATE 



PLRG 10 
.PLRG 20 
PLRG 30 
PLRG 40 
PLRG 50 
OLRG 60 
•PLRG 70 
PLRG 80 
PLRG 90 
PLRG 100 
PLRG lie 
PLRG 120 
PLRG 130 
PLRG 140 
PLRG 150 
PLRG 160 
PLRG 170 
PLRG ISO 
PLRG l^JO 
PLRG 200 
PLRG 210 
PLRG 220 
PLRG 2i0 
PLRG 240 
PLRG 250 
PLRG 260 
PLftG 270 
PLRG 230 
PLRG 290 
PLRG 300 
PLRG 310 
PLRG 320 
PLRG 3 JO 
PLRG 340 
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TH£ FOLLOWING OtHENSIUN MUST BE GftEArCR THAN OR EQUAL TO TMfi 
P«OOUCI Of N*(N*I). MHEKE N IS THE NUMBEft Of 09SERVATIJNS AND H 
IS THE HIGHESr DEGREE POLYNONIAL SPECIFIED.. 

DIMENSION K( UOOI 

-THE FOLLOWING DIMENSION HOST 8E CAEArEM THAN OA EQUAL TO THE 
MOOUCT OF «*H,. ^ 

OIHENSION 31 ( 1031 

THE FOLLOWING DI'*EN5I0N MUST 8€ GOEATEK THAN OR EQUAL TO 

DIMENSION 0(661 
THE FOLLOWING DIMENSIONS MUST Bt GREATER THAN OR EQUAL TO M.. 
DIMENSION B(1C). El 10), Se( lot. r( 10) 

The following 0IME>(SI0NS must be greater than or equal to (H*-!!.. 

DIMENSION XaARIID.STOIUI.COCIIll.SUMSQIIll.ISAVEdll 
THE FOLLOWING DIMENSION MUST SE GREATER THAN OR EQUAL TO 10.. 

DIMENSIJN ANSdOl 

THE FOLLOWING DIMENSION WILL 6£ USED IF THE PLOT 0^ OBSERVED DATA 
AND ESTIMATES IS DESIRtO. THE SUE Of THE DIMENSION, IN THIS 
CASE, ilUSI BE GREATER THAN OR EQUAL TO N*3. OTHEMISE. THE SM^ 
OF OIMENSIQN MAY BE SET TO I. 

OlMENSION PUOOt 



IF A DOUBLE PRECISION VERSION OF THIS ROUTINE IS DESIRED, ThE 
C IN COLUHN 1 SHOUIO BE REMOVED FROH THE OQUflLE PRECISION 
STArtMENT WHICH FOLLOWS. 

00U8LE P-*ECISION Xi XBAR.STO.O. SUMSQ.OI . E.B, S9,T, ANS ,DET, COE 

The C must also he removed from 03U8LE PRECISION STATEMENTS 

APPEARING IH OTHed ROUTINES USED IN CONJUNCTION HlTH THIS 
ROUTINE. 



PLRC 390 
PLRG 360 
PLRG JTO 
PLRC 380 
PLRG 390 
PCRG AOO 
PLRG *10 
PLRC 420 
PLRG A30 
PLR5 **0 
PLRG 450 
PLRG 460 
PLRG 47C 
PLRG 480 
PLRG 490 
PLRG 5D0 
PLRG 5)0 
PLRC 520 
PLRC SiO 
PLRG S40 
PLRC 550 
PLRC 560 
PLRC 570 

PLRG sao 

PLRG 590 
PLRG &00 
PLRG 610 
PLRC 620 
PLRG 630 
PLRG 64C 
PLRG 650 
PLRG 660 
PLRG 5T0 
PLRG 680 
PLRG 690 
PLRG 700 

..PLRG no 

PLRG 720 
PLRG 730 

PLRG T*0 
PLRG 750 
PLRG 760 
PLRG 770 
PLRG 780 
PLRG 790 

PLRG aoo 

PLRG aio 

PLRG 820 

.PLRG 83C 



Xm IS THE INCE»ENO£NT VARiAdLE, AND X(jl IS THE OtPENOENT 
VARI ABLE. 



110 REA3 ( S,2) XI I I. K( J I 



1 FORMAT(A*.A2,I5,I2.Ill 

2 FORMAT( 2F6.0> 
> F0RMAT(2TH1»0ly.MJHI»L SEGRESSIlIN A4,a2/I 

4 FORMAT! 23HCNUrt3eR 3F 08SERVATI0NS , f 6// I 

5 FORNAT( J^HOPOLYTOMI AL REGRESSION OF DEGREE, I3t 

6 F0RM»T(l2Mf) INTERCEPT, £20. 7) 

7 F0RMAT(26H0 RESi^ESSlON CaEFFICIENTS/(6E20.7l ) 

8 FQRNATI tH0/24K*24HANALYSIS Of VARIANCE F0R,l4,19H 
lAL/l 

9 FORMAT! lHO,5X,19r1SJURr.E OF VARI AT(ON,7X,9HOE[;REE Of 
l,4NMEAN,lCX,lHF,«.20r*lMPROVEMENT IN TERMS/33 Kr 7HFRI 
2RES.7X,6HSQUARE,TJI.5HVALUE.9K,l7HaF SUM OF SQUARES! 

10 FORMAT(23H0 DUE T3 RtGRE$$I0N,L2X»l6,FLT.5,F14.5,F 

11 F0RMAT(32M OEVIATION ABOUT REGRESSION ,I6,F17.5 

12 FORMAT* 8X,5HTOTAL,I9X, l6,Fl7.5///t 

13 FORMAT* 17H0 SO I MO-^OVEMENT ) 

14 FORMAT* LHC//2TX.IB-lTAaLE -JF tESI 0JALS//I6H OasERVAT 
lVALUt-.7X, THY VALUE, 7X, ICHY ESTl MATE.TX ,8H«ESI0UAL/ I 

15 FORMAT I IH0,JX,I6,FIB.5,P14.5,F17.5,F15.5I 



PLRG 840 
PLRG 850 
PLRG 860 
PLRC 870 

PLRG aso 

PLRG 890 

PLRG SOO 

PLRC 910 

DEGREE POLVNOMIPLRG 920 

PLRG 930 

7X,6HSUM 0F,9XPLRC 940 

EE0OM,ex,THS0UAPLRG 950 

PLRC 960 



C READ PROBLEM PARAMETER CARD 

c 

19C READ 15, tl PK,PHI,N,M,NPLaT 
C 

C PR.. ..PROBLEM NUMBER (MAY BE ALPHAMERIC) 
C PRl. ..•ROBLEM NUMBER (CONTINUED) 

C N NUMBER OF OBSERVATIONS 

C M HIGHEST OEGREE POlfNOIIAL SPECIFIED 

C NPLOT. OPTION CODE FOR PLOTTING 

C IF PLJT IS NOT DESIRED. 

C 1 IF (»LOT IS OESIREO. 

C 

C PRINT PROBLEM NUM3ER AND N. 

C 

WRITE (6,3) PR,PRt 

WRITE (6,4) N 
C 

C READ INPUT DATA 

C 

L"N*M 

DO HO 1 = 1, N 

J«L*I 



H,5,F20.5) PLRC 970 

F14.5I PLRC 9B0 

PLRG 990 

PLRG1330 

ION N0.,5X,7Hx PLRGIOIO 
PLRGI32C 
PLRCL030 
PLRG1040 

PLRC1050 

PLRG 1360 
PLRGia70 
PLRGIOSO 
PLRG1090 
PLRGIXOO 
PLRGlllO 
PLRGU20 
PLRG1130 
PLRGll*C 
PLRGH50 
PLRGtl60 
PLRGU70 
PLRG1180 
PLRG1190 
PLRG1200 
PLRG1210 
PLRGL220 
PLRG1230 
PLRG1240 
PLRG1250 
PLRG1260 
PLRG12T0 
PLRG128C 



CALL OATA < N, 1 , < ,X6AR .STO, 0. SUMSiJ) 

MM = -4+1 

SUM»Q.3 

Nr=N-l 



DO 200 1 = 1, M 

iSAvei 1 1=1 

F3R« SJ9SET UF CORRELATION COEFpICIcNT MATRIX 

CALL Q-tOER ( MM,3,MH, I , ( SAVE. JI ,E 1 

IKVEIl THt SU^MirftlX OF CO^StLATlOM COEFFICIENTS 

CALL 1INV ( JI , [ .DET iSi T) 

CALL HJLTR (N.I ,X8A^.STj,SUMS3,JI,e.lSAVE,rf,SS,r,ANS) 

PRINT THE RFSJLT OF CALCULAIIOf^ 

WHITc 16.5) I 

IF(ANS[7l» 140.130. Ua 
13C SUilP^ANSUJ-SJ.'i. 

IFi SJMIPJ i*.!. [.^O. 153 
140 WRITE (A, li» 



GJ 



210 



15C WR IT6 ( S,6> ANS( II 

WRITE 16,7) (3IJ1, J=l, n 
rfRITE (6,9) [ 
Wi^lTE (6.<t! 
SUM=ANS(4I 

WRITE (6.1^) I ,ANS( 4) , ANS(6I ,AI*S(10I iSUMIP 
NI=4NS( 8) 

W^ITE (6,tn NI,ANS(7> ,ANS{9I 
WSITt (6,12) NT,3UMSQ(MMI 
C 

C SAVE C3EF'=ICIENTS FOR CALCULATION OF Y ESTIMATES 

C 

Ca6( l)=ANS(l) 
DO 160 J5l,l 
IhZ COEl Jtl )=61J1 

LA = I 
^C? CONTINUE 
C 

C TEST WHtTHGR PLOT IS DESIRED 

C 

210 IFINPLOTI nc, 100, ZZC 
C 

C CALCULATE esrilATES 

C 

^2C NP3=N*N 

00 2 30 I=1,N 
NP3=NPi*l 
P(NP Jl=CDE( II 
L = I 

00 230 J=1,LA 

P(NP3l=?(NP3!*XIL)«COEIJ*l) 
25C L = L»N 

; COPY OflSERVEO 3ATA 

N2 = N 

L = N*K 

oa 2^0 1=1, N 

P( I ) = x( u 

N2 = N2H 

L=L*l 

24^ P(N2)=X(L) 

PRINT TABLE OF RESIDUALS 

WRITE (6,3) PR.PRl 
WRITE (6,5) LA 
WRITE (6,141 
NP2-N 
SP3=N+N 
00 250 1=1, N 
NP2-NP2*1 
MP3=NP3*1 

R£SID=P{NP2)-PtNP3) 
250 WRITE (6.151 1 . P( I ) ,P( NP2) , P(NP3 ) ,RESID 

CALL PLOT (LA,P,N,3tC, 1) 



GO TO 100 
END 



PLRGI29C 

PLRC1300 

PLRGiSlO 

PLRG1320 

PLRG1330 

PLKG1340 

PLRG1350 

PLRG1360 

PLRG1370 

PLRG1380 

PL PG I 390 

PLRG140C 

PLRG1410 

PLPG1420 

PLRG1430 

PLRG1440 

PLftGl450 

PLfiGl46J 

PLRG147C 

PLRG148Q 

PL(<G14')0 

PLRGi500 

PLRG1510 

PLRG1520 

PLRG1530 

PLRC1540 

PLRG1550 

PLRGl->50 

PLRG1570 

PLRGlbaO 

PLR&1590 

PLRG1600 

PLRG161C 

PLRG1620 

PLRGUiO 

PLRG1640 

PL«Glo5C 

PLRC166C 

PLRG1670 

PLRG1680 

PLRG1690 

PLRG17C0 

PLRGITIO 

PLRG1720 

PLRG1730 

PLRC1740 

PLRG1750 

PLRGI760 

PLRC177C 

PLRG1730 

PLRGITIO 

CLRGiaCO 

PLRGiaiO 

PLRGld23 

PLRC18J0 

PLRG1840 

PLRGldSC 

PLRG1E60 

PLRGia70 

PLRGiaBP 

PLRG1840 

PLRG1900 

PLRG1910 

PLRC1920 

PLRG1930 

PLRG1940 

PLRG1950 

PLRGl9bO 

PLRG1970 

PLRG1980 

PLRG199C 

PLRG200D 

PLRG201C 

PLRG2O20 

PLRG2C30 

PLRC2040 

PLRG2050 

PLRG206C 

PLRG2C7C 

PLRG2080 

PLRG2090 

PLR&2100 

PLftG2110 

PLRG2120 

PLRC213P 

PLRG2140 

PLflG2150 

PLRG2160 

PLRG21T0 

PLR62iaO 

PLRG2190 

PLRG2200 

PLRG2210 
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STEPWISE MULTIPLE REGRESSION 

.Problem Description 

Stepwise multiple regression is a statistical tech- 
nique for analyzing a relationship between a 
dependent variable (y) and a set of independent 
variables (x,,x„, , . • .x^) and for selecting the 
independent variables in the order of their impor- 
tance. The criterion of importance is based on the 
reduction of simis of squares, and the independent 
variable most important in this reduction in a 
given step is entered in the regression. Any vari- 
able in the original set can be named as the 
dependent variable. A set of variables cEm be 
forced to enter in the regression, and another set 
of variables can be deleted. 

The sample problem for stepwise multiple 
regression consists of 30 observations on six vari- 
ables as presented in Table 4. The first five vari- 
ables are independent variables (predictors), and 
the last variable is the dependent variable 
(criterion). All five independent variables are 
available for selection in the first analysis. In 
the second analysis, the third variable is forced to 
enter in the regression, the fourth variable is 
deleted, and the remaining three independent vari- 
ables are available for selection. Note that the 
same sample problem has been used for multiple 
linear regression and that the results of these two 
programs may be compared. 

Program 

Description 

The stepwise multiple regression program consists 
of the main routine named STEPR, a special input 
subroutine named DATA, a special output subrou- 
tine named STOUT, and four subroutines from the 
Scientific Subroutine Package: CORRE, MSTR, 
LOG, and STPRG. 

Capacity 

The capacity of the sample program and the format 
required for data input have been set up as follows : 

1. Up to 35 variables, including both dependent 
and independent variables 

2. Up to 99, 999 observations, if observations 
are read into the computer one at a time by the 
special input subroutine named DATA. If all data 
are to be stored in core prior to the calculation of 
correlation coefficients, the limitation on the 
number of observations depends on the size of core 
storage available for input data. 

3. (12F6. 0) format for input data cards 



Therefore, if a problem satisfies the above con- 
ditions, it is not necessary to modify the sample 
program. However, if there are more tl^n 35 vari- 
ables, dimension statements in the sample main 
program must be modified to handle this particular 
problem. Similarly, if input data cards are pre- 
pared using a different format, the format in the 
input subroutine, DATA, must be modified. The 
general rules for program modification are 
described later. 

Input 

Control Card 

One control card is required for each problem and is 
read by the main program, STEPR. This card is 
prepared as follows: 



Columns 

1-6 

7-11 
12-13 
14-15 

16-21 



Contents 



For Sample 
Problem 



22 



Problem code (may 
be alphameric) 
Number of observations 
Number of variables 
Number of selection 
cards (see below) 
This constant is the pro- 
portion of the sum of 
squares which will be 
used to limit the enter- 
ing of variables into the 
regression. Unless the 
proportion of the sum of 
squares attributable to an 
entering variable is 
greater than this value, 
the variable will not be 
entered. The keypunched 
value should have a 
decimal point. * 
Option code for table of 
residuals 

— if it is not desired 

1 — if it is desired 



SAMPLE 

00030 
06 

02 



0.0 



*The choice of value depends upon the purpose of 
analysis. A suggested trial value is 0. 01 (one 

percent). If all variables are to be included in the 

regression, use 0.0. 

Leading zeros are not required to be keypunched. 
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Data Cards 

Since input data can be read into the computer one 
observation at a time, each row of data in Table 4 
is keypunched on a separate card using the format 
(12F6.0). This format assumes twelve 6-column 
fields per card. 

If there are more than twelve variables in a 
problem, each row of data is continued on the 
second and third cards until the last data point is 
keypunched. However, each row of data must be- 
gin on a new card. 

Selection Card 



The input format of (7211) is used for the selec- 
tion card. 

Deck Setup 

The deck setup is shown in Figure 44. 




The selection card is used to specify a dependent 
variable, independent variables to be forced to 
enter in the regression, variables to be deleted, 
and independent variables to be chosen by the pro- 
gram to enter in the regression. Any one variable 
in the set of original variables can be designated as 
a dependent variable, and any number of variables 
can be specified as forcing variables, deleting 
variables, and unrestricted variables to be chosen 
by the program. The specification of the variables 
can be performed over and over again using the 
same set of original variables. 

In a selection card, each variable is specified 
using one of the following codes : 

Code Specification 

or blank Independent variable to be 

chosen by the program to enter 
in the regression 

1 Independent variable forced by 
the user to enter in the 
regression 




I S«cond probtflfn 



ines ond moin program 
ng systein control cards) 



Figure 44. Deck setup (stepwise multiple regression) 
Sample 

The listing of input cards for the sample problem is 
presented in Figure 45. 



2 Variable to be deleted 

3 Dependent variable 

The selection card itself is prepared as follows: 



Columns Contents 

1 Code for 1st variable 

2 Code for 2nd variable 

3 Code for 3rd variable 

4 Code for 4th variable 

5 Code for 5th variable 

6 Code for 6th variable 
etc. 



For 


Sample 


Problem 


Selections 


1 


2 

















1 





2 








3 


3 



/DATA 










SAMPLE 


3C 6 


2 C. 


001 




29 


289 


216 


85 


14 


30 


391 


244 


92 


16 


JC 


424 


246 


9C 


18 


3C 


313 


239 


91 


10 


35 


243 


2 75 


95 


30 


35 


365 


219 


95 


21 


*3 


396 


267 


ICO 


39 


43 


356 


2 74 


79 


19 


44 


346 


255 


126 


56 


44 


156 


258 


95 


28 


44 


276 


249 


110 


*? 


4* 


349 


252 


8B 


?1 


44 


141 


236 


129 


56 


44 


245 


2 36 


97 


24 


45 


2") 7 


256 


111 


45 


45 


31C 


262 


94 


20 


45 


151 


339 


96 


35 


45 


370 


357 


80 


15 


45 


379 


i9fi 


147 


M 


45 


463 


2C6 


IC5 


31 


45 


316 


245 


132 


6C 


45 


2«C 


22S 


lOS 


3ft 


44 


395 


215 


ICl 


27 


49 


139 


220 


196 


59 


49 


245 


2C5 


113 


37 


49 


373 


215 


68 


25 


51 


224 


215 


118 


54 


51 


677 


21C 


116 


33 


51 


424 


210 


I4C 




51 


150 


210 


105 


30 


00CCC3 










0012C3 










Figure 


45. 









130 
IM) 
150 
16C 
ITO 
160 
190 
IM 

210 
220 
290 
2*0 
250 
260 
270 

2ao 

290 
900 
510 
320 
530 
390 
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Output 

. Description 

The output of the sample program for stepwise 
multiple regression includes: 

1. For all variables — 

a. Means 

b. Standard deviations 

c. Correlation coefficient matrix 

2. For each step of multiple regression — 

a. Sum of squares reduced 

b. Proportion reduced 

c. Cumulative sum of squares reduced 

d. Cumulative proportion reduced 

e. Multiple correlation coefficient 
(adjusted and imadj. ) 

f . F-value for analysis of variance 

g. Standard error of estimate (adjusted 
and unadj . ) 

h. Regression coefficients 

i. Standard errors of regression coefficients 

j . Computed t-values 

3. Tables of residuals (optional) 

Sample 

The output listing for the sample problem is shown 
in Figure 46. 



FOR I VARIABLES ENTERED 

MULTIPLE COAReLATION COEFFICIENT... 0.422 

(AOJUSTEO fOR D.F.I €.422 

F-VALUE FOR ANALYSIS OF VARIANCE... 6.063 

STANDARD ERROR OF FSTIHATE 1. 303 

(AOJUSTEO FOR O.F.J 1.3C3 

VARIABLE REGBESSlnN STD. ERROR OF 

NUrtbER CQEFFTCIENT REG. COEFF. 
2 C.C0521 CCCZIZ 

INTERCEPT C. 62005 



STEP 2 

VARIABLE ENTERED 5 

SUH OF SQUARES <IE OUCEC IN THIS STEP.... L 
PROPORTION REDUCED IN THIS STEP 

CUHULATIVE SUM OF SQUARES REDUCED 2 

CUMULATIVE PROPORTION REDUCED 

FOR 2 VARIABLES ENTERFD 

MULTIPLE CORP.ELATION COEFFICIENT... 0.63<) 

(ADJUSTED FOR D.F.I 0.622 

F-WALUE FOR ANALYSIS OF VARIANCE... S.3i4 

STANDARD ERROR CF ESTIMATE 1. 126 

(ADJUSTED FOP D.F.) 1.146 

VARIA6Lt REGRESSION STD. ERROR OF 

NUMBER COgPFICIENT REG. COEFF, 

2 0.CC6?? C.C0186 

5 C.C4316 0.01332 

INTERCEPT -1.20349 



VARIABLE ENTERED 3 

SUM CF SQUARES REDUCtD IN THIS STcP 

PROPORTION REDUCED Ik THIS STEP 

CUMULATIVE SUM OF SOUARtS HECUCEO 3 

CUMULATIVE PROPORTION REDUCED 

FOR 3 VARIABLES ENTERED 

MULTIPLE CORRELATION COEFFICIENT... C. 734 

(AOJUSTEO FOR O.F.I 0.711 

F-VALUE FOR ANALYSIS OF VARIANCE... IC.13T 

STANDARD ERROR CF ESTIMATE..,, 1.C13 

(ADJUSTED FOR O.F.t 1.05C 

VARIABLE RtCRESSION SID. ERROR OP 

NUMBER COEFFICIFNT REG. COEFF. 

2 C.rOT44 C.CC17Z 
5 C.C5363 C.0125S 

3 C. 01497 0.CC55! 
INTERCEPT -5.53529 



COMPUTEC 
T-VALUF 
2.462 



COMPUTED 
T-VALUfc 
3.3<)7 
3.241 



COMPUTED 

T- VALUE 

4. aid 

4.263 

2.717 



STEP-MISE MULTIPLE REGRESSION SAMPLE 

NUKBER OF OBSERVATIONS 30 
NUMBER OF VARIABLES 6 

NUMBER OF SELECTIONS 2 

CONSTANT TO LIMIT VARIABLES C,C 



VARIABLE 

NC. 



MEAN 

43.13333 
316.166SC 
24l.7«99 
105.66666 

34.13333 
2.26667 



CORRELATION MATRIX 

ROM i 



STANDARD 

DEVIATION 

6.52176 

114.429S0 

36.43074 

17.8S640 

15.97571 

1.41259 



-C.C6721 

i.ooecc 

-0.17857 

-0.05227 
~C. 18 3a I 



l.OOOCC 
-0.40874 
-0.26319 

0.!19CC 



SELECTION 1 

DEPENDENT VARIABLE 6 

NUMBER OF VARIABLES FORCED.... C 

NUMBEd OF VARIASLES DELETED... 



STEP I 

VARIABLE ENTERED 2 



SUM OF SQUARES REDUCED IN THIS STEP. 
PROPORTION REDUCED IN THIS STEP 



e. 49755 
-C. 05227 
-C. 40874 

1 . occoc 

0.93552 
C.37B22 



0.55949 0.2B422 

-0,18361 0.42189 

-0.26319 C. 11900 

0.93552 C.37B22 

l.OrOCO C. 39412 

C.39412 l.CCOOC 



CUMULATIVE SUM OF SQUARES REDUCED. 
CUMULATIVE PROPORTION REDUCED 



10.30C 

0.178 



STEP 4 

VARIABLE ENTERED I 

SUM OF SQUARES REDUCtU IN THIS STEP.... 0.127 

PROPORTION RECUCeO IN THIS STEP C.rC2 

CUMULATIVE SUM OF SQUARES REDUCED 31.323 

CUMULATIVE PROPORTION REDUCED 0.541 (3F 

FOR 4 VARIABLES ENTERED 

MULTIPLE CORRELATION COEFFICIENT... 0.736 

(ADJUSTED FOR D.F.I C-6«9 

F-VALUE FOR ANALYSIS OF VARIANCE... 7.375 

STANDARD ERROR OF ESTIMATE 1.C30 

(ADJUSTED FOR D.F.I 1.C88 

VARIABLE REGRESSION STO. ERROR Of COMPUTED 

NUMBER COEFFICIENT RtG. COEFF. T-VALUE 

2 C.CC'741 O.CC175 4.222 
5 C.C5C76 C. 01524 3.332 

3 CO 149 3 C.CG561 2.662 
I C.C1226' 0.03541 C . 346 

INTERCEPT -5.94617 



STEP 5 

VARIAflLE ENTERED 4 

SUM OF SQUARES REDUCED IN THIS STEP.... 0.0C2 

PROPORTION REDUCED IN THIS STEP O.CCC 

CUMULATIVE SUM OF SQUARES REDUCED 31.325 

CUMULATIVE PROPORTION REDUCED 0.54L OF 

FOR 5 VARIABLES ENTERED 

MULTIPLE CORRELATION COEFFICIENT... C.736 

(AOJUSTEO FOR D.F.I 0.6S4 

F-VALUE FOR ANALYSIS OF VARIANCE... 5.665 

sTAmiRo eikOR OF Esr/HAre i.os2 

(ADJUSTED FOR D.F.) 1,133 

VARIABLE REGRESSION STD. ERROR OF COMPUTED 

NUMBER COEFFICIENT REG. COEFF. T-VALUE 

2 C.C0739 C.CC1B6 3.965 
5 C-C4919 C,C4141 1.136 

3 P.CI504 0.CC635 2.369 
1 0.01242 C.C3635 '^.342 

4 C.0C151 C. 036 79 0.041 
INTERCEPT -6.07929 



Figure 46. 



Figure 46. (Continued) 
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SELECTION.. 


... 1 








TABLE OF 


RESIDUALS 




CASE NO. 


Y VALUE 


V ESTIMATE 


RESIDUAL 


I 


l.COOOO 


o.«ao9c 


0.51910 


. 2 


2.C0CCC 


1.7767C 


0.22330 


3 


2.CCCC0 


2.1*586 


-C. 14586 


* 


c.e 


0.828dC 


-0.82S8C 


5 


2.CCCC0 


1.90522 


C.C947B 


6 


2.crcoc 


1.52125 


0,47675 


7 


3.CC00C 


3.*644 7 


-C. 46447 


8 


2.cocec 


2.25897 


-0.25B67 


9 


3.00000 


3.eC25'3 


-0.80259 


IC 


o.c 


1.02C*2 


-1.02042 




'i.CCCCC 


2.49735 


1.50265 


IZ 


l-OOCOC 


2. COO 65 


-1.C0065 


13 


l.CCOOC 


2.0C736 


-1.00736 


lA 


l.COCCC 


1. 15306 


-C.15306 


15 


3.CCC0C 


2.90446 


C.C9554 


16 


2.CCCCC 


1.83531 


C. 16469 


IT 


3.CrOCC 


2.56C04 


C. 4 3996 


Ifi 


4.0CO0C 


3. 45228 


!>. 54772 


19 


^.coooc 


3.62661 


?. 37339 


20 


s.cocco 


2.68066 


C. 31932 


21 


4.0CCC0 


3.64886 


C. 351 14 


22 


A.CCCCC 


1.86541 


2.13459 


23 


l.OCCOC 


2.09663 


-1.09663 


2-; 


c.c 


1.97217 


-1.97217 


25 


4.00CCC 


1.41254 


2.58746 


26 


l.OOCCC 


1.880 2 7 


-C. 86027 


27 


3.0CC0C 


2.27646 


C. 72354 


28 


■t.COCOC 


4.51080 


-0.51060 


29 


*..ccccc 


3.95746 


C.0425'% 


30 


0.0 


0.45458 


-C. 45458 



SELECnON 2 

DEPENDENT VARIABLE 6 

NUMBER OF VARIABLES FORCED.... 1 

NUMStR OF VARIABLES OELETEO 1 



STEP 1 

VARIABLE ENTERED 3 

(FORCED VARUSLEt 

SUM OF SQUARES ffEOUCEO IN THIS STEP.... 
PROPORTION RECUCED IN THIS STEP 

CUMULATIVE SUM 0«= SQUARES REOUCtO 

CUMULATIVE PROPORTION REDUCEO 

FOR I VARIABLES ENTERED 

MULTIPLE CCRRELATION COEFFICIENT... C.119 

(A0JU5TED FOR O.F.I ■:.U9 

F-VALUC FOR ANALYSIS OF VARIANCE... C.4C2 

STANDARD ERROR OF ESTIMATE 1.427 

(ADJUSTED FOR D.F.J 1.427 

VARIABLE REGRESSION STO. ERROR QF 

NUMBER COtt^FICIENT REG. COEFF, 
3 O.C0461 0.0C728 

INTERCEPT 1.15P93 



0.819 
0.014 



0.619 
0.C14 



STEP 4 

VARIABLE ENTERED 1 

SUM OF SQUARES REJUCeO IN THIS STEP.... 
PROPORTION R€CUCEO IN THIS STtP 

CUMULATive SUM OF SQUARES REDUCED 

CUMULATIVE PROPORTION REDUCED 

FOR 4 VARIABLES ENTERED 

MULTIPLE CORRELATION COEFFICIENT... 0.736 

lAOJUSTED FOR O.F.) 0.699 

F-VALUE FOR ANALYSIS OF VARIANCE... 7.375 

STANDARD ERROR OF ESTIMATE 1.C3C 

(AOJUSTEO FOR D.F.I I.C88 

VARIABLE REGRESSION STO. ERROR OF 

NUMBER COEFflCIIENT REG. COEFF. 

3 0.C1493 0.0C561 

2 C.0C741 C. 00175 

5 C. 05076 0.01524 

I C.r!i226 0.C354I 

INTERCEPT -5.94617 



0.12T 
0.CC2 



31.321 
0.541 



T- VALUE 
2.662 
4.222 
3.332 

C.346 





TABLE OF 


RESIDUALS 




CASE NO. 


Y VALUE 


Y ESTIMATE 


RESIDUAL 


I 


1.00000 


0.4849B 


0.51502 


2 


2.C00CC 


I. 77220 


0.227B0 


3 


2.0000C 


2.14799 


-0,14799 


4 


CO 


0.81528 


-0.81528 


5 


2.C0C0'? 


1.910S2 


0.08918 


6 


2.00CCC 


1.S21S6 


0.47944 


7 


3.000C0 


3,47954 


-0.47954 


8 


2.C000C 


2.27251 


-C. 2 725 1 


9 


3.00000 


3.60533 


-0.BC533 


IP 


0.0 


1.02152 


-1.02152 


11 


4,ccooe 


2.50144 


1.49856 


12 


i.oncoo 


2.00604 


-1.00604 


13 


l.COOOC 


2.0C34C 


-1.00340 


14 


i.occoo 


1.14922 


-C. 14922 


IS 


3.0000C 


2.91121 


C. 08879 


16 


2.CC00C 


1.82797 


0.17203 


17 


3,00C0C 


2.56125 


0.43875 


16 


4.CCC0C 


3.43668 


(1.56332 


19 


4.00000 


3.61723 


0.38277 


20 


3.00C00 


2.68358 


C. 31 642 


21 


4.C0C0C 


3.64918 


0.3 5062 


22 


4.C00C0 


1.66566 


2.13434 


23 


l.OOOOC 


2.09698 


-1.09998 


24 


CO 


1.96334 


-1.96334 


25 


4.0000C 


1.40T69 


2.59231 


26 


1.00000 


1.89582 


-0.89582 


27 


3.00000 


2.28895 


0. 71105 


28 


4.000CC 


4,50336 


-C. 50336 


29 


4.00000 


3.9494C 


C. 05060 


30 


CO 


0.44790 


-0. 44790 



COHPUTEO 

T- VALUE 

C.634 



Figure 46. (Continued) 

Program Modification 



STEP 2 

VARIABLE ENTERED Z 

SUM DF SQUARES REDUCEO IN THIS STEP 

PROPORTION REDUCED IN THIS STEP 

CUMULATIVE SUM OF SQUARES REDUCED 

CUMULATIVE PROPHRTION REDUCEO 

FOR 2 VARIABLES ENTERED 

MULTIPLE CORRELATION COEFFICIENT,,. 0.466 

(ADJUSTED FOR D.F.) C.435 

F-VALUE FOR ANALYSIS OF VARIANCE... 3.741 

STANDARD ERRCR OF ESTIMATE 1.295 

(ADJUSTED FOR U.F.I 1.318 

VARIABLE REGRESSION $TD. ERROR OF 

NUMBER COEFFIC ICNT RED. COEFF. 

3 C.0C77fl C.CG671 

2 C.C0565 C.0C214 

INTERCEPT -1.4C194 



STEP 3 

VARIABLE ENTERED 5 

SUM OF SQUARES PEDUCEO IN THIS STEP.... 
PROPORTION REDUCEO IN THIS STEP 

CUMULATIVE SUM OF SQUARES REDUCED 

CUMULATIVE PROPORTION REDUCED 

FOR 3 VARIABLES ENTERED 

HULTIPLE CORRELATION COEFFICIENT... C. 734 

(ADJUSTED FOR O.F.I 0.711 

F-VALUE FDR ANALYSIS OF VARIANCE... 10.137 

STANDARD ERROR OF ESTIMATE.... 1,C13 

(ADJUSTED FOR O.F.) 1.C50 

VARIABLE fttGRESSION STO. ERROR OF 

NUMBER COEFFICIENT REG. COEFF. 

3 0.C1497 C.OC551 

2 C0C744 0.0CI72 

5 C.C5363 C.0I256 

INTERCEPT -5.5352B 



11.738 
0.203 



2.557 
0.217 



COMPUTED 
T- VALUE 
I.16n 
2.645 



16.639 
0.322 



31.196 
C.539 



-VALUE 
2.717 
4.318 
4.263 



Figure 46. (Continued) 



Program capacity can be increased or decreased 
by making changes in dimension statements. Input 
data in a different format can also be handled by pro- 
viding a different format statement. If the user 
encounters problems with large or small numbers 
in his output, he may wish to change output format 
statements from F to E notation. In order to 
familiarize the user with the program modification, 
the following general rules are supplied in terms of 
the sample problem. 

1. Changes in the dimension statements of the 
main program, STEPR: 

a. The dimension of arrays XBAR, STD, 
D, B, T, IDX, and L must each be greater than 
or equal to the number of variables, m. Since 
there are six variables in the sample problem, 
the value of m is 6. 

fa. The dimension of array RX must be 
greater than or equal to the product of m x m. 
For the sample problem this product is 36 ^ 6 x 6. 

c. The dimension of array R must be 
greater than or equal to (m+l)m/2. For the sample 
problem this number is 21 = (6+1)6/2, 

2. Changes in the input format statement of 
the special input subroutine, DATA: 
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Only the format statement for input data 
may be changed. If sample data are either one-, 
two-, or three-digit numbers, each row of data 
may be keypunched in six 3-column fields rather 
than using six-column fields as in the sample 
problem; in such case the format is changed to 
(6F3.0). 

The special input subroutine, DATA, is 
normally written by the user to handle different 
formats for different problems. The user may 
modify this subroutine to perform testing of input 
data, transformation of data, and so on. 

Operating Instructions 

The sample program for stepwise multiple regres- 
sion is a standard FORTRAN program. Special 
operating instructions are not required. Data set 
5 is used for input, and data set 6 is used for 
output. A scratch tape (data set 13) written in 
binary mode is used as intermediate storage. 

Error Messages 

The following error conditions will result in mess- 
ages: 

1. The number of selection cards is not speci- 
fied on the control card— NUMBER OF SELECTIONS 
NOT SPECIFIED. JOB TERMINATED. This error 
terminates execution of the job. 

2. More than one dependent variable is speci- 
fied on a selection card~SE LECTION CARD (N) 
DOES NOT NAME ONE AND ONLY ONE DEPENDENT 
VARIABLE. SELECTION IGNORED. 

3. A control digit is not 0, 1, 2, or 3 on a 
selection card—COLUMN (K) OF SELECTION 
CARD (N) IS IN ERROR. IT IS POSSIBLE THAT 
COLUMNS SUCCEEDING THAT COLUMN ARE 
ALSO INCORRECT. THE SELECTION IS IGNORED. 

4. There are too few observations for estima- 
tion to take place~(N) OBSERVATIONS ARE TOO 
FEW TO ALLOW PARAMETER ESTIMATION FOR 
(M) VARIABLES. JOB TERMINATED. 

5. The correlation matrix is singular or badly 
conditioned—EITHER THE MATRIX IS SINGULAR, 
OR THE RESIDUAL SUM OF SQUARES IS NEGA- 
TIVE IMPLYING EXTREME ILL- CONDITION. 
SELECTION IGNORED. 

Two other error types are not detected: 

1. If the number of observations is incorrect, 
the job deck will be such that results on that selec- 
tion and on succeeding jobs will be incorrect. The 
user should take care in preparing his job deck 
according to instructions given above. 

2. If some variable is constant over all obser- 
vations, a zero standard deviation will occur, and 



results for that selection will be incorrect or not 
forthcoming. 

Timing ■ 



The execution time of this sample program on a 
System/360, Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as output, 
is 45 seconds. 

C STEP 10 

C > ........STEP ZO 

C STEP 30 

C SAf^PtE fifilN =HOGPAM fOfi STEP-WISF rtULTIPLE PEGPESSICN - STEPR STE» «0 

C STEP SO 

C PURPOSE STEP 60 

C til READ THE PRHSLEM ^AKAMETEK CARO FO^ A STE»-HlSe HULTIPLESTEP 70 

C REGRESStON. (21 RfAD SUBSET SELECTIOM CARDS. IS) CAIL THE STEP flO 

C SUBRGUTINE TO CALrULATE HEANS. STANOtRO DEVIATIONS. SIMPLE STEP 90 

C CORRELATICN COEFf !CIENTS. AN3 (4) CAlL THE SUBROUTINE TO STEP 100 

C PERFOKr. FftCM STEP OF REGRESSION ANALYSIS. STEP IIO 

C STEP IJO 

C REMACKS STEP 150 

C THE NU«tRt« OF OBSERVATIONS. N* MUST BE GREATER THAN H*2, STEP 1*0 

C WHERE M IS THE NUf^bER r.f VARIABLES. IE SELICTICK CARDS ARE STEP 150 

C NOT PRESENT, THIS PROGRAM CAN NOT PEAFCRM STEP-HISE MULTIPLESTgP IS.0 

C REGRESSION. STEP 170 

C STEP IflO 

C SUBROUTINES *N0 FUNCTION SUBPROGRAMS REQUIRED STEP I-JO 

C CO^RE (WHICH. IN TURN. CALLS THE SUBIOUTINE OATA) STEP 200 

C HSTR IHHICH. IN TURN. CALLS THE SUBROUTINE LCC) STEP 210 

C STP»C (WHICH. IN TURN, CALLS THE SUBROUTINE STOUTl STEP 220 

C STEP 230 

C METHPO STEP 2*0 

C REFER TO C. A. BENNETT AND N. L. FRANKLIN. ' T ''AT ISTI CAL STEP 250 

C ANALYSIS IN CHFMISTRT AND THE CHEMICAL INDUSTt-y', JOHN HILEVSTEP 260 

C AND SONS, 195*, AOPENOIK 6A. STEP 270 

C STEP 2R0 

C STEP 290 

C STEP 300 

C THE FOLLOWING OlMENSION^; MUST BE GREATER THAN OF !^QU*L TO THE STEP 310 

C NUMBER (IF VA'^.I A5Lf S, H,. STEP 320 

C STEP 330 

OIMENSnN «R«R(351.STO(S51, 0(351. BUS), 1(351, 10X1351, L(35) STEP 3«0 

C STEP 350 

C THE FOLLOWING OI-fENSION MUST RE GRcATCR THAN OP E3UflL TO THE STEP 360 

C PRODUCT OF H«M.. STEP 370 

C STEP 380 

OINENSlrN RKI 12251 STEP 390 

C STEP 400 

C THE FOLLOWING DIMENSION MUST BE GREATER THAN OR EQUAL ID THE STEP Alo 

C (M*l)*M/^.. STEP A20 

C STEP A30 

DINENSIDN R(6301 STEP "0 

C STEP A50 

C THE FOLLOWING DIMENSION MUST SE OREATER THAN DP tOUAL TO 5.. STEP ".60 

C STEP A70 

DIMENSION NSTEPISl STEP *S0 

C STEP A90 

" C THE EOLLOVMNG DIMENSION MUST BE GREATER THAN OR EOUAL TO 11.. STEP 500 

C STEP 510 

OIHENSim ANSIUl STEP 520 

C STEP 530 

C STEP 5*0 

C STEP 550 

C IF A DOUBLE PRECISION VERSION OF this ROUTINE IS DESIRED, THE STEP 540 

C C IN COLUMN 1 SHOULD BE REMOVEO FRflM THE DOUBLE PRECISION STEP 570 

C STATEMENT WHICH FOLLOWS. STEP 580 

C STEP 590 

C DOUBLE PRECISION XBAR,STD,AX,R,B.T, ANS,YEST STEP AOO 

C STEP AID 

C THE C MUST ALSO BE REMOVED FROM DOUBLE PRECISION STATEMENTS STEP 620 

C APPEARING IN OTHER ROUTINES USED IN CONJUNCTION WITH THIS STEP 650 

C ROUTINE, STEP 640 

C STEP 650 

C STEP 640 

C STEP 670 

1 FDRMAT(A4,A2, 15, 212, F6. 0,111 STEP 680 

2 FORBAT(53MONUHBER Of SELECTIONS NOT SPECIFIED. JOB TERMINATED. I STEP 690 

3 FORMATI35hlSTEP-W(SE MULTIPLE REGRESSION A4,A21 STEP 700 

4 FDRMAT(31H0VARIAaLE MEAN ST ANDAPD/AX ,3HN0. 15X,9HDE VIATIONl STEP 710 

5 fOI>HATI«X,l2,fl4,5,Fl2.5l STEP 720 

6 FORMAT119HIC0RRELATION MATRIXl STEP 730 
T FORMATI4Ha30WI3/tlOF12.5n STEP 7*0 
B FORMAT(72lll STEP 750 
9 FORMAT! 23H0NUM8E- OF OBSER VAT I ON SI 5 1 STEP 760 

10 F0RKAT(20H NJMIER OF VAR I ABLES3X, 1 51 STEP 770 

11 F0RMAT(21H NUMBER LF SELECTI0NS2X.I 51 STEP 780 

12 F0RMAT(28H0CaN5rANT TO LIMIT VAR I A8L ESF9. 5 1 STEP 790 

13 F0RM4T(/I5H1S£LECTI0N.....I21 STEP 800 

14 FORMATI 16X, IBHTABIE OF PES I DUALS/ /9H CASE NO.SX.THY rfAtUESX.lOMY ESTEP 810 
ISTIMATE6X,8HRESI0UALI STEP B20 

15 FORMAT(|T,F15.5.?F14.Sl STEP 330 

16 FORMATI IH 1 STEP 940 

17 FORMATdHl) STEP BSO 

H fOUMATIlHOi'ttt'CaLUHNM*," Of SELECTION CARD', IS' IS IN fRROR. SfEP 860 

1 IT IS POSSIBLE THAT CULUMME SUCCEfOING THAT COLUMN «F E ALSO* STEP 870 
2/' INCORRECT. TMf SELECTION IS IGNORED. *•♦•' I STEP «B0 

19 FORMATIIHO, ■••••SELECTION CAFO',15,' Ct^ES NOT NAME CNE AND ONLY ONSTEP 890 
IE DEPENDENT VARIABLE. SELECTION 1 GNORt 0. •••• ■ I STEP 900 

20 FORMATIIHO, ••♦••EITHER THE MATRIX IS SINGUlAf, OR THE RESIDUAL SUMSIEP 910 
1 Of SOUARES IS NEGATIVE IMPLYING EXTREME III CONDITION, ',/. ■ SEIECSTEP 920 
eilON IGNO«eC.^»^^'l '"■' "" 

21 FORMATIIHO, •••••*, 16.* OBSERVATIONS ARE TOO FEW TC ALLOW PARAMETERSTEP 940 
1 ESTIMATION FDR', 15," VARIABLES. JOB TERMINATED. ••••• I STEP 950 

C STEP 960 

C READ PROBLEM PARAMETER CARD STEP 970 

C STEP 980 

100 READ (5,1) PR1,PR2,N,M,NS,PCT,NR STEP 990 

C PRl PROBLEM CODE (MAY BE ALPHAMERIC! STEPIOOO 

C PR2 PfOSlEH CODE (C0NTI^UCD1 STEPIOIO 

C N NUMBER OF OBSERVATIONS STEP1020 

C M NUMBER OF VARIABLES STEP1030 

C NS NUMBER Of SELECTIONS STEPI040 

C PCT A CONSTANT VALUE OF PROPORTION OF SUM CF SOUARES THAT STEP1050 

C WILL BE USED TO LIMIT VARIABLES ENTERING IN THE REGRES-STEPI060 

C SION STEP1070 

C NR..... .OPTION CODE FDR TABLE OF RESIDUALS STEPIOBO 



Appendix B — Stepwise Multiple Regression 417 



- IF IT IS NOT OESIREO 

1 - If IT IS DFSIFED 

WRITE <6t}t PRl,PRZ 

HRITE <6.9) N 

URITE (6*101 H 

IF(N-M-21 101,101,102 
l6l WRITei6,21) NtH 

STOP ^ 

102 HRITE (6. It) hS 

WRITE C6,I2I PCT 

LOGICAL TAPE 13 IS USEO AS INTERHEOIATE STOAAGE 10 HOLD INPUT 
DATA. THE INPUT DATA ARE WRITTEN CK LOGICAL TAPS IJ BY THE 



FOR fteSIDUAL ANALVSIS. 



CALL COBRf (K'tK.IO.X.XSAR.SrCRXfR.S.OtT) 
REWIND 13 



PRINT ntt.HS AND STANDARD DEVIAriDh 



HRITF (6.41 

DO lOS I' It* 

IC*. WRITE (&.S) 



I,X8AR< 1),$T0{ I ) 



PRINT CORRELATION MATRIX 



WRITE (6.61 
DO 130 1 = 1, « 
00 126 J=I.N 
IF(I-J) 110. 1 
=I+( J»J-Jt/2 
GO TO 12 5 

-=j*(i*i-n/2 

L25 T(JI«lt(tCI 

no WRITE I&.7I I. 



ita 



UO 



(Tl JI.J'^I.M) 



TEST MUHSER Of SELECTIONS 

IPfNSI 155, 1'35, 140 
135 WRITE (6.21 
GO TO 200 

SAVE THE MATRIX CF bUMS OF CROS S-PROOUCTS OF DEVIATIONS 

140 CALL HSTP (RX.R.M.O.ll 

NSEL»l 

GO TO 150 

COPV THE MATRIX OF SUMS OF CRDSS-PftCOUCTS OF DEVIATIONS 

145 CALL HSTR (K.RX.H.l.Ol 

READ A SELECT ION CARD 

150 WOITE 16.131 NSEL 

READ <%,BI ( ION<J) ,J>I.H) 



STeP1240 

STEP1250 

STEP1260 

5TEP12T0 

STEP1280 

STEP1290 

STEP1300 

STEP1310 

STEP1B20 

$TEP1330 

STEP1340 

STEP1350 

5TEP1360 

STEPI370 

STEP1380 

STEP1390 

STEP1400 

STEP1410 

STEP1420 

STEP1430 

STEP1440 

STEPl*50 

STEP1460 

STEP1470 

STEPI4aO 

STEP1490 

STEP1500 

STEPI510 

SfEPISZO 

STEP1530 

STEPISAO 

SrEPl550 

SrEP1560 

STEP1570 

STEP1580 

SrEP1590 

STEP1600 

STeP1610 

STEP1620 

STEP1630 

STEP1640 

STEP1650 

STEPt660 

STEP1670 

STEPloeo 

STEP1690 

STEP1700 

STEP1710 

STEP1720 

STEP1730 

STEP1740 

STEPIT50 

STEP! 760 

STEP1770 



; IN EACH POSITION OF lOX, ONE OF THE FOLLOWING CODES HU5I BE 

SPECIFIED.. 

OR BLANK - INDEPENDENT VARIABLE AVAILABLE FOB SELECTION 

1 - INOEPENOeNI VARIABLE TO BE FORCED IM REGRESSION STEPL780 

2 - VARIARLE TP BE DELETED STEP1790 

3 - DEPENDENT VAFIABLE STEPiaOO 

STEP1910 

N3*-0 STEP1820 

00 155 K=I,1 STEP1830 

IF (lOXIKIl 152,153,153 STEP1840 

152 WRITE (6.181 K.NSEL STEP1B50 
GO TO 185 STEPIBAO 

153 IF (IDXtKI-3) 155,154,152 STEPIBTO 
li4 N35-H35*! STEP1880 

155 CONTINUE STEP1890 
IF (N15-;i 156,157.156 SrEP1900 

156 WRITE (6,19J NSEL STFP1910 
GO TO 185 SrEP1920 

CALL THE SUBROUTINE TO PEfFOBH A STEP-WISE REGRESSION ANALYSIS STEP1930 

STEP1940 

157 CALL 5TPRG IM,N,RX,.XBAR . lOK, PCT * NSTE'>i AN$,L*Bt STC,1 ,D, lERI 
IF (lER) 153,159,156 

15d WRITE (6t20) 
CO TO 185 



FIND WHETHER TO PRINT THE TABLE OF RESIDUALS 
159 IflNFt 185. 185, 160 



PRINT The table OF RESITUALS 



160 WOITE 16.13} NSFL 

WRITE (6,16) 

WRITE (6,14) 

HM-NSTEPIll 

00 leO I'l.N 

READ (13) (D(JltJi'l.HI 

VEST^ANS|9) 

K>NSTEP(4) 

00 170 J>1,K 

XK-LIJ) 
170 YESr>V£ST«^B(J)*DIKKI 

RESI'0(l«H)-VE$T 
lAO WRITE 16.15) I .D1HH) . VEST,RES I 

FEMINO 13 

TEST rc S€€ WHFrHER ALL SELfCTICNS *«f CCPIPLBTeO 

165 IF(NSEL-NS) 190. 100, 100 
190 NSEL-NSEi«l 

WRITE 16,17) 

GO TO 145 



STEP1950 
STEP1960 
STEP1970 
STEP1980 
STEP1990 
STEP2000 
STEP2CI0 
STEPZ020 
STEP2030 
STEP2040 
STEP2050 
STEP2060 
SrEP2O70 
STEP2080 
STEP2090 
STEP2I00 
ST6P2U0 
STEP2120 
SIEP2130 
STEP2140 
STEP2150 
SrEP2160 
STEP2170 
STEP2180 
STEP2190 
STEP2200 
STEP2210 

STeP2220 
STEP2230 
STEP2240 
STEP2250 
STEP2260 
STEP2270 
STEP22S0 
STEP2290 
STeP2300 



CANONICAL CORRELATION 
Problem Description 

An analysis of the interrelations between two sets of 
variables measured on the same subjects is per- 
formed by this program. These variables are pre- 
dictors in one set and criteria in the other set, but it 
is irrelevant whether the variables in the first set or 
in the second set are considered as the prediction 
variables. The canonical correlation, which gives the 
maximum correlation between linear functions of the 
two sets of variables, is calculated, x^ is also com- 
puted to test the significance of canonical correlation. 

The sample problem for canonical correlation 
consists of four variables in the first set (left-hand 
side) and three variables in the second set (right- 
hand side) as presented in Table 6. These two sets 
of measurements have been made on 23 subjects. 



Table 6. Sample Data for Canonical Correlation 



Observation 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



Program 



Description 



X3 



X4 



191 

195 

181 

183 

176 

208 

189 

197 

188 

192 

179 

183 

174 

190 

188 

163 

195 

196 

181 

175 

192 

174 

176 



155 

149 

148 

153 

144 

157 

150 

159 

152 

150 

158 

147 

150 

159 

151 

137 

155 

153 

145 

140 

154 

143 

139 



65 

70 

71 

82 

67 

81 

75 

90 

76 

78 

99 

65 

71 

91 

98 

59 

85 

80 

77 

70 

69 

79 

70 



19 
20 
19 
18 
18 
22 
21 
20 
19 
20 
18 
18 
19 
19 
20 
18 

20 

21 

20 

19 

20 

20 

20 



ot;tunu bct 




Y, 


Y2 


Y3 


179 


145 


70 


201 


152 


69 


185 


149 


75 


188 


149 


86 


171 


142 


71 


192 


152 


77 


190 


149 


72 


189 


152 


82 


197 


159 


84 


187 


151 


72 


186 


148 


89 


174 


147 


70 


185 


152 


65 


195 


157 


99 


187 


158 


87 


161 


130 


63 


183 


158 


81 


173 


148 


74 


182 


146 


70 


165 


137 


81 


185 


152 


63 


178 


147 


73 


176 


143 


69 



The canonical correlation program consists of the 
main routine named MCANO, a special input sub- 
routine named DATA, and five subroutines from 
the Scientific Subroutine Package: CORRE, CANOR 
MNV, NROOT, and EIGEN. 
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Capacity 

The capacity of the sample program and the format 
required for data input have been set up a? follows: 

1. Up to 20 variables, including both the first set 
of variables (that is , left-hand variables) and the 
second set of variables (that is, right-hand variables) 
The number of variables in the first set must be 
greater than or equal to the number of variables in 
the second set. 

2. Up to 99,999 observations 

3. (12F6.0) format for input data cards 
Therefore, if a problem satisfies the above con- 
ditions it is not necessary to modify the sample pro- 
gram. However, if there are more than 20 variables, 
dimension statements in the sample main program 
must be modified to handle the particular problem. 
Similarly, if input data cards are prepared using a 
different format, the input format in the input sub- 
routine, DATA, must be modified. The general 
rules for program modification are desr Ibed later. 

Input 

Control Card 

One control card is required for each problem and is 
read by the main program, MCANO. This card is 
prepared as follows : 

For Sample 
Columns Contents Problem 



1 ■ 


- 6 


Problem number (may 








be alpliameric) 


SAMPLE 


7 ■ 


- 11 


Number of observations 


00023 


12 - 


- 13 


Number of variables in 
the first set (that is, 
left-hand variables)* 


04 


14 - 


- 15 


Number of variables in 
the second set (that is, 
right-hand variables) 


03 



*rhe number of variables in the first set must be 
greater than or equal to the number of variables in 
the second set. 

Leading zeros are not required to be keypunched. 

Data Cards 

Since input data are read into the computer one ob- 
servation at a time, each row of data In Table 6 is 
keypunched on a separate card using the format 
(12F6.0). This format assumes twelve 6-column 
fields per card. 

If there are more tiian twelve variables in a prob- 
lem, each row of data is continued on the second 



card until the last data point is keypunched. However, 
each row of data must begin on a new card. 



Deck Setup 

The deck setup is shown in Figure 47. 



L 



Data 



Control 
card 



/Usl 

''problem 



First problem 




Second problem 



Subroutines and main program 
(including system control cards) 



Figure 47. Deck setup (canonical correlation) 



Sample 



The listing of input cards for the sample problem is 
presented in Figure 48. 



Output 

Description 

The output of the sample program for canonical 
correlation includes : 

1. Means 

2. Standard deviations 

3. Correlation coefficients 

4. Eigenvalues and corresponding canonical 
correlation 

5. Lambda 

6. Chi-square and degrees of freedom 

7. Coefficients for left- and right-hand variables 
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Sample 



Program Modification 



The output listing for the sample problem is shown 
in- Figure 49 of this sample problem. , 



/04TA 












SAMP1.E0002 30*03 










191 


155 


65 


19 


179 


145 


195 


149 


70 


20 


201 


152 


L81 


148 


71 


19 


185 


149 


183 


153 


82 


IB 


186 


149 


176 


144 


67 


IS 


171 


142 


2C9 


157 


Bl 


22 


192 


152 


189 


150 


75 


21 


190 


149 


l«7 


159 


90 


20 


189 


152 


ISfl 


152 


76 


19 


197 


159 


192 


150 


78 


20 


167 


151 


ITS 


153 


99 


18 


196 


148 


183 


147 


65 


16 


174 


147 


174 


150 


71 


19 


185 


152 


19? 


159 


91 


19 


195 


157 


IBB 


151 


99 


20 


187 


tsB 


163 


137 


59 


13 


161 


130 


195 


155 


B5 


20 


183 


15B 


19& 


153 


80 


2i 


173 


148 


181 


145 


fr 


2r 


182 


146 


175 


I4C 


70 


19 


165 


137 


192 


154 


69 


20 


185 


lti2 


174 


143 


79 


20 


178 


147 


176 


139 


70 


2C 


176 


143 



IOC 
110 
120 
130 
140 
ISC 
16C 
170 
180 
190 
200 
210 
2 20 
2 30 
24C 
250 



Figure 48. Input card listing (canonical correlation) 



Program capacity can be increased or decreased by 
making changes in dimension statements. Input data 
in a different format can also be handled by pro- 
viding a specific format statement. In order to 
familiarize the user with the program modification, 
the following general rules are supplied in terms of 
the sample problem, 

1. Changes in the dimension statements of the 
main program, MCANO: 

a. The dimension of arrays XBAR, STD, 
CANR, CHISQ, and NDF must be greater 

than or equal to the total niunber of 
variables m (m = p + q, where p is the num- 
ber of left-hand variables and q is the num- 
ber of right-hand variables). Since there are 
seven variables, four on left and three on 
right, the value of m is 7. 



CANONICAL CQRRELATinN SAMP 

NO. OF OBSERVATIONS 

NO. OF IBfl HAND VARIfteiES 

NO. OF RIGHT HAND VARIABLES 



SrANCAItO DEVIATIONS 

10.10142 6.31673 

COitRELATtON CHEFFICIFNTS 

ROW 1 

1.00000 



0.74852 
l.COOOO 
0.53252 
0.??590 
0.66811 
0.727^0 
0.5119* 



r. 37082 
0.63252 

I .ccrco 

0,20557 
0.47^94 
0.60164 
C. 79684 



76,66955 
lC.463Tfl 

C. 66441 
0.22590 
0.20657 
1.00000 
0.32870 
0.34H63 
-0.10733 



19.47826 
1.0«I6'^ 

0,6?2'>I 
0.66811 
0,47394 



isj.oocrn 



r.6fC«C 

P,7278C 
. 6f 1 69 
0.34pf.> 
0.82555 
l.OOOfIC 
0.47657 



0.246R* 
C.^3194 
?.79frB4 
-0.10713 
C;.>°75fl 
C.4T65T 

Koroco 



WmflER OF 

EIGENVALUES 

REMOVED 



LARGEST 

EIGENVALUF 
REMAINING 

C. 79880 

0.41910 
0.C076T 



CORRESPONOIhC 

CANONICAL 

CnHRFlATION 

0. P9376 
0.64 73 8 

r. 08760 



0.11598 
0.5T644 
0.99233 



CHl-SOUAft€ 



4C,03?77 
10,46676 
0, 14636 



ntr.nees 

fHFtOOM 



CANONICAL CaftftFLiTION 0.f93 76 

COEfflCieNIS FOR UEPT MANO VARIAflLES 

0.66310 -C.16C59 l,C5822 

COEFFICIENTS FOB BICHI MANO VAftlABLES 

-0.02133 C.44C9C C. 89710 



CANONK&t rORRELATIGlJ 



CaeFFICIENTS FOR LEFT HAND VAfiMSLES 

C. 09454 -0.81915 0.66 30"= 



CANONICAL COORFLATION 



COEFFICIENT!; FOR LEFT HAND VARIABLFS 

0.02681 C. 16155 -0.2882 7 



COEFFICIENTS FOR RIGHT HAND VABIARLCS 

0,70125 -0.70384 0,1002 8 



Figure 49. Output listing (canonical correlation) 
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b. The dimension of array RX must be greater 
than or equal to the product of m x m. For 
the sample problem this product is 49 =7x7. 

c. The dimension of array R must be greater 
than or equal to (m + 1) m/2. For the sam- 
ple problem this number is 28 = (7 + 1)7/2. 

d. The dimension of array COEFL must be 
greater than or equal to the product of p x q. 
For the sample problem this product is 

12 =4x3. 

e. The dimension of array COEFR must be 
greater than or equal to the product of q x q. 
For the sample problem this product is 
9=3x3. 

2. Changes in the input format statement of the 
special input subroutine, DATA: 

Only the format statement for input data may 
be changed. Since sample data are either two- 
or three-digit numbers, rather than using six- 
column fields as in the sample problem, each 
row of data may be keypunched in seven 3- 
column fields, and, if so, the format is 
chained to (7F3.0). 

The special input subroutine, DATA, is 
normally written by the user to handle different 
formats for different problems. The user 
may modify this subroutine to perform testing 
of input data, transformation of data, and so 
on* 

Operating Instructions 

The sample prc^ram for canonical correlation is a 
standard FORTRAN program. Special operating in- 
structions are not required. Data set 5 is used for 
input, and data set 6 is used for output. 

Timing 

The execution time of this sample program on a 
System/360, Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as out- 
put, is 19 seconds^ 



SAHPLE HAIH PROGRAM FOR CANONICAL CORREtATION - HCANU 

PURROSe 

1 LI READ THE PRORLCH PARAMETER CARD FOR A CANONICAI. 
CORR'^LATION. (21 CALt TWO SUSrtOUTlNES TO CALCULATE SIMPLE 
CORRELATIONS. CANONICAL CO^HUJlOHi, C H [ - S(}UA<<£ S i D£5R£e$ 
Of FREEDOM F3R CHI-SQUARES. AND COEFFICIENTS FOR LEFT AND 
HICriT rIANO VARIABLES* HAHELV CANONICAL VARIATES. AND 13) 
PRINT THE RESULTS. 

REMARKS 

THE NUfiftER OF LEFT HANO VARIARLES HUST 96 GREATER THAN 
an EQUAL TO THE NUHeER OF RIGHT HAND VARIABLES. 



20 
30 



90 



SUBROUTINES AND FUNCTION SUdRROGRAHS REQUIRED 



(WHlCrl* 

DATA.) 
ItlHtC-i, 

NROOT. 



IN T(J"N, CALLS THE INPUT SUSROUTINE NAHEO 



IN TURN) CALLS THE SUBROUTINES HINV AND 
NROOT. IN TURN. CALLS THE SUSROUTINE EIGEN.I 



NCAN 
.HCAN 
NCAN 
NCAN 

ncan 

HCAN 
HCAN 
HCAN 
NCAN 
HCAN 100 
HCAN tie 
NCAN 120 
NCAN 130 
NCAN 140 
NCAN ISC 
NCAN 160 
HCAN 170 
HCAN ISO 
HCAN 190 
HCAN 200 
HCAN 210 
HCAN 22Q 
NCAN 230 
HCAN 2«>0 



C REFER TO W. W. COOLEV AND P. R. LOHNES. *NULr I VARI ATE PRO- HCAN 290 

C CEOURES FOR THE BEHAVIORAL SCIENCES** JOHN HIlEY ANO SONSf NCAN 260 

C I9<i2t CHAPTER 3. NCAN 2T0 

C HCAN 280 

C HCAN 290 

C NCAN 300 

C THE FCLLOrilNG OIHENStJNS HUST 8E GREATER THAN Oft EQUAL TO THE HCAN 310 
C TOTAL NUNBER OF VA^IAtlLES N (N'HP+NtJ. WHERE NP IS THb NUMBER OF HCAN 320 

C LEFT-HAND VARIADLES, ANO NQ IS THE NUHHEK OF RIGHT HANiJWARI- HCAN 330 

C ADLES).. NCAN 340 

C HCAN 350 

QIHENSION XOARIZOI .SrO(Z'}|*CANRI2Cl*CHISO(2Ct .NOF(23l NCAN 360 

C HCAN 3T0 

C THE FOLLOWING UINENSION NUST BE GREATER THAN OR EQUAL TO THE HCAN 300 

C PROOUCT OF H*H.. NCAN 390 

C NCAN 400 

OIHENSION RX(400I HCAN 410 

C NCAN 420 

C THE F0LL0Wi:4G DIMENSION NUST BE GREATER THAN OR EQUAL TO HCAN 430 

C (H«^ll*4/2.. NCAN 440 

C HCAN 450 

OINENSION R(2LC) HCAN 460 

C NCAN 470 

C THE FOLLOWING DiHENSION HUST BE SREATER THAN OR EQUAL TO THE HCAN 480 

C PROOUCT Of NP*H4.. HCAN 490 

C HCAN SCO 

0IHENSI3N C0EPH4001 HCAN 51C 

C NCAN 5ZQ 

C THE FOLLQWINS OINE'fSIOU NUST BE GREATER THAN OR EQUAL TO THE HCAN 530 

C PROOUCT OF NQ*N0.. NCAN 540 

C HCAN 550 

OIHENSION COEFRI^COl HCAN 560 

C NCAN 570 

C NCAN 500 

C NCAN 590 
C [FA OQUSLE PRECISION VERSION OF THIS ROUTINE IS DESIRED. THE NCAN 60C 

C C IN COLUMN 1 SrIOULO BE RENOVEO FftON THE DOUBLE PRECISION HCAN «L0 

C STATEMENT WHICH FOLLOWS. NCAN 620 

C NCAN 630 

C 00U9LE PRECISION XAAft, STD.RXtR.C ANR«CH[SQ«COEFL»COEFft HCAN 640 

C HCAN 650 

C THE C NUST ALSO BE REMOVED FROM DOUBLE PRECISION STATEMENTS NCAN 660 

C APPEARING IN OTHER ROUTINES USEO IN CONJUNCTION WITH THIS HCAN 6T0 

C ROUTINE. NCAN 680 

C NCAN 690 

C . * HCAN 70C 

C NCAN 710 

1 F0RHAr(A4.A2. 15(212) NCAN 720 

2 FORHAT(27HICANONICAL CORRELATION.'. ... .A4.A2//22H NO. OF OaSERVATNCAN 730 
1I0N$,8X(I4/29H NO. OF LEFT HAND VARIABlC$»IS/)3H NO. OF RIGHT NCAN 740 
3HAN0 VARIABLES. I4/I HCAN 750 

3 FaHHATI«.HOM£ANS/(BF 15.5)1 NCAN 760 

4 FORMAT! 20HCSTAN3AR3 O^VIATIONS/iaf 15.51 1 NCAN 770 

5 FORMAT! Z5HCC0RRELATI0N COEFFICIENTS) NCAN TBO 

6 FORHAT(4H0HO>l.I3/( tOFlZ.SI) NCAN 790 

7 FGRNAT(1HC//12H NUMBER OF » 7X« 7HLARSEST»7X. lIHCORRESPONOINGi 3IXt7NCAN BOO 
IH0EGAEES/13H E (SEN VALUES, 5X, ICHEIGENVAlUE, TX,9HCANaNICAL* 7K,6HLAHHCAN 810 
2SOA,5X.10HCHl-S0LiARE. 7X,2H0F/4X. 7HfteMOVE0»7X*9HREMAININ6,TX,llHCORNCAN 820 
3R£LATION«32XfTHFREEOON/) NCAN B30 

e FORNATdH ,iriFl9.5.Fl6.5.2Ft4.5*5X,I5) HCAN 840 

9 FORHATI1H0/22H CANONICAL CORRELATION. F12.S) NCAN 850 

10 FORNATI39H0 COEFFICIENTS FOR LEFT HAND VARI ABL£S/( SFIS.5) I NCAN 860 

11 FORHAT<40HC COEFFICIENTS FOR RIGHT HAND VARI ASLES/IBFIS.SI I HCAN 870 
C NCAN BBO 

C HCAN 8 90 

C HCAN 900 

C READ PROdLEH PARANETER CARD HCAN 910 

C HCAN 920 

IOC REAO 15,11 PR.PRl.N.HP.HO NCAN 9)0 

C PR PROSLEH NUMBER (MAY BE ALPHAHCRICI NCAN 940 

C PRl P^iaSLEI NUMBER [CONTINUED) NCAN 950 

C N NUHdER OF CBSERVATIONS NCAN 960 

C NP NUNBER OF LEFT HAND VARIABLES NCAN 970 

C NQ NUH9ER OF RIGHT HAND VARIABLES NCAN 980 

C NCAN 990 

WRITE (6,21 PR.PRl.N.MP.HQ NCANIOOO 

C NCANlOlO 

N-NP4NQ NCAN1020 

I0>0 NCAN1030 

X-0.0 NCAN1C40 

C NCAN1050 

CALL CORRE IN, M« ID. X.XBAR.STO.RX.RtCANR.CHlSQtCOEFLl NCAN1060 

C HCAN1070 

C PRINT MEANS. STANDARD DEVIATIONS. ANd CORRELATION MCAN1080 

C COEFFICIENTS OF ALL VARIABLES NCAN1090 

C MCANllOO 

WRITE (6,3) (X8ARII l.l-l,H) HCANIllO 

WRITE 16.41 (STOdl.l-l.HI MCANtt20 

WRITE (6.5) NCAN1130 

03 160 I-UN MCANtl40 

00 150 J«L,H MCANtlSO 

IFII-J) 120, 131, 130 MCANU60 

120 L-I»(J*J-JI/2 HCAN1170 

GO TO 140 HCANII80 

130 L-J*(l*l-II/2 NCAN1190 

L4C CANR(J)*R(L) NCAN1200 

150 CONTINUE HCAN1210 

160 WRITE (6.6) I.(CANR(JI . J-1,H) MCAN1220 

C HCAN1230 

CALL CANOA { N, HP, H),R.XBAR,SrD,CArM, CHI SQ,NOF. COEFR. COEFL, RX) NCAN 1240 

C NCAN1253 

C PPINT EIGENVALUES. CAi^ONlCAL CORRELATIONS, LAH60A, CHI-SgUARES, MCAN1260 

C OECREES OF FRE6DJHS NCAN12T0 

C HCAN1230 

WRITE 16, T( HCAN1290 

00 170 I>1,MQ MCAN1300 

MI>1-1 HCANlilO 

C MCAN132Q 

C TEST WHETHER EISENVALUE IS GREATER THAN 2ER0 NCAN1330 

C NCAN 1340 

iF(XSARIM) 165) 165, 1 TO HCAN13S0 

165 HN.Nl HCAN1360 

GJ TO 175 MCAN1370 

iro wrtlTE (6.8) Nl.XBAAII ) ,C4r4ft(I ) *Sroi n.CHISOl II.NOFI It NCAN1380 

HH-HQ NCAN1390 

c Hmm 

C PRINT CANONICAL COEFFICIENTS HCAttUlO 

C NCAN14^0 

ITS «1"0 NCAN1430 

N2-0 HC*NI«*0 

Oa 200 I-l.HM HCAN|t5} 

ualTE (6,91 ONKU) HCAN1460 

00 laO J-l.NP NCAN1470 

Nl-Nl*! HCANItaO 

180 «SAKIJI>C0EFI.(N1I HCANU90 

WRITE <6,L0I (X9AR( J), J«l,Hf>t HCANISOO 

00 Ue J.1.!I0 HCANISIO 

»'••"*' HCAN1520 

110 lieAltlJI>C0SFIt|N2l KCANtSSO 

WRITE (6.11) IX3AR( JI,J>1.HQ) HCAN1540 

200 CONTINUE HCANISSO 

=0 ro 100 NCAN 1560 

^**^ NCANisrc 
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ANALYSIS OF VARIANCE 



Table 7. Sample Data for Analysis of Variance 



Problem Description 

An analysis of variance is performed for a factorial 
design by use of three special operators suggested 
by H. O. Hartley. * The analysis of many other de- 
signs can be derived by reducing them first to 
factorial designs, and then pooling certain compo- 
nents of the analysis-of-variance table. 

Consider a three-factor factorial experiment in a 
randomized complete block design as presented in 
Table 7. In this experiment, factor A has four levels, 
factors B and have three levels, and the entire 
experiment is replicated twice. The replicates are 
completely unrelated and do not constitute a factor. 
Nevertheless, for the purpose of this program a 
four-factor experiment (with factors A, B, C, and 
R) is assumed. Thus, each element of the data in 
Table 5 may be represented in the form: 



abcr 



where a = 1, 2, 3, 4 

b = 1, 2, 3 

c = 1, 2, 3 

r = 1, 2 



The general principle of the analysis-of-variance 
procedure used in the program is first to perform a 
formal factorial analysis and then to pool certain 
components in accordance with summary instruc- 
tions that specifically apply to the particular design. 
The summary instructions for four different designs 
are presented in the output section. 



Program 



Description 



The analysis-of-variance program consists of the 
main routine named ANOVA, and three subroutines 
from the Scientific Subroutine Package: AVDAT, 
AVCAL, and MEANQ. 



Replicate 




b, 


b2 


^3 


(Block) 


ai 


32 aj 


^4 


ai 


aj aj 


^4 


ai 


a? 


ai 


^4 




I'c, 


3 


10 9 


8 


24 


8 9 


3 


2 


8 


9 


8 


r,.... 


r^ 


4 


12 3 


9 


22 


7 16 


2 


2 


2 


7 


2 




(=3 


5 


10 5 


8 


23 


9 17 


3 


2 


8 


6 


3 




(^' 


2 


14 9 


13 


29 


16 11 


3 


2 


7 


5 


3 


■■2 • • • ■ 


U 


7 


11 5 


S 


28 


18 10 


6 


6 


6 


5 


9 




U 


9 


10 27 


8 


28 


16 11 


7 


8 


9 


8 


15 



Capacity 

The capacity of the sample program and the format 
required for data input have been set up as follows: 

1. Up to six-factor factorial experiment 

2. Up to a total of 3000 data points. The total 
number of data points in a problem is calculated 
by the formula: 

T = n (LEVELi + 1) 
i=l 



factor 



where LEVEL, = number of levels of i 
k = number of factors 
n = notation for cumulative 
multiplication 



3. (12F6. 0) format for input data cards 
Therefore, if a problem satisfies the above con- 
ditions it is not necessary to modify the sample pro- 
gram. However, if there are more than six factors 
or if the total number of data points is more than 
3000, dimension statements in the sample main pro- 
gram must be modified. Similarly, if input data 
cards are prepared using a different format, the 
input format statement in the sample main program 
must be modified. The general rules for program 
modifications are described later. 

Input 



*H.O. Hartley, "Analysis of Variance", Mathe - 
matical Methods for Digital Computers , edited by 
A. Ralston and H. WiLf, John Wiley and Sons, 
1962, Chapter 20. 



Control Card 

One control card is required for each problem and is 
read by the main program, ANOVA. This card is 
prepared as follows: 
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Columns Contents 



1- 6 Problem number (may be 

alphameric) 
7- 8 Number of factors 
9-15 Blank 
16 Label for the first factor 

17-20 Number of levels of the 

first factor 
21 Label for the second factor 

22-25 Number of levels of the 

second factor 
26 Label for the third factor 

27-30 Number of levels of the 
third factor 

31 Label for the fourth 

factor 
32-35 Number of levels of the 

fourth factor 



66 Label for the eleventh 

factor (if present) 

67-70 Number of levels of the 
eleventh factor 



For Sample 
Problem 

' SAMPLE 

04 

A 
0004 

B 
0003 

C 
0003 

R 

0002 



If there are more than eleven factors, continue 
to the second card in the same manner. 



Deck Setup 

The deck setup is shown in Figure 50. 

Sample 

The listing of input cards for the sample problem is 
presented in Figure 51. 

Output 

Description 

The output of the sample analysis-of-variance pro- 
gram includes the numbers of levels of factors as 
input, the mean of all data, and the table of analysis 
of variance. In order to complete the analysis of 
variance properly, however, certain components in 
the table may need to be pooled. This is accom- 
plished by means of summary instructions that 
specifically apply to the particular experiment. 
These are presented in Table 8. 

As mentioned earlier, the sample problem is a 
randomized complete block design with three factors 
replicated twice. Therefore, it is necessary to 
pool certain components in the table of analysis of 
variance shown in Figure 52. Specifically, the 
components AR, BR, ABR, CR, ACR, BCR, and 
ABCR are combined into one value called the error 
term. The result is indicated In Figure 52. Since 
these data are purely hypothetical, interpretations 
of the various effects are not made. 



Columns 

l2 - 5 
etc. 



Contents 

Label for the twelfth factor 
Number of levels of the 
twelfth factor 



Leading zeros are not required to be keypunched. 
Data Cards 

Data are keypunched in the following order: Xj^jjj, 

^21H> X3111> ^4111' ^1211. X2211. X3211, .... 
^332- ^ other words, the innermost subscript is 
changed first — namely, the first factor — and then 
the second, third, and fourth subscripts. In the 
sample problem, the first subscript corresponds to 
factor A, and the second, third, and fourth sub- 
scripts to factors B, C, and R. Since the number of 
data fields per card is twelve, implied by the 
format (12F6.0), each row in Table 7 is keypunched 
on a separate card. 



r 



Data 
cards 



Control 
card 



_K 



Last 
problem 




Second problem 



First problem 



Subroutines and main program 
including system control cards) 



Figure 50. Deck setup (analjrsis of variance) 
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Table 8. Instructions to Summarize Components 
of Analysis of Variance 



Factor No. 1 
2 

3 



(Output) 

Sums of squares 



Single Classificatioit 
with Replicates 



Groups ^ A 
Replicates = R 



Two-way Classificati 
with Cell Replicates 



Rows = A 

Columns = B 
Replicates = R 



RciiidoiiitzccI * 

Complete Blwk 
with Two Factors 



Factor 1 ^ A 
Factor 2 = B 
Blocks ^ R 





R 


S 


B 


B 






AR 


AB 


Ae 


AB 








R 


R 


R 


B 






AR 


AR 


AR 


AB 






BR 


BR 


BR 


C 






ABR 


ABR 


ABR 


A6C 


Summary 


Error = R + (AR) 


Error = R + (AR) 


Error - (AR)+(BR) 


Error - tBR)+(ABR) 




instruction 




+<eR)+(ABR) 


+ (ABR) 


(b) 


BR J 
ABR / 
CR i 


Analysis of 


Groups A 


Rows A 


Factor 1 A 


Mdtn treatment A 


ACR 1 
BCft 


variance 


Error 


Columns B 


Factor 2 8 


Blocks R 






Interaction AB 


Interaction AB 


Error (a) AR 


rOTAL 






Error 


Blocks R 
Error 


Subtrealment B 
Interaction AB 
Error (b) 


•« 



Main troalnicnt - A 
S)ihtfe:ititicnl - B 
Block? = R 



AMLYSIS Of VUIANCE SANPLE 

lEVeiS CF FACIDBS 

A A 

e 3 

C 3 

" 2 

tHAKO MEAN o AdJJA 



SOURCE OF 
VARIATION 



(aiocic) 



(Crror)' 



&bHS OF 
SQUARES 

229.0A166 

72Z.A9A3A 

1382.06325 

55.11110 

42.00000 

13.13flfiq 

140.75000 

141.6aCS4 

18.B1«44 

«. 02776 

176.97221 

40.77777 

50-55554 

62.6386S 

151.02777 

3233.31763 



OEORECS OF 
FRECOOM 



(506.81M0)' 



(35)' 



«,m™,ii^ offer K,. computer output is oblolnwf. 



Figure 52. Output listing (analysis of variance) 




(14.4«05<)« 



Sample 

The output listing for the sample problem is shown 
in Figure 52. 



Program Modification 

Program capacity can be increased or decreased by 
making changes in dimension statements. Input data 
in a different format can also be handled by providing 
a specific format statement. In order to familiarize 
the user with the program modification, the follow- 
ing general rules are supplied in terms of the sample 
problem. 

1. Changes in the dimension statements of the 
main program, ANOVA: 

a. The dimension of array X must be greater 
than or equal to the total number of data 
points as calculated by the formula in the 
program capacity section above. For the 
sample problem, the total number of data 
points is 240= (4+l)(3+l)(3+l)(2+l). 



b. The dimension of arrays HEAD, LEVEL, 
ISTEP, KOUNT, and LASTS must be 
greater than or equal to the number of 
factors, k. Since there are four factors 
in the sample problem (4=3 original 
factors + 1 pseudo factor), the value of k 
is 4. 
C. The dimension of arrays SUMSQ, NDF, 
and SMEAN must be greater than or equal 
to n = 2*^-1, where k is the number of 
factors. For the sample problem, the 
value of n is 15 = 24-1. 
2. Change in the input format statement of the 
main program, ANOVA: 

Only the format statement for input data may 
be changed. Since sample data are either 
one- or two-digit numbers, rather than using 
six-column fields as in the sample problem, 
each data may be keypunched in a two-column 
field, and, if so, the format is changed to 
(12F2.0). This format assumes twelve 2- 
column fields per card, beginning in column 1. 



/OAFA 
SAHPLE04 
3 



A0004aO003COOO3R00C2 



Figure 51. Input listing (analysis of variance) 



Operating Instructions 

The sample analysis-of -variance program is a 
standard FOHTRAN program. Special operating 
instructions are not required. Data set 5 is used 
for input, and data set 6 is used for output. 
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Timing 

The execution time of this sample program on a 
System/360, Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as output, 
is 11 seconds. 



C ANOV 11? 

C ANOV 20 

C ANOV 30 

C SAMPLE MAIN ORDSRAH FOR AAIALVSIS OF VARIANCE - ANOVA ANOV *0 

C ANOV 50 

C PURPOSE ANOV 6C 

C (II REAO THE PROBLEM PARAMETEk CARO FOR ANALVSI& OF VARI- ANOV 70 
C ANCEt C2) CALL THE SUBROUriNES FOR THE CALCULATION Of SUMS ANOV 00 

C OF S»JA<tES. DEGREES OF FREEDOM ANO MEAN SOUARE. AMD ANOV 90 

C 13) P^tlNT FACTOR LEVELS, 0P.AN9 MEAN AND ANALYSIS OF VARI- ANUV iCO 

C ANCE TABLE. ANOV 110 

C ANOV 120 

C R = MAAKS ANOV UO 
C rH£ PROaRAM HANDLES ONLY COMPLETE FACTORIAL DESIGNS. THERE-ANOV 140 
C FOft£, QrHEt EXPERIMENTAL DESIGN MUST BE PEOUCED TO THIS FGRHANOV 150 

C PRIOR TO THE USE Of THE PAOGRaH. ANOV IfrO 

C ANCV ITC 

C SUdllO'mNES ANO FUNCTION SU6<>R0GRAMS REQUIRED ANOV ISO 

C AVOAT ANOV 190 

C AVCAL ANOV 2CC 

C M£An;j AMQV 2L0 

C ANDV 220 

C MET10D ANOV 230 

C THE METHOD iS BASED ON THE TECHNIQUE DISCUSSED BV H. 0- ANOV 240 

C HARTLEY IN 'HATHEHATICAL HfTHOOS FOR DIGITAL CC3«.>UTfBS*, ANOV 250 

C EDITED BY A, RALSTON AND H. WUF. JOHN WILEY AND SONS, ANOV 260 

C 1962, CHAPTER 2P- ANOV 270 

C ANOV 280 

C ANOV 29C 

C ANOV 300 

C THE FOLLOWING DlMCNblON MUST Bt GREATER THAN OR EQUAL TO THE ANOV 51C 

C CUMULATIVE PRODUCT Of EACH FACTOR LtVEL PLUS ONE (LtVEL(H*l) ANOV 320 

C FOR 1=1 TO K, WHERE K IS THE NUHbER OF FACTORS.. ANUV 330 

C ANOV 34C 

OIMENSION XtarCOl ANOV 350 

C ANCV J6C 

C THE FJLlOWING OI-ICNSIONS MUST 3E CRtATER THAN Oft EQUAL TO THE ANOV 370 

C NUMBER OF FACTORS.. ANOV 380 

C A"4QV 390 

OIMENSION HEA0<iS),LtVEL(bl,ISTEP(6),KOUNT(6),LASTS(6) ANDV 4C0 

C AMUV *I0 

C THE FQLLJHING DIMENSIONS MUST flt GftcATER THAN OR EQUAL TO 2 TO ANOV 420 

C THE K-TH POWER MINUS 1, (I2»*<1-1).. ANt'V *3C 

C ANOV 440 

OlMbNSION SUMS0I63I ,N0F(63I tSMEA>4(63t ANOV 450 

C ANOV 460 
C THE FOLLOWING OIMENSIJN IS USED TO PRINT FACTOR LABtLS IN ANALVSISANOV 47C 

C OF VARIANCE TABLE ANO IS FIXE3.. ANOV 4$0 

C ANOV *9C 

Of4-NSIOM FMTd-il ANOV 5C0 

C , , ANOV 510 

C ANOV 520 
C IF A OOUSLE PRE:1SI0N version of THIS ROUTINE IS OESIKEO. THE ANOV 530 

C C IN COLJHN 1 S^OUL^ 3E RtMOVED FROM TrIE ODUBLt PRECISION ANOV 54C 

C STATEMENT WHICH FOLLOWS. ANOV 550 

C ANOV 56C 

C DOUtiLE PRECISION X, GME ANf SUHSO, SMEAN, SUM ANQV 570 

C ANUV 560 

C THE C MUST ALSO BF REMOVED FROM JOUBLE PRECISION STATEMENTS ANOV 590 

C APPEARING IN OTHER ROUTINES USEO IN CONJUNCTION WITH THIS ANOV 600 

C ROUTINE. ANOV 610 

C ANOV 620 

C ANOV 630 

C ANOV 640 

1 F3RHATI A4«A2»I2tA4t 3X.1KAUI4I/IAI tl4,Al,I4,Al, I4,AUU|Al,f4l) ANOV 650 

2 FJRHATI ZoHlANALYStS OF VARIANCE A4,A2//) ANOV 660 

3 FORMAT! 19HCLEVELS OF FACTORS/I 3X ,A1 «7X. 141 ) ANOV 670 

4 FORMAT! IHO/ZUH GRAfW MeANF20. 5////) ANOV 680 

5 FORi^Ari lOHOSOORCS 3FlaX,7HSUMS OFICX, lOHOEGfttES DF9X,4HM£AN/ ICH VAANOV 690 
l)IATtONl«Xt7HSQUARESltX,7HFREEOOMI0X,7HS0UARES/i ANOV TOO 

6 FORMAT! IH 1SA1.F20. 5, ICX, 16,F20. 51 ANOV 710 

7 FDRMAT16H TOTAL 10X,F20. 5t lOX* 161 ANOV 720 

8 FORMAT! 12F6.C} ANQV 730 
C ANOV 740 

C ANOV 750 

C ANOV 760 

C READ PROBLEM PARAMETER CARO ANOV 770 

C ANOV 780 

ICC REAO (5.L) PRtPRL.K.BLANK.IHEAOdl.LEVELd I tI>lfKI ANOV 790 

C PR PROBLEM NUMBER (MAY 8E ALPHAMERIC) ANOV 800 

C PAL. ...PROBLEM NJHUER (CONTINUED) ANOV 810 

C K NUMBER OF FACTORS ANOV 820 

C BLANK.. BLANK FIELD ANOV 630 

C HEAD. ..FACTOR LABELS ANOV E40 

C LEVEL. .LEVELS OF FACTORS ANOV 850 

C ANOV a6C 

C PRINT PROBLEM NUMBER AND LEVELS OF FACTORS ANOV 870 

C ANOV 880 

WRITE (6,2) PR,PR1 ANOV 690 

WRITE (6.31 (HEAOII ),L£VELl n,l^l,K} ANOV 900 

C ANOV 910 

C CALCULATE TOTAL NUMBER OF DATA ANOV 92C 

C AMOV 930 

N=LEVEL(1) ANOV 940 

DO 102 I-2.K ANDV 95C 

102 N«N*LEVEL(H ANOV 960 

C ANOV 970 

C fiEAO ALL INPUT DATA ANOV 980 

C MOV 99C 

READ (5,«» (X(il,I-l,N) ANOVIOOO 

C ANOV I 010 

CALL AVOAT (K, LEVEL .N*X,L r ISTEP. KOUNTI ANOV1020 

CALL AVCAL < K, LEVEL ,X,L, I STEP, LASTS I ANOV 10 30 

CALL McANQ (K, LEVEL .X, GHEAN, SUHSQ.NOF , SMEAN, I STEP, KOUNT, LASTS) ANOV1040 

^ ANOV1050 

: PRINT GRAND MEAN AN0V1060 

^ ANOVIOTC 

WRITE (6,41 GMEAN ANOVlOeO 

' ANOV1090 

: PRINT ANALYSIS OF VARIANCE TABLE ANOVLIOO 

' ANOVltlO 

rLiri*iK|!i AN0Vil20 

l.L«li.*R|-I ANOV1130 

105 ISIEI>(l|.0 ANOllllte 

00 UO 1.1.15 lmA\i« 



ILO FHTUI-aLANK 


ANOVliaO 


NN-0 


ANOV I 190 


SUN>?.3 


ANOVL200 


12C NN-NN*1 


AN0V1210 


L-0 


ANOV L 220 


00 140 1-1, K 


ANOV 12 30 


FHrn»«8LANK y 


ANOV 1240 


IF(tsrEPIII) 130, 140, 130 


ANOV1250 


130 L-L*L 


ANOV 1260 


FHT(LI«HEA0([1 


ANOV 12 70 


140 COHTlNk/e 


ANOV1280 


WRITE (6.61 (FMTIII.I-L.ISI.SUHSQIMNI.NOFINNI .Sn€AN(NNt 


ANOV 1290 


Sim-SUf1«SUM$0(NNI 


ANOV1300 


IF(NN-LLI 145* 170, 1 TO 


ANOV 13 10 


145 DO 16C I-I.K 


ANOV132C 


IFUSTEPMI) 14T. ISO, 1*7 


AN0V1330 


147 ISTEPU »«0 


ANOV 1340 


CO TO 160 


ANOVt350 


150 ISTEPdUl 


ANOV 1360 


GO TO 1 20 


ANOV1370 


160 CONTINUE 


ANOV13B0 


170 N»N-1 


ANOV1390 


WRITE l«,TI SUM.N 


ANO VI 400 


CO ro IGO 


ANOV 14 LO 


END 


AN0V1420 



DISCRIMINANT ANALYSIS 
Problem Description 

A set of linear functions is calculated from data on 
many groups for the purpose of classifying new 
individuals into one of several groups. The classi- 
fication of an individual into a group is performed by 
evaluating each of the calculated linear functions, 
then finding the group for which the value is the 
largest. 

The sample problem for discriminant analysis 
consists of four groups of observations as presented 
in Table 9. The number of observations in the first 
group is eight; the second group, seven; the third 
group, seven; and the fourth group, eight. The 
number of variables is six in all groups. 



Program 

Description 

The discriminant analysis program consists of the 
main routine named MDISC, and three subroutines 
from the Scientific Subroutine Package: DMATX, 
MINV, and DISCE. 

Cajiaeity 

The capacity of the sample program and the format 
required for data input have been set up as follows: 

1. Up to five groups 

2. Up to ten variables 

3. Up to a total number of 250 observations in 

all groups combined 

4. (12F6.0) format for input data cards 
Therefore, if a problem satisfies the above con- 
ditions it is not necessary to modify the sample 
program. However, if there are more than five 
groups, more than ten variables, or more than 250 
observations, dimension statements in the sample 
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Table 9. Sample 


Data for Discriminant i 


^naly 


sis 






For 




















Sample 
















Observation 


\ 


x^ 


x. 


\ 


X5 


\ 


Columns 
1- 6 


Contents 


Problem 


Problem number (may be 




Group 1 1 


3 


10 


9 


8 


24 


8 


SAMPLE 


2 


4 


12 


3 


8 


22 


7 




alphameric) 




3 


9 


3 


2 


8 


9 


8 








4 


16 


2 


2 


2 


7 


2 


7- 8 


Number of groups 


04 


5 
6 

7 


5 

17 

2 


10 

3 

10 


5 
2 
9 


8 
8 
8 


23 

6 

29 


9 

3 

16 


9-10 


Number of variables 


06 


H-15 


Number of observations in 


00008 


8 


7 


10 


5 


8 


28 


18 


16-20 


first group 
Number of observations in 
second group 


00007 


Group 2 1 


9 


10 


27 


8 


28 


16 


21-25 


Number of observations in 


00007 


2 

3 


11 
8 


7 
10 


8 
2 


9 

8 


8 
27 


15 
16 




third group 




4 


1 


6 


8 


14 


14 


13 


26-30 


Number of observations in 


00008 


5 
6 


7 
7 


8 
9 


9 
8 


6 
2 


18 
19 


2 
9 




fourth group 




7 


7 


10 


5 


8 


27 


17 


65-70 


Number of observations in 
twelfth group (if present) 




Group 3 1 


3 


11 


9 


15 


20 


10 








2 


9 


4 


10 


7 


9 


9 








3 


4 


13 


10 


7 


21 


15 


If there 


are more than twelve groups 


in the prob- 


4 
5 


8 
6 


5 
9 


16 
10 


16 

5 


16 
23 


7 
11 


lem, continue to the second card in the same 


6 


8 


10 


5 


8 


27 


16 


manner. 






7 


17 


3 


2 


7 


6 


3 








Group 4 1 


3 


10 


8 


8 


23 


8 


Columns 


Contents 








2 

3 


4 
9 


12 
3 


3 
2 


8 
8 


23 
21 


7 
7 


1- 5 


Number of observations in 




4 


15 


2 


2 


2 


7 


2 




thirteenth group 




5 
6 


9 
8 


10 
9 


26 
2 


8 
8 


27 
26 


16 
16 


6-10 


Number of observations in 




7 


7 


8 


6 


9 


18 


2 




fourteenth group 




8 


7 


10 


5 


8 


26 


16 






















Leading zeros are not required to be keypunched. 



Data Cards 



main program must be modified to handle this par- 
ticular problem. Similarly, if input data cards are 
prepared using a different format, the input format 
statement in the sample main program must be 
modified. The general rules for program modifica- 
tion are described later. 



Since input data are read into the computer one 
observation at a time, each row of data in Table 9 
is keypunched on a separate card using the format 
(12F6.0). This format assumes twelve 6-column 
fields per card. 

If there are more than twelve variables in a prob- 
lem, each row of data is continued on the second and 
third cards until the last data point is kejrpunched. 
However, each row of data must begin on a new 
card. 



Input 



Control Card 



One control card is required for each problem and is 
read by the main program, MDISC. This card is 
prepared as follows: 



Deck Setup 

The deck setup is shown in Figure 53. 

Sample 

The Usting of input cards for the sample problem is 
presented in Figure 54. 
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/ Data 

cards 



Control 
card 



Last 
problem 




Second problem 



First problem 



Subroutines and main program 
(including system control cards) 



Figure 53. Deck setup (discriminant analysis) 



Output 



Description 

The output of the sample program for discriminant 
analysis includes: 

1. Means of variables in each group 

2. Pooled dispersion matrix 

3. Common means 

4. Generalized Mahalanobis D-square 

5. Constant and coefficients of each discriminant 
function 

6. Probability associated with the largest dis- 
criminant function evaluated for each observation. 



/DATA 

SA«Pi.EC*060C0OaO0OC70C00TO0008 



Sample 

The output listing for the sample problerii is shown 
in Figure 55. 

Program Modification 

Program capacity can be increased or decreased by 
making changes in dimension statements. Input data 
in a different format can also be handled by provid- 
ing a specific format statement. In order to famil- 
iarize the user with the program modification, the 
following general rules are supplied in terms of the 
sample problem. 



1. Changes in the dimension statements of the 
main program, MDISC: 

a. The dimension of array N must be greater 
than or equal to the number of groups, k. 
Since there are four groups in the sample 
problem, the value of k is 4. 

b. The dimension of array CMEAN must be 
greater than or equal to the number of 
variables, m. Since there are six vari- 
ables in the sample problem, the value of 
m is 6. 

The dimension of array XBAR must be 
greater than or equal to the product of m 
times k. For the sample problem this 
product is 24 = 6 X 4. 

The dimension of array C must be greater 
than or equal to the product of (m+l)k. 
For the sample problem this product is 
28 = (6+1)4. 

The dimension of array D must be greater 
than or equal to the product of m times m. 
For the sample problem this product is 
36= 6x 6. 

The dimension of arrays P and LG must be 
greater than or equal to the total number 
of observations in all groups combined, t. 
For the sample problem this total is 
30 =8 + 7 + 7 + 8. 



C. 



d. 



e. 



100 
















ito 
















120 
















130 
















1*0 
















ISO 
















160 


OlSCKlKIklM ANaif 


IS. 


S4HPIE 










170 


KUHBEV W CttCljPS 




, 












hUHeti Of- VMUBLCS 












190 


S*fH.t SUES.. 














200 


imv 














210 
















22C 
















2J0 


■* 




8 










240 


tKCUP 1 ftAHS 














250 
260 






.50000 


4.tiS(,o 


7.2SOOO 


IS.^OUOU 


B. 117500 


280 


CROUP 1 HtahS 




.i7l*3 


•i.571*3 


7.tii/l* 


2o.i«ei 


U.ill'.i 


300 


r-ein- 




.BiMA 


8.61,11', 


S.20I.7I 


I7.4<'a'i6 


ta.i4;«« 


3L0 


GHOtJP * flAMS 














320 


t.lbOOO 




.COoCiO 


t.l^KjQO 


T.3J50U 


il.JTSOO 


i.iioao 



Figure 54. Input listing (discriminant analysis) 



Figure 55. Output listing (discriminant analysis) 
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fOLltO CISrEa^lOh MAIKIi 



tEMEftUlitO HAHALAMiCIS fi-SeUAKE 



-5.21^4) 



r.33331 

12.rM>6J 



-1.5*052 
I0.A6T5T 



4.8331C 
4.62 i 5*1 



30.1 1262 



UIKRIHINMT FUNCIILN 1 

coturAhi * coiFricuMis 

-2a.4V4]l • 2.63470 

UIM.IIIMIMANI FUNCTION 2 

CUMSTANI • COffFICIkMTS 
-29.21017 • 2.6H30 

tllSOtlfllfWhl FUMCIIOM 3 

CUNStAMI • COEFflCIEMTS 
-31. #6435 • Z.t'.MC 

DISCKIMINMI FUNCIIUN i, 

CUMSTANI • COEFFlCIEftTS 
-30.t2O2a • 2.T1M0 



(.17167 1.91196 



-0.04916 l.B«319 



-0.064S7 2.1)260 



-0.13352 1.94539 



0.5M?6 -0.40477 



0.43732 -0,21784 



0.4Z619 -0.32718 



a.T167I -0.40760 



tUtLUtriOM UF CLAl&IFICAIION FOMCTIOHS FOR EACH OttSERVAIION 



U&tOVATION 



CBSEHVATION 



USfMWAIICM 



PBObAaiiiiv AssociArfu hith 

LAR6ESI OISCRIHIMMT FUMCtiON 
0.3«O«5 
0.37045 
0. 36261 
0. 44190 
0.34454 
B.442IS 

a.Ji7fi7 

0.29274 



PKOIAaiLIIV ASSOCIATtO lill»< 

LAeCESI OliCKIHINMII FUNCTION 

O.SIOM 

0.50C6C 

Q.3«1ftO 

C.43130 
0.44M2 
0.364CT 
0.26314 



PMJBABILlUr ASSOCIAICO HITH 

LARStST OlSCftiHINAfll FIMCTIOM 

0.67611 

0.54«36 



0.30600 
0.33043 
0.39005 



PROBAMlllTV ASSOCIAIEO HITH 
(.AttGEST OISCRiNlMUtT FUHCIIDM 
0.33I2T 
0.37479 
0.62 340 
0.45697 
0.52175 
0.34061 
0.43135 
0.27f49 



Figure 55, Output listing (discriminant analysis) (Continued) 

g. The dimension of array X must be greater 
than or equal to the total number of data 
points that is equal to the product of t 
times m. For the sample this product is 
180 = 30 X 6. 
2- Changes in the input format statement of the 
main program, MDISC: 

Only the format statement for input data may 
be changed. Since sample data are either 
one- or two-digit numbers, rather than using 
six -column fields as in the sample problem, 
each row of data may be keypunched in two- 
column fields, and, if so, the format is 
changed to (6F2.0). This format assumes 
six 2-column fields per card, beginning in 
column 1. 

Operating Instru ctions 

The sample program for discriminant analysis is a 
standard FORTRAN program. Special operating 



instructions are not required. Data set 5 is used for 
input, and data set 6 is used for output. 

Timing 

The execution time of this sample program on a 
System/360, Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as output, 
is 30 seconds. 

C HOIS LO 

C MOIS 20 

C HOIS 3C 

C SAMPLE HAIN PROSKAM FOR OtSCRINJNANT ANALYSIS - MOISC MOIS 40 

C MOIS 50 

C PURPOSE MOIS 60 

C (U REAO THE PROBLEM PARAnETER CARP AND DATA fOR OISCRIHI- HOIS 70 

C HkHT ANALVStSt (21 CALL THREE SUBROUTINCS TO CALCULATE VAAI-HOtS ao 

C 4SIE H£ANS IH EACH GROUP. POOLED DISPERSION MATRIX, COHNON HOIS 90 

C flEANS OF VARIABLES) GENERALWEO HAHALANO&IS □ SOUAREi iOIS LOO 

C COEFflCIENTS OF Ol SCR I HlNANT FUNCTIONS. AND PROSABILITY NOIS ILO 

C ASSOCUrEi) HKH LARGEST DISCRIMINANT FUNCTION OF EACH HOIS 120 

C CASE IN cACH GROUP. *N0 (31 PRINT THE RCSULTS. MOIS 130 

C MOIS 140 

C REMARKS MDIS 150 

C THE NUMacft 0= VARIABLES MUST aE GREATER THAN OR EQUAL TO HOIS 160 

C THE NUMBER OF GROUPS. MOIS 170 

C MOIS ISO 

C SUdROUriNES AND FUNCTION SUBPftOSRAHS REQUIRED HDIS 190 

C OHATX HOIS 2C0 

C ^INV MOIS 210 

C UlSCR MOIS 220 

C HOIS ilQ 

Q METHOD MOIS 2^0 

C REFER TO 'aHJ COMPUTER PROGRAMS MANUAL', EDITED Bv W. J. MDIS 250 

C DIXUN, UCLtt 196'*, AND T. W. ANDERSON. M NTROOUCTION TO HOIS 260 

C •lULTtVARI ATE STATISTICAL ANAL/SIS', JOHN MILEY ANO SONSi MOIS 270 

C 1953, SE:TI0?< 6.6-6.8. MOIS 2dO 

C HOIS 29C 

C HOIS 30C 

C MOIS 31C 

C THE FOLLOWING 3:mE:>(SI0N MUST flE SREATER THAN OR EQUAL TO THE HOIS 320 

C NUM8EH OF GROUPS, *.. MOIS 3iC 

C HOIS 3*0 
DIMENSION N<51 HOlS 350 

C HDIS 360 

C THE FOLLOWING DIMENSION MUST BE liREATER THAN OR EQUAL TO THE MOIS 370 

C NUH8ER OF VARIA5LES, H.. MOIS 390 

C HI5IS *90 
OIM^NSIUiJ CMEAfH 10) MOIS 400 

C HOIS 410 

C THE FOLLOWING Di;4E>4SI3N MUST 3E GREATER THAN OR EQUAL TO THE HOIS 420 

C PRQOUCT OF M«K.. MOIS 430 

C MDIS **0 
OIMENSION ^dARISO) MOIS 4^0 

C HOIS 46C 

C THE FOLLOWING OIMENSIJN MUST 9E GREATER THAN OR EQUAL TO THE MOIS 470 

C PRODUCT OF (Hi-ll*K.. HOIS 480 

C HDIS 490 
JIHENSION C(55l HDIS 5C0 

C HDIS SIO 

C THE FOLLDHING DIMENSION MUST BE GREATER THAN 0« EQUAL TO THE MOIS 520 

C PRQ3UCT OF M*M.. MOIS 530 

C HOIS 540 
OIMEIJSIGN 0(100) MOIS 550 

C MOIS 560 

C THE FntcOwIdri Oi.^cJ'^SIONS MUST 5E GREATER THAN OR EQUAL TO THE HOIS 570 

C TOTAL OF 5AMOLE SUES OF K GROUPS COMBINED, T IT * N( 1 ) f-NI 2) *. . . MOIS 580 

C ♦N(K)| . . MOIS S^O 

C MOIS 600 
UIHENSION PI Z5CI ,LG(250» MDIS 610 

C HOIS 620 

C THE FOLLOWING OlMENSION MUST BE GREATER THAN OR EQUAL TO THE HDIS 630 

C TOTAL JATA POINTS WHICH IS EQUAL TO THE PRODUCT OF r*H.. HDIS 640 

C HOIS 650 
JIMENSION X(^5C0t MDIS 660 

C MOIS 670 

c HOIS 6ao 

C MOIS 69C 

C IF A DUUILE P-IECISION VERSIGH OF THIS ROUrirti^ IS OtStkEO. THE HOIS 7C0 

C C IN COLUMN 1 SHOULD BE REMOVED FROM THE OOUllLE PRECISION MOIS 710 

C STATEMENT WHICH FOLLOWS. MOIS 720 

C MUlS 730 

C U0U3LC >>KECISIiJ.il CMEAN,XBAR,D,i/ET,C,V,P HDIS 740 

C MOIS 75C 

C THE C MUST ALSO 3t REMJVEO FROM 00U9LE PRECISION STATEMENTS MOIS 760 

C APPEARING IN OHER ROUTINES USED IN CONJUNCTION WITH THIS MDIS 770 

C RUUTINE. MOIS 780 

C MDIS 790 

C MOIS 8Q0 

C MOIS 31C 

1 FaRMAT(A4. a;?. 2U. 121^/114151) MOIS 6 20 

2 ejRMAri 2TH131SC1IMI NANT ANALYSIS ,A4.A2/19H0 NUMBER OF GRCUPSMDIS 33C 

l,7X,IJ/224 MU^aert OF VASI AOLES . I7/17H SAMPLE S I 2ES . . /I2X t 5MGRQMDI5 940 

2UPI MDIS B50 

3 FORMAT! 12X. 13. tX. 14) MDIS d60 

4 FORMATt IHOl MOIS B70 

5 FOR,HAr( l?F6.nt MOIS 880 

6 FDRH4r( 6H0GRQUP, 13, 7H ME AN S/ ( SF 15 . 5 H HOIS 390 
t FOHMAK IHO/25H POOLED DISPERSIO'J MATRIX) MOIS 900 
8 F3KHAr(4H0RDM,I 3/I8F15.5) I MOIS 910 

n FjRiAK IH///33M Gc^^ERALUeD HAHALAN08IS 0- SQUARt ,F15.5// I MOIS 930 

U F0RMATi22H^0ISCRIHI^^ANT FUNCTION, U/IH .6X,27HC0N5rANr • COEFFMOIS ^-^O 

IICIENTS/IH F14.5,7^ • , 7FI *.5/( 22X,7FI4.5) ) MOIS 950 

12 FORMATt 1H0//60H EVALUATION OF CLASSIFICATION FUNCTIONS FOR EACH OBMDIS 960 
ISERVATION) „^„s ^j^ 

13 F0«MAr{6mGR0UP.l3/l9X.27HPR03A<)ILrTy ASSOCIATED W I TH, 1 IX, THLARGESHOiS 980 
1T/13H OBSERVATION. 5X,29HLAfiGEST OISCRIMINANT FUNCTION, 8X, 12HFUNCTMDI S 990 
2I0N NO. I MOISIOOP 

14 FORMATIIH , I 7. 20X.F 3. 5 , 2CX, 1 61 MOISIOIO 
f HDIS1020 
^ HDISKOO 

C He&O PROBLEM PARAMETER CARD MOIsIo^C 

100 REAJ (5,11 P«,PRl,K,M.l«([|,|=i,Kl MOlsloTO 

^ P** PROBLEM NUMBE-* (MAY B£ ALPHAHERICl MOISIOBO 

^ PtO PROBLEM NUHBER ICONTINUEO) HOIS1090 

C K NUHBfiK OF GROUPS MDISllOO 
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H NUNBER OF VAREAgLES 

H VICTOR OF LENGTH < CONTAINING SAMPLE SliES 

MRITE <6iZI Pft,PRl«K,H 
DO lie I«1.K 
lie WRITE (6.31 t.MII) 

HRire (6,41 ^ 

R£AO UATA 

L-C 

00 130 1=1, K 

N1*NC I I 

00 120 j>i,Nt 

R€Al) <5t5) (CHEANdJ).! J = 1|HI 

L«l*l 

N2=L-N1 

00 12C IJ=1,M 

N2=N2*Nl 
i2C XIN2I=C«EAN( I Jl 
13C L=N2 

CALL OMATK (K. M,N, X ,XBAR. D.CME AN ) 

PRINT WEANS AND PODLED DISPERSION MATRIX 

L=C 

DO ISO l=l.K 

03 lA*^ J«1.N 

L»L + 1 
I*-: CNEANI J»-«flAP.(L I 
150 WRITE (6,6) I , ( CHEANIJ ) . J= 1 • HI 

WRITE (6,71 

03 17-^ 1=1, M 

L = I-H 

00 U"" J=l,M 

L=L*M 
16C CMEANl JI=0(LI 

;7c wmre (6.3i i, icmeani Jt , j=i .ii 

CALL MINV (O.M,aeT,CMtfAN,C) 

CALL DISCR IK.M,N.X,XaaR,O.C><eAN,V,C,P,LG) 

PRI.^T COMMON HcANS 

wRire tb,^i (CMSANi n ,1 =1 .M) 

PRINT SENERALUEfl HAHALANOBU D-SQL'ARt 

WR i TE I 6. 10) V 

PRINT CONSTANTS ANJ CUEFFICfENTS IJr DISCRIMINANT FUNCTIONS 

Nl = l 
N2»?<*[ 

ua ia5 i = i.t< 

WRITE lf.,in { .)C(Jl.J='*liN.^l 
Nl=Nlt( Mt-U 
180 N2=N2*1M*1I 

PRINT EVALUATION Of C AL SS I f I CA T ( ON FUNCTIONS FOR EACH Q^StR^ 

WRITE 46.1?) 

Nl«l 

N2>N( 11 

00 210 l=l,K 

WflTE 16,13) 1 

L=0 

00 190 J=Nl,N2 

L=L*1 
1^0 WRUE It, 14) L,P(Jl,L:i( J) 

IFII-K) 2rc, IfC, ICP" 
20C N1«N1*N<I I 

N2«N2*N<I*1) 
210 CONTINUE 

bND 



MOISlllO 
M0IS112C 
MOIS1130 
MDISll'-C 
M0ISL150 
H0IS1160 
MOISUTO 
HDISlieO 
M01S119C 
MOISUOO 
M01S121C 
H0ISL220 
MOIS1230 
MDIS1240 
MOIS1250 
MDIS126C 
MDIS127G 
M0ISi2BC 
MDlSt2<J3 
MD1SL3CC 
MDISUIO 
NOISI320 
MOIS1330 
HOISISAO 
MDIS13SC 
H0IS136C 
MOIS1370 
MOIS1380 
MOIS1J*)0 
MDISI400 
MDISI'.IO 
MDISi42C 
MDISl'tSO 
MOISIAAO 
MOISKSC 
MOISl^feO 
M01S147C 
MDISl^SC 
MDISI'-^C 
M0I513C0 
H0ISI510 
MJIS152C 
M0IS1530 
H0IS15<r0 
M0IS1550 
H01SI560 
MOIS1570 
f<0ISl580 
MDJS1!)90 
MDIS16C0 
HDIS1610 
MDIS1620 
MaiS163C 
MDISL6i.O 
MOlSlb'iO 
MDI S166G 
KOISI670 
H0IS16B0 
MDIS1640 
M0IS170C 
M0iSl710 
ATION HD1S1T20 
M0IS1730 
MDIS1740 
MDIS1750 
HD1S17&C 

Moisirro 
HOisirao 

MOIS1790 

MDisiaoc 

MOISISIO 

M01S1820 
M0IS1830 

MOisia^o 
MDisiaso 

M0IS186D 
H0ISie7f> 



Table 10. Sample Data for Factor Analysis 



FACTOR ANALYSIS 

Problem Description 

A principal component solution and the varimax 
rotation of the factor matrix are performed. Prin- 
cipal component analysis is used to determine the 
minimum number of independent dimensions needed 
to account for most of the variance in the original 
set of variables. The varimax rotation is used to 
simplify columns (factors) rather than rows (vari- 
ables) of the factor matrix. 

The sample problem for factor analysis consists 
of 23 observations with nine variables as presented 
in Table 10, In order to keep the number of inde- 
pendent dimensions as small as possible, only those 
eigenvalues (of correlation coefficients) greater than 
or equal to 1.0 are retained in the analysis. 



Observation 


X, 


y-2 


X, 


K 


Xs 


Xe 


?' 


Xs 


x» 


1 


7 


7 


9 


7 


15 


36 


60 


15 


24 


2 


13 


18 


25 


15 


13 


35 


61 


18 


30 


3 


9 


18 


24 


23 


12 


43 


62 


14 


31 


4 


7 


13 


25 


36 


11 


12 


63 


26 


32 


5 


6 


8 


20 


7 


15 


46 


18 


28 


15 


6 


10 


12 


30 


11 


10 


42 


27 


12 


17 


7 


7 


6 


11 


7 


15 


35 


60 


20 


25 


8 


16 


19 


25 


16 


13 


30 


64 


20 


30 


9 


9 


22 


26 


24 


13 


40 


66 


15 


32 


10 


8 


15 


26 


30 


13 


10 


66 


25 


34 


11 


8 


10 


20 


8 


17 


40 


20 


30 


18 


12 


9 


12 


28 


11 


8 


45 


30 


15 


19 


13 


11 


17 


21 


30 


10 


45 


60 


17 


30 


14 


9 


16 


26 


27 


14 


31 


59 


19 


17 


15 


10 


15 


24 


18 


12 


29 


48 


18 


26 


16 


11 


11 


30 


19 


19 


26 


57 


20 


30 


17 


16 


9 


16 


20 


18 


31 


60 


21 


17 


18 


9 


8 


19 


14 


16 


33 


67 


9 


19 


19 


7 


18 


22 


9 


15 


37 


62 


11 


20 


20 


8 


11 


23 


18 


9 


36 


61 


22 


24 


21 


6 


6 


27 


23 


7 


40 


55 


24 


31 


22 


10 


9 


26 


26 


10 


37 


57 


27 


29 


23 


a 


10 


26 


15 


11 


42 


59 


20 


28 



Program 

Description 

The factor analysis program consists of the main 
routine named FACTO, a special input subroutine 
named DATA, and five subroutines from the Scien- 
tific Subroutine Package: CORRE, EIGEN, TRACE, 
LOAD, and VARMX. 

Capacity 

The capacity of the sample program and the format 
required for data input have been set up as follows: 

1. Up to 35 variables 

2. Up to 99,999 observations 

3. (12F6.0) format for input data cards 
Therefore, if a problem satisfies the above con- 
ditions it is not necessary to modify the sample 
program. However, if there are more than 35 vari- 
ables, dimension statements in the sample main 
program must be modified to handle this particular 
problem. Similarly, if input data cards are pre- 
pared using a different format, the input format 
Statement in the input subroutine, DATA, must be 
modified. The general rules for program modifica- 
tion are described later. 



Input 



Control Card 

One control card is required for each problem and 
is read by the main program, FACTO. This card 
is prepared as follows: 
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For 






Sample 


Columns 


Contents 


Problem 


1- 6 


Problem number (may be 
alphameric) 


SAMPLE 


7-11 


Number of observations 


00023 


12-13 


Number of variables 


09 


14-19 


Value used to limit the 


0001. 



A 



number of eigenvalues of 
correlation coefficients. 
Only those eigenvalues 
greater than or equal to 
this value are retained in 
the analysis. (A decimal 
point must be specified.) 

Leading zeros are not required to be keypunched. 

Data Cards 

Since input data are read into the computer one 
observation at a time, each row of data in Table 10 is 
keypunched on a separate card using the format 
(12F6.0). This format assumes twelve 6-column 
fields per card. 

If there are more than twelve variables in a 
problem, each row of data is continued on the 
second and third cards until the last data point is 
keypunched. However, each row of data must begin 
on a new card. 



Data 
cards 



Control 
card 



Last 
prob lem 



First problem 




Second problerr 



Subroutines and main program 
(including system control cards) 



Figure 56. Deck setup (factor analysis) 



9. 
10. 

Sample 



Rotated factor matrix 
Check on communalities 



Deck Setup 

The deck setup is shown in Figure 56. 

Sample 

The listing of input cards for the sample problem is 
presented in Figure 57. 

Output 



The output listing for the sample problem is shown 
in Figure 58. 

Program Modification 

Program capacity can be increased or decreased by 
making changes in dimension statements. Input data 
in a different format can also be handled by provid- 
ing a specific format statement. lii order to famil- 
iarize the user with the program modification, the 



Description 



The output of the sample program for factor analysis 
includes: 

1. Means 

2. Standard deviations 

3. Correlation coefficients 

4. Eigenvalues 

5. Cumulative percentage of eigenvalues 

6. Eigenvectors 

7. Factor matrix 

8. Variance of the factor matrix for each 
iteration cycle 



15 

17 



11 
33 



IOC 

lie 

120 
130 
1*C 
\K 

160 
170 

lac 

190 
200 
ilC 
^2C 
230 
240 
250 



Figure 57. Input listing (factor analysis) 
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F*rin*> ANALT<i1S. 



NO, Of C«SfS 

HC. (If V*RI A«l ES 






sTANOiino orvunnNs 



CaHMfclAIION 


CflFf FICIFNI-i 
















Hnw 1 

I. 00000 


0. I'.^HT 





.U'>7^ 


T.l?10? 


,; 


.Pl'Jl 7 


-r, 


.TQS^'J 


kV.¥ 7 

0.3*«aT 


1 .flOOUU 


c 


.*] "11 


O.^^S7? 


-0 


.f>'>?'.l 


-0 


.oior 




0.413I 1 


1 


. oonoo 


r^.'.lM? 


-0 


.',*l ■") 


-f). 


,OPl**. 


0.1?10? 


O-l-iS?? 


n, 


.41 SI? 


l.COOOO 


-0 


.11?HH 


-0, 


.srifts 


Rnw 5 

0.71917 


-o.n'17*! 


-0. 


.t.Wl'i 


-o.ii?Hn 


1 


. foaflp 


-0, 


.?lftOO 


ROW A 


-O.O'JIOI 


-c. 


.omife 


-f'.SOl'.S 


-n. 


.71100 


t , 


,r,o-if)rt 


ftrw T 


o.pqft?? 


-0. 


.10?**2 


o.*9esA 


0. 


.OUK 


-0. 


,*«5?0 


ROW n 


-n.iPOA* 


0, 


,C1?1^ 


0,22539 


-0. 


.00*75 


-c. 


,?<i4'.l 


Rnu q 

cosflia 


0.»S1fl7 


c. 


,27»m 


0.59B90 


-0. 


,30U1 


-r. 


/^7*Sh 


EICFNVUUf?; 


1.6*16fl 


1. 


.--isi* 


l.Rf.'iTi 











rilMtJLtriVF PtltrfNTAGC OF eir.FNVALUES 
0.17776 O.SIO^O C. 68119 



FICFNVErTORS 



0.?HTO7 0.«<»661 -0.16«n6 -0.1?<)7? r-.TQq^? O.l^l?*' ".t7=lP 

VfCTOH ? 

0.1*B17 0.065S? -0,4*6*7 -0.U893 0.fl2IP -0.26*?" r.iflHAO -r..?404S -f<.rt">6 

vfrroR 1 

-0.29H99 -0.*6fl?S -C.2JS14 C.17377 O.U*ftB -C.*35*S C.^llfll O.fl'f? '■.I'><.7r 

0.5***1 0.I69C9 C-i«2Rfl 0.0*163 0. 30517 -0.U163 -t.*1*lA O.AOPft' -0.?»7P9 

FJCTOH (IkTRIX I * FtCIOKS) 

0.2B?S2 0.**663 -C.372e6 0.56203 

ViOIlSLF 7 

0.5<ift)| 0,OP*CC -0.5639* 0.1T*57 

VUUflLf 1 

0,**»46r> -0.^7240 -C. 79349 0.39576 

Vaill«HL£ * 

0.«5?93 -0.1S74fl 0.71671 0.0*797 



-O.ZARA^ 0.7U475 0.1R0*3 0.31575 

VAftlAHLF 6 

-0.5AS** -0.3>«tR? -C.5*3C3 -e.l6«B6 

VARtAKC T 

0.6R590 0.4^871 0.02345 -0.4*816 

VARIAftLF fl 

0.07? 11 -0.31S53 C.768C? 0.415«7 

VARtARLF 4 

O.SIAI* -0.07710 C. 15551 -0.2*559 

irCRiTION VARIANCES 
CTCIE 

o.?ii2m) 

1 0.33tl37 
7 0.397C?? 
3 fl.*0J00 5 
* C. 405177 
5 n. 405578 
A 0.4055RI 
7 C.*05587 

« C.4055eA 

9 0,*055«7 

10 0.405587 

11 r).*055B7 

12 C.*055fr 

UnTATtO FACKIfl HATKIX | * FACTORSI 

VlffJiniF I 

C.0549fl 0.071fl3 -0.05578 0. 05017 

VAftlARLE 7 

0.79179 -0.39653 -0.35581 0,605*9 

V Aft URL E 1 

0. 05114 -0.«?«9) r.l50f>8 0.3298* 

VAHIAHLF * 

C.7*0*r -C. 4 1*01 r. 2*579 0. 119 7? 

VARIAHIE 5 

-0.09091 C,«IJ6^7 0.1'5?S 0.19729 

Figure 58. Output listing (factor analysis) 
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VlftliftlF f 












-0.6fl?fl6 


-(l.?|5T<J 


-r, 


.4,^,^if^^ -0, 


.^0SO» 




VtRIARLf- 7 












0.'<'-'5'*7 


0,1 R?yq 


-^■ 


.J'.'JIB 0. 


.Cflrt30 




VAOIitHlf n 












a. 0140? 


-0.0*500 


''• 


.''1575 -0. 


, l^-Jft? 




v«fli*ai F <! 












O.SO'.U 


-0,1?7'S<) 


c. 


0G9q<. -0. 


Oi^no 




CMtCK ON CllMMU 


INAL IIU5 










VAR 1 AHLF 


na IGiNii 




FINfcl 




UlfFEBtNCF 








0.71408 








n. ?iis<.s 




0,T16AT 




o.ponni 








O.IHftl 




O.OOOOl 








0. 7')^^* 












0,B3I0fl 




O.OOOni 


*■ 






C.757?* 




O.POOOl 








f.<)?0C5 






" 






C.BftA75 








0.75652 




C.T-^e^t 




f^.OOOOl 


ifnnii ?i 7 













Figure 58. Output listing (factor analysis) (Continued) 



Error Messages 

If the number of factors to be rotated is one or zero, 
the following message will be printed: 

ONLY FACTOR RETAINED. NO ROTATION. 

The program skips rotation and goes to the next 
problem if it is present. 

Timing 

The execution time of this sample program on a 
System/360, Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as output, 
is 50 seconds. 



following general rules are supplied in terms of the 

sample problem. 

1. Changes in the dimension statements of the 

main program, FACTO; 

a. The dimension of arrays B, D, S, T, and 
XBAR must be greater than or equal to 
the number of variables, m. Since there 
are nine variables in the sample problem, 
the value of m is 9. 

The dimension of array V must be greater 
than or equal to the product of m times m. 
For the sample problem this product is 
81= 9x 9. 

The dimension of array R must be greater 
(m+l)m 



b. 



than 

this number is ^"^ = ' 



For the sample problem, 
45 



2. Chaises in the input format statement of the 
special input subroutine, DATA: 

Only the format statement for input data may 
be changed. Since sample data are either 
one- or two-digit numbers, rather than using 
six-column fields as in the sample problem, 
each row of data may be keypunche<l in two- 
column fields, and, if so, the format is 
changed to (9F2.0). This format assumes 
nine 2-column fields per card, beginning in 
column 1. 

The special input subroutine, DATA, is 
normally written by the user to handle differ- 
ent formats for different problems. The user 
may modify this subroutine to perform testing 
of input data, transformation of data, and so 
on. 

Operating Instructions 

The sample program for factor analysis is a stand- 
ard FORTRAN program. Special operating instruc- 
tions are not required. Data set 5 is used for input, 
and data set 6 is used for output. 



!: fCTD 10 

'l FCTO 20 

; FCTD 30 

C SAMPLE MAIM PRPSRAM FOR FACTOR ANALYSIS - FACTO FCTQ *0 

^ FCTO 50 

C PURPOSE FCTD 60 

C (11 READ THE PROBLEM PARAMETER CARO. 121 CALL F WE SUBROU- FCTO 70 

C TINES TO PERFORM A PRINCIPAL COMPONENT SOLUTION AND THE FCTO flO 

C VARIMAX ROTATION OF A FACTOR MATRIX, AND 131 PRINT THE FCTO 90 

C RESULTS. fCTO 100 

5 FCTO no 

C REMARKS fcTO 1 JO 

C "OHE FCTO 130 

<• FCTO 140 

C SUBRDUTINtS AND FUNCTION SUBPROGRAMS REOUIREO FCTO 150 

C CORRE (WHICH, IN TURN, CALLS THE SUBROUTINE NAMED DATA.) FCTO 160 

' f-E" FCTO 170 

'^ ">«<:e fCTO IBO 

<: LOAD fCTO HO 

^ VARMX f(;to 200 

- FCTO 210 
HtTHOO FCTO 22C 

REFER TO '6MD COMPUTER PROGRAMS MANUAL', EOITEO 3Y W. J. FCTO 230 
; OIXON, UCLA, 196*. pcTO 240 

- FCTO 250 
, FCTD 260 

FCTO 270 
; THE FtlLtoWING DIMEWSIONS MUST BE GREATtR THAN OR Eau«L lu THE FCTO 280 
: NUM5ER OF VARIABLES, M.. FCTO 290 

- FCTO 300 
DIMENSION B(35l,DI351.SI35l,T(35l,XeARI35l FCTO 310 

FCTO 32C 
THE FOLLOWING DIMENSION MUST BE GREATER THAN OR EQUAL TO THE FCTO 330 

P^OOUCT OF H.M.. FCTO 340 

FCTO 35C 
DIMENSION VI 1225) FCTO 3fcC 

FCTO 370 
THE FOLLOWING DIMENSION MUST HE GREATER THAN OR EQUAL TO FCTO 3SC 

(M.l)«M/2.. FCTO 39C 

FCTO 400 
DIMENSION R(6301 fCTQ 410 

FCTO 420 
THE FOLLOWING DIMENSION MUST BE GREATER THAN OR EQUAL TO 51.. FCTO 430 

FCTO 440 
DIMENSION TK51I fCTO 450 

FCTO 460 

FCTO 47C 

FCTO 480 
IF A DOUBLE PRECISION VERSION OF THIS ROUTINE IS DESIRED, THE FCTO 49C 
C IN COLUMN 1 SHOULD BE REMOVED FROM THE OOUeLE PRECISION FCTO SCO 

STATEMENT WHICH FaLL(?WS. FCTO 510 

FCTO 520 
DOUBLE PRECISION X3 AR, S,V,H ,0,B, T ,TV fCTO 530 

FCTO 54C 
THE C MUST ALSO BE REMOVED FROM DOUBLE PRECISION STATEMENTS FCTO 550 

APPEARING IN OTHER ROUIINES USED IN CONJUNCTION WITH THIS FCTO 560 

ROUTINE. FCTO 570 

FCTO 580 

• FCTO 590 

FCTO 600 

1 FORMAT! ZIHIFACTOR ANALVSIS A4 , A2// 3 X , 1 2HND. Of CASES, 4X, 1 6/3X, FCTO 6 10 

116HN0. OF VARIABLES, 16/1 FCTO 620 

i FDRMAT(6HCM£ANS/(8F 15.51 I FCTO 630 

3 F::RMAT( 2fJHCSTANUARJ DE VI A T| UNS/( 8F 1 5. 5 I 1 FCTO 640 

4 FURMAT(25riCCORRFLATION CUEFFiC I ENTS ) FCTO 650 

5 FURMAT(4HC^RawI3/(l^F1^.5) I FCTO 660 

6 FDRMAK IHC/I2H E I G5 NVAL UE S/ 1 1 OF 1 2 . 5 ) ) FCTO 6 70 

7 FD«MAT(37H0CUMU14IIVE PERCENTAGE Of EIGENVALUES/I lOF 12.51 1 FCTO 680 
a FJRMATI IH0/13H E I G^ NVE C TOR S 1 FCTO 69C 
9 FCRMAri7H0VECT0RI3/110Fl2.5ll fCTO 700 

ir FOKMATl lHf/l6H FACTOR MATRIX (,I3,9H FACTORS)) fCTO 710 

11 FORMATt9H0VARIAfiLE I 3/1 lOf 12. 51 ) fCTO 720 

12 fORMATI IHO/ICH I TElAflON, 7X,9HVAR IANCES/8H CYCLE) FCTO 73C 

13 FORMAT! 16, F2C. 61 p c TO 740 

14 FORMAT! 1H0/24H ROTATED FACTOR MATRIX I I 3 , 9H F AC T OR S J ) FCTO 75C 

15 F0RHAI!9H0V«RlABL£I3/IlCF12.5n fCTO 760 

16 FORMATI 1HO/23H CHEiK UN COMMON AL I T I E S/ /9H VAR I A6LE , 7X , 8M0R I G 1 NAL , IFCTO 770 
12X,5HF(NAL, lex, ICHJIFFERENCEI FCTO 760 

17 fOKM<n;6()fi«,>) crrn jni^ 
U F0RMAriA4,A2,I5.i2,F6.Cl fcio RO' 
19 FORMAT!5HOONLy,l2,30H FACTOR RETAINED. NO ROTATION! fcij, SU 

FCTO a2C 

FCTO 930 

READ PROBLEM PARAMETER CARD fcJo Tsc 

100 READ 15,181 PR.PR1.N,H,C0N "I" !" 

"■ PROBLEM NUMBER IMAY BE ALPHAMERIC) FCTO 880 

'""' PROBLEM NUMBER (CONriNUEO) Ffin 890 

" NUMBER OF CASES f^I" "" 

" NUMBER Of VARIABLES pcTO 910 

'^'"' CONSTANT USED TO DECIDE HOW MANY EIGENVALUES FCTO 92C 

TO RETAIN FCTO 93C 

WRITE 16,1) PR,PR1,N,M FCI0 95C 

FCTO 96C 
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CUl CORftE (N,M,IQt X,XdA>t«S»V«R.Ote.T) 

c 

C PRINT HEAM^ 

C 

WftUE (6*21 lISAKUIt J-liH) 
C 

C PAINT STANOARO DEVIATIONS 

C 

WRITE 16, 3» (SIJI.J>1.K) 
C 

C PRINT COftftELATION CQEFflCIENTS 

C 

WRITE I6(<l 
00 120 l>l,M 
DO no J-I,H 
IF(I-JI 1C2, lO"*, 104 
1C2 L-IK J«J-JI/2 

GG TO no 
l-?* L»J»II«I-II/2 
11'' DC J>>(t<Lt 
12: WRITE (6,51 ItOIJl ,J>1,MI 

c 

MV«0 

CALL EIGEN (!t,V«N,MVI 

C 

CALL T4ACE I M,K,C3^ ,K. t 
C 
C PftlNF SIlENVALlJ'iS 

c 

00 130 I'l.K 
L-I*( I»I-I }/Z 

i»o s(n->t(Li 

WRUc (&t6t IS(JI.J-ltKI 

c 

C PRINT CUMULATIVE P£RCcMTAGE DF € IticT^VALUES 

C 

WRITE (6,Tt (0(J).J-1,<I 
C 

C PRINT EIiiENVECiaSS 

C 

WRITE <6.8) 

L-0 

00 150 J=l,K 

00 1*0 1=1. H 

L*i»i 
1*0 DM )«V<LI 

ISO WRITE 16,91 J,(0(II il-l,m 
C 

CALL LOAD (H,K,R.VI 

c 

C PRI>4T FACT3R HATttlX 

C 

WRITE <6<10l K 
DO tac I>l,M 
00 ITO J-l.R 
L»N*(J-ll*I 
17C DlJ}'Vt L> 
ISO WRITE (6.11) l.(OIJI.J«l.K) 

IF(lt-ll 185, 185. IM 
135 WRITE U»19t K 
GO TO ICC 

188 CALL V&RNX I H, K , V, NC, TV,fl , T .01 

PRtHI VARIANCES 

NV-NC*l 
WRITE (6.12) 
03 199 I>1,NV 

NC-I-l 

190 WRITE (6.13) NI.TVII) 

PRINT ROTATED FACTl't NATmx 

WRITE <6tl*l K 

DO 220 I-l,« 

00 210 J>1.K 

L«R*( J-1I*I 
210 S(JI>VIL1 
2ZQ WitlTE 16,151 1.(i(JI,J*l.KI 

PRINT COMMUNALITIES 

WRITE <6,16l 
00 2i0 1-1. n 
2)C WRITE (6,17) I .9( 1 1 ,TI 1 1 ,3{ I I 
GO TO LOO 
END 
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FCTO 970 
FCTO 9ac 

FCTO *i'H- 
FCTQISCC 

FCTOIOIO 
FCTO1020 
FCT0103C 
FCTOIO*C 
FCTDiesr 
fCT0n60 
FCTO 10 Tf 
FCTOIOBO 
FCTaiC9C 
FCT01130 

Fcroiiic 

FCTO 1 1 20 

FCTOll JO 
F=CTail40 
FCTOllSC 
FcroiiftO 

FCTQllTO 
FCT01180 
FCT0I19C 
FCT01200 
FCr012|n 
FCT01220 
FCTOl/30 
FCT01240 
FCT01250 
FCrOI260 
FCT01273 
FCT012(lf 
FCTO1291: 
FCT013DO 
FCT01310 
FCT0132: 
FCT0133-> 
FCT013*0 

Fcronsc 

FCT0134? 
FCT01370 
FCTOU80 
FCTOlSflO 

Fcroi*oo 

FCTOUl'; 
FCT0l*20 

FCTQ1430 
FCT01**0 
FCT01*5t) 
FCTOK60 
FCT0U70 
FCT01*SC 
FCT01*90 
FCTQISCC 
FCTOIJIO 
FCTDIJ^O 
FCTO I 5 30 

Fcroi5*.o 

fCT01553 
FCTai560 
FCTQ15T0 
FCTO1590 
FCT015<)0 
FCT01400 
FCT01613 
FCTOiiZil 
FCT01630 
FCT016*0 
fCTOl^S': 
FCT01660 
FCTai6T0 
FCr01680 
FCT0:690 
FCr0l70J 
FCT01710 
FCT01T23 
FCT01730 
FCT017*0 
FCT01T50 
FCrOl7SO 
FCTOITTO 
FCT01780 
FCT01790 
FCT013C0 
FCT01810 
FCT0ia20 
FCTD1830 
FCT3134C 
FCTOllSO 
FCT01940 
FCTOltfTO 

Fcroiaso 



From the above comparisons, a statistic is 
derived. In the one sample case, this statistic 
evaluates the probability that the statistic will be as 
great as or greater than its current value, if the • 
hypothesis that the actual (sample) and the theoreti- 
cal distribution functions are equal is correct. In 
other words, if the probability is determined to be 
0.40, for example, rejecting the hypothesis of 
equality of the distribution functions will be an incor- 
rect action 40 times out of 100. Similarly, in the 
two-sample case, the hypothesis being tested is the 
equality of the two actual (sample) distribution 
functions. 

This probability is calculated using asymptotic 
formulas. This means that the sample sizes involved 
should be large. Sizes greater than 100 are suggest- 
ed by the literature. In this connection, the remarks 
given under the topic "Subroutine SMIRN" should be 
considered. 

Note also that added problems arise when, in the 
one sample case, the parameters of the continuous 
distribution in question are estimated from the 
sample. Lilliefors discusses these problems (see 
reference given in KOLMO description). 

Program 

Description 

This program consists of the main routine KOLM, 
and four subroutines from the Scientific Subroutine 
Package: KOLMO, KOLM2, SMIRN, and NDTR. 

Capacity 

This program allows up to two samples each with 500 
or fewer observations to be examined. If the user 
desires to modify this program to handle more 
observations, the instructions given below under 
"Program Modification" should be followed. 

Input 



Problem Description 

This program is concerned with the problem of 
determining (a) from what probability density func- 
tion a particular sample is drawn, or (b) whether 
two different samples were drawn from the same 
population. In other words, in the one sample case, 
the actual distribution function of the sample is 
compared with one or more theoretical distribution 
functions, which may be normal, and/or ejcponential, 
and/or Cauchy, and/or uniform, and/or a user- 
specified distribution. In the two-sample case, the 
pair of sample (actual) distribution functions are 
compared with one another. 



After two initializing cards (1, 2 below) each job 
consists of two control cards and the data cards 
(3-5 below), 

1. Initializing card (minus signs in cc 1-4) 

2. Names of distribution functions (as supplied, 
these are the normal, exponential, Cauchy, uniform, 
and user*s pdf). These names are punched in the 
order given, centrally located in 16 digit fields on 
one card; that is, "normal" is punched in cc 1-16, 
"exponential" in cc 17-32, and so on. 

3. Job control card (minus signs in cc 1-4) 

4. Program control card 

Each job requires one program control card, 
defined below: 
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For Sample 








For Sample 


Columns 


Contents 


Problems 


Columns 


Contents 


Problems 


1-20 


Title (alphameric) 


Uniform test 
(Job 1) 
Uniform- 
Gauss Test 
(job 2) 


63 


-67 
68 


s — right endpoint of 
uniform pdf 

— Do not compare 
with user's pdf. 

1 — Compare with 


1. (job 1) 
(job 1) 


21 


1 — one-saniple test 


1 (job 1) 






user-specified pdf. 






2 — two -sample test 


2 Oob 2) 


69 - 


- 73 


u\_ Parameters for 
s/~ user-specified pdf 


aob 1) 


22 


Leave blank for one- 


(job 1) 


74 - 


- 78 


(job 1) 




sample test. 


1 (job 2) 











— Read both samples 
(two-sample tests). 

1 — Read only one 
sample and compare 
it with the first 
sample read on pre- 
ceding job. 

23 — Do not print the (job 1) 

sample(s). 
1 — Print the sorted 1 (job 2) 

sample(s). 
(F10.3, ten per line) 
(The rest of this control card pertains to a one- 
sample test. ) 

24 — Do not compare 1 (job 1) 

with normal pdf. 
1 — Compare with 
normal pdf. 
25-29 u — mean of the normal 0. 5 (job 1) 

pdf 
30-34 s — standard deviation 0.5 (job 1) 
of the normal pdf 
35 — Do not compare 
with exponential pdf. 
1 — Compare with 1 (job 1) 

exponential pdf. 
36-40 u~ mean of the 0.5(jobl) 

exponential pdf 
41-45 s — standard devia- 1. (job 1) 

tion of the exponential 
pdf 
46 — Do not compare 
with Cauchy pdf. 
1 — Compare with 1 (job 1) 

Cauchy pdf. 
47-51 u — median of the 0. 5 (job 1) 

Cauchy pdf 
52-56 s — u-s is the first 1. (job 1) 

quartile of the 
Cauchy pdf 
57 — Do not compare 
with uniform pdf. 
1 — Compare with 1 (job 1) 

uniform pdf. 
58-62 u — left endpoint (job 1) 

of the uniform pdf 
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u and s are described 
fully in "Description of 
Parameters" under 
subroutine KOLMO, and 
are read using Format 
F 5. 0; decimal points 
will override the 
format specification. 

5. Data is read into the computer one sample at 
a time. The reading of a sample is terminated by a 
data element of 999999. New samples must begin on 
a new card. Data elements are punched on cards 
using format F6. 0, which assumes twelve 6-column 
fields per card; decimal points on the card override 
the format specification. Since the routines KOLMO 
and KOLM2 sort the samples, no particular order 
within a sample is necessary. 

Deck Setup 
See figure 59. 



I Sampli 



le (data) 



£ 



Program 
control card 



Job control 
cord 



r 



( Sample 



(dota) 



Program 
control oird 



Job control 

cord 



PDF names 



I 



£ 



£ 



SMIRN 



Job 1 



Job initializaHon 



£ 



K0LM2 



KOLMO 



T 



Figure 59. Deck setup (Kolroogorov - Smirnov test) 



Sample Data 
See Figure 60. 



test; n is the sample size, and Dn is the maximum 
difference between the empirical distribution func- 
tion and the theoretical distribution function. 



UNIFORM 
0.377 
C.795 
C.231 
0.CC5 
0.262 C 
0.692 
C.458 C 
C.139 
0.670 
0-2*2 
C.636 
0.652 
0.2*3 
0.962 
0.501 
C.503 
0.996 C 
0.353 
0.842 
0.236 
O.IM 
C.629 
0.909 
0.4B2 C 
0.561 
0.^22 C 
C.913 C 
0.45T 
0.459 
C.178 
0.524 
C,463 
0.611 
C.679 C 
0,376 C 
0.388 
0.085 0, 
C.546 C. 
C.ib2 0. 
C.2Cfl C. 
0.141 C. 
C.644 



TEST 

.2*0 0. 
837 C 
8C6 C. 

.951 o: 

.2Cl 0. 
663 0. 

.694- C. 
.536 C, 
.640 0. 
.200 0. 
190 0. 

632 0. 

CC8 0. 
.666 C. 
.123 0. 
.117 C. 

292 C. 

397 C. 

859 0. 
.622 0. 
.113 0. 
.220 C. 
.146 0. 
.041 0. 
.224 0. 
.967 0. 

622 0. 

021 0. 

0C9 0. 

978 O. 

294 0. 

471 0. 

988 C. 

6C3 0. 

062 0. 

055 0. 

311 P. 

696 C. 

207 0. 

696 0. 

IS3 0. 

263 0. 



EKPONENTIAL 

1CCIC00.5C0C 
C.688 0.581 C 
r.686 0.268 
C.263 C.e04 
C.42 5 C.5 70 
C.167 0.043 
C.054 0.518 
0.995 C-.6C4 
C.956 0.068 C 
0.073 0.196 O 
C.349 0.87C 0. 
C.786 0.973 0. 
C.B44 0.761 O 
0.093 0.816 0. 
0.933 0.215 0, 
0.264 0.531 0, 
C.972 0.298 0, 
C.lll 0.556 0. 
C.662 0.119 0. 
0.725 0.163 0, 
C.042 0.787 0. 
0. 708 0.156 0. 
0.962 0.B6Q 0. 
0.909 0.068 0. 
0.077 0.299 0, 
0.659 0.945 C, 
0.326 0.924 0. 
C.5C2 0.364 0, 
0.923 C.365 0. 
C.434 0.331 0. 
O.S27 0.512 0. 
C.634 0.382 0. 
0,742 0,476 0, 
0.699 0.312 0. 
C.595 0.033 0. 
0.361 0,371 0. 
C.5I8 0.585 0. 
C.ai6 0.973 0. 
0.339 0.607 0. 
0.264 0.895 C. 
C.557 0.6C5 0. 
C.544 C.376 
C.341 0.982 



CAUCHV 



.510CC.500' 
.290 0.514 
.555 0.737 
.458 0,508 
.596 0.44^ 
.750 0.117 
.624 0.083 
.666 0.561 
.act 0.199 
.516 0.3 36 
.080 0.652 
,767 0,845 
.969 0.965 
,058 0,006 
,890 0.409 
,810 0.083 
.C42 0.5 74 
337 C.Ct2 
,754 0.450 
,450 0.232 
348 0.0('6 
572 0.012 
5C1 0.268 
345 0.277 
097 0.692 
741 0.940 
595 0.253 
667 0.72* 
882 O.CIO 
079 0.500 
634 0.195 
591 0.103 
178 0.765 
580 0.672 
846 0.783 
801 0.467 
842 0.793 
494 0.208 
594 0.102 
991 0.893 
617 0.256 
363 0.793 
829999999 



0CU0CC.5000CI 
0.*72 0.204 
0.427 C.931 
0.926 0.994 
0.302 C.817 
0.953 C.665 
0.682 0.94C 
0.367 0.1S6 
0.965 0.113 
0.371 C.197 
0.19C 0.275 
0.166 0.400 
O.C73 0.751 
0.515 0.033 
0.441 0.963 



0.2C2 

0.r65 
0.C42 



469 
225 
0.143 
C.918 C.453 

0.349 e.oco 

C.9C4 0.365 

0.928 C.455 

0.C98 C.181 C 

0.556 0.840 

0.478 C.835 O 

0.969 C.360 

0.157 C.666 C 

0.344 C.546 C 
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Figure 60. 
Output 

Description 

The output from the program KOLM gives the 
statistics and probability statements described below, 
and in addition identifies the distribution functions 
being considered. Sorted samples are printed on 
option. 

The following items are produced as output: 

1. Z score, where z ='^Dn for the one-sample 



^m n ^^^ ^^ two-sample test, m 
is the size of the second sample; n is the size of the 
first sample; D is the maximum difference be- 
tween the two empirical distribution functions. 

2. The probability of incorrectly rejecting the 
hypothesis of equality of distribution functions. 

Sample 

See Figure 61. 

Program Modification 

1. Program capacity may be increased or 
decreased by making changes in the dimension state- 
ments. If this is done, the statements DO 111 1 = 1, 
50 and DO 117 1 = 1, 50 may require modification 
(imder READ SAMPLE comments card in listing of 
program). This will also be true if data formats 
require changing. The "read sample" sections of 
the program use FORMAT statement 3, and the 
user may wish to change tJiese sections. 

2. Any modifications to the subroutine KOLMO in 
terms of added continuous pdf 's should be reflected 
in the program KOLM. It may be necessary to: 

a. Modify the dimensions of DIST (5, 3), which 
contains the switches calling on pdf 's and 
also contains the parameters u and s used 
by KOLMO 

b. Modify the pdf titling card, statement 6 
(FORMAT), the READ (5, 6)TIT1 card which 
reads titles, and the dimension of TITl 
(now 20, to hold five 16-digit titles) 

c. Modify the section of the program from 
statement 121 tiirough 132 to reflect changes 
a and b above. These statements call 
KOLMO to perform tests and output results. 

3. List of names in KOLM, and their usage: 

D — Temporary vector used in reading samples 

DAS2 — Initializing card name ( ) 

DASH — Job control card name ( ) 

DIST — 5 by 3 matrix. The five elements in 
coliunn 1 are switches that allow the (5) 
pdf *s to be used in one- sample tests. 

Columns 2 and 3 contain the param- 
eters u and s for the associated test. 
IFL — Error indicator (job deck error) 
lER — Error (in KOLMO, used for skipping the 

test concerned) 
lES — Error (in KOLMO , used for error 
message) 
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Figure 61. 
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0.214 


0.217 


0.222 


0,222 


0.224 


r.226 


0,227 


C.231 


0.234 


0.236 


0.248 


C.250 


C.257 


0.259 


C.266 


0.272 


0.273 


0.284 


0.267 


0.288 


0.288 


0.297 


0.301 


0.30 1 


0.302 


C.302 


0,303 


C.3C5 


0.307 


0.310 


0.3L3 


0.313 


0.315 


0.317 


0. 317 


0.332 


0.341 


0.346 


0.348 


0.351 


0.351 


0.358 


0.359 


C.362 


e.365 


0.372 


0.373 


0.374 


0.3T4 


0.3T5 


0.376 


0.378 


C.381 


0.387 


0.387 


0.388 


0.38B 


0.391 


0.394 


0.399 


0.400 


0.400 


0.401 


0,404 


0.406 


0.406 


0.411 


0.414 


0.417 


0.418 


0.416 


0.421 


0.422 


0.422 


C.428 


0.43C 


0.433 


0.436 


0.438 


0.445 


0.445 


0.444 




0.447 


O.'i'.S 


C.45* 


0.457 


C.457 


0.460 


0.462 


0.464 


0.467 


0.484 


0.487 


0.490 


0.494 


0.494 


0.497 


0.499 


0.501 


0.5C6 


0.508 


0.512 


0.514 


C.515 


C.515 


0.520 


C.524 


0,524 


0.524 


0.533 


0.533 


0.536 


0.536 


0.537 


C.54 7 


0.559 


C.559 


0.562 


0.563 


0.S63 


C.566 


0.571 


0.573 


0.578 


C.583 


0.583 


0.583 


0.584 


0.584 


0.586 


0.592 


C.601 


0.6C4 


C.606 


C.6C6 


C,607 


0.610 


C.610 


0.616 


0.619 


0.622 


0.624 


0.629 


0.630 


C.632 


0.632 


0.633 


0.6 34 


0.635 


0.642 


0.643 


0.643 


0.648 


0.653 


0.656 


0.657 


0.658 


0.659 


0.660 


0.663 


0.667 


0.673 


C.675 


C.675 


0.680 


C.683 


0.685 


0.686 


0.686 


0.687 


0.687 


C.688 


0.690 


C.693 


0.694 


C.695 


0.697 


0.699 


0.699 


0.702 


0.702 


0.704 


0.704 


0.707 


C,70B 


C.714 


C.71B 


0.719 


0.733 


0.735 


C.740 


0.743 


0.76C 


0.761 


C.762 


0.763 


0.764 


0.770 


0.772 


0.776 


0.762 


Oi '86 


O.Ta7 


0. 769 


0.790 


0.798 


0.801 


0.801 


0.806 


0.812 


0.816 


0.918 


0.623 


0.828 


0.828 


C.829 


0.832 


0.837 


0.838 


0.839 


0.84C 


C.849 


0.649 


C.85C 


C.852 


0.652 


0.857 


0.858 


0.861 


0.867 


0.868 


C.a73 


0.S7* 


0.875 


0.875 


c.sao 


0.881 


0.884 


0.884 


0.887 


0.898 


0.899 


C.900 


C.902 


0.91C 


0.913 


0.916 


0.916 


0.916 


0.917 


C.920 


0.92C 


0.930 


0.933 


0.936 


0.93T 


0.938 


0.951 


0.951 


0.954 


0.954 


0.958 


0.963 


0,963 


0-968 


0-9T5 


0.983 


0.985 


0.989 


0.989 


0.994 


0.996 


l.OOO 


1.004 


1.022 


1.024 


1.034 


1.035 


1.046 


1.049 


1.049 


1 .C50 


1.053 


1.058 


1.063 


1.067 


1.07C 


1.075 


1.075 


1.084 


1.066 




1 . 1 C 8 


I. 1 10 


1.1L6 


1.119 


1.120 


1.125 


1.127 


1.132 


1.145 


1 . 149 


1.156 


1.163 


1.173 


1.176 


1.176 


1.177 


1.184 


I.ISB 


1.189 


1 .19C 


1.203 


1.2C6 


1.20 7 


1.217 


1.21T 


1.221 


1.226 


1.2 30 


1.238 


I .243 


1.25 3 


1.255 


1.261 


1.261 


1.265 


1.270 


1.295 


1.313 


1.317 


1.329 
1.435 


1.33C 


1.339 


1.352 


1.356 


1.366 


1.376 


1.384 


1.394 


1.394 


1.451 


1.479 


1.486 


1.'.93 


1,598 


1.600 


1.644 


1.670 


1.709 


1 .799 


1.83B 



















THC HYPOTHESIS IHT THE TWO SAMPLES »«£ f»0« THE S411E POPULATION C»N BE "J|"EO MIIH USVnPTOTICl 
PROBABILIir Of BEING INCORRECT OF O.CCO. THE STATISTIC I IS 0.2590E 01 FOR THESE SAHPLES. 

THE JOB WITH TITLE UNIFORM-GAUSS TEST WAS COKPIETEO. 



Figure 61. (Continued) 



lO — Switch (used for printing samples) 

IE ~ Nvunber of samples to be read in current 

Job 
IS ~ Number of samples to be used in current 

job (1 or 2) 
K — Counter used to print correct pdf name 

for pdf used in the test 
M — Size of second sample 

N — Size of first sample 

Nl — 1 or 2, for niunber of samples tested 
p __ Probability of being incorrect if hypothesis 

is rejected 
S2 — Temporary storage for u and s output 

TITl — Current pdf names 
TITLE — Job title 
X — Sample 1 

Y — Sample 2 

Z ~ Z statistic, from KOLMO or KOLM2 

Operating Instructions 

This sample program is a standard FORTRAN 
program and needs no special operating instructions. 
Data set 5 is used for input, and 6 for output. 



Error Messages 

The following error conditions will result in 
messages, followed by the action specified: 

1. Neither a one- nor two-sample test is request- 
ed, or the size of either sample is larger than 500 — 
CC.21, CONTROL CARD, INCORRECT, OR SAMPLE 
SIZE TOO LARGE. JOB IGNORED. Action: Cards 
are read until a new job control card is found, or 
imtil the hopper. is empty. 

2. Sample size is less than 100 (not an error) ~ 
NOTE THE REMARKS CONCERNING ASYMPTOTIC 
RESULTS AND SAMPLE SIZE IN SUBROUTINE 
SMIRN. Action: None - job continues. 

3. The requirement of subroutine KOLMO that 
certain parameters be nonzero or positive is vio- 
lated ~ AT LEAST ONE (S) ENTRY PARAMETER 
FOR THE SUBROUTINE KOLMO WAS INCORRECT. 
THE TEST FOR THE ASSOCIATED CONTINUOUS 
PDF WAS IGNORED, Action: All tests are made 
for cases where the parameter s was correct. 

4. A case in which an error requires aborting the 
job, and the succeeding job in the job stack requests 
a two-sample test where the second sample is to be 
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compared with a (first) sample which was read on 
the previous job ~ THIS JOB CALLS FOR THE USE 
OF A PREVIOUSLY READ SAMPLE, AND THE 
PREVIOUS JOB WAS IGNORED BECAUSE OF 
ERRORS, JOB IGNORED. Action: Cards are read 
until a new job control card is found, or until the 
hopper is empty. 

5. The job control card preceding a job is not 
there or is incorrect — FIRST CARD IN JOB DECK 
(JOB CONTROL CARD) IS INCORRECT- Action: 
Cards are read until a new job control card is found, 
or until the hopper is empty. 

Timing 

The execution time of this program on a System/360, 
Model 40. using an IBM 2540 Card Reader as input 
and an IBM 1403, Model 3 Printer as output, is: 

33 seconds for job 1 

50 seconds for job 2 



SAMPLE H*Ih PROGRAM FOR THE KOL'^OGCMIOV-SMIRNOV TeST-KOLM 

PURPOSE 

III READ THE CONTROL CARD fOR A ONE OR TWO SAMPLE TEST 

(2) READ THE SAHPL£ DATA ANO OEteRMlNe THE SAMPLE SIZES 

( 3) PRINT RESULTS 

BFMABKS 

THE USER SHOULD NOTE THE REMARKS CtVEN [N SUBROUTINES 
KOLMO, KOL**?, AND SMIRN, ANU THE »1ATHEHAT|C AL DESCRIPTIONS 
FO't THESE SUeRQUTINES. 

SUB10UT1NES AND FUNCTION SUBPROGRAMS REQUIRED 
K.OLN0 
KOLH2 
SMjRN 
NDTR 

HE T HOD 

REFfcR ro SU6RauTINES KOLMO. K0LM2| ANO SHIRN 



THE FOLLOWING DIMENSIONS MUST BE GREATER THAN THE NUMBER OF DATA 
ELEMENTS IN THE TWO SAMPLES, H AND N 

DIMENSION X(501l,¥(501> 



DIMENSION TITLEI^I tO<12)«T[TI(20)»OISTI5t3} 



KOLM 


10 
30 


KOLM 


KCLM 


40 


KCHM 


50 


ica.M 


60 


KCLM 


70 


KOLM 


80 


KOLM 


90 


KOLM 


lt>0 


KOLM 


no 


KOtM 


120 


KOLM 


no 


KOLM 


140 


KOLM 


ISO 


KOtM 


uo 


KOLM 


170 


KOLM 


IRO 


KOLM 


190 


KXM 


200 


KOLM 


210 


KOLM 


??0 


KOLM 


230 


KOLM 


240 


.KOLM 


yio 


KOLM 


260 


KOLM 


?70 


KOLM 


280 


KOLM 


290 


KO-M 


300 


KOLM 


310 


,KOLM 


320 


KOtM 


310 


KaM 


340 


KOLM 


?50 



1 F0RMAT(SA4,3IU5IFt.0,2F%.0M 

2 FCRMAT|//tcc.2l, CONTROL CARD 
IFCE. JOB IGNOFEO.* 1 

a F0RMAr(I2F6.0I 

4 F0RMAT|1HI,5A4} 

5 F0RMATI//2H A, 12,' SAMPLE TEST WAS REQUcSTED'l 
b F0eMAT(20A4l 

T F0RMATI//MCF10.3I) 

8 FORMAT!//' SORTED SAMPLE ONC FOLLOWS*! 

9 FOPMATI//' THE HYPOTHESIS THST THE SAMPLE IS FRO 
IISTBIBUTION' i 

10 FORMAT!//' SORTED SAMPLE TWO FOLLOWS*) 

tl FORMATI//' THE H/PDTHESIS THAT THE TwO SAMPLES A! 

lOPULATION CAN BE ^lEJECTEO WITH ( ASVMprOTICl • ,/ . ' 

ZING INCORRECT OF •,F6.3,'. THE STATISTIC I IS • 

3 SAMPLES. •! 

12 FOPMATl//,' THE SIZE OF SAMPLeSI3,' IS',!*.'.') 



KOLM 360 

KaM 3T0 
KOtM 3S0 

NCORAECT, OR SAMPLE SIZE IS TOO LAKOLH 3«0 
KOLH 400 



KOLM 410 

KOLM 420 

KOLM 410 

KCLM 440 

KOLM 450 

KXM 460 

' AIN) *.4A4. * OKOLM 4T0 

KOLM 4B0 

KOLM 490 

E Fno." THE SANE PKOLM 500 

PROBABILITY OF BEKaM 510 

EU,4,* FOB THESEKCtM 520 

KOLM 530 

KCLM 540 



13 FOHMATI//,' NCTE THE SEMA* KS CONCERNING ASYMPTOTIC BESULTS ANO SAMKOtM SSO 
IPLF SIZF IN SURCnuTINE SMIPNM KOLM 560 

14 FORMAT!//, • AT LEAST ONf IS) ENTRV PARAMETER FOR THE SUBROUTINE KOKOtH 570 
ILMO WAS INCO«o£CT.'/* THE TEST FOB THE ASSOCIATED CONTINUOUS PDF WKOLM 580 
2AS IGNORED.* } KOLM 590 

15 F0RHAT(A4) KOLM 600 

16 FORMAT!//, • THIS JC6 CALLS FOR THE USE OF A PREVIOUSLY READ SAMPLEKOLM 610 
1. AND THF PBEVIOUS JOB WAS IGNOREO BECAUSE OF ERBORS.*/ • JOB IGNOKOLM 520 

2Peo. •( KOLM 630 

17 FORMaT(//,i FIPST CA«0 IN JOB DECK ( JCB CONTROL CAHQl IS INCORR EC TKOLM 640 

IB FOFMATIIH .• WITH ME AN' . Fl 3.4, • AND VARI ANCE • ,Fl 3.4) KOLH 660 

1<* FORMATIIH ,' WITH MEDIAN'. F13. 4,* AND FIRST QUAR T ILE * ,F 13 . 4 1 KOLM 670 

20 FOPMfTdH ,. IN THE INTERVAL • .F 13.4 , • T0',FI3.4,* INCLUSIVE'! KOLM 680 

.«r«r"'^" •■ '^*" " PEJECTEO WITH PBOB^BILI TY* . F6. 3 , ' OF BEING INCKOLM 690 

lOBPECT. THE STATISTIC /',/,• IS'.E12.4.* FOR THIS SAMPLE.* 

2Z FORMAT!//, • THE JOt WITH TITLE ',5/4. ■ W( S COMPLETED. M 



C SELFCT PROGB*-^ CONTROLS 

C 

100 F£AO<5.1&)OAS2 
IF(0ASM-OAS2) 101,102, 101 

101 UR!T£It,l7l 
GO TH 10 7 

102 ReAD(5,lITirLf,IS,IP,IO.tlDIST(I,JI,J = l,3t,I=.i,5| 

ies=o 

WRITEI6,4!TITLE 
kRfTEIb.^llS 

c 

C NUM.etP CF SAMPLES DECISION 

C 

IF( !R} 103,105,103 

103 IF(IFLILt)4.115,104 

104 HP]TE(6,16) 
CO TO 107 

105 1F(IS-1)106,10^,109 
C 

C NOT ONE OP Tyo SAMPLES 

C 

106 WRirE(6,2) 

107 REA0!5. 15>DA52 
IF(DASH-OAS2)I07,10e.l07 

IDP IFL^l 

CO TO 10? 

c 

C READ FIRST SAMPLE 

C 

109 N=D 

00 111 1=1,50 

nEADI5.3!0 

DO III J=1.12 

IFCD!J) -999999.01 1 10, 112, 110 

110 N^N*-! 
IFIN-501)11I,106,I06 

111 X{N)=0!J) 

112 NUl 
UP|TE(6, 12)Nl,N 

C 

C CHECK THE SIZE OF N 

C 

1F!N-100!I13,113,114 
U3 WRIT£l6,l3t 

114 IFIIS-2)121,U5,106 
C 

C READ SECOND ?;aMPLE 

c 

115 M-O 

00 117 1=1,50 
READ! 5. 3 to 
00 117 J=l,12 
IFI0(J)-999999.0)ll6,118,ll6 

116 H-M4-1 

IFIM- 501)117, 106, 106 

117 Y<H)>0(J) 

118 Nl=2 
Wft[rE(6, I2)N1,M 

C 

C CHECK THE SIZE OF M 

C 

IF(M-100)119,119,120 

119 WRITE!6, 13) 

120 IFIIS-l)l21,I21.133 
C 

C ONE SAMPLE TEST USING ALL DISTRIBUTIONS REQUESTEO 
C 

121 DO 130 1=1,5 

IF!OIST! 1,1) 1130,130,122 
l?2 CALL KOLNG(l(,N.Z,P.I.0IST(i.2l,OISriI,3).IERI 
lES-'lERtlES 
IFI lERt 130,124,130 

123 WRITE(6t 1^1 
GO TO 136 

: OUTPUT RESULTS 

124 K-4«I-3 
HRITE<6,9)TiniKI,TlTl(K«l),riTllK*2)«TITI(K«3| 
IFII-31125,126,127 

125 S2'0ISTI I,3)*«2 
WRITEI6,l8IOIST(It2).S2 
GO TO 129 

126 S2=0ISriI.2)-DISTII.3) 
HRITE(6,19)DISTII,2).S2 
CO TO 129 

127 ]F(I-4)I28. 120,130 

128 HRITEI6,20)DI$T!|,2),01SriI.3} 

129 WP[TFI6,21!P,Z 

130 CONTINUE 

OUTPUT SAMPLE ONE DECISION 

[F1I0)131,132,131 

131 WRITE(6.8) 
HRITEt6,7)(XIJl,J=l,Nl 

132 !F!1ESI 123, 136, 123 

TWO SAMPLE TEST 

133 CALL KCLN2IX,Y,N.M,Z,PI 

OUTPUT SAMPLES DECISION 

IFI10I134,U5,134 

134 WRITCC6,9) 
kRnE(6.7)!XIJ).J=l.N! 
WRITEI6, 101 
WPITE(6,7HYIJ).J = l,Ml 

135 WRirF(6, 11IP,Z 

136 |FL=0 
WRITEI6,?2) T1TL5 
GO TO IrtO 

END 



KOLH 790 
KOLN 800 
KOLH aio 
KOLM 820 
KOLM 830 
KOLH 840 
KOtH 850 
KOLM 860 
KOLM 870 
KOtM 880 
KaM 890 
KOLM 900 
KOtH 910 
KOLM 920 
KOLH 930 
KaM 940 
KOLM 950 
KOLM 960 
KOLH 970 
KOLM 980 
KOLM 990 
KOLMIOOO 
KOLHtOlO 
K!X.M1020 
KOLHIOSQ 
KaLH1040 
KOLHtO50 
KaMl060 
KaLHlO70 
K0LH1080 
K0LM1090 
KOLMILOO 
KOLHlllO 
K0LM1120 
K(XH1130 
KaMllAO 
K0LH1150 
KQLN1160 
KOLMltTO 
KOLH1L80 
K0LRI190 
K0LM1200 
KOLHt2lO 
KOLHLZZa 
KaLMl230 
K0LM1240 
K0LM1250 
KaM1260 
KOLH1270 
KOLH12a0 
KaMl290 
KOLM 1300 
KaM1310 
KOLHL320 
KaLM1330 
KOLN1340 
K0LM1350 
KQLM1360 
KOLH1370 
KaMt380 
KOtM 1390 
KrXMl400 
KaNl4tO 
KaLN1420 
KQLM1430 
KOtM1440 
K0tM145O 
K0LN1460 
K0I.M14TO 
K!XH1480 
KaM1490 
KOtMLSOO 
K0LN15I0 
K0LM1520 
KaLNlS30 
K0LH1$40 
K0LM155O 
K0LH156O 
K0LN1S70 
KOLNlSaO 
KOLH 1590 
KaHl600 
KOLM1610 
KaLHL620 
KOLM1630 
KOLM1640 
KOtMlSSO 
KOLHiedO 
KOtni6T0 
■>K0CN1*80 
KOl-Hl«90 
KOtHl'TOO 
KOLN1710 
K0LH1720 
K0LH173O 
'K0LM1740 
KOLH1750 
K(]tHlT60 
KOLM1T70 
KOLM1780 
KOLM1790 
K0LM1800 
K0LM1810 
KOLMtaZO 
KaH1830 
K0LH1840 
K0LMI850 
KGLH186a 
KOLM1870 
KOLMlSaa 
KaMl890 

KOLMmO 

KOLM1910 

KOLM1920 



READ aiSTRinuTICN NAMES AND JOB fONIRDL CARD 

IFL = 

REA0(5, ISIDASH 

CEA0(5,6>TIT1 



KOLM 700 
KOtM 710 
KOLM 720 
KOLM 730 
KOLM 740 
KOLM 750 
KOLH 760 
«aH 770 
KOLM 780 
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TRIPLE EXPONENTIAL SMOOTHING 
Problem Description 



Smoothing constant and three coefficients must be 
keypunched with decimal points. 

Leading zeros are not required to be^keypunched. 



Given a time series X, a smoothing constant, and 
three coefficients of the prediction equation, this 
sample program finds the triple exponentially 
smoothed series S of the time series X. 



Program 



Description 



The sample program for triple exponential smooth- 
ing consists of the main program named EXPON, 
and one subroutine, EXSMO, from the Scientific 
Subroutine Package. 

Capacity 

The capacity of the sample program and the format 
required for data input have been set up as follows: 

1. Up to 1000 data points in a given time series 

2. (12F6. 0) format for input data cards 
Therefore, if a problem satisfies the above con- 
ditions, the sample program need not be modified. 
However, if there are m.ore than 1000 data points, 
the dimension statement in the sample main program 
must be modified to handle this particular problem. 
Similarly, if input data cards are prepared using a 
different format, the input format in the sample main 
program must be modified. The general rules for 
program modification are described later. 

Input 

Control Card 

One control card is required for each problem and 
is read by the main program, EXPON. This card 
is prepared as follows: 







For Sample 


Columns 


Contents 


Problem 


1- 6 


Problem number (may be 
alphameric) 


SAMPLE 


7-10 


Number of data points in 
a given tim.e series 


0038 


11-15 


Smoothing constant, a 
(0.0<a<1.0) 


0.1 


16-25 


First coefficient (A) of 
the prediction equation 


0.0 


26-35 


Second coefficient (B) of 
the prediction equation 


0.0 


36-45 


Third coefficient (C) of 
the prediction equation 


0.0 



Data Card 

Time series data are keyptmched using the format 
(12F6.0). This format assumes that each data point 
is keypunched in a six-column field and twelve fields 
per card. 

Deck Setup 

The deck setup is shown in Figure 62. 

Sample 

The listiiis of input cards for the sample problem is 
presented in Figure 63. 

Output 

Description 

The output of the sample program for triple expo- 
nential smoothing includes; 



/= 



Data 
cards 



Control 
card 



'Last problem 



Data 
cards 



Control 
card 

A 



Data 

cards 



Control 
card 



EXSMO 



EXPON 



Second problem 



First problem 



/ Subroutine and main program 
(including system control cards) 



Figure 62. Deck setup (triple exponential smoothing) 



/DATA 10 

SAMPLE 38 O.l 0.0 0.0 0.0 20 

*30 *26 *22 419 414 41 J 412 409 411 417 422 430 30 

438 441 447 455 461 453 448 449 454 463 470 472 40 

476 481 483 487 491 492 485 4«6 482 479 479 476 50 

472 470 60 



Figure 63. Input listing (triple exponential smoothing) 
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1. Original and updated coefficients 

2. Time series as input and triple exponentially 
smoothed time series 



Sample 

The output listing for the sample problem is shown 
in Figure 64. 



Program Modifica tion 

Program capacity can be increased or decreased by 
making changes in the dimension statement. Input 
data in a different format can also be handled by 
providing a specific format statement. In order to 
familiarize the user with the program modification, 
the following general rules are supplied in terms of 
the sample problem. 

TRIPLE EXPONENTIAL SMOOTHING SAMPLE 

NUMBEK OF DATA PCINTS 38 
SMOOTHIKG CONSTANT 0.100 



1. Changes in the dimension statement of the 
main program, EXPON: 

The dimension of arrays X and S must be 
greater than or equal to the number of data points in 
time series, NX. Since there are 38 data points in 
the sample problem, the value of NX is 38. 

2. Changes in the input format statement of the 
main program, EXPON: 

Only the format statement for input data may 
be changed. Since sample data are three-digit num- 
bers, rather than using six-column fields as in the 
sample problem, each data point may be keypunched 
in a three-column field and 24 fields per card. If so, 
the format is changed to (24r3. 0). 

Operating Instructio ns 

The sample program for triple exponential smooth- 
ing is a standard FORTRAN program. Special 
operating instructions are not required. Data set 5 
is used for input, and data set 6 is used for output. 

Timing 



COEFFICIENTS A 

ORIGINAL O.C 

UPDATED ^84.80176 



6 
0.0 
1.71309 



C 
0.0 
0.04166 



The execution time of this sample program on a 
System/360, Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as output, 
is twelve seconds. 



INPUT DATA 
430.00000 
426.0CO00 
422.00000 
419.00000 
414.0COOO 
413.00000 
412.00000 
409.00000 
411.00000 
417.C0000 
422.00000 
430.00000 
438.00000 
441.00000 
447.00000 
455.00000 
461.00000 
453.00000 
448.00000 
449.000CC 
454.00000 
463.00000 
470.00000 
472.00000 
476.00000 
481.00000 
483.00000 
487.00000 
491.00000 
492.00000 
485.00000 
486.00000 
482.00000 
479.00000 
479.00000 
476.00000 
472.00000 
470.00000 



SMOOTHED DATA 
(FORECAST! 
430.00000 
426.00000 
422.00000 
418.00000 
414.29980 
410.23950 
407.08960 
404.66797 
402.22363 
401.25049 
402.64575 
405.61621 
410.71338 
417.46948 
423.99829 
431.18286 
439.43359 
447.87866 
452.21558 
454.10522 
455.80713 
458.54614 
463.30518 
469.06445 
474.09521 
479.11035 
484.38623 
466.94629 
493.50854 
498.05444 
501.66992 
502.12549 
502.44434 
501.16724 
498.92749 
496.84155 
494.00806 
490.3C420 



SAMPLE MAIN Pft03RAM FOR TRIPLE EXPONENTIAL SMOOTHING - EXPON 

PURPOSE 

fl) READ THE PR08LEH PARAMETER CARD ANO A TIME SERIES. 
(21 CALL THE SUBROuriNE EXSHO TO SMOOTH THE TIME SERIES. 
ANO 13} PRINT TNE RESULT. 

REMARKS 

A SMOOTHING CONSTANT SPECIFIED IN THE PROBLEM PARAMETER 

CARD MUST 8E GREATER THAN ZERO BUT LESS THAN ONE IN ORDER 

10 OBTAIN REASONABLE RESULTS. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
EXSHO 

METHOD 

REFER 10 R. 5. BROWNi 'SHiiaTHING. FORECASTING AND PREOICTI 
OF DISCRETE TIME SERIES*. PRENTICE-HALL. N-J., 1963, 
PP. 14C TO 144. 



THE FOLLOWING DIMENSION MUST BE GREATER THAN OR EQUAL TO THE 
NUMBER OF DATA POINTS IN A GIVEN TIME SERIES.. 

DIMENSION xdOOOI.SUOCC} 



30 



60 



90 



Figure 64. Output listing (triple exponential smoothing) 



1 FDRHATI A4.A2.I4.F5.0.3F1C>.CI 

2 FaRHAT(12F6.C) 
i FORMAT! 34H1TKIPLE EXPONENTIAL SMOOTHING A4,A2/ 

IDATA POINTS, I6/19H SMOOTHING CONSTANT. F9. 3/ t 

4 FDRnAT(13H0CUEFF[ClENrS.9X,lH«,l4x,lHB,I4X.lHCI 

5 F0RMAT(9H00RIGINAL.FL9.5f2FI5.5l 

6 FDflMATlBH0UP0ATED.F20.5.2FlS.S/l 

7 FaRnATIlH0,27X,13HSHa0THE0 OATA/TXilOHINPUr DATA. 12 
1) 

8 F0RHAT(F1T.5,BX.F15.5I 



READ PaOBLEM PARAHErER CARD 

ICO READ IS. II PR,PRl.NX,ALiA.B,C 

<"'■ PROBLEM NUMBER IMAT BE ALPHAMERIC! 

"<l PROBLEM NUMBER ICONTINUEOI 

NX NUMBER OF DATA POINTS IN TIME SERIES 

AL SMOOTHING CONSTANr 

A,B,C... COEFFICIENTS OF THE PREDICTION EOUAIION 

WRITE 16,31 PR4PRI.NX.AL 

PRINT ORIGINAL COEFFICIENTS 

WRITE (6.4) 
WRITE (6.^t A.B.C 



EXPO 
.EXPO 
EIPQ 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 100 
EXPO 110 
EXPO 120 
EXPO 130 
EIPD 140 
EXPO ISO 
EXPO 160 
EXPO 170 
EXPO IBO 
EXPO 190 
ONEXPO 200 
EXPO 210 
EXPO 220 
EXPO 230 
.EXPO 240 
EXPO 250 
EXPO 260 
EXPO 2T0 
EXPO 280 
EXPO 290 
EXPO 300 
.EXPO 310 
EXPO 320 
EXPO 330 
EXPO 340 
/22H NUMBER OF EXPO 350 
EXPO 360 
EXPO 370 
EXPO 36C 
EXPO 390 
X,10H( FORECAST I EXPO 4C0 
EXPO 410 
EXPO 420 
EXPO 430 
..EXPO 440 
EXPO 450 

EXPO 470 
EXPO 480 
EXPO 490 
EXPO SOO 
EXPO 510 
EXPO 5Z0 
EXPO 530 
EXPO 540 
EXPO 550 
EXPO 560 
EXPO 570 
EXPO 580 
EXPO 590 
EXPO 60^ 
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REAO TIHe SERIES DATA 

CALL c«S«0 (K,N«,ALiA,B,CiSI 

PftlMT UPDATfcO COcFFICIENTS 

MAITE I6t61 A.B.C 

PRINT INPUT AMD SH30THEO OATA 

MftlTE 16*71 
DO 200 I^l.NX 
2^0 WRITE 16.8) X( 1 I, SI 11 

GO TO ICO 
END 



MATRIX ADDITION 



Problem Description 



EXPO frlO 
EXPO 620 
EXPO 630 
EXPO 6 40 
EXPO 650 
EXPO 660 
EXPO 6T0 
EXPO 680 
EXPO 690 
EXPO TOO 
EXPO 7L0 
EXPO T20 
EXPO 730 
EXPO 740 
EXPO 750 
Expo 760 
EXPO 770 
EXPO TSO 



An input matrix is added to another input matrix to 
form a resultant matrix. Each set of input matrices 
and the corresponding output matrix is printed. 
This procedure is repeated until all sets of input 
matrices have been processed. 

Program 

Description 

The matrix addition program consists of a main 
routine, ADSAM, £ind four subroutines, MATIN, 
MADD, MXOUT, and LOG. MADD and LOC are 
from the Scientific Subroutine Package. MATIN 
and MXOUT are sample subroutines for matrix 
input and output (see program listings). 

Capacity 

Matrix size has arbitrarily been set at 1000 data 
elements. 

Input 

Control Cards 

Each input matrix must be preceded by a parameter 
card with the following format: 

For Sample 
Columns Contents Problem 



1-2 


Blank 




3-6 


Up to four-digit identifica- 
tion code 


0001 


7-10 


Number of rows in matrix 


0008 


11-14 


Number of columns in 
matrix 


0011 


15-16 


Storage mode of matrix 

for general matrix 

1 for symmetric matrix 

2 for diagonal matrix 






Each input matrix must be followed by a card with a 
9-punch in column 1. 

A blank card after the last pair of input matrices 
terminates the run. 

Data Cards 

Data cards are assumed to have seven fields of ten 
columns each. The decimal point may appear any- 
where in a field. If no decimal point is included, it 
is assumed that the decimal point is to the right of 
the last digit. The number in each field may be 
preceded by blanks. Data elements must be punched 
by row. A row may continue from card to card. 
However, each new row must start in the first field 
of the next card. Only the upper triangular portion 
of a symmetric matrix or the diagonal elements of a 
diagonal matrix are contained on data cards. The 
first element of each new row will be the diagonal 
element for a matrix with symmetric or diagonal 
storage mode. Columns 71-80 of data cards may be 
used for identification, sequence numbering, and 
so on. 

Deck Setup 

The deck setup is shown in Figure 65. 



/ Card with 9 ]■ 

1'°'°'-' 

/ rl-l 

r Data Cards I 

I for a 



Run termination 



Paramt-'tcr 
Card for B 



Last problem 






I Card wit! 



f Parameter 1 — 

I Card for B 

pCard with 9 I — ' 

/— — — |i-J 

/ Data Cards 1 j 

^ ' -^ l\) 

i Parameter — ' 





First problem 



Subroutines and main program 
(including system control cards) 



Figure 65. Deck setup (matrix addition) 
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Sample 

A listing of input cards for the sample problem is 
presented in Figure 66. 



/DATA 

00010008001100 

o.760ioca o.62riao2 

0-6751766 0.86i59l0 
0.6&44085 1. 0000000 
0. 5571069 0. n25?23 
1-0000000 0.6644045 
0,63T344S 0.8152021 
0, 6963269 0.57-V5585 
0.529504T 0.8051740 
0.7446B45 0.6144597 
0.360'iOTO 0.461109') 
0.6751766 0.55T1068 
0.0C27915 0.0035705 
0-0033291 C. 0027470 
0.6108296 0.7812874 
0.4299425 0.3547574 
1.0000000 0.72*1215 
9 

00020006001 toe 
0.7507505 0.619465C 
0.7241215 I. 0000000 
0.7446845 C. 6144597 
0.6244183 0.7986682 
0.8635910 0.7125728 
0,5838704 0. 7466050 
0.ti963269 0- 5745585 
1.0000000 0.6644085 
0.6751 766 0. 5571068 
0.7284T36 0.6010878 
C. 7446845 0.6144597 : 
0. -.299425 0. 3547574 ' 
C. 3635910 0. 712572B ' 

0.7601008 o.62neo2 

C.76C1008 0.627180Z 
0.69h3269 0. 5745585 ' 



1.0000000 0-7086843 0.4058519 0.0031426 0.6BT6602 


30 


0.7446845 0.6963269 




40 


0.6271802 3.6194650 


.3547574 0.0027470 0.6010878 


50 


0.61'.4597 Q. 5745585 




60 


0. 7601008 0, 7507505 


.4299425 0.0033291 3.7284786 


70 


0.7029582 0.6573101 




80 


0.6573101 C. 6492243 


.3718301 0. 2028789 0.6299642 


90 


0.6943108 0-6492243 




100 


0.7029582 0.6943108 


.397S204 0.0030789 0.6737132 


no 


0.3976204 0.371SOOI 




120 


0.6373449 0.6295047 


.3605070 0.0027915 0-610b296 


130 


0.0030789 0.0028789 




140 


O.C03I426 0.0031039 


.0017776 l.OOOOOCO 0.0030119 


150 


0.6737132 0-62996*2 




L60 


0.4058519 0.4008593 I 


.0000000 0.0017776 0.3889673 


170 


0.6244183 0.5838704 




180 
190 
200 


0,7086843 1.0000000 


4008593 0.0031C39 0.6792011 


210 


0. 7936683 0.7468050 




220 


0.7029582 0.6943108 


3976204 0.0030789 0.6737132 


230 


l.OOOOOOO 0.6439786 




240 


0.8152021 0.8051740 


4611C99 0.0035705 0.7812874 


250 


0.6439786 1.0000000 




260 


O.-iS^SlCl ".6492243 


3718001 0-CCZ87S9 0.6299642 


270 


0. 7601008 0. 7507505 


4299425 0.0C33291 0.7284786 


280 


0.6373449 0.6295047 


3605070 0.0027915 0.6108296 


290 


0.6876602 0.6792311 


3389673 C.0P30119 l.COOCOOO 


300 


0.7029582 0.6943108 


3976204 0.C030789 0.6737132 


310 


0.4058519 0.4008593 I. 


OOCCnOO 0.3017776 0.3889673 


320 


0.B15202I 0.3051740 0. 


4611fr99 0.0035705 0.7812874 


330 


t-OOOCOOO 0.7336843 0. 


4058519 0.0031426 0.6876602 


340 


1.0000000 0. 7Q86343 0. 


4058519 0.0031426 0.6876602 


350 


'>. 6573101 0.6492243 0- 


371BC01 0.0028789 0.6299642 


360 
3 70 
380 



Figure 66. Input listing (matrix addition) 
Output 



Description 



The resultant matrix is printed for any size array 
as a general matrix regardless of the storage mode. 
Each page is headed with the matrix code number, 
dimensions, and storage mode. Columns and rows 
are headed with their respective number. The code 
number for the output matrix is derived by adding 
the code numbers for tiie input matrices. 



' 


• 


iUMS 




11 tULUHNS 




SIO«AGt 


HOOE 


«6E 1 








OLUMM 


' 






i 




J 


♦ 


i 






6 




lAOlOU 


M 





427I40E 00 





lOOOOOt 01 


a.ro8«a4E oo 


0.40SaUE 


OO 





3I*2«0E'02 




6«440« 


OC 





lOUCOOE 01 





b2T180E 00 


0.A19UH 01) 


0. 35*75 7E 


00 





27*700£-02 




lOOCCOt 


01 





AA440ae OC 





7*oioie bo 


o.isa7so€ oo 


0.4294*ZE 


00 





}S2910E-02 




6««S2TE 


00 


a 


SJASitt 00 





mtiat 00 


0-**922« CO 


0.3 71 Boot 


00 


o 


2a7a4OE-02 




7««A44E 


00 





*I«460E 00 





T024;>M OC 


C.69*J11£ 00 


0.397«2aE 


00 


o 


3O7a«a£-02 




67S1T7E 


00 





ssric?t CO 





«.3T3*S£ OO 


0.6^VMISE 00 


0-36OS07E 


oo 





2791SaE-02 




S32«10C 


02 





2 7«7aOE-02 





3l*i60t-02 


0.3103<M)C-02 


«.lT7 7*Ot 


02 


o 


lOOOOOE 01 




*29'i*i£ 


00 


" 


lSA7»7t OC 


" 


*05««£ OO 


U.40ae59E OO 


O.iOOOOOE 


01 





1T7760E-O2 


1 




KCWS 




It ccLwnh 




ilOMCl HODE 


P«GE i 












O.7»075a€ 00 

o.7**ca«E oo 

0.aM327E 00 

D.fc-7S17)E OO 

0.7««bB4E OC 

U-fl(>3591E 00 

0.7fi01tlE CO 



G.IUCCCCt CI I 

11 COLUMNS 
2 
0.*1946SE 00 

o.iii**«oE oo 

0.712S73E oo 
0.»74!>««E CO 
a.»S71QIE OC 
0.6l*4bDE OC 
0.7I2573E 00 
O.ti2riao£ 00 



U.»9*311E 00 


0.**fl22*E 


oo 


O.IIT&^OC no 


u. jriaooE 


oo 


0.3OTfc»«-O2 


o.2e7a«OE 


02 


0.(>r37l3C oo 


0.62vq«*E 


00 


C.6^**1M 00 


O.S«3a70£ 


oo 



StOKAGE MiOE I 



o.7oa«a*e i 

o.TozvsaE I 

0.S152O2E ( 

U-6«7J 

0.637)*SE OC 

o.To^^^at oci 

0.81S202k oo 



i 00 



O. lOOOOOE Ol 
0-69*31tE 00 

a.Bo&ir*E oo 

0.b*qZME CO 
0.&2910SE 00 
0.ASA3I1E 00 
0.t>051T4E OO 

o-7oe6a*c Oil 



o.3976^ak oo 
a.*«iiiwE oo 
o.37iaooE 00 

0.3M)a07E oo 
0.397«;OE OO 

u.*«iiiot oo 



STUHACt NODE 



a,bTiiQlt 00 
0.673)llt tlO 

a.iaiztit 00 

U.a2996*f UD 
0.61Oe30E 00 
0.aI37lJE 00 
0.7B12arE cc 
C.«e7M0£ QO 



o.isioasE 01 

0.14090K 01 
0.1H399E 01 
0.1S924SE 01 
0.14J9*«e 01 

o.i*t9a«E 01 

O.Ma920E 00 
0.lia004E 01 



□.r2*121E c« 
0.«2**1«E 00 
U.StJHICE OC 
C.lOOOOOt 01 
0.72B*?n OC 
a.*29M2£ 00 
O-IaClClE 00 
0.61632IE 00 



0.12*«ME 01 
a.lai4*«E 01 
0.1]76«aE 01 
0.1144IJE 01 
0.UT137E 01 
O.llTlSTC 01 
0.I13320E 00 
0.Vai«3IE OC 



O.IOOJOOE 01 
0.79S6&a£ OC 
0.7*«lfO%E 00 
<J.M4*08E 00 
0.601IMI6E 00 
0.3S*IS7t 00 
0.62naOE 00 
U.574S5SE OC 



10 

c.74aMec 00 

0. lOOOOOE 01 
0.M3974E 00 
0.740101E 00 
0.6a7660E 00 
a.405l52C 00 
0- lOOOOOE 01 
a.b57310e 00 



STOMCE MODE g 



0.170«6ac 01 
0.113014C 01 

o.isiiiof. 01 

a.l3t*ME 01 
O.IMOIOE 01 
D.134030E 01 
0.«ia34SE 00 
0.1*05«5£ 01 



o.i7oaAaE ot 

0.1I117aE 01 
0.1SSS92E OL 
0.129a4SC 01 
O.IJZHZE SI 
0.iS23a2E 01 
0.80*2 TBE 00 
0.1109S4E fll 



11 

o.)46aosc 00 

0.643979E 00 
0. lOOOOOE 01 

a.iMliof 00 

0.6r9Z01E DO 
0.400aSfE 00 
0.7086a4E 00 
C.(>49224E 00 



0,aO«711E 00 
0.rS23T«C 00 
0.A910S2E 00 
a.T43400E 00 
a.7S«12TE 00 
a.T5ai2TE 00 
0.462aO1E 00 
0.140S«5E 01 



0-3io3«oE-a2 
o.3ora«oE-az 
o.as70%OE-o2 
o.2aiavo£-o2 

O.27«lS0E-a2 

0.3a7890E-ai 
0.3570ME-02 
0.3142MIE-U2 



a.*2*«ME-02 



O.4a99M)C-02 
0.5TS7aOC-02 
0.98T040C-02 
0.9a7O40E-02 
0.IOO3S7E 01 
0.492a2OE-a2 



Sample 

The output listing for Qxe sample problem is shown 
in Figure 67. 



Program Modification 

Matrix size can be increased or reduced by making 
the following changes in ADSAM: 

1. Modify the DIMENSION statement to reflect 
the number of elements for A, B, and R. 

2. Insert the same number in the third param- 
eter of the two CALL MATIN statements (20 and 45) . 



STORAGE MODE ( 



itaa 







i3Ma«c 


01 





1399]aE 


Ol 





1863S9E 


01 


0-lS*13SE 


01 


0.1443L3E 01 


ROM 






12l4a0£ 


01 





iiai52t 


01 





1S112*E 


01 


O.IAt4*«E 


01 


0.12ie5*E Ol 


AOH 






15097 IE 


01 





122t22E 


Dl 





1M201E 


OL 


0.1140«*E 


01 


a.l65T31E 01 


aou 






129993E 


CI 





1«2950E 


01 




1*495 ac 


01 


0-l*S4*lE 


Oi 


0-13V99TE 01 


■OH 






I28*«*E 


01 





1C8899E 


01 





106220E 


01 


0.1 0852 8E 


01 


0.105100E 01 


ftOH 






l2a454E 


01 





432734E 


00 





35B32Be 


00 


0.*OS«3U 


00 


0.4C)T)8£ OC 


ROM 






T«42S9£ 


00 





i37af3E 


01 





1*08* 7E 


01 


0.1b7171E 


01 


0.133MH 01 


ROH 






1C7663E 


01 





169a]3E 


01 





l29S4aE 


01 


0.128I73E 


01 


0.123309E 01 


or CASE 





























Figure 67. Output listing (matrix addition) 

The output listing is set for 60 print lines per 
page, 132 print positions across the page, and 
double spacing. This can be changed by means of 
the last three parameters in the three-call MXOUT 
statements in ADSAM (statements 40, 80, 90). 
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Operating Instructions 

The matrix addition sample program is a standard 
FORTRAN program. Special operating instructions 
are not required. Data set 5 is used for irqjut, and 
data set 6 is used for output. 

Error Messages 

The following error conditions will result in 
messages: 

1 . Reserved storage area is too small for 
matrix — DIMENSIONED AREA TOO SMALL FOR 
INPUT MATRIX (matrix code no. ). GO ON TO 
NEXT CASE. 

2. Input matrices do not have the same dimen- 
sions — MATRIX DIMENSIONS NOT CONSISTENT. 
GO ON TO NEXT CASE. 

3. Number of data cards does not correspond to 
that required by parameter card — INCORRECT 
NUMBER OF DATA CARDS FOR MATRK (matrix 
code no.). EXECUTION TERMINATED. 

Error conditions 1 and 2 allow the computer run 
to continue. Error condition 3, however, terminates 
execution and requires another run to process suc- 
ceeding cases. 



GO TO 2C 
5S HR1T£(6.L4I ICQ08 

GO TO 3T 
60 lf(NA-«Bl ?5,T0,75 
TC IFIHA-N8) 75.83.75 
75 HRIT€t6.13t 

K«ITE(6.15I 

GO TO 20 
SO CALL HXOUTflCOOd.B.Ne. MB. MSB.&O. 120.21 

ICOOIt-ICO0A«ICQO9 

CALL HADOIA.BiR.NA.HA.HSA.HSBI 

MSR-HSA 

1F(HSA-H$BI 90.90.85 
85 MSR-HS8 
90 CALL HXOUTIICOOR. R.NA, HA, ifSR, 60. 120.21 

WI(irEI6.16l 

GO TO 20 
95 RETURN 

END 



AOSA 520 
<OSA 530 
AOSA 540 
AOSA 550 
AOSA 560 
AOSA 5 70 
AOSA 5 80 
AOSA 590 
AOSA 600 
AOSA 610 
AOSA 62C 
AOSA 630 
AOSA 640 
AOSA 650 
AOSA 660 
AOSA 670 
AQSA 6 80 
ADSA 690 
AOSA TOO 
AOSA 710 



NUMERICAL QUADRATURE INTEGRATION 

Problem Description 

The tabulated values of a function for a given spac- 
ing are integrated. Multiple sets of tabulated values 
may be processed. 

Program 

Description 

The numerical quadrature integration program con- 
sists of a main routine, QDINT, and one subroutine, 
QSF, from the Scientific Subroutine Package. 



Timing 



Capacity 



The execution time of this sample program on a 
System/360, Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as output, 
is 36 seconds. 



Up to 500 tabulated values of a function may be 
integrated. 

Input 



iAMPLE .'IAIN PROjRAH FQA MATRIX AOOinON - AOSAH 

PURPOSE 

•lATRU AOl»IT[ON SAMPLt PROGRAM 

SU8R0UriNES ANO FUNCTION SU9PR0CftAMS REQUIRED 
HADD 
■^ATIN 

LOC 

«»srnoo . , 

TM INPUT HATRlCeS A^E READ FROM THE STANDARD INPUT OEVICE. 
THEY ARE ADDED AN3 Th€ RESiJLTaNT MATRIX IS LISTED ON 
THE STANDARD OUTPUT DEVICE. THiS CAN BE REPEATED FOR ANY 
NUHBcR of pairs of matrices UNTIL A BLANK CARD IS 
ENCO'JNTeREO 



MATRICES ARE DIMENSIONED FOR lOCC ELEMENTS. THEREFOftE, PRODUCT 
OF NUMBER OF ROMS BY NUMBER OF COLUMNS CANNOT EXCEED 1000. 

OIMeNSION A(ICOO).3(IOCO),R(1300) 

IC FORMAT! IMl.lSHMArRIX ADDITION) 

11 FORMAT! 1H0,44HDIM£NSI0NE0 ARCA TOO SHALL FOR INPUT MATRIX ,141 

12 F0RHAT(lHO,2PH£l(£CUTIDN TERMINAFEOI 

13 FORMAT! lHO,32HMArRlX OtrtcNSIONS NOT CONSISTENT) 

lA F0RrtATClH0,42HI«CO*RECr NUMBER OF OATA CARDS FOR MATRIX ,U» 

15 FORMATUHO.IBHGO ON TO NEXT CASEI 

16 FOAHAT! IHO.llHENO DF CASEI 



MRITEt6*l?) 
20 CALL MATINtICOOA,A, lOOOtNAtMA.HSAtlERl 

IF( NA I 25,95,25 
25 If(IER-l) 4J.3C.35 
3C •4RIT£<t>.lll tCJDA 

. SO TO 45 
15 URITE(d.I4) ICOOA 
37 MRITEI&.IZ) 

GO TO 95 
40 CALL MXOUT(ICOOA,A,NAfHA.MSA,&0.120t2) 
45 CALL HATINI ICDOB.B, lOOO,Ne.HB,NSa>IER) 

IF(IER-l) 60.50.55 
50 WRirE<6«U) ICOOS 



60 



ADSA 10 

.AOSA 
AOSA 
ADSA 
AOSA 
AOSA 
AOSA 
AOSA 
AOSA 

AOSA 100 

AOSA 110 

AOSA 120 

AOSA 130 

ADSA I4C 

AOSA 15C 

ADSA 16C 

AOSA ITO 

AOSA ISO 

AOSA 190 

ADSA 2CC 

ADSA 210 

•AOSA 22C 

ADSA 230 

ADSA 240 

ADSA 250 

AOSA 2&0 

AOSA 270 

AOSA 260 

AOSA 290 

AOSA 300 

AOSA 310 

AOSA 320 

AOSA 330 

AOSA 340 

AOSA 350 

AOSA 360 

, ADSA 3 70 
ADSA 380 
ADSA 390 
AOSA 400 
AOSA 410 
AOSA 420 
ADSA <>30 
ADSA 440 
ADSA 450 
AOSA 460 
ADSA 470 
AOSA 480 
AOSA 490 
AOSA 500 
AOSA 510 



Control Cards 

Each integration requires a parameter card with the 
following format: 







For Sample 


Columns 


Contents 


Problem 


1- 5 


Up to 5-digit numeric 
identification code 


12345 


6-10 


Number of tabulated values 
for this function 


0020 


11-20 


Interval between tabulated 
values 


1.0 



The first two parameters cxjasist of up to five 
digits with no decimal point (FORMAT (215)). Note 
that the second parameter may not exceed 500. The 
third parameter consists of up to ten digits with 
decimal point. If no decimal point is included, it is 
assumed that the decimal point is to the right of the 
field (FORMAT (FIO. 0)), A blank card following the 
last set of data terminates the run. 
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Data Cards 

Data cards are assumed to be seven fields of ten 
columns each. The decimal point may appear any- 
where in the field. The number in each field may be 
preceded by blanks. Columns 71 through 80 of the 
data cards may be used for identification, sequence 
numbering, and so on. If there are more than 
seven tabulated values, the values should continue 
from card to card with seven values per card until 
the number of values specified in the parameter card 
has been reached. 



Deck Setup 



The deck setup is shown in Figure 68. 



Sample 

The output listing for the sample program is shown 
in Figure 70. 

INTFr.««TinN nF TAflULATED V(*LUtS Fdl UV/OX USING SUflRnUTINE OSf 
FlIhCTKlN 1?!^^ ?ri lARllLATtO VftLUfS [NTERVAL ' 0, ) OOi^OOOOF 0] 



KFSUITftNr vaniF PF INTFGXAt AT EACH STFP IS 
"■0 o.loq'jqqaoF 01 o.'i')9<)<J99oe 01 o.^flq-J^oHi e ri 

R.7j')qo9*>')e m o.^s<»a9*»5'.e r? o.ZTiqqp^Ap 02 c.?9sq<»939C o? 



.79999<lRir 
.I99999PSF 
.3|99991Qf 



07 n,?190Qq/,C)f n;. 



TFCRATION OF TA-lUlftTFU 



10 TflRiiLATEn VALUES 



USING ^Ut*'"'ll 

tNIFaVAL 



n. incL-inrrnf oi 



RF5IJLT4NT VALUF HF INItGOAL AT RACh STFP IS 

U.O T. I<.999o?Sfi 01 0. 390-59 9 9GF CI 0. 7-^99 9fiT6t 

P.730<)99S5E C2 C. 3 1 (.qqqf 9F &? 0. iqgqqq^tJh 02 0.4940995*,^ 



0. 1 l<»999'97r ' ? 



Figure 70. Output listing (numerical quadrature integration) 



z 



[ Blank card 



/ Data cords 



Parameter 
card 



Run termination 



r Last problem 



I 



c 



Data cards 



(Parameter card 



( QSF 



QDINT 



First problem 



r 



f Sul 



broutine and main program 
(including system control cards) 



Figure 6P Deck setup (numerical quadrature integration) 



Program Modification 

The maximum number of tabulated values accept- 
able to the sample program m.ay be changed by- 
modifying the dimension statement in QDINT. The 
format of the parameter cards and data cards may 
be changed by modifying statements 10 and 40, re- 
spectively, in QDINT. 

Operating Instructions 

The numerical quadrature integration sample pro- 
gram is a standard FORTRAN program. Special 
operating instructions are not required. Data set 5 
is used for input, and data set 6 is used for output. 



Sample 

A listing of input cards for the sample program is 
presented in Figure 69. 



/DATA 


2D 


1.0 










^43 


2.0 

2.C 

2.0 

10 


Z.O 
2.0 
Z.O 
1.0 


2.0 
2.0 
2.0 


2.0 
2.0 
2.0 


2.0 
2.0 

2.0 


Z.O 

2.0 
2.0 




l.O 


2.0 
9.0 


3.C 

10. c 


*.0 


5.0 


6.C 



Figure 69. Input listing (numerical quadrature integration) 
Output 

Description 

The identification code number, number of tabulated 
input values, the interval for the tabulated values, 
and the resultant integral values at each step are 
printed. 



Error Messages 

The following conditions will result in error mes- 
sages: 

1 . The number of tabulated values specified in 
the param.eter card is less than or equal to one — 
ILLEGAL CONDITION. NUMBER OF TABULATED 
VALUES IS LESS THAN THREE. The program will 
go on to the next set of data. 



Timing 

The execution time of this sample program on a 
System/360, Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as output, 
is six seconds. 
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SAMPLE PROGRAM FOR INrEGRATlON OF A TABULATED FUNCTION 8ir 
NUMERICAL QUADRATURE - «D[NT 

PURPOSE 

INrEGAATES A SET OF TABULATED VALUES FOR FIX) GIVEN^THE 
^(UM8ER OF VALUES AND THEIR SPACING 

REMARKS 

THE NUMBER OF VALUES MUST BE MURE THAN TWO ANO THE SPACING 
GREATER THAN ZERO 

SUefiOUTINES ANO FUNCTION SU8PR0GRAHS REQUIRED 
aSF 

«ETHO0 

RCAOS CONTROL CARD CONTAINING THE CODE NUMBERt NUMeER OF 
VALUES. ANO THE SPACING OF Th£ FUNCTION VALUES CJNTAINEO 
ON THE FOLLOMING DATA CARDS. DATA CARDS ARE THEN READ AND 
INTEGRATION IS PERFORMED. MORE THAN ONE CONTROL CARD ANO 
CaRftESPONDIN:: data can be INTEGRATEO in one RUN. EKECUTION 
IS TERMINATED 6Y A BLANK CONTROL CARD. 



QDIN 
.ODIN 
QOIN 
QOIN 
QDIN 
QOIN 
QDIN 
OOIN 
QOIN 
QDIN 
QDIN 
QDIN 
QDIN 
QDIN 
QOIN 
QDIN 
QOIN 
QOIN 
QOIN 
QOIN 
ODIN 
OOIN 
QOIN 
QDIN 
OOIN 
.QOIN 
QOIN 
THE FOLLOWING DIHENSION MUST BE AS LARGE AS THE MAXIMUM NUMBER QOIN 
QF TABULATED VALUES TO BE INTEGRATED QOIN 

QDIN 
DIMENSION Z(5C01 QDIN 

OOIN 

OOIN 

QDIN 
QDIN 
QDIN 
QOIN 
QOIN 
QOIN 
QDIN 
QDIN 
QDIN 
QDIN 
SUBRQOIN 
QOIN 
ODIN 
QOIN 
QDIN 
QOIN 
QOIN 
QDIN 
OOIN 
QOIN 
OOIN 
QOIN 
QDIN 
QOIN 
OOIN 
QOIN 
OOIN 
OOIN 
QDIN 
QOIN 
QOIN 
QOIN 
QOIN 
QDIN 



IF A DOUBLE PRECISION VERSION OF THIS ROUTINE IS DESIRED, 
C IN COLUMN 1 SHOULD BE REMOVED FROM THE DOUBLE PRECISION 
STATEMENT WHICH FOLLOWS. 

DOUBLE PRECISION I. SPACE 



THE 



IC FORMAT I2I5.FI0.C) 

20 FORMATl IHI,62HINTESRAT1CN OF TA6ULATE0 VALUES FOR DY/DX USING 

lOUTINE QSF^/IH .lOHFUNCTION , I 5 . 3X, I 5, I 7H TABULATED VALUES. 

ZSX.IOHINTERVAL =,£15.8//) 
Zl FORMAT) IH ,l?HILL£GAL CCNOITION/l 

23 FORMAT! IN .'.SHNUMBER OF TABULATED VALUES IS LESS THAN THREEI 
5C FDRMAK IH , TX , • RE SULTANT VALUE OF INTEGRAL AT EACH STEP IS '. 

UIH ,6E15.B)I 
32 FORMAT) TFICCI 

35 R£A0(5, lOlICOD.NUMBR, SPACE 

IF( ICDO+NUMBRt 70, 70|3B 
38 WRITE(6.20HCQD,NUMBR, SPACE 
5*: REAO(5,32))2(l),I = l,NUM8RI 

IF I NUMB R- 3 I ICO, 55,5 5 
55 CALL QSf (SPACE, Z,Z. NjMBRI 
6C URl Tt(6,30)( Zl I ),! = If NUM6RI 

GO TO 35 
7C RETURN 
ICO hRITE(6T2ZI 

WRITE 16,23) 

GO TO 35 
20C WR|TE<6,22I 

GO TO 35 

END 



100 
110 
120 
L3C 

uo 

150 

160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
3C0 
3L0 
320 
330 
34C 
350 
360 
370 
3B0 
390 

wm 

410 

420 
430 
440 
450 
460 
470 
460 
490 
500 
510 
520 
530 
540 
550 
560 
5 70 

5ao 

590 
600 
610 
620 
630 
640 
650 
660 
670 



RUNGE-KUTTA INTEGRATION 



Problem Description 



A differential equation of the form: 

1 - ' (»..) 

is integrated with initial conditions as specified in a 
parameter card. The differential equation is de- 
fined in the form of a function subprogram that is 
provided by the user. 

Program 

Description 

The Runge-Kutta integration program consists of 
a main routine RKINT, one subroutine RK2 from 
the Scientific Subroutine Package, and one 

user-supplied function subprogram FUN, which 
defines the differential equation to be integrated. 

Capacity 

Up to 500 values of the integral may be tabulated. 



Input 



Control Cards 



Each integration requires a parameter card with the 
following format: 



Columns Contents 

1-10 Initial value of X = Xq 
11-20 Initial value of Y = Y(Xq) 

21-30 Step Size 
31-35 Number of steps required 

between tabulated values 
36-40 Total number of tabulated 

values required 



For Sample 
Problem 

1.0 
0.0 
0.01 
10 

30 



The first three parameters consist of up to ten digits 
with decimal point. If no decimal point is included, 
it is assumed that the decimal point is to the right 
of the field. 

(FORMAT (FIO.O)) 

The last two parameters consist of up to four 
digits plus a blank with no decimal point. 

(FORMAT (15)) 

Multiple parameter cards may be used. A blank 
card terminates the nm. 

Data Cards 

None. 

Deck Setup 

The deck setup is shown in Figure 71. 



card 



if 



t 



( Blonk 
I Parameter card 
^Parameter card 



FUN 



RK2 





Run termination 



One parameter card 
per integration 



^ AvVain program, subroutine 
and function subprogram 
(including system control cards) 



Figure 71. Deck setup (Runge-Kutta integration) 

Sample 

A listing of the input cards for the sample problem 
is presented in Figure 72. 
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.01 10 30 



Figure 72. Input lifting (Runge-Kutta integration) v 

Output 

Description 

The values for the initial conditions and the tabulated 
values of the integral are printed. 

Sample 

The output listing for the sample problem is shown 
in Figure 73. 



mum number of tabulated values may be changed by 
alterii^ the dimension statement in the sample pro- 
gram RKINT. 

Operating Instructions 

The sample program for Runge-Kutta integration is 
a standard FORTRAN program. Special operating 
instructions are not required. Data set reference 5 
is used for Input, and data set reference 6 is used 
for output. 

Error Messages 

None. 

Timing 



SOLUTION OF DY/DX=FUN(X,y) BY RK2 SUBROUTINE 
H= 0.010 X0= I. 000 Y0= 0.0 
X Y(X) 



The execution time of this sample program on a 
System/360, Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as output, 
is twelve seconds. 



1.10 

1.20 

1.30 

l.AO 

1.50 

1.60 

1.70 

1.80 

1.90 

2.00 

2.10 

2.20 

2.30 

2.40 

2.50 

2.60 

2.70 

2.80 

2.90 

3.00 

3.10 

3.20 

3.30 

3.40 

3.50 

3.60 

3.70 

3.80 

3.90 

4.00 



0.95310390E-01 
0.18232232E 00 
0.26236582E 00 
0.33647484E 00 
0.405468866 00 
0.470008736 00 
0.53063482E 00 
0.58779466E 00 
0.64186341E 00 
0.69315827E 00 
0.74194998E CO 
0.78847140E 00 
0.83292466E 00 
0.87548572E 00 
0.91630906E 00 
0.955S3130E CO 
0.99327296E 00 
0.10296392E 01 
0.10647268E 01 
0.10986242E 01 
C.11314125E CI 
0.11631584E 01 
0.11939259E 01 
0.12237749E CI 
0.12527580E 01 
0.12809258E 01 
G.13083200E 01 
0-13349857E 01 
0.13609591E CI 
0.13862734E 01 



RKIM 10 

KKIN 20 

RKIN 30 

SAHPLE PROGRAM FOR RUNGE-KUTTA INTEGRATION OF A GIVEN FUNCTION RKIN 40 



Figure 73. Output listing (Runge-Kutta integration) 

Program Modification 

The function subprogram FUN may be replaced by 
any function subprogram having the same name and 
parameter Ust. In this way, the user may define any 
desired first-order differential equation. The maxi- 



WITH TABULATED 3UTPUT - RKINT 

PURPOSE 

INTEGRATES THE FUNCTION SU8PR0GRAB FUN USING THE INITIAL 
CONOiriONS CONTAINEO IN CONTROL CARDS. PRODUCES TABULATED 
OUTPUT. 



REMARKS 
NONE 

SUBROUTINES ANO FUNCTION SUBPROGRAHS REQUIRED 
RK2 

FUN - USER-SUPPLIED FUNCTION SUBPROGRAM GIVING 
Dr/DX=FUN(X,Y1 



RKIN 
RKIN 
RKIN 
RKIN 
RKIN 
RKIN 
RKIN 
RKIN 
RKIN 
RKIN 
RKIN 
RKIN 
RKIN 
RKIN 
RKIN 
RKIN 



METHOD 

READS CONTROL CARD CONTAINING INITIAL VALUES OF X ANO 
STEP SUE. NUMBER OF STEPS OESIREO BETWEEN TABULATED VALUES. RKIN 
AND NUMBER OF TABULATED VALUES REQUIRED. PROGRAM THEN ENTERSRKIN 
RK2 TO PERFORM INTEGRATION. MULTIPLE CONTROL CARDS CAN BE RKIN 
USED ON THE SAME FUNCTION. RKIN 

RKIN 



THE FOLLQHING DIMENSION MUST BE AS LARGE AS THE MAXIMUM 
NUMBER OF TABULATED VALUES DESIRED 



DIMENSION A(500l 



EXTERNAL FUN 



IF A DOUBLE PRECISION VERSION OF THIS ROUTINE IS DESIRED. THE 
C IN COLUMN I SHOULD BE REMOVED FROM THE DOUBLE PRECISION 
STATEMENT WHICH FOLLOUS. 

DOUBLE PRECISION H, XO, VO.A.FUN 

THE C MUST ALSO BE REMOVED FROM DOUBLE PRECISION STATEMENTS 
APPEARING IN OTHER ROUTINES USED IN CONJUNCTION MITH THIS 
ROUTINE. 

USER FUNCTION SUBPROGRAM. FUiH. MUST BE IN DOUBLE PRECISION. 



1 FORMAT IJFIO. 0,2151 

2 FORMAT! 1H1.7X.«4HS0LUTICN OF DY/DX.FUN( X.Vl BY RK2 SUSROUTINE// 
IIH ,lCX,2HH=,F7.3.2X,3H«0-iF7.3. 2X ,3HYO-.F7. 3// IH ,12K, IHX , IBX, 
Z'.HYIX)//! 

i FDRMATIIH . If X.FS. 2 . IDX.E15. Bl 

READ CONTROL CARD CONTAINING ITEMS LISTED UNDER METHOD. 
REAOIS. IIXO.YO.H. JNT.IENT 

CHECK IF CARD IS BLANK. IF SO. RETURN. 
IF1IENT12C,4C.20 

WRITE HEADING INFORMATION. 
' WRIie(6,2)H.X0.YCj 

PERFORM INTEGRATION 
CALL «K2(FUN,H.«0.Y0,JNr,lENT.AI 
WRI TE OUTPUT 

STeF=FLOAT( JNTI.H 

X^XO 



ICO 
110 
120 
130 
140 
150 
IBD 
170 
180 
190 
200 
210 
220 
2J0 
240 
2S0 
260 
.RKIN 270 
RKIN 280 
RKIN 290 
RKIN 300 
RKIN 310 
RKIN 320 
RKIN 330 
RKIN 340 
RKIN 350 
.RKIN 360 
RKIN 370 
RKIN 3fl0 
RKIN 390 
RKIN 400 
RKIN 410 
RKIN 420 
RKIN 430 
RKIN 440 
RKIN 4S0 
RKIN 460 
RKIN 470 
RKIN 480 
RKIN 490 
..RKIN 500 
RKIN JLO 
RKIN 520 
RKIN 530 
RKIN 540 
RKIN 550 
RKIN 560 
RKIN 570 
RKIN 580 
RKIN 590 
RKIN 600 

HUH HO 

RKIN 620 
RKIN 630 
RKIN 640 
RKIN 65D 
RKIN 660 
RKIN 670 
RKIN 680 
RKIN 690 
RKIN 700 
RKlN 710 
RKIN 720 
RKIN 730 
RKIN 740 
RKIN 750 
RKIN 760 
R»(IN 770 
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00 3C I =1. r€NT 
X=X*STeP 

3r WRlTe(A,31X,A( I I 



GC 3ACK AND CHfc;;iC FOR AOOITiONAL CONrROL CARD. 



GO TD 1 
RETJRN 

END 



RKlN 780 
RKIN 790 

RKiN aoo 

RKIN 810 
RKIN 820 
RKIN 8 30 
RKIN 640 
AKIN 850 
RKIN fibO 



POLYNOMIAL ROOTS 

Problem Description 

The real and complex roots are computed for a real 
polynomial with given coefficients. Multiple sets of 
coefficients may be processed. 



Program 

Description 

The polynomial roots sample program consists of a 
main routine, SMPRT, and one subroutine POLRT 
from the Scientific Subroutine Package. 

Capacity 

Roots for pwlynomials of order 36 or less may be 
computed. 

Input 

Control Cards 



Each set of data requires a control card with the 
following format: 



Columns 



Contents 



For Sample 
Problem 



1 Blank 

2-5 Up to four-digit identifica- 

tion code 
6-8 Blank 

9-10 Order of polynomial 



360 



9 



The first parameter consists of up to four digits 
without decimal point. The second parameter con- 
sists of up to two digits with no decimal point. The 
order of the polynomial must be less than or equal 
to 36. 



Data Cards 

Data cards are assumed to have seven fields of ten 
columns each. The decimal point may appear any- 
where in the field. If no decimal point is included, 
it is assumed to be to the right of the field. The 
number in each field may be preceded by blanks. 
Columns 71 to 80 of the data cards may be used for 
identification, sequence numbering, and so on. If there 
are more than seven coefficients, the values should 
continue from card to card with seven values per 
card until the number of values has been reached 
that is one greater than the order of the poljmomial. 
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The first coefficient is for the constant term of the 
polynomial and the last coefficient for the hi^est 
order term. Fields with zero coefficients may be 
left blank. 

Deck Setup 

The deck setup is shown in Figure 74. 



HtAL ihO COMPLEX HUCIS Lf A POLYKLKiAL USING SUhROUIlNE POLRT 



L 



( Big 



nk card 



Data cards 



Control 
card 



Run termination 



/ Last problem 



(t 



Data cords 



Control card 



t 



POLRT 



SMPRT 



/ 



/ 



First problem 



„ Main program and subroutine 
/ (including system control cards) 



Figure 74. Deck setup (polynomial roots) 



FCR PCLrN&MlAL 


360 Cf tRDER 9 


THE INPUT COeFFlCUMS ARE 


-C.IOOOCOOE 01 




O.ICOOOOOE 01 


0.0 0.0 


HEAL ROOT 


CCMPLEX aUtJT 


O.I20622aE 00 


C.760^009E 00 


O.T2C6Z^8e CO 


-0.760?009e 00 


-0.1CI9iTl€ 01 


-0.2A36kT0£ OC 


-0.10192716 01 


0.24a627CE 00 


C.'9105257E OC 


t.C 


-0.4552«2aE OC 




-0.4SS2«2eE OO 


c.iassjesE 00 


C.2qB6*79£ DO 




0.29e4'47«E CO 


o.ico-vsiat 01 



Figure 76. Output listing (polynomial roots) 

Program Modification 

The maximum order of the polynomial is fixed by the 
subroutine POLRT. The sample program can accept 
polynomials up to the maximum of 36th order, which 
is allowed by the subroutine. The format of the con- 
trol card and data cards may be changed by modifying 
statements 10 and 40, respectively, in SMPRT. 

Operating Instructions 

The polynomial roots sample program is a standard 
FORTRAN program. Special operating instructions 
are not required. Data set 5 is used for input, and 
data set 6 is used for output. 



Sample 

A listing of the Input cards for the sample program 
is shown in Figure 75. 



Figure 75. Input listing (polynomial roots) 



Output 

Description 

The identification code, the polynomial order, the 
input coefficients, and the real and complex roots 
are printed. 

Sample 

The output listing of the sample program is shown 
in Figure 76. 



Error Messages 

The following conditions will result in error messages: 

1. The order of the polynomial specified in the 
control card Is less than one — ORDER OF POLY- 
NOMIAL LESS THAN ONE. 

The program will go on to the next set of data. 

2. The order of the poljoiomial specified in the 
control card is greater than 36 — ORDER OF POLY- 
NOMIAL GREATER THAN 36. 

The program will go on to the next set of data. 

3. The subroutine POLRT is imable to determine 
a root after 500 iterations on eight different starting 
values — UNABLE TO DETERMINE ROOT. THOSE 
ALREADY FOUND ARE 

The program will print all the roots that were 
computed and then go on to the next set of data. 

Timing 



The execution time of this sample program on a 
System/360, Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as output, 
is eleven seconds. 
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SAMPLE MIOCIIAN FO* KEAl 4MO COf«n.EI MOOTS OF * ACM. rOLT- 

NCni«. - siinr 
ruitrose 

COnrutES THE IIEU MO COWltl tOOrS or l ICU. RIltlOIMU. 
WHOSE COEFPf CUNTS A«E lN#Ut. 

•CUIWS 

THE ORDEH Of THE POIVNONIAL MUST M fiftEATEIt THAN (MC AND 
LESS THAN TNI ATT SEVEN 

SU640UT1NES AMD FUNCTION SUAPAOGAANS ACQUIAEO 
AOLAT 

HETHOO 

AEASS A CONTAOL CAAO CmTAININC THE lOENTIFICATION COSE AW 
THE mOEA OF THE rOlTMMIAt. IIH05C COEFFICIENTS AW 

CONTAIHCO ON TfIC FOLLOMIfia DATA CAAOS. THE COCFFICIENTS 
AAE THEN AEAO ANO THE AOOtS AAE CDIWUTEO. 
HWE THAM OMC CmTMl CAAO AND COME SFONOI NS OAIA CAO M 
FftOCE&SCO. EKECUTION IS TEAMIHATEO AT A At.AM( COHTAOL CAAO. 



SINENSION AIITI.miTI.IOOTAIlTI.AOCTIIlTI 



IF A OCWOLE PAECISION VEASION OF THIS AOUTINE IS 0ESIAEO> THE 
C IN COLUMN I S-IOULO AE AENOVEO FAON THE DOUBLE FAECISION 
STATEMENT MICH FOLLONS. 

OOUALE FACClStON A.H.AOOTA.AOOTl 

THE C MUST ALSO ■£ AEMOVEO FAOH fXHJBLE PAECISION STATEMENTS 
AFFEAAING IN OTHCA AOUTINCS USED IN CONJUNCTION WITH THIS 
AOUTINE. 



9 AEAOIS.lOIID.IOftO 
10 FOAHATI IX«IA,SX.I2I 

iFiiii«ioiioiioo.ia«.20 

2F MITEIAiSOIIO.IOAO 
SO FOANATUHI.AIHAEAL ANO COMFLEA AOOTS OF A FOLVNOMIAL US 
IINE KU.M/ff 17H Fa* FOITNOMIAL .U,2K<10H0F OADEA 
2THE INFUT COEFFICIENTS AAE//I 

J-IOAO*l 

«EAIII5,40I(AIII.I'I.JI 
AO FOAHATITFIV.OI 

milEIA.SOIIAIII.I'l.JI 
SC FMMATItf lA.TI 

CALL FOLATIAtH.IOAO.AOOTA.AOOTI.IEAl 

IFIIEA-IIM.AO.TO 
to niTEIA.ASI 
AS FOANATI//tH .SJHOROEA OF FOLTWMIAL LESS THAN ONEI 

CO TO S 
TO IFIIE«-JIT5.»0,?« 
7» HAITEIA.TTI 
7T FOUNATI/ZIH .ISHOADEA OF FOLTNOMIAL MEATEA THAN }tl 

CO TO 1 
7A HA|TEIA*74I 
lA FOAMATIy/IH ,31H HItM OAOEA COEFFICIENf IS lEAOl 

GO ro S 

AO HAITEIA.ASI 

•5 Fa«NAT(//IH .AWUNAILE XO OETEAMINE AOOT. THOSE ALIEaOr 

K NAITE(6,95t 

45 FOAHAT(//lH ,SX.4HAEAL AOOT ,AX, 1 ^HCOMFLE K AO0T//I 

00 «A I'UIOAO 
9« WAlTCU.lTIAOOrAIII (AOOTIIII 
9T FOANATI IN .2EIA.T1 

GO TO 9 
100 AETUAN 

END 



SNFA 10 

..SUM 20 

SNFA M 

SMFA 40 

MM SO 

SMFA «0 

SMFA TO 

SNM M 

SNFA 9C 
SNFA 100 

sam 110 

SMM 110 

SMM IM 

tllFIt 1A« 

SNK ISO 

SOFA lAO 

SMM ITO 

SMFA lAO 

I SUM 1«0 

SKfll 200 

SMFA 210 
SMFA 220 
SMFA 2M 
SMFA 240 
SMFA 2M 
.SOFA 2*0 
SMFA 2T0 
MM liO 
SMM 2M 
.SMFA 10« 
MFI 110 
SMFA »0 
SMFA 110 
SUM }40 
SNM ISO 
SMFA lAO 
SUM ITO 
SMFA lAO 
SMFA 190 
SMM AOO 
SNFA 410 
.SMFA 420 
SMM 430 
SNFA 440 
SMM 4S0 
SNFI ttO 
SNFA 470 
ING SUOAOUTSNFA 4A0 
1 2// IN .2MSNFA 410 
SMM 900 
SMM 910 
SNFA 920 
SMFA 910 
SMFA 940 
SNM 990 
SNFA 940 
SMFA 9 TO 
SMFA SAO 
SNFA 9*0 
MM too 
SMM tlO 
SMM 420 
SMM tlO 
SNM 440 
SNFA 490 
SNM ttO 
SNFA 470 
SNM tAO 
FOUMI AAEISMM AM 
SMFA TOO 
SMFA TlO 
SNM 720 
SNFA TM 
SNM 740 
SNM 790 
SNFA 7*0 
SNM 770 



SOLUTION OF SIMULTANEOUS EQUATIONS 



Problem Description 



A solution is obtained for a set of simultaneous 
equations by the method of elimination using largest 
pivotal divisor. Both the input data and the solution 
values are printed. This procedure is repeated until 
all sets of input data have been processed. 

Program 



Capacity 

The program will solve up to 50 equations. This 
can easily be changed as described under "Program 
Modification" below. 

Input 

Control Cards 

A parameter card with the following format must 
precede each matrix of coefficients: 



Columns 

1-2 
3-6 

7-10 
11-14 



Contents 

Blank 

Up to four-digit identifica- 
tion code (numeric only) 

Number of rows in matrix: 

Number of columns in 
matrix (same as number 
of rows) 



For Sample 
Problem 



10 
10 



Each matrix must be followed by a card with a 9- 
punch in column 1. This, in turn, is followed by 
the constant vector. 

A blank card after the last set of input data termi- 
nates the run. 



Data Cards 

Data Cards are assumed to have seven fields of ten 
columns each. The decimal point may appear any- 
where in a field. If no decimal point is included, it 
is assumed that the decimal point is to the right of 
the last digit. The number in each field may be 
preceded by blanks. Equation coefficients must be 
punched by row. A row may continue from card to 
card. However, each new row must start in the first 
field of the next card. The vector of constants is 
punched in continuous data fields following the 9 card. 
Columns 71-80 of data cards may be used for identifi- 
cation, sequence numbering, and so on. 



Description 

The solution of the simultaneous equations program 
consists of a main routine, SOLN, and four subrou- 
tines, MATIN, SIMQ, MX OUT, and LOC. SIMQ and 
LOG are from the Scientific Subroutine Package. 
MATIN and MXOUT are sample subroutines for 
matrix input and output (see program listings). 



Deck Setup 

The deck setup is shown In Figure 77. 

Sample 

A listing of input cards for the sample problem is 
presented in Figure 78. 
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A = Matrix of coefficients 
B = Vector of constants 




Subroutines and main program 
:luding system control cards) 



Sample 

The output listing for llie sample problem is shown 
in Fig^ure 79. 



Last problem 


M1«IK 




to UMS 




COLOtWS STOMCC fMiOC PMC 


t 






CdUM 1 




2 3 




4 




9 


« 




■ON 




O.IOOOOOE 01 


O.**440a£ 00 0.140101E 


OO 


0.»OTM)E 00 




.42«942C 00 


0.112V10E-Oi 




■o* 




0.**'V«41IE DO 


0.1OO000C 01 0.«2Tia0E 


00 


0.*LtM9C 0« 




.JStlSK 00 


0.271T0«-Oj 




aoit 




0.T40101E 00 


O.4i7H0e 00 O.IOOOOOE 


01 


O.rOMME 00 




.MSaSJC 00 


0.3U2ME-02 




warn 




o.fsorsot 00 


o.M-v^sc 00 o.ro«««4« 


00 


O.IOOMOC 01 




4004S1E 00 


O.ilOlfOC-O] 




ROM 




a.4z«i«2c 00 


0.]S4ftTC 00 0.4OM92C 


00 


o.4oo«nc 00 




lOOOOOC 01 


0.ir77aOE-QI 




•OH 




a.]J2910E-O2 


0.2T4I00fc-02 0.3l4I«oe-OI 


0.)iOJ90C-02 




17TTMC-02 


0.IOO000E 01 




•*"' 




O.T2«4?«C 00 


O.kOl 


oaa£ 00 o.6«T«*0E 


00 


0.*T«»tC 0© 




MIVOrE 00 


0.301 I90(-Ol 




•"" 




0.kM)T7E 00 


CSSriOTE 00 0.43r349E 


oo 


0.«Z«M»E 00 




MOMTC 00 


O.2ni9OE-02 




Ml. 




a.abiS9iE 00 


0.tl29TlC 00 O.ai3202E 


00 


0.«0CII4£ 00 




4*I110£ 00 


a.lST0$O£-02 




UW 1 




o.T4^«a4E 00 


o.*t44«oE oo o.rozfsat 


oo 


a.6->4>tiE oo 




3VT420E 00 


0.307«TCE~02 




MATMIX 




1 10 


ROUS 


10 COLUMNS 


STOftAGE 


HOOE 


PAGE 




COLUMN' T 




6 




9 




10 






ROW 




O.T2a4T9E 


00 


O.A7S17TE 00 




0.8A3991E 00 




0.744&84E 


00 




ROW 




0,6010886 


00 


0,55T10TE 00 




0.712573E 00 




0.614460E 


00 




mu 




0.6a766CE 


00 


0.637i4SE 00 




0.81520i?e 00 




0.7029S8E 


00 




ROU 




0.67'9201E 


00 


0.629SGSE CO 




0.805174E 00 




0.694311E 


00 




ROW 




0.3e696T£ 


00 


0.360SC7E 00 




0.*61llOE 00 




0.397620E 


00 




RGW 




0.3011S0E 


-i^Z 


0.2791S0t-C2 




0.3570505-02 




0.307a9OE 


-02 




KQU 




O.IOOOOOE 


01 


0.61C1I30E OC 




0.7812B7E OC 




0.fc737l3E 


00 




RON 




0.610fl30E 


00 


O.IOOOOOE 01 




0.72'4121E 00 




0.624418E 


00 




ROW 




o-7ai2a7£ 


00 


0.72412ie OC 




O.IOOOOOE 01 




0. 79a668E 


00 




ROU 10 


0.673713E 


DO 


0.62*4iaE OC 




0.798M8E 00 




O.IOOOUOE 


01 



Figure 77, Deck setup (solution of simultaneous equations) 



ORIGINAL a VECTOR 



/OaTA 

OOOIOOIOOOIO 
l.OOOOCOO 0.664M!85 
0.67S1766 0.8615910 
0.6644085 1.3000000 
0.5571068 0. 7125728 
0.7601C0S 0.&27I802 
0.6373449 Q.81S2021 
0.7507505 0.6194650 
0.62950*7 0.8051740 
0.4299423 0.3547574 
0.3605070 0.4611099 
0.0C33291 0.0027470 
0.0027915 0.C035705 
0.7284786 0.6010878 
0.610S296 0.7812874 
0.6751766 0.S57L068 
l.OOOOOOO 0.7241215 
0.S635910 0.7125728 
0.7241215 l.OOOOOOO 
0.7446845 0.6144597 
0.6244U3 0.7986682 



0.7S01008 
0. 7446845 
0.6271802 
0,6144597 
l.OOOOOOO 
0.7029582 
0.7086843 
0.6943103 
0.4058519 
0.3976204 
0. CO 31 426 
0.00 30789 
0.68 76602 
0.6737132 
0.63 73449 
0.6244183 
0.8152021 
0.T9 86682 
0.7029582 
l.OOOCOOO 



110. 
38.5 



-120. 
22. 



0. 750 7505 
0.6L94650 
0. 7086843 
l.OOOOOOO 
0.40035 93 
0.O031039 
0.6792011 
0.6295047 
0.6051740 
0.6943108 

145. 



0.4299425 
0.3547574 
0.4058519 
0.40C8593 
1.0000000 
0.0017776 
0.3889673 
3.3605070 
0.^611099 
0.3976204 

-50. 



0.0033291 
0. 0027470 
O.C031426 
0.0031039 
0.0017 776 
1.0000000 
0.0030119 1, 
0.0027915 
0. 0035705 0. 
0.0030789 0. 

44.2 



.7284766 
6010876 
.6876602 
.6792011 
,3689673 
.0030119 
0000000 
6108296 
7812874 
6737132 

-14. 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 



O.llOOOOE 03 
-0,120Q00E 03 

O.IOOOOOE 02 

0.14SOOOE C3 
-0.5Q0CCCE 02 

0.442000E 02 
-0.140000E 02 

o.sasoooe 02 

C.22000aE 02 
0.165OO0E 04 



SOLUTION VALUES 



Figure 78. Input listing (solution of slmuluneous equations^ 



-C.2a3124t C3 
-0.56724CE 03 
-0. 5164566 C3 
-C.299155t 02 
-0.179352E C;3 

0,435176t 02 
-0.479274E 03 
-0.23043CE 03 
-0.210172E 04 

0.4S0974E 04 



END Of CASE 



Output 



Figure 79. Output listing (solution of simultaneous equations) 



Description 

The original matrix is printed for any size array. 
Each page is headed with the matrix code number, 
dimensions, and storage mode (always in this sam- 
ple program) . Columns and rows are headed with 
their respective number. The original vector of 
constants is also printed. The solution values are 
then listed. This output is given for each case to be 
processed. 



Program Modification 

The size of the maximum problem to be solved can 
be increased or decreased by making the following 
changes in SOLN: 

1. Modify the DIMENSION statement to reflect 
the maximum number of elements for matrix A 
(= N X N) and the maximum number of equations (N) 
for B. 
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2. Insert the dimension size for A in the third 
argument of the CALL MATIN statement (statement 
25). 

The matrix listing is set for 60 print lines per 
page, 120 print positions across the page, and double 
spacing. This can be changed by means of the last 
three arguments in the CALL MXOUT statement in 
SOLN (statement 65) . The format of solution values 
can be altered by changing statement 21 in SOLN. 

Operating Instructions 

The sample program for the solution of simultaneous 
equations is a standard FORTRAN program. Special 
operating instructions are not required. Data set 
reference 5 is used for input, and data set reference 
6 is used for output. 
Error Messages 

The following error conditions will result in mes- 
sages: 

1. Reserved storage area is too small for 
matrix — DIMENSIONED AREA TOO SMALL FOR 
INPUT MATRIX (matrix code no.). GO ON TO 
NEXT CASE. 

2. Matrix of coefficients is not square — ROW 
AND COLUMN DIMENSIONS NOT EQUAL FOR 
MATRIX (matrix code no.). GO ON TO NEXT CASE. 

3. Number of data cards does not correspond to 
that required by parameter card -- INCORRECT 
NUMBER OF DATA CARDS FOR MATRIX (matrix 
code no. ). EXECUTION TERMINATED. 

4. Singular input matrix — MATRK IS SINGU- 
LAR. GO ON TO NEXT CASE. 

Error conditions 1, 2, and 4 allow the computer 
nm to continue. Error condition 3, however, termi- 
nates execution and requires another run to process 
succeeding cases. 



UTKIJI IS OlMaSIIMfS fM ZMO EUWMS. fWMHMC. MWtC* 
CaUtTIOm TO >E SOLKO C«IIMIT CKEfO H tMUSS BilCIMION 

sf*t»tciir 1$ cHoieea 



smcHsioN <i»ooiiei>oi 



Fatxtti 

f WHAT I 

FMHAtl 
fWNATI 
FOMUri 

rutMti 

FOItnAfI 
FOKNATI 
FMIIATI 
FMUr< 
FMUI4 
FOtNATI 



IHl.MtttOLUrim OF UMHTAIHaut EWMIIONSI 

lHO,«tMlll«NSia«CO WEA 100 S<UU FOK IWUI DArAIA .1*1 

IHO.ZCHiUCUTIOM TEANItlATCO* 

IHO.ATIWOII •» UHIMN OIKMlam HIT fgUAl FO* NATKIJI 

IH0.«2HIIICMMCt WimEA OF lATA CA«M FOA MTAIA .l«l 

IHO.IAHGO OM to MCIf CASE I 

IMO.MHSnUCTWi COM It DOT lEU FM MTAIA .l«l 

IHl.ITHOOICINAl • «CC>OII,////l 

lHl.liHSOI.Ut ION VA4.UCS.////I 

IHO.lAHMATAia IS SINMIAAI 

TFtO.OI 

ll.lOA.EU.tl 

IM.IIHEM) OF CASEI 



HAltE 4*. 101 

CALL RAtlMIC0a.A.2M0.ll.*.IIS.IEAI 

IFINI K.»>M 

IF<IEA-1I U.39.A0 

WITEIA.tll ICOO 

Sa TO 40 

HKItE<*.14t ICOO 

CO TO «S 

IFHt-NI SO.M.M 

MAItClA.ISI ICOO 

to TO M 

IFInSI M.Af.AO 

■AITEU.I4I ICOO 

CO TO «« 

CALL ll>OUTIICaO.A,A.II.)a.M.lIO.<l 

ACA0I>.»I<AIII.I-1.III 

MITEU.ITI 

DO TO l-l.ll 

HAITCIAfZLI I.AIII 

CALL SIINU.I.N.KSI 

IFUS-II M.n.M 

MtTE1A«l«l 

HAITEU.ISI 

GO to 2« 
I IMlTE46.lAt 

00 IS I-l.N 
• MITEi6f2ll l.tii) 

HAITEIA.Z2t 

GO TO 29 
I ACAOIS.ZOIIAIII.I-t.H) 

mltEI4.1SI 

CO TO 2S 
I MltEt4«l2l 

ftETURN 

ENO 



.SOLN 220 

SOLN aM 

ML* IM 
SOLN 21* 
SOLN 2M 
tOU 110 
SOLN 2M 
SOLN 2*0 
SOLN 100 
SCLN 110 
SOLN 120 
lAI SOLN 1» 
SOLN >40 
SOLN JM 
SOLN >M 
SOLN STO 

s«.a 100 
taLN tn 

SOLN *00 
tOLN 410 
SOLN 420 
SOLN 4S4 
....lOLN 440 
SOLN 4M 
SOLN 440 
SOL* 4T0 
SOLN 4A« 
SOLN 4«« 

sa.N >o« 

SOLN SIO 
SOLN >2« 

isia >M 

SOLN *4a 

SOLN n» 
SOLN MO 

SOLN STO 
SOLN MO 
SOLN >fO 

SOLN *0« 
SOLN 410 
SOLN 420 
SOLN 4M 
SOLN 440 
SOLN 4M 
SOLN 440 
SOLN 4T0 
SOLN 4*0 
SOLN 440 
SOLN TOO 
SOLN tlO 
SOLN T2e 
tOlN TM 
SOLN T40 
SOLN TM 
SOLI T40 
SOLN TTO 
SOLN TM 
SOLD T40 
SOLN (M 



Timing 

The execution time of this sample program on a 
System/360, Model 30, using an IBM 2540 Card 
Reader as input and an IBM 1403, Model 3 as output, 
is 21 seconds. 



SANFLE NAIN FA03AAN - SOLN 



SAT 



SINULTANCOUS MUAtlONS 



SOLN 10 

SOLN 20 

SOLN M 

SOLN 40 

SOLN M 

SOLN 40 

SOLN TO 

SOL( (0 

saiH M 

SOLN too 
SOLN 110 
SOLN 120 
SOLN IM 
SOLN 140 

HEtmB SOLN ISO 

A NAtAII OF SINULTANCOUS EOUAtlONS COCFFICIENtS AND A VECtONSOLN 1*0 
OF CONSIANtS A*E >EAO FAON THE STAMOAOO INFUT DEVICE. TMC SOLN ITO 
SOLUTION IS ItTAINES ANS LISTED ON THE STANOAM OWTFUT SOLN I«0 

DEVICE. THIS MOCCOlME IS KEFCATEO F0« OThCA SETS OF SOLN 140 

EOUATIONS UNTIL A tLANK CA«0 IS ENCOONTEOEO. SOLN 200 

SOLN 210 



SUBAOUTINfS ANO FUNCTION SUtFAOSMMS KEOUIAEO 
SINS 
NAT IN 

NSOUT 
LOG 
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SPECIAL SUBBOUTINES USED WITH SAMPLE 
PROGRAMS 

C 

C 

c: 

C USe-i-SUPPLIEiJ SPECIAL SUBROUTINE - BOOL \ 

C 

C THIS SPECIAL SUSROUTINE ILLUSTRATES AN EXTERNAL SUBROUTINE 

C CALLED 8V SUdROUTIME SU6ST. 

C 

C IF alFFERENT PRQPDSI T [ONS ARE USED FOR DIFFERENT PROBLEHS IN 

C THE SAME RUN, OIFFERENT SUBROUTINES WITH APPROPRIATE PROPOSI- 

C TIONS MUST ae COHPILEO UNUER DIFFERENT NAMES. IF SO, THESE 

C SU3«nuriNE names must be OEFINEO by an EXTERNAL STATEMENT 

C APPEARING IN THE MAIN PROGRAM WHICH CALLS SU6ST. THEN, FOR 

C EACH PRD8LEH, SUBST IS CALLEO WITH A PROPER SUBROUTINE NAME 

C IN ITS ARGUMENT LIST. 



20 



SUBROUTINE 800L(R,T» 
DIMENSION R( 11 



T=R(ll*R(2( 



RETURN 
END 



eOOL 

. . BOOl 

BOOL 

BOOL 40 

BOOL SO 

BOOL 60 

BOOL TO 

BOOL 80 

BOOL 90 

BOOL 100 

soot 110 

aOOL 120 

BOOL 130 
eOOL 140 
BOOL ISO 
BOOL 160 
.BOOL 170 
BOOL ISO 
ftOQI. 190 
BOOL 200 
BOOL 210 
BOOL 220 
aOOL 2 30 
800L 240 
BOOL 250 



3 FaRMAT(9H01NTERVAL,'iX,19n2.)X),12) 

4 FORMATI LHI,47X, UH HISTOGRAM ,131 

5 FORMAT! 10H0F«EQUtN:;r,20I5l 

6 F0RMATI6H CLASS) 

7 FORMAT! I13H 

I 



SAHCLE INPUr SUBROUTINE - DATA 

PURPOSE 

rtEAO AH OBSERVATION (M DATA VALUES) FROM INPUT DEVICE. 
THIS SUBROUTINE IS CALLED 6Y THE SUBROUTINE CORRE ANO MUST 
BE PROVIDED BY THE USER. IF SIZE AND LOCATION OF DATA 
FIELDS ARE DIFFERENT FR3M PROBLEM TO PROBLEM, THIS SUS- 
HOUTINE MUST BE RECOMPILED WITH A PROPER FORMAT STATEMENT. 

USAGE 

CALL DATA ( Mt DJ 

DESCRIPTION OF PARAMETERS 

M - THE NUMBER OF VARIABLES IN AN OBSERVATION. 

- OUTPUT VECTOR OF LENGTH M CONTAINING THE OBSERVATION 

DATA. , 

REMARKS 

THE TYPE OF CONVERSION SPECIFIED IN THE FORMAT MUST BE 
E ITHEA F OR E . 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

NUNE 



SUBftOUTIr4£ DATA (M,Dt 

DIMENSION D| 1) 

I FORMAT! 12F6.0) 

REflO AN 08SERVAMON FROM INPUT DEVICE. 

REA3 ( 'J, 1 1 (0111,1= l.M) 

INPUT DATA ARE WRITTEN ON LOGICAL TAPE 13 FOR THE RESIDUAL ANALY- 
SIS PE<«FORMcD IN THE SAMPLE MULTIPLE REf.RESSION PROGRAM. 

W^I TE (13) Il)( II ,1 '1,MI 
RETURN 

END 



20 



DATA 

>.OATA 
DATA 
DATA 
DATA 
DATA 60 
DATA 70 
DATA 80 
DATA 90 
DATA 100 
DATA 110 
DATA 120 
DATA 130 
DATA 1*0 
DATA ISO 
DATA 160 
DATA irO 
DATA 180 
DATA 190 
OATA 200 
DATA 210 
OATA 220 
DATA 230 
OATA 240 
OATA 2S0 
OATA 260 

.DATA 270 
OATA 2B0 
DATA 290 
OATA 300 
OATA 310 
DATA 320 
DATA 330 
DATA 3'tO 
DATA 3S0 
DATA 360 
OATA 370 
OATA 3S0 
OATA 390 
DATA '•00 
OATA 410 
DATA i,20 
OATA <^30 
DATA 440 



8 FaRMAT( IH ) 

9 fORMAT(AU 
10 FQRKATI IH* ( 

REWIND 13 
WRITEI13.1G) 
REWIND 13 
REA0(13,9I K 
REWIND 13 
WRI TE( 13. SI 
REWIND 13 
REAOI 13,9 ( NQTH 
REWIND 13 

PRINT TITLE AND FREQUENCY VECTOR 

HilITE|6,4l NO 

00 12 I'lflN 

12 JDUTI I t=FREO( I I 

WRITE(6,SKJ0Unil.l = l,IN) 
WRITEt6.7l 

FIND LARGESr FREQUENCY 

FMAX'0.0 

DO 20 1=1, IN 

IF(FREQ{ I)-FMAK) 20,20,15 
15 FMAX = FREa( I) 
20 CONTINUE 

SCALE IF NECESSARY 

JSCAL=1 

IF(FMAX-50.C1 40i40,30 
3C JSCAL=(FMAX+49.01/5C.O 
WRITEI6,1|K,JSCAL 

CLEAR OUTPUT ARS A TO BLANKS 

4C 00 50 1=1, IN 
5C JOUTI I I =NOTH 

LOCATE FREQUENCIES IN EACH INTERVAL 

HAX=FMAX/FLOAT( JSCALI 
00 60 1=1, MAX 

X=MAX-( l-l) 

03 7C J»1»IK 

IF{FREO(JI/FLOAT( JSCALI-KI T0,6C,6O 
6C J0UT(J|=K 
TC CONTINUE 

IX=X*FLnAT(JSCALI 

PRINT LINE OF FREQUENCIES 

80 WRITE!*. 21 U,( JOUTI J|,J = 1, INI 

GENERATE CONSTANTS 

00 90 1=1, IM 
■iC JOUTI I 1=1 

PRINT INTFRVAL NUMBERS 

WRITE I 4, 7) 

WRITE(6,3njnUT(J), J=1,IN) 
WRITE I 6, 6) 
RETURN 

END 



HIST 370 
HIST 380 
HIST 390 
HIST *00 

HIST 410 

HIST 420 
HIST 430 
HIST 440 
HIST 450 
HIST 460 
HIST 470 
HIST 460 
HIST 490 
HIST 500 

HIST 510 
HIST 520 
HIST 530 
HIST 540 
HIST 550 
HIST 560 
HIST 570 
HIST 580 
HIST 590 
HIST 600 
HIST 610 
HIST 620 
HIST 630 
HIST 640 
HIST 650 
HIST 660 
HIST 670 
HIST 680 
HIST 690 
HIST 700 
HIST 710 
HIST 720 
HIST 750 
HIST 740 
HIST 750 
HIST 760 
HIST 770 
HIST T80 
HIST 790 
HIST 800 
HIST 810 
HIST 320 
HIST 830 
HIST 840 
HIST 850 
HIST 860 
HIST 870 
HIST 880 
HIST 890 
HIST 900 
HIST 910 
HIST 920 
HIST 930 
HIST 940 
NIST 950 
HIST 960 
HIST 970 
HIST 960 
HIST 990 
HISTICOO 
HISTIOIO 
HISTI020 
HIST1030 
HIST1340 
HIST1050 
HIST1060 
HIST107Q 
HISTI080 
HIST1090 
HISTUOO 
HISTlllO 



FUNCTION FUNIX.YI 

FUN=1./X 
RETURN 

END 



FUN 
FUN 
FUN 
FUN 
FUN 



SUBROUTINE HIST 



PRINT A 



HISTJGmN of FKCQUEMCieS VCftSUS INTEHVALS 



10 



*0 



«0 
TO 



JSAGE 

CALL HIsriNU*FHga,lNt 

DESCRIPTION OF PMAHETEItS 

NU - HISrOSRAH NUMBER (3 OiClTS NAIIMUHI 

FRea - vEcroR of meouemcies 

IN - NUMBER OF INTERVALS ANO LENCTH OF FKEO <ftU U 201 



NIST 

,.Misr 

HIST 
HIST 
HIST 

Hisr 

HIST 

HIST 
HIST 
HIST 100 

Hisr 110 

HIST 120 

HIST IM 

HIST l«0 

HIST IM 



NORHALLV, FREQIll CONTAINS THC FttEWICNCV SNAILCR THAMHIST 1*0 
THE UyEA SOUND «W> fREOIIMI CONUIItS THE mCflUCHCV HIST t7« 



LARGER THAN THE UrrCN BOUIW 

REMARKS 

FREOUENCIES MUST BE POSITIVE MUNBfftS 

SUSItOuriNES AND FUNCTION SUBFKOCIUMS ttCOUIHEO 

NONE 

METHOD 

THt LARGEST FRGOUEKr 1$ OETCAHINEO AND SCALING IS USED 
IF REQUIRCO 



SUBROUTINE HISTINU. NtEa,rN| 
OINENSION JOUTI20I.FftEQ<2CI 



1 FMNAr(6H EACH ,Al,8H EQUALS .I2,TH POINTS,/! 

2 FOHNATI I4,4I(,20I4K,A|| I 



NIST IM 
HIST i«0 
HIsr 20« 
Hisr 210 
HIST 220 

HIST 2>e 

Nisr nc 

HIST 290 
HIST 2*0 
HIST 270 
HIST 2M 
HIST 290 
.•HCST MO 
HIST 110 
Hisr S20 
NIST IM 

Hisr S40 

NIST iSO 
HIST »M 



SUBROUTINE PLOT 

PURPOSE 

PLOT SEVERAL CKOSS-VAItUALES VERSUS A OASf VARIAOLC 

USA6E 

CALL PLOT (N3,AfN«N(NL«NSI 

OESCAIPTtON OF PAAANCTEftS 

NO - CHART NUNBEfl 13 OIGITS HAXINtMl 

A - HATRU OF 3ATA TO BE PLOTTEO. FIRST COLUMN HCPRESfMTS 

»A$E VARIABLE AND SUCCESSIVE COLUMMS ARC THE CWKS- 

VARIABLES (NAXINUH IS 9|. 
N - NUMSeR CtF ROHS IN NATRtX A 
4 - NUNaCR OF COLUMNS IN NATRll A UQUAl TO THE TOTM. 

NUMBER OF VARIABLES!. HAXINUM IS lO. 
NL - NUMBER 3F lINES IH THE PLOT. IF IS SPCCIFIEO* SO 

LINES ARC USED. 
MS - CODE FOR SORTING THC BASE VARIABLE DAT* IN ASCENDING 

OROER 

SORTING IS NOT NECESSARY (ALRCAOT IN ASCENOINC 
ORDER! . 

1 SORTING IS NECESSARY. 

REMARKS 
NONE 

SUBROUTINES AND FUNCTiON SUBPROGRAMS REQUIRCO 
NONE 



SUBROUTINE PLOr(N0.A,N.H,M.,NS! 
DIMENSION aurUOII.rPR(ll!,ANG(9l,AU> 

1 C3RMAT(1H1,6CI(,TH CWRT ,13,//! 

2 FORHAIMH .Fll.4,5ll , lOlAt I 
) FOAMATI IH ! 

4 FORNATIIOH 1234»67«9I 

5 FDRNATf lOAll 

7 FQRMATdH .1AK,10M. 

I . 

• FORMAT! IHO,9X,11FIO. 41 



HOI 10 
•PLOT 20 
PtOT SO 

ftOT 40 
PLOT 90 
PLOT *0 
PLOT TO 
PLOT 00 
PLOT M 
HOT 100 
PLOT ISO 
PLOT 120 
PLOT IM 
PLOT 140 
PLOT 190 
PLOT 1*0 
PLOT 170 
PLOT 100 
PLOT 100 
PLOT 200 
PLOT 210 
PLOT 220 
PLOT 2M 
PLOT 240 
PLOT 250 
PLOT 2*0 
PLOT 2T0 
PLOT 280 
PLOT 2«0 
PLOT MO 
PLOT 310 
PLOT 320 

K6t ii6 

..PLOT 340 
PLOT 350 
PLOT 360 
PLOT 370 
PLOT 300 
PLOT 340 
PLOT 400 
PLOT 410 
PLOT 420 
PLOT 430 
PLOT 440 
PLOT 4<0 
PLOT 4*0 
PLOT 470 

.PLOT 480 
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NLL=NC 
IF(MS) 16, 



r 






c 




SORT BASE VARI 


c 








10 


00 15 1»L.N 
03 U J-I,N 
IFIAt 1 )-&< J>> 1*1 




11 


LL»J-N 

00 12 K = UM 

L=L*N 

LL=LL*N 

F=A(L) 

AILI=A(LL> 




u 


AILL1=F 




14 


CONTINJE 




IS 


CONTINUE 


c 






c 




TEST NLL 


c 








16 


IF(NLL> 20i 18, : 




18 


NLL -50 



PRINT TITLE 

20 WillTEI6.1tN0 

DEVCLOP BLANK AND DIGITS F3R PRINTING 

REMIND 13 

WRITE (13.4) 

REWIND 13 

READ 113, 5> BLANK,IANG( I).I = 1.9) 

REWIND 13 

FIND SCALE FOR BASE VARlAeLE 

XSCAL"(A(N)-AIin/(FLOAT(NiL-UI 

FIND SCALE FOR CROSS-VARIABLES 

M1=N*1 
YMIN=A(Ht) 

rMAX=yNiN 

M2=M*N 

DO 40 J=H1,H2 

iF(A( J)-VHIN» 2Bt26.26 
26 IFt A) Jl-YHAXI AO.40.30 
28 yMIN=A{J» 

GO TO 't'^ 
30 YMAK=ftl J) 
4C CO.'iTINUE 

YSCAL = ( YMA){-YMiN)/lOO.r 

FIHD BASt VAR1A3LE PRINT POSITION 

1(B=A( 11 
1 = 1 
HY = ,1-1 
1 = 1 
45 F=I-l 

XPR=Ke*F*XSCAL 
IFfAlLt-XPR) 50,50tT0 

FIND CROSS-VARIABLES 

5C OD 55 IX=l,l01 
55 OUTI IXI -BLANK 

00 60 J«i,HY 

LL=L*J*N 

JP=t(Al LLl-YMIN»/VSCAL)*1.0 

OUTIJP)=ANSIJl 
60 CONTINUE 

PriINT LINE ANO CLEAR, OR SKIP 

WRIT£I6,21XPH.,(0UT( I Z ) . IZ-1 . 101 1 
L=L*1 

GO TO 30 
70 KRir6li.31 
80 1=1*1 

IF(1-NLLI 45, 84, B6 
84 XPR=AINl 

GO TO 50 

PRINT CROSS-VARIABLES NUMBERS 

3& HRITE(&,7) 
rPRllt=YHIN 

00 90 KN=l,9 
9G VPRlKN+ll-YPftIKNl*YSCAL*10.0 
YPRI11I=Y«AX 

MRIfE(6,8KVPR(IP), IP = l.ll) 
RETURN 
END 



PLOT 490 
PLOT SCO 
PLOT 510 
PLOT 520 
PLOT 530 
PLOT 540 
PLOT 550 
PLOT 560 
PLOT 570 
PLOT 580 
PLOT 590 
PLOT 600 
PLOT 610 
PLOT 620 
PLOT 630 
PLOT 640 
PLOT 650 
PLOT 660 
PLOT 670 
PLOT 680 
PLOT 690 
PLOT 700 
PLOT TIO 
PLOT 720 
PLOT 730 
PLOT 740 
PLOT 750 
PLOT 760 
PLOT 770 
PLOT 780 
PLOT 790 
PLOT 800 
PLOT 810 
PLOT 820 
PLOT 830 
PLOT 840 
PLOT 850 
PLOT 860 
PLOT 670 
PLOT 880 
PLOT 890 
PLOT 900 
PLOT 910 
PLOT 920 
PLOT 930 
PLOT 940 
PLOT 950 
PLOT 960 
PLOT 970 
PLOT 980 
PLOT 990 
PLOT 1000 
PLOTIOIO 
PLOriOZD 
PLaT1030 
PLOT 1040 
PLOT 1050 
p(.oria60 

PL0T1070 
PLOT1080 
PL0T1090 
PLOT 1100 
PLOT 11 10 
PLQT1120 
PLOT 1130 
PLOT LI 40 
PLOritSO 
PLOTIUO 
PL0T1170 
PLOTLieO 
PL0ni90 
PLOT 1200 
PLOT 12 10 
PLOTi220 
PL0T1230 
PLOT 1240 
PL0T1250 
PL0T1260 
PLOT1270 
PLOT 1280 
PLOT1290 
PLOT 1300 
PLOT 13 10 
PLOT1320 
PLOT1J30 
PLOT I 340 
PLOT 1350 
PL0T1360 
PLDT1370 
PLOT1380 
PLOT I 390 
PLOT1400 
PLOT1410 
PL0T1420 
PL0T1430 
PLOT 1440 
PLOTUSO 
PL0T1460 



SUBROUTINE NATIN 

READS CONTROL CARD ANO HATRU DATA CLENtNTS FROM LOGICAL 
UNIT 9 X 

USAGE 

CALL HATlNt llOOE.A.ISlZe* 



:rou,icol«is,ier) 



lATI 


10 


HATI 


20 


IliTI 


30 


HATI 


M 


«»T1 


50 


HATI 


60 


HATI 


TO 


HATI 


80 


HATI 


90 


HATI 


100 


HATI 


110 


MAri 


120 


HATI 


130 


HATI 


lAO 


HATI 


190 


HATI 


160 


HATI 


1 10 


HATI 


110 


HATI 


190 


HATI 


200 


HATI 


210 


HATI 


220 


HATI 


230 


HATI 


260 


KATl 


250 


HATI 


260 


HATI 


2 TO 


HATI 


2B0 


HATI 


290 


HATI 


300 


HATI 


310 


HATI 


320 


HATI 


330 


HATI 


3*0 


HATI 


nc 


HATI 


360 


HATI 


370 


HATI 


380 


HATI 


390 



OeSCRIPTIOH OF PARAMETeRS 

ICOOE-UPON RETURNt ICOOE HILL CONTAIN roUft DIGIT 

IDENTIFICATION CODE FRON MATRIX ^ARAHETER CARD 
A -DATA AREA FOR INPUT MATRIX 

1SI2E-NUNBER OP ELEMENTS DIMENSIONED BT USER FOR AKA A 
IRQU -UPON RETURN, IROH HILL CONTAIN ROW OINENSION FRON 

MATRIX PARAMETER CARD 
ICOL -UPON RETURN, ICOL MILL CONTAIN COLUMN DIMENSION FROM 

MATRIX PARAMETER CARD 
IS -UPON RETURN, IS HILL CONTAIN STORAGE MODE CODE FROM 

MATRIX PARAMETER CARD WHERE 

IS-O GENERAL MATRIX 

IS*1 SYMMETRIC MATRIX 

15-2 DIAGONAL MATRIX 
lER -UPON RETURN, lER HILL CONTAIN AN ERROR CODE WHERE 

IER*0 NO ERROR 

IER-1 ISIZE IS LESS THAN NUHBEft OF ELENENTS IN 
INPUT MATRIX 

IER-2 INCORRECT NUMBER OF DATA CARDS 

REMARKS 
NONE 

SUeROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 
LOC 

"^^SUBROUTINE ASSUMES THAT INPUT MATRIX CONSISTS OF PARAMETER MATI 400 
CARD FOLLOWED BY DATA CARDS ""j **° 

PARAMETER CARD HAS THE FOLLOWING FORMAT NATI 420 

rm I— i &t_ANK MAT I 430 

COlI 3- 6 UP 10 fOUn DIGIT lOENTIFICATION CODE HATI »*0 

COL. 7-10 HUHSCR OF ROUS IN HATAK HATI 450 

COl. 11-14 MUHBER OF COLUMNS IN HATRIX "'I 460 

COL. 15-16 STORAGE HOOE OF HATRIX WHERE 

- GENERAL HATRIX 

1 - SVNHETRIC HATRIX 

2 - OIASONAL MATRIX 
OATA CARDS ARE ASSUHEO TO K»»E SEVEN FIELDS OF TEN COLUMNS MATI 510 
EACH. DECIMAL POINT MAT APPEAR ANYUHCRE IN A FIELD. IF NO HATI 520 
DECIMAL POIMI IS INCLUDED, IT IS ASSUMED THAT THE OECIHAL 
POINT IS AT THE END OF THE 10 COLUHN FIELD. NUMBER IN EACH 
FIELD HAT BE PRECEDED BT BLANKS. DAT* ELEHENTS MUST BE 
PUNCHED 3Y RJU. A ROM HAT CONTINUE FROM CARD TO CARD. 
HOHEVER EACH NEU RON NUST START IN THE FIRST FIELD Of THE 
NEXT CARD. 3NLT THE UPPER TRIANGULAR PORTION OF A STHMEIRICHATI 580 
DR THE DIAGONAL ELEHENTS OF A DIAGONAL MATRIX ARE CONTAINED HATI 590 
ON DATA CARDS. THE FIRST ELEMENT OF EACH HEU RDU WILL BE HATI 600 
THE OIAGOMAL ELEMENT FOR A MATRIX WITH STHHEIRIC OR HATI 610 
DIAGONAL STORAGE HOOE. COLUHNS 71-80 OF DATA CARDS HAT BE HATI 620 
USED FOR lOENTIFICATION. SEOUENCE NUHBERING. ETC. HATI 630 
THE LAST OATA CARD FOR ANY MATRIX MUST BE FOLLOWED BY A CAROHATI 640 
WITH A 9 PUHCH IH COLUHN I. JATI 650 

HATI 660 
, MATI 670 



MATI 470 
HATI 480 
HATI 490 
MATI 500 



MATI 530 

HATI 540 

HATI 550 

HATI 560 

HATI 570 



A.ISlZe.lROW.ICOL.IS.lERI 



SUBROUTINE MATINUCODE, 

DIMENSION AMI 

DIMENSION CARD! 81 
L FORMATITFIO.OI 
2 FORMATI 16,214,121 

lOC-7 

IER*0 

READI 5,2»lC0OE,IRaW.ICOL.lS 

CALL LOCIIROW,ICOL,ICNT,IROW,ICOL,IS» 

IF(ISUE-1CNTI6,7,7 

6 [ER*1 

7 IF 1ICNTI3B.38.S 

8 ICOLT-ICOL 
IROCR- 1 

COMPUTE NUMBER 3F CARDS FOR THIS ROW 

11 IRCDS-IICQLT-II/IOC*! 

1F(IS-1>15,15,12 
L2 IRCDS>1 

SET UP LOOP FOR NUMBER OF CARDS IN ROM 

15 DO 31 K«1,IRCDS 
READ<5.1)(CAROIIl,I-l«IOCI 

SKIP THROUSi OATA CARDS IF INPUT AREA TOO SHALL 

IF([ERI16,16.3l 

16 L'O 

COMPUTE COLUMN NUMBER FOR FIRST FIELD IN CURRENT CARD 

J S- ( K- 1 I* IOC ♦! COL- 1 COL T* 1 

JE>JS«IDC-1 

IF(IS-1I19,19,17 

17 JE-^JS 

SET UP LOOP FOR OATA ELEMENTS WITHIN CARD 

19 DO 30 J-JS*JE 
IFIJ-ICOL)20t20,31 

20 CALL LOCdROCR , J, IJ. IROW. ICOL. I SI 
L-L»l 

30 AflJMCAROUJ 

31 CONTINUE 
IROCR-IROCR*! 
IFdROM-IROCRt 38,35^35 

35 IFIIS-t 137,36,36 

36 IC0LT«ICOLT-l 

37 GO TO It 

38 READC5, 11 CAROOI 
IF(CM0(ll-9.e9}39,40.39 

39 IER>2 

40 RETURN 
END 



NATI 680 
NATI 690 
HATI TOO 
MAT! 710 
MATI 720 
MATI 730 
MATI 740 
MATI 750 
MATI 760 
HATI 770 
HATI 780 
HATI 790 
HATI 800 
HATI 810 
HATI 820 
HATI 830 
HATI 840 
HATI 650 
HATI 860 
HATI 8TD 
HATI 88C 
HATI 890 
HATI 900 
HATI 910 
HATI 920 
NATI 930 
HATI 940 
HATI 950 
HATI 960 
HATI 970 
MATI 980 
MATI 990 
HATIIOOQ 
MAT no 10 
NATI 1020 
MAT I 1030 
HATU040 
MAT 1 1 050 
HAT 1 1060 
HAT11070 
HAT 1 1080 
MAT 11090 
HAT 1 1 100 
MAT 1 1110 
NATI1120 
HAT II 130 
HAT 1 1 140 

HiTimO 

HAT 1 1160 
HAT11170 
HAT 11 180 
HATII190 
HAT 1 1200 
HATI1210 
HATI122D 
HAT11230 
HATI 1240 
N*riI2S0 
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SUBftOUTINE MXOur 

PJHPOSE 

PRODUCES 4M JUTPUT LISTING OP ANY SUED ARRAY ON 
LOGICAL UNIT 6 

USA&C 

CALL HXauTlICOOEi A.N.M.HS.LINS.IPOS.ISPI 

OeSCRIPTION JF PA<tA*1ETERS 

ICOOE- INPUT CODE NUHBEA TO BE PRINTED ON EACH OUTPUT PAGE 
-A-NAHE OF OUTPUT MATRU 
N-NUHeeft OF RONS IN A 
H-NUHBER OF COLUMNS IN A 
iS-STORAGE HOOe OF A WHERE MS* 

O-GENERAL 

1-SVMMETRrC 

2-0IA30NAL 
LINS-NUHBER OF PRINT LINES ON THE PAGE (USUALLY 601 
IP0S-NUH6ER OF PRINT POSITIONS ACROSS THE PACE lUSUALLY 132 
ISP-LINE SPACING CODE, t FOR SINGLE SPACE, 2 FOR ODUBLE 
SPACE 

REMARKS 
NONE 

SUBROUTINES AND FUNCTION SUSPilQGftAnS REQUIRED 

LOG 

HtTHOO 

THIS SUBROUTINE CREATES A STANDARD OUTPUT LISTING OF ANY 
SIZED ARRAY MlTH ANY STORAGE NODE. EACH PACE IS HEADED WITH 
THE CODE NUMBER, DIMENSIONS AND STORAGE HOOE OF THE ARRAY. 
EACH COLUMN AND ROM IS ALSO HEADED MITH ITS RESPECTIVE 
NUMBER . 



10 
20 



TO 



SUBROUTINE MXOUT f I CODE r A.N,H,MS,L1NS t IPOS « ISP) 
OIMENStm A(1I,B(8I 

1 FQRMATdHl.SX, 7HMATRIX , I 5,6X, I 3, 5H R0WS,6X. 1 3, BH COLUMNS, 
1BX,13HST0RAGE MODE ,1 1 , SX, 5HPACE ,I2*/I 

2 FORMAT! IZX.BHcOLLfHN .7(3K,I3,lOX)l 

3 FORMAT! IH 1 

4 FORMAT(lH ,7K,4H«0i* . I 3, 7(E16>6) I 

5 F3HMAT( IHO^TX.^HtOi^ , I 3 .7 (E 16. 6) I 



MRITE HEADING 

NEN0=IP0S/16-1 

LEN0*{LINS/ISP)-2 

IPAGE=l 
10 LSTRT.l 
20 MRITE(6,LIIC00E,N,M,MS,IPAGE 

JNT*J»NEN0-1 

1PAGE>IPACE4^L 

31 IFIJNT-MI33f 33,32 

32 JN7-M 

33 CONTINUE 
U(tirE(6,2MJCUR.JCLIR=JtJNT) 
IF(ISP-U 35.35,40 

35 WRirE(6,3l 
*0 LrENO=LSTHT*-lEND-l 
00 80 L«LSIRT,LTENO 

FORM OUTPUT ROW LINE 

DO 55 K=I,NeND 

KK=K 

JT = j+K-l 

CALL LOC(L,JT.lJ*«T,N,M,HS> 

B(K)=0.0 

IF( !JNT»50,fiG,45 
45 8(K)>A( IJNT) 
50 CONTINUE 

CHECK IF LAST COLUMN. IF YES GO TO 60 

IFIJT-Mt 55,60,60 
55 CDNTINUe 

£N0 OF LINE, NOW HRIT{ 

6C IP( ISP-ll65,65,rO 

65 HRtT£l6,4)L.(BI JH), JM=t,KK) 

GO TO 75 
7C WRITEI6.5)L. I3(JMI . JW=I .KKI 

IF END OF ROMS, 30 CHECK COLUMNS 

75 lFlN-1185,95,80 
BO CONTINUE 

ENO OF PAGE, NOW CHECK FOR MORE OUTPUT 

LSrRT=LSTRT»LENO 

GD ro 20 

mo Of COLUMNS, THEN RETURN 
85 1F( JT-'4)90,<»S,95 

90 j«jru 

GO TO 10 

95 KETURN 
ENO 



HXOU 
.HXOU 
HXOU 
HXOU 
HXOU 
HXOU 
HXOU 
HXOU 
HXOU 

HXOU 100 
MXOU 110 
HXOU 120 
HXOU 130 
HXOU 140 
HXOU ISO 
MXOU 160 

MXOU iro 
HXOU 180 
HXOU 190 
HXOU 200 
HXOU 210 
HXOU 220 
IHXOU 230 
MXOU 240 
HXOU 250 
HXOU 260 
MXOU 270 
MXOU 280 
MXOU 290 
HXOU 300 
HXOU 3i0 
HXOU 320 
MXOU 330 
MXOU 340 
HXOU 350 
HXOU 360 
HXOU 370 
HXOU 3S0 
HXOU 390 
.HXOU 400 



HXOU 4L0 
MXOU 420 
MXOU 430 
HXOU 440 
HXOU 450 
HXOU 460 
HXOU 470 
HXOU 480 
HXOU 490 
MXOU 500 
HXOU 510 
MXOU 520 
HXOU 5 30 
MXOU 540 
HXOU 550 
MXOU 560 
MXOU 5 70 
HXOU 580 
HXOU 590 
HXOU 600 
HXOU 610 
HXOU 620 
HXOU 630 
HXOU 640 
MXOU 650 
MXOU 660 
HXOU 670 
HXOU 680 
MXOU 690 
HXOU 700 
HXOU 710 
HXOU 720 
HXOU 730 
MXOU 740 
MXOU 750 
HXOU 760 
HXOU 770 
HXOU 780 
HXOU 790 
MXOU 800 
HXOU 810 
HXOU 820 
HXOU 830 
MXOU 840 
HXOU B50 
HXOU B60 
HXOU 870 
HXOU 880 
HXOU 890 
HXOU 900 
HXOU 910 
HXOU 920 
MXOU 930 
MXOU 940 
HXOU 950 
HXOU 960 
HXOU 970 
HXOU 980 
HKQU 990 
MXOUIOOO 
HXOUlOlO 
HX0U1020 
MXaU1030 

Hxaui04a 

HX0U1050 
MXDU1060 
HXOU 10 70 
HKOUIOBO 
HX0Ui090 
HXOUUOO 



SAMPLE nurPUI SUBROUTINE STOUT 

PURPOSE 

^*\i«! ^"^ RESULT CF A STEP-WISE MULTIPLE REGRESSION. THIS 
SUBROUTINE IS CALLED 9Y THE SUflfiCUTlNE STPRG. 



STOU 

.srou 

STOU 
STOU 
STOU 
STOU 
STOU 
STOU 
STOU 



USACC 

CAU STOUT (NSTEP,ANS,l«».S»r,l«$TOfl 



MSIEPOI 
NSTEP14I 
NSTEPISI 



ANSOt 
ANSUI 
ANSI 91 
ANSI6J 
ANSI 71 

ANSiai 
ANSIft 



srou 100 
srou 110 
srou 120 

STOU ISO 
STOU 140 

srou ISO 

STOU I60 
STOU 170 
STOU 160 
STOU 190 
STOU 200 
STOU 210 
STOU 220 
STOU 230 
STOU 240 
STOU ISO 
STOU 240 
STOU 270 
STOU 2f0 
STOU 290 
STOU 300 
STOU 110 
STOU S20 
STCHJ 330 
STOU »40 
STOU 350 
STOU 360 



OESCftirriON OF MftAHETEBS 

•ISTCP - INPUT VKTOR OF LCNCTH 5 COMTAlNINC THE FOLLOIIING 
INFOIWATIDH.. "•■i-u-i.w 

NSTErill DErCllOENT VARIAIU 

NSTEPtZI NUHtEH OF VARIABLES FOtCEO TO Ef^TEIt 
IN THC *EC«eSSION 
HUMER OF VAItlMLfS DCICTEO 
THE LAST STCr NUNMA 
THE LAST VAftlAM.E ENTCRCO 
AUS - INPUT VKTOK OF LCMGTN 11 CONTAINING THE FOILOWINC 
INFORHATIOH FOR THC LAST STEP., 
ANSUI SUM OF SQUARES REOUCCO 
ANSI 21 MOPORTrON REDUCED 

CUMULATIVE SUN OF S«UAItC£ REOUCCO 
CUMULATIVE PROPORTIOM REDUCED 
SUM OF SQUARES OF THC DERENOENT VARIAftLE 
MULTIPLE CORRELATION COEFFICIENT 
F-VALUC FOR ANALYSIS VARIANCE IFOR THE 
RECRESSIOHt 

STANDARD ERROR OF CSTIHATE 
INTERCEPT 
ANSdOl ADJUSTED MULTIPLE R 

ANSIIll ADJUSTED STANDARD ERROR OF FSTINATE 
L - INPUT VECTOR OF LENGTH K (K*M-llSTEPOt-ll CONTAIN- 

ING VARIABLES ENTERED IN THE REGRESSfPN. Llll-FIRSTSTOU 370 
VARIARLE ENTEREO* L<2l-SECONO VARIAOLE ENTERCO. ETC.STOU ISO 
t - INPUT VECTOR OF LENGTH K IK-N-MSTEPI) t-l J CONTAIN- STOO Uo 

ING REGRESSION COEFFICIENTS CORRESPONOINC TO THE 
VAKIAALES IN VECTOR L 
S - INPUT VKTOR OF LENGTH K IR.H-NSTEPOI-II CONTAIN- 

ING STANDARD ERRORS OF REGRESSION COEFFICIENTS 
COOESPONOING TO THE VARIABLES IN VECTOR L 
T - INPUT VECTOR OF LENGTH K U>H-NSTEP(3I-1 1 CONTAIH- 

IHG COMPUTED T-VALUES CORRESPOmOING TO THE VARI AALESSTOU 4«0 
IN VECTOR L STOU 4T0 

Ksror - ouTfuT vTim COK to stop the srEr-ki<!E kemessidn stou 4,o 

1 - IF THE STCr-mSE HEMESSION IS TO >E TEMI- STOU ♦« 

NiTEo •> SOKE crtiTEnK ofHEii THAN ntaronrioN 

OF SUM OF SOUtdESi SUCH ti F-TEST tNO SO ON. 
THIS SUMDUTIW MY IE HgOIFIED To PEKFOItK 
OESItEO TESTS. UHEN IT •(COKES NO LONGEIt 
NECESSttr TO CONTINUE THf STEF-ylSE KECIIES- 
SION, SET HSTOF EOUU. TO 1. 
- IF THE STEF-UISE >EMESSION IS TO tE CONT I NUEOSTOU Ho 

.E-«« "0" »" 

THE CONTENTS OF THE »ECTai<S NSTEF, US. t ADE HEguIllEO IN 
SUESEOUENT STEPS MO NUST NOT it OESTPOTEO. 

SUMOUTINES ANO FUNCTION SuePROGFAHS AEOUlPEO 
NONE 



STOU *00 
STOU 410 
STOU 420 
STOU 430 
STOU 440 
srou 450 



STOU SCO 

srou no 

STOU S20 
STOU 930 
STOU <40 
STOU 5S0 



SUMOUTINE STOUT INSTEP.ANS.l.t.S.T.NSTOFI 
OINENSION NSTEPI II .ANSUI. LID. Bill. SI 1 1 .Till 



IF < OOU»lE PKECISION VEPSION OF THIS HOUTINE IS DESIHEO. THE 
C IN COCUHN I SNOULO tE PENOVEO FHOH THE 0OU,LE PPECISION 
STATEMENT NHICN FOtLOKS. 

OOUSCE PKECISION ANS.B.S.T 

THE C NUST ALSO EE KENOVEO FHOM DOUBLE PRECISION STATENENTS 
APPEAAINC IN OTHCA AOUTINES USED IN CONJUNCTION KITH THIS 
AOUTINE. 



.FI3.3I 
.F13.3I 
.F13.3I 
.Ft3.3,4H 



t FORNATI/SHlSTEPni 

J F0WIATI22NaVA«IAKE ENTEAEO IJI 

3 F0PIIATI40H0SUN OF SQUARES HEOUCEO IN THIS STEP. 

4 F0NHATI40H PROPORTION REOUCEO IN THIS STEP..*.. 

5 FOAPATIAOHOCUHUIATIVE SUN OF SOUARES REOUCEO.., 
A FOPNATI40X CUNUl*T1*£ P«OPO«TION BEDUCEO , 

131 

T FORNATIAMOFOflS.iaH VARIABLES ENTEREOI 
B FOMATUBN NUITIPIC COHBELAIION COEFFICIENT.. .F,. 31 
, FONHATISBH F-VALUE FOP ANALYSIS OF VAItl ANCE...F,.3I 

10 F0a«ATI3aH STANOABO EUOB OF ESTINATE F,.3I 

11 F0BNATI/S7M VAftlABlE BESBESSION STO. EPROB OF 
IEO/,«H N'JHBER COEFFICIENT REG. COEFF. 

IE F0BIIATI9«,I3.Fla.3,FU.S.FI4.3l 

13 F0»NATII2H INTEBCEPTFI4.SI 

14 FONHATISIHOOEPENOENT VAAI^BLE... ........ .121 

15 F0MATI31H NUMBER CF VARIABLES FORCEO... .121 
lA FORNATISln NUNBER OF VARIARES 0ELETED...I2I 
IT FORNATI20H IFORCEO VARIABLE! I 

II F0BMATI3BH lADJUSTED FOR O.F.I F,.3I 

TEST WHETHER THIS IS THE FIRST STEP 

IFINSTEPI4I-II 30. 30. 33 
SO URITE IA.14I NSTEPIll 
■RITE lAtlSI NSIEPI2I 
MRITE 14.1*) NSTEPtJI 

PRINT THE RESULT OF A STEP 

39 MIITE IB. II NSTEPI4I 

NRITE IB.ZI NSTEPI9I 

|F<NSTEPI4I-NSTEP(2II 37, 3T, 3B 
3? MIITE U.iri 
SB MITE IA.3I ANSUI 

HRITE 14.41 ANS121 

Wire (*.5I MSI3I 
MITE U,<l MSUI, MSISI 
■RITE I*, 71 NSrEPI4l 
■RITE 14. Bl ANSIAI 
■RITEIB.IBIANSIIOI 
■RITE lt,,l ANSI7I 
■RITE 14.101 ANSIBI 
WITfU.lBIANSIIll 
■RITE I..11I 
H>NSTEPI*I 
00 40 I>I,N 
40 NRITE 14,121 IIII.BUI, Sill, Till 
■RITE 14,131 ANSItl 

NSTOP-0 

RETURN 

ENO 



srou soo 

STOU 5.0 
STOU too 
STOU 410 
STOU 420 
STOU B30 
STOU 440 
STOU 450 

..srou BBo 

STOU 4T0 
STOU ABO 
STOU 4,0 
STOU TOO 
STOU TIO 
.srou 720 
srou 730 
srou 740 
srou 750 

STOU T40 
srou 770 
STOU 7S0 
STOU 7«> 
STOU BOO 
STOU 810 
STOU 820 
STOU 830 

STOU B40 

STOU 890 
STOU 840 
STOU 870 
STOU 880 
STOU 890 
STOU .00 
OFFlS.SniU ,10 
STOU ,20 
STOU ,30 
STOU ,40 
STOU ,50 
STOU ,40 
CONPUTSTOU ,70 

LUEI srou ,90 
STOU ,,0 
STOU 1000 

srouioio 

$T0U1020 
ST0U1030 
STOU 1 040 
ST0U1050 

srouia4o 
sroutoTo 
srouioBo 

STOUIOVC 
STOUllOO 
STOUlllO 
STOUltZO 
STOUII30 
STOUIIM 
ST0U1150 
STOUI 140 
STOU1170 
STOUI 180 

srouii.o 

STOUI zoo 
ST0UI2I0 

imm 

STOUI230 

sraut24o 

STOUI 250 

sroui24a 

STOVIITO 
ST0UI2B0 

srouiEM 

STOUllOO 

srouisio 

STaulS20 

srouisso 

STOUI 340 

srouisBo 

STOU1340 

sroui370 

STOUI 380 
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International Business Machines Corporation 

Data Processing Division 

1133 Westchester Avenue. White Plains, New Yoric 10604 

(U.SJ\. only) 

IBM World Trade Corporation 

821 United Nations Ptaza, New York, New York 10017 

(IntemationaQ 
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